Tecnologia, programação e muito Visual FoxPro.

domingo, 27 de setembro de 2015

]] XL-mania [[ File - rules_and_tips

 


Rules, petunjuk, dan tips melakukan posting di XL-mania

:::: TENTANG XL-mania :::::::::::::::::::::::::::::::::::::::::::::::

+-:: TERIMA KASIH ::::::::::::::::------------ updated : 25 Jun 08 -+
| |
| Dear member XL-mania, |
| |
| Terima kasih telah bergabung dengan XL-mania. Untuk lebih kenal |
| dengan XL-mania, kami kirimkan file "about_XL-mania.zip". Untuk |
| memperkenalkan XL-mania kepada rekan-rekan Anda, kirimkan file |
| "about_XL-mania.zip" tersebut atau file-file menarik lain dari |
| XL-mania kepada rekan-rekan Anda. |
| |
+-:: ATURAN XL-mania :::::::::::::----------------------------------+
| |
| 1 Dilarang : MLM, money game, berita, OOT, iklan tanpa izin |
| khusus, SARA, testing, pembicaraan pribadi / tidak relevan, |
| komentar 1 - 2 baris, melecehkan, tidak sopan, testing. |
| |
| 2 Harap mengganti subjek sesuai dengan topik yang dibicarakan. |
| Jangan terus me-reply subjek yang sama untuk topik yang lain |
| dan jangan lupa, buat subjek yang unik, hindari subjek |
| "tanya", "help", "tolong" [penjelasan lihat "Tips Bertanya |
| di XL-mania" pada bagian bawah] |
| |
| 3 Usahakan besar attachment < 200kb, gunakan winzip jika perlu |
| |
| 4 Siapa saja boleh menjawab masalah Excel dari member lain. Di |
| sini kita saling belajar [malu bertanya, kerja manual ^_~ ] |
| |
| [Aturan "hanya" empat ini, yang di bawah hanyalah penjelasan |
| detail dari aktivitas group dan tips posting] |
| |
+----------------------------------------------------------+

:::: FREQUENTLY ASKED QUESTIONS :::::::::::::::::::::::::::::::::::::

+-:: INBOX PENUH? ::::::::::::::::----------------------------------+
| |
| Inbox penuh? Gunakan digest! [1 email per hari] Caranya : |
| Untuk menerima ringkasan posting kirim e-mail ke : |
| XL-mania-digest@yahoogroups.com |
| Untuk kembali menerima masing-masing posting kirim e-mail ke : |
| XL-mania-normal@yahoogroups.com |
| |
+-:: FILE DIGEST TIDAK ADA? ::::::----------------------------------+
| |
| Dengan menggunakan fasilitas digest pada yahoo, otomatis Anda |
| tidak menerima attachment. Tapi jangan khawatir karena file-file |
| attachment tersebut tersimpan di : |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
| |
+-:: E-MAIL BOUNCING? ::::::::::::----------------------------------+
| |
| Untuk mengatasi bouncing kirim e-mail kosong ke : |
| XL-mania-normal@yahoogroups.com |
| |
+-:: DI MANA LETAK MESSAGE LAMA? :----------------------------------+
| |
| Untuk mencari message lama, masuk ke : |
| http://groups.yahoo.com/group/XL-mania/messages |
| Jika ingin melihat attachment pada message tersebut masuk ke : |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
| |
+-:: MENGAJAK TEMAN KE XL-mania? :----------------------------------+
| |
| Minta teman Anda mengirim e-mail kosong ke : |
| XL-mania-subscribe@yahoogroups.com |
| Setelah itu ada e-mail konfirmasi dari yahoo, reply saja e-mail |
| tersebut tanpa perlu ditulis apa-apa. |
| |
+-:: FILE PELAJARAN XL-mania? ::::----------------------------------+
| |
| File yang bisa dipelajari dapat diakses di : |
| http://groups.yahoo.com/group/XL-mania/files/Lessons/ |
| http://groups.yahoo.com/group/XL-mania/files/Problems/ |
| |
+-:: FILE EXCEL MENARIK? :::::::::----------------------------------+
| |
| Ingin mengirimkan teman Anda file Excel menarik? |
| http://groups.yahoo.com/group/XL-mania/files/Games+etc/ |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
| |
+-:: MERASA JAGOAN EXCEL? ^_^ ::::----------------------------------+
| |
| Ayo ikutan XL-mania challenge di : |
| http://groups.yahoo.com/group/XL-mania/files/Challenge/ |
| |
+-:: MEMBUAT GUIDE EXCEL? ::::::::----------------------------------+
| |
| Ingin membuat guide Excel dan menguploadnya ke bagian files? |
| Kirimkan ke XL-mania-owner@yahoogroups.com |
| |
+-:: TAK BISA AKSES LINK GROUP? ::----------------------------------+
| |
| Tak bisa akses link http://groups.yahoo.com/group/XL-mania/...? |
| Anda harus punya yahoo.id! Yahoo.id adalah login untuk masuk ke |
| seluruh fasilitas yahoo. Jika Anda sudah punya yahoo mail, masuk |
| ke www.yahoogroups.com dengan login yahoo mail tersebut. Jika |
| belum ada : |
| 1. masuk ke www.yahoogroups.com dan daftarkan diri Anda. |
| 2. masukkan e-mail secondary Anda dengan e-mail Anda yang sudah |
| terdaftar di XL-mania. |
| 3. reply konfirmasi yang masuk dari yahoo ke e-mail secondary |
| Malas melakukan step di atas? |
| 1. Buat yahoo id baru, |
| 2. Subscribe lagi ke XL- mania melalui : |
| http://groups.yahoo.com/group/XL-mania/ |
| |
+-:: SUKA XL-mania? ::::::::::::::----------------------------------+
| |
| Berikan testimoni tentang XL-mania di : |
| http://www.friendster.com/profiles/xlmania |
| Atau... ajak teman Anda ikut XL-mania! |
| |
+-:: TIDAK ADA YANG MENJAWAB? ::::----------------------------------+
| |
| Tidak ada yang menjawab pertanyaan Anda... Hmmm... Sebenarnya |
| kami mau mengakhiri tulisan ini sampai di sini. Tapi, sepertinya |
| Anda perlu "tips bertanya dan menjawab". O.K. deh, Jangan malas |
| membaca [tulisan panjang] yang di bawah ini. Hehehe... |
| |
+----------------------------------------------------------+


:::: TIPS BERTANYA DAN MENJAWAB :::::::::::::::::::::::::::::::::::::

+-:: TIPS BERTANYA DI XL-mania ::::---------------------------------+
| |
| Terkadang ada pertanyaan yang tidak dijawab, bahkan ada yang |
| kena filter. Cobalah untuk mengikuti tips-tips berikut : |
| |
| 1 Kerumitan masalah terkadang membuat pertanyaan Anda tidak |
| mendapat respons. Topik seperti "Bantu saya membuat program |
| inventory" atau "Bantu saya membuat program cash register" |
| memakan banyak waktu untuk menjawabnya. |
| |
| 2 Sebelum bertanya, jika ada fasilitas browsing, lihat dulu di |
| http://groups.yahoo.com/group/XL-mania/messages [yang berisi |
| arsip e-mail terdahulu, gunakan fasilitas "search"] atau... |
| http://groups.yahoo.com/group/XL-mania/files/Problems/ atau |
| http://groups.yahoo.com/group/XL-mania/files/Lessons/. Siapa |
| tahu saja problem Anda sudah pernah dibahas. |
| |
| 3 Tulis subjek yang mewakili masalah Anda |
| Hindari subjek yang tidak jelas, seperti : |
| "Tolong", "Help", "Problem", "Case", "Tugas", |
| "Urgent", "Penting", "Tanya", "Macro", "Test" |
| Contoh subject yang baik : |
| "Refresh pivot table otomatis" |
| "Conditional formatting lebih dari 4 kondisi" |
| "Error pada rumus vlookup" |
| Contoh subject yang terlalu panjang dan harus dihindari : |
| "Tolong dibantu, error pada vlookup" |
| "Help! Urgent! Refrest pivot table otomatis!!!!" |
| |
| 4 Jika Anda tidak tahu harus memberi subjek apa pada e-mail |
| Anda, berikan nama apa saja, asal unik dan tidak "generik". |
| Daripada subjek seperti "Tolong" dan "Tanya", lebih menarik |
| Jika Anda memberi subject yang "unik" |
| Contoh subject yang unik : |
| "Menjumlah jualan saya per bulan" |
| "Menghitung banyak tupai yang optimal" |
| |
| 5 Sertakan pertanyaan Anda di e-mail, jangan hanya disertakan |
| pada attachment. Ingat, tidak semua member dapat menerima |
| attachment. Jangan lupa menggunakan bahasa Indonesia yang |
| baik dan benar. |
| Contoh pertanyaan yang harus dihindari : |
| "Tolong dibantu, see attached" |
| "..." [tidak menyertakan pertanyaan sama sekali] |
| "Ini gimana caranya? |
| Contoh pertanyaan yang baik : |
| "Saya sedang menggunakan conditional formatting di |
| cell A5. Yang ingin saya buat adalah warna merah |
| jika nilainya 1, biru jika 2, hijau jika 3, kuning |
| jika 4. Dengan 4 kondisi ini, bagaimana cara |
| memasukkannya ke conditional formatting mengingat |
| fitur ini hanya men-support 3 kondisi?" |
| |
| 6 Terkadang sangat perlu untuk menyertakan attachment. Yang |
| perlu diperhatikan adalah : |
| - Gunakan attachment dalam ukuran kecil [gunakan winzip, |
| atau sederhanakan kasus tersebut], usahakan < 200 KB. |
| - Hapus gambar / object yang tidak berhubungan dengan |
| pertanyaan Anda. Contoh : Logo perusahaan |
| - Dalam attachment, tunjukkan di mana masalah Anda lagi |
| - Jangan lupa tunjukkan contoh hasil yang diinginkan jika |
| problem itu dikerjakan dengan cara lain / manual |
| |
| 7 Jangan nyalakan "request delivery receipt" dan "request read |
| receipt" karena akan menyebabkan message yang masuk ke group |
| bertambah banyak. |
| |
| 8 Terkadang perlu juga untuk menyebutkan versi Excel yang Anda |
| gunakan. Sehingga solusi yang diberikan lebih sesuai. |
| |
| 9 Jika sudah ada yang menjawab pertanyaan Anda, dan Anda tidak |
| puas, atau solusi yang diberikan tidak sesuai dengan yang |
| Anda inginkan, hindari posting 1 baris seperti : |
| "Tidak bisa tuh...", "Kok ga bisa yah" |
| Perjelas lagi keinginan Anda, misalnya dengan menceritakan |
| bahwa dengan solusi tadi hasil yang muncul adalah X, tetapi |
| yang Anda inginkan adalah Y. |
| |
| 10 Jika belum ada yang menjawab, tanyakan lagi, tapi sebaiknya |
| jangan pada hari yang sama. Tunggulah 2 atau 3 hari kemudian |
| karena di sini banyak yang membaca posting Anda. Masalahnya, |
| ada kemungkinan memang tidak ada solusinya, atau... rumit. |
| Saat posting kembali, tulis pertanyaan Anda dengan lebih |
| detail, jangan post pertanyaan yang sama. |
| |
| 11 Jika sudah ada yang menjawab, dan memang sesuai dengan yang |
| Anda inginkan, ucapkan terima kasih langsung ke e-mail |
| penjawab. Jangan kirim ke group, kecuali jika ucapan terima |
| kasih itu disertai dengan pertanyaan baru lagi. |
| |
| 12 Jangan selalu bertanya ke XL-mania-owner@yahoogroups.com. |
| Cobalah bertanya ke XL-mania@yahoogroups.com karena solusi |
| yang diberikan lebih bervariasi. |
| |
| 13 Jika Anda tahu jawaban atas permasalahan orang lain, jangan |
| malu untuk menjawab, walaupun Anda juga dalam taraf belajar. |
| |
| 14 Saat mereply suatu posting, taruh reply Anda di bagian atas, |
| jangan di bagian bawah. Ini memudahkan member lain membaca |
| jawaban / reply dari Anda. |
| |
| 15 Berikan signature dan nama panggilan Anda, jangan sampai |
| orang lain memanggil Anda, "...hai Mr QC-01@ptxyz.co.id..." |
| atau "...begini, Mbak assembly-innerpart@abc.co.id..." |
| |
| 16 Jangan gunakan huruf besar semua, karena di dunia maya dan |
| di mailing list/ forum, artinya adalah Anda sedang berteriak |
| atau marah-marah. |
| |
| 17 Hindari cc ke personal / membanjiri e-mail individual dengan |
| pertanyaan. |
| |
+-:: TIPS MENJAWAB DI XL-mania ::::---------------------------------+
| |
| Jawaban untuk tiap masalah sangat fleksibel. karena itu tipsnya |
| mungkin lebih sedikit : |
| |
| 1 Mohon dalam merespons e-mail member lain tidak mengganti |
| subjectnya. Contoh subject pertanyaan : |
| "Membuat grafik stacked pie" |
| Contoh subject reply yang diharapkan : |
| RE : "Membuat grafik stacked pie" |
| Contoh subject reply yang TIDAK diharapkan : |
| RE : "Membuat grafik stacked pie (SOLVED)" |
| RE : "Jawaban membuat grafik stacked pie" |
| RE : "Jawaban membuat grafik stacked pie, revisi" |
| |
| 2 Menjawab tidak harus memberikan solusi saja. Anda dapat : |
| - Berdiskusi, sharing |
| - Memberi kritik atau cara lain yang menurut Anda lebih |
| baik / efisien, memberi saran perubahan metode kerja |
| |
+----------------------------------------------------------+

:::: TENTANG MACRO / VBA ::::::::::::::::::::::::::::::::::::::::::::

+-:: PENGGUNAAN MACRO / VBA ::::::----------------------------------+
| |
| Berikut ini adalah beberapa petunjuk tentang macro : |
| |
| 1 Peringatan tentang adanya macro pada suatu file saat file |
| bukan berarti file tersebut mengandung virus. Macro memang |
| dapat berbahaya, tapi dapat juga membantu pekerjaan. |
| |
| 2 Untuk mengaktifkan macro, ubah macro security ke low jika |
| SELALU bekerja dengan macro dari sumber terpercaya : |
| Tools, macro, security, low, ok, keluar dari excel, buka |
| lagi file Anda [tahap ini tidak perlu diulang lagi untuk |
| aktivasi berikutnya] |
| |
| 3 Jika anda tak selalu bekerja dengan sumber terpercaya, ubah |
| setting security macro ke medium, sehingga Anda dapat segera |
| mendeteksi apa ada macro dalam suatu file dan apakah macro |
| tersebut berbahaya atau tidak : |
| Tools, macro, security, medium, ok, keluar dari excel, |
| buka lagi file Anda [tahapan ini tidak perlu diulang lagi |
| untuk aktivasi berikutnya]. Saat membuka file itu lagi, |
| pilih "Enabled" |
| |
| 4 Moderator akan menyaring macro yang sifatnya "berbahaya", |
| jadi member tidak perlu khawatir untuk melihat file-file |
| dengan macro di XL-mania |
| |
| 5 Saat seseorang memberi Anda solusi dengan macro, Anda dapat |
| mengcopy syntax yang diberikan melalui : menu tools, macro, |
| visual basic editor |
| |
| 6 Untuk Anda yang awam mengenai macro, dapat mempelajarinya |
| melalui : |
| a. File-file di yahoogroup XL-mania : |
| http://groups.yahoo.com/group/xl-mania/files/lessons |
| b. Tools, macro, record new macro [Anda perlu mengaktifkan |
| macro terlebih dahulu seperti pada poin 2 dan 3] |
| |
+----------------------------------------------------------+

:::: TENTANG MODERASI :::::::::::::::::::::::::::::::::::::::::::::::

+-:: MODERASI DI XL-mania ::::::::----------------------------------+
| |
| Berikut ini adalah aturan moderasi di XL-mania : |
| |
| :: PASTI DI-DELETE [message tidak diapprove] |
| |
| 1 MLM, money game, berita, OOT, iklan tanpa izin khusus, SARA, |
| testing, pembicaraan pribadi / tidak relevan, testing : |
| "Wowww... signaturemu keren, gimana cara bikinnya?" |
| "Wah hebat, kerja di mana mbak?" |
| "Boleh nih kursus, tinggal di mana mas?" |
| |
| 2 Worm, virus, trojan, macro berbahaya |
| |
| 3 Repost message yang sama dalam tenggang < 3 hari |
| |
| 4 Pertanyaan yang terlalu general / hanya 1 baris saja: |
| "Excel saya kok sering hang ya?" [tanpa penjelasan] |
| "Ada yang udah liat Excel versi terbaru?" |
| "SUM itu apa ya?" [pencet F1 please!] |
| |
| 5 Pertanyaan seputar hacking / cracking |
| |
| 6 Pertanyaan / jawaban yang tidak sopan, melecehkan atau |
| ditulis dalam huruf besar semua |
| |
| :: MUNGKIN DI-DELETE [kalau moderator lagi nganggur, "mungkin" |
| akan diforward japri, tapi ga janji deh... ^_^ hehehe...] |
| |
| 1 Attachment penting, tapi ukurannya > 200 kb |
| |
| 2 Ucapan terima kasih [mohon disampaikan japri / langsung ke |
| orang yang bersangkutan] |
| |
| 3 Respons satu baris : |
| "Diinstall ulang aja mas excelnya" |
| "Ehhh... saya juga pernah kejadian gitu tuh" |
| |
| :: DI-APPROVE JIKA MESSAGE HARI ITU SEDIKIT |
| |
| 1 Bagian bawah message ada message lama yang tidak perlu |
| |
| 2 Subject tidak jelas: "tanya", "tolong", "urgent", "help pls" |
| |
| 3 Request yang sangat sulit / tidak mungkin / negatif : |
| "Bagaimana cara menggunakan Excel untuk menyembuhkan |
| tupai saya yang sedang pilek?" |
| "Bagaimana cara membuat virus dengan Excel?" [Well, ini |
| sebenarnya mungkin dilakukan... tapi gimana gitu lho...] |
| |
| 4 Pembuatan aplikasi rumit dengan Excel [serius, ga ada yang |
| respons kalau terlalu rumit] |
| "Tolong buatin program yang inputnya *bla* *bla* *bla* |
| *bla* *bla* *bla* *bla* [sampai 300 baris], ntar saya |
| kirimin cumi-cumi deh sebagai ucapan terima kasih" |
| "Tolong buatin saya program penjadwalan mesin dong, yang |
| lengkap dari setting mesin sampai penjadwalan pekerja" |
| |
| 5 Jawaban yang sama untuk satu topik sama |
| |
+----------------------------------------------------------+

:::: PENUTUP ::::::::::::::::::::::::::::::::::::::::::::::::::::::::

+-:: KRITIK / SARAN ::::::::::::::----------------------------------+
| |
| untuk mengirimkan saran ke moderator kirim e-mail ke : |
| XL-mania-owner@yahoogroups.com |
| |
+-:: AYO AJAK TEMAN-TEMAN ANDA :::----------------------------------+
| |
| Ajak teman join dengan mengirim e-mail kosong dari alamat e-mail |
| mereka ke : XL-mania-subscribe@yahoogroups.com |
| Anda juga dapat mengundang mereka dengan mengirimkan file-file |
| menarik dari : |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
| |
| Selamat ber-EXCEL ria!!! |
| |
+----------------------------------------------------------+

+-:: SUPPORT :::::::::::::::::::::----------------------------------+
| |
| Support www.XL-mania.com |
| BCA, 466 121 2564, cabang citraland mall |
| Mandiri, 117 000 419 4601, cabang kyai tapa |
+----------------------------------------------------------+

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (319)
:: XL-mania ::::::::::::::::::::
Momods sekarang jualan tas di www.flirtypoodle.com ha ha ha....
:: ------------- ::::::::::::::::::::
DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, pembicaraan pribadi, one line message,  melecehkan,  tidak sopan.
:: ------------- ::::::::::::::::::::
Buat subjek yang kreatif, jangan : &quot;tanya&quot;, &quot;help&quot;, &quot;mohon bantu&quot;
Usahakan besar attachment &lt; 200 kb. Gunakan  winzip  jika  perlu.
:: ------------- ::::::::::::::::::::
Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke
XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari
http://groups.yahoo.com/group/XL-mania/files/Promotion/         
:: ------------- ::::::::::::::::::::
Berikan testimoni di : 
http://www.xl-mania.com/2008/06/testimoni-xl-mania.html        
:: ------------- ::::::::::::::::::::
Message lama ada di :
http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]
http://www.mail-archive.com/xl-mania@yahoogroups.com

.

__,_._,___

quinta-feira, 17 de setembro de 2015

Re: [usuarios_fox] SALUDOS

 

Hola Mario:

Debes de tener la información que te solicita el Servicio Web; datos que solicita, si es XML y que mensaje te da si es correcto o
si hay error.

Con Vfox yo manejo una pequeña interfaz en C# para facilitar esto
 
Saludos Cordiales Josè Alfonso



El Jueves, 17 de septiembre, 2015 12:20:00, "Mario Daniel Goldstein mariogoldstein@hotmail.com [usuarios_fox]" <usuarios_fox@yahoogrupos.com.mx> escribió:


 
Necesito ayuda para modificar mi sistema en VFP9 PARA CONECTARME CON WEBSERVICES.
Lo que he leído hasta ahora dice que debo manejar xml, tener soap en mi pc(??) y otros detalles que iré viendo.
Será posible que lo pueda hacer en vfp9?
Es un sistema de facturación que se conecta con un webservice estatal.

Gracias!
Mario Goldstein




From: usuarios_fox@yahoogrupos.com.mx
To: usuarios_fox@yahoogrupos.com.mx
Date: Thu, 17 Sep 2015 09:29:51 -0500
Subject: RE: [usuarios_fox] SALUDOS

 

Vfox 9 en realidad no tiene acceso directo a web, puedes crear y almacenar
código HTML en tablas, mas bien se usa en el lado del servivor en la capa
de validación.
 
Hay por ahí algunas interfaces y algunas iniciativas que dan librerías para
trabajar con .NET por ejemplo.
 
Saludos
 
José Alfonso
 

From: usuarios_fox@yahoogrupos.com.mx
To: usuarios_fox@yahoogrupos.com.mx
Date: Wed, 16 Sep 2015 22:19:27 +0000
Subject: [usuarios_fox] SALUDOS

 
TENGO EL SIGUIENTE CÓDIGO
<div id="body">
<form method="get" action="http://aprenderaprogramar.com">
NOMBRE: <input type="text" name="NOMBRE" /><br />
APELLIDOS: <input type="text" name="APELLIDOS" /><br />
DIRECCION: <input type="text" name="DIRECCION" /><br />
CORREO ELECTRONICO: <input type="text" name="CORREO EMAIL" /><br />
TELEFONO: <input type="text" name="TELEFONO" /><br />
EMPRESA: <input type="text" name="EMPRESA" /><br />
<img src="e:/pc.gif" width="100" height="100" alt="COMPUTADOR">
<img src="e:/JRM.jpg" width="100" height="100" alt="COMPUTADOR">
<img src="e:/JRM.BMP" width="XXpx" height="YYpx" alt="COMPUTADOR">
</form>
</div>
NECESITO SABER SI PUEDO CREARLO TAMBIÉN EN FOX Y GUARDARLO COMO HTLM O ESTE MISMO CÓDIGO HTLM Y USAR LAS TABLA.DBF PARA GUARDAR LA INFORMACIÓN QUE ENTRE POR TECLADO.
O COMO SE CREA UNA PAGINA EN FOX DONDE ENCUENTRO UNA GUÍA.





__._,_.___

Enviado por: Jose Alfonso Morquecho Paniagua <jamorquecho@yahoo.com>
Responder mediante la Web Responder a remitente Responder a grupo Crear un tema nuevo Mensajes con este tema (10)
Comentarios, agregar archivos en el foro, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com


.

__,_._,___

RE: [usuarios_fox] SALUDOS

 

Necesito ayuda para modificar mi sistema en VFP9 PARA CONECTARME CON WEBSERVICES.
Lo que he leído hasta ahora dice que debo manejar xml, tener soap en mi pc(??) y otros detalles que iré viendo.
Será posible que lo pueda hacer en vfp9?
Es un sistema de facturación que se conecta con un webservice estatal.

Gracias!
Mario Goldstein




From: usuarios_fox@yahoogrupos.com.mx
To: usuarios_fox@yahoogrupos.com.mx
Date: Thu, 17 Sep 2015 09:29:51 -0500
Subject: RE: [usuarios_fox] SALUDOS

 

Vfox 9 en realidad no tiene acceso directo a web, puedes crear y almacenar
código HTML en tablas, mas bien se usa en el lado del servivor en la capa
de validación.
 
Hay por ahí algunas interfaces y algunas iniciativas que dan librerías para
trabajar con .NET por ejemplo.
 
Saludos
 
José Alfonso
 

From: usuarios_fox@yahoogrupos.com.mx
To: usuarios_fox@yahoogrupos.com.mx
Date: Wed, 16 Sep 2015 22:19:27 +0000
Subject: [usuarios_fox] SALUDOS

 
TENGO EL SIGUIENTE CÓDIGO
<div id="body">
<form method="get" action="http://aprenderaprogramar.com">
NOMBRE: <input type="text" name="NOMBRE" /><br />
APELLIDOS: <input type="text" name="APELLIDOS" /><br />
DIRECCION: <input type="text" name="DIRECCION" /><br />
CORREO ELECTRONICO: <input type="text" name="CORREO EMAIL" /><br />
TELEFONO: <input type="text" name="TELEFONO" /><br />
EMPRESA: <input type="text" name="EMPRESA" /><br />
<img src="e:/pc.gif" width="100" height="100" alt="COMPUTADOR">
<img src="e:/JRM.jpg" width="100" height="100" alt="COMPUTADOR">
<img src="e:/JRM.BMP" width="XXpx" height="YYpx" alt="COMPUTADOR">
</form>
</div>
NECESITO SABER SI PUEDO CREARLO TAMBIÉN EN FOX Y GUARDARLO COMO HTLM O ESTE MISMO CÓDIGO HTLM Y USAR LAS TABLA.DBF PARA GUARDAR LA INFORMACIÓN QUE ENTRE POR TECLADO.
O COMO SE CREA UNA PAGINA EN FOX DONDE ENCUENTRO UNA GUÍA.



__._,_.___

Enviado por: Mario Daniel Goldstein <mariogoldstein@hotmail.com>
Responder mediante la Web Responder a remitente Responder a grupo Crear un tema nuevo Mensajes con este tema (9)
Comentarios, agregar archivos en el foro, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com


.

__,_._,___

RE: [usuarios_fox] SALUDOS

 

Vfox 9 en realidad no tiene acceso directo a web, puedes crear y almacenar
código HTML en tablas, mas bien se usa en el lado del servivor en la capa
de validación.
 
Hay por ahí algunas interfaces y algunas iniciativas que dan librerías para
trabajar con .NET por ejemplo.
 
Saludos
 
José Alfonso
 

From: usuarios_fox@yahoogrupos.com.mx
To: usuarios_fox@yahoogrupos.com.mx
Date: Wed, 16 Sep 2015 22:19:27 +0000
Subject: [usuarios_fox] SALUDOS

 
TENGO EL SIGUIENTE CÓDIGO
<div id="body">
<form method="get" action="http://aprenderaprogramar.com">
NOMBRE: <input type="text" name="NOMBRE" /><br />
APELLIDOS: <input type="text" name="APELLIDOS" /><br />
DIRECCION: <input type="text" name="DIRECCION" /><br />
CORREO ELECTRONICO: <input type="text" name="CORREO EMAIL" /><br />
TELEFONO: <input type="text" name="TELEFONO" /><br />
EMPRESA: <input type="text" name="EMPRESA" /><br />
<img src="e:/pc.gif" width="100" height="100" alt="COMPUTADOR">
<img src="e:/JRM.jpg" width="100" height="100" alt="COMPUTADOR">
<img src="e:/JRM.BMP" width="XXpx" height="YYpx" alt="COMPUTADOR">
</form>
</div>
NECESITO SABER SI PUEDO CREARLO TAMBIÉN EN FOX Y GUARDARLO COMO HTLM O ESTE MISMO CÓDIGO HTLM Y USAR LAS TABLA.DBF PARA GUARDAR LA INFORMACIÓN QUE ENTRE POR TECLADO.
O COMO SE CREA UNA PAGINA EN FOX DONDE ENCUENTRO UNA GUÍA.


__._,_.___

Enviado por: Jose Alfonso Morquecho <jamorquecho@hotmail.com>
Responder mediante la Web Responder a remitente Responder a grupo Crear un tema nuevo Mensajes con este tema (8)
Comentarios, agregar archivos en el foro, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com


.

__,_._,___

quarta-feira, 16 de setembro de 2015

[usuarios_fox] SALUDOS

 

TENGO EL SIGUIENTE CÓDIGO
<div id="body">
<form method="get" action="http://aprenderaprogramar.com">
NOMBRE: <input type="text" name="NOMBRE" /><br />
APELLIDOS: <input type="text" name="APELLIDOS" /><br />
DIRECCION: <input type="text" name="DIRECCION" /><br />
CORREO ELECTRONICO: <input type="text" name="CORREO EMAIL" /><br />
TELEFONO: <input type="text" name="TELEFONO" /><br />
EMPRESA: <input type="text" name="EMPRESA" /><br />
<img src="e:/pc.gif" width="100" height="100" alt="COMPUTADOR">
<img src="e:/JRM.jpg" width="100" height="100" alt="COMPUTADOR">
<img src="e:/JRM.BMP" width="XXpx" height="YYpx" alt="COMPUTADOR">
</form>
</div>
NECESITO SABER SI PUEDO CREARLO TAMBIÉN EN FOX Y GUARDARLO COMO HTLM O ESTE MISMO CÓDIGO HTLM Y USAR LAS TABLA.DBF PARA GUARDAR LA INFORMACIÓN QUE ENTRE POR TECLADO.
O COMO SE CREA UNA PAGINA EN FOX DONDE ENCUENTRO UNA GUÍA.

__._,_.___

Enviado por: jefferson reina <jrjefferson325@yahoo.com>
Responder mediante la Web Responder a remitente Responder a grupo Crear un tema nuevo Mensajes con este tema (7)
Comentarios, agregar archivos en el foro, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com


.

__,_._,___

segunda-feira, 14 de setembro de 2015

Re: [usuarios_fox] SALUDOS

 

Yo tenia un sistrma hecho en foxpro lineal como el tuyo y lo tuve que rehacer todo en visualfox. El lenguaje es el mismo pero en la version visual se agregan muchas cosas nuevas y principalmente cambia la FORMA de programar. No le veo otra que rehacerlo.
Saludos.

El 14/09/2015 21:17, "Jose Alfonso Morquecho Paniagua jamorquecho@yahoo.com [usuarios_fox]" <usuarios_fox@yahoogrupos.com.mx> escribió:
 

 Es que Fox 9 ya no funciona así, desde la versión 3 se cambió a un formato de objetos y visual.

Aca todo son objetos y propiedades, si puedes busca la ayuda del vfox 6 ahí trae completa la explicación de esto

Y esta el ejemplo de solution que viene en la ayuda del fox 9


Saludos Cordiales Josè Alfonso


El Lunes, 14 de septiembre, 2015 18:20:56, "jefferson reina jrjefferson325@yahoo.com [usuarios_fox]" escribió:


 
SIEMPRE E PROGRAMADO SOLO EN PRG ME ATRASE NUNCA ACEPTE LAS NUEVAS MODIFICACIONES DE IMÁGENES FORMULARIOS EVENTOS ETC.
EJEMPLO:EL SIGUIENTE CÓDIGO ES EL BORRADOR DE UN PROGRAMA QUE YA DISEÑE  YA TENGO LA VERSIÓN FINAL PERO ME GUSTARÍA QUE SE VEAS MODERNO COMO UN FORMULARIO.
*CLEAR
@ 6,3 CLEAR TO 43,210
CLOSE ALL
CLOSE DATABASES
CLEAR GETS
SET TALK OFF
SET ECHO ON
SET SAFETY OFF
SET DATE TO GERMAN
*? DATETIME(1998, 02, 16, 12, 34, 56) Displays 02/16/1998 12:34:56 Pm 
*TTT=TIME()
SET HOURS TO  24
SET CLOCK TO 4,187 
*@ 5,180 SAY TTT
*?HOUR(DATETIME( ))
STORE DATETIME() TO TTT45
*@ 6,100 SAY 'FECHA Y HORA DE RECIVIDO ' FONT 'ARIAL ',14 COLOR RGB(0,255,0)255'0, 255, 0
*@ 6,148 SAY TTT45 FONT 'ARIAL ',14 COLOR RGB(0,255,0)255'
@2,5 SAY 'RUNNING LLENAR1'&RUNNING
STORE DATE( ) TO gdDayNum
STORE DATE( ) TO gdDayNum
DO case
CASE DOW(gddaynum)=1
STORE 'DOMINGO'TO cv
@ 4,5 SAY CV  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE DOW(gddaynum)=2
STORE 'LUNES'TO cv
@ 4,5 SAY CV  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE DOW(gddaynum)=3
STORE 'MARTES'TO cv
@ 4,5 SAY CV  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE DOW(gddaynum)=4
STORE 'MIERCOLES'TO cv
@ 4,5 SAY CV  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE DOW(gddaynum)=5
STORE 'JUEVES'TO cv
@ 4,5 SAY CV  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255  
CASE DOW(gddaynum)=6
STORE 'VIERNES'TO cv
@ 4,5 SAY CV  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE DOW(gddaynum)=7
STORE 'SABADO'TO cv
@ 4,5 SAY CV  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
ENDCASE
*? CDOW(gdDayNum)
tToday = DATE( )
 *@ 4,5 SAY 'HOY ES' FONT 'ARIAL ',13 COLOR RGB(0,0,128)
 @ 4,24SAY TTODAY FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
 FF= YEAR(DATE( ))
@ 4,52 SAY FF  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255  RESPONSABLE DEL AÑO   48 
 DO case
CASE MONTH(DATE( ))=1
STORE ' DE ENERO DE'TO MES
@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=2
STORE ' DE FEBRERO DE'TO MES
@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=3
STORE ' DE MARZO DE'TO MES
@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=4
STORE ' DE ABRIL DE'TO MES
@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=5
STORE ' DE MAYO DE'TO MES
@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=6
STORE ' DE JUNIO DE'TO MES
@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=7
STORE ' DE JULIO DE'TO MES
@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=8
STORE ' DE AGOSTO DE'TO MES
@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=9
STORE ' DE SEPTIEMBRE DE'TO MES
@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=10
STORE ' DE OCTUBRE DE'TO MES
@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=11
STORE ' DE NOVIEMBRE DE'TO MES
@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=12
STORE ' DE DICIEMBRE DE'TO MES
@ 4,28 SAY MES  FONT 'ARIAL ',14 COLOR RGB(255,0,0)255 
ENDCASE
*WAIT 
nitem = 0
NOM=SPACE(35)
CORR=SPACE(30)
CIU=SPACE(30)
MA=SPACE(8) &MARCA
MODELO=SPACE(14)
TP=SPACE(8)&TIPO COMPUTADOR
CL=SPACE(8) &COLOR
DD=SPACE(14) &DISCO DURO
DD1=SPACE(14) &DISCO DURO 2
CP=SPACE(4) &CAPACIDAD DISCO
CP1=SPACE(4) &CAPACIDAD DISCO DURO 1
MM=SPACE(4) &MEMORIA
BD=SPACE(10) &BOARD
SO=SPACE(10)&SISTEMA OPERACIONAL
MP=SPACE(12) µ PROCESADOR
*FECHA=FECHA
DIRR=SPACE(12) &DIRECCION 1
TEL1=SPACE(11)&TELEFONO1
TEL2=SPACE(11) &TELEFONO 2
YU=0 
serie=SPACE(12)
COLOR1=SPACE(10)
&ORDEN DE SERVICIO
LIN1=SPACE(75) &LINEAS DE TEXTOS            
LIN2=SPACE(75) &LINEAS DE TEXTOS
LIN3=SPACE(75) &LINEAS DE TEXTOS   
LIN4=SPACE(75) &LINEAS DE TEXTOS 
LIN5=SPACE(75)
*USE FOTO2 
*GO 4
USE FOTO
GO 13
@2,160 say F'NUEVA CHILLER' FONT'CHILLER ',24 COLOR RGB(255,255,255,0,0,255)             
CLOSE ALL
@1,211 FILL TO 44, 212 COLOR GR+/B&complemento de fill la parte que se borra con el logo  
@41,1 FILL TO 48,212 COLOR GR+/B 41,1,48,212    
 *@ 45,45 FILL TO 45, 212 COLOR GR+/B 
*@2,160 say PH'NUEVA CHILLER' FONT'CHILLER ',24 COLOR RGB(255,255,255,0,0,255)158     
CLOSE ALL
@ 6,110 SAY 'RECIVIDO =>' FONT 'ARIAL ',14 COLOR RGB(0,255,0)255'0, 255, 0
@ 6,130 SAY TTT45 FONT 'ARIAL ',14 COLOR RGB(0,255,0)255'  
SET BELL ON
USE FECHA
STORE FEDA TO TTT3
STORE FECHA TO FECHA1
STORE FECHACOMPR TO FECHA2
STORE FECHACUMPL TO FECHA3
TY=TIME()
STORE HORA TO HORAS
CLOSE ALL
USE LISTA
GO BOTTOM
OSF=OSFJ+1
CLOSE ALL
USE lista
SORT TO LISTA1 ON NVALUE
CLOSE ALL
USE LISTA1 
INDEX ON NVALUE TO COMPLICE
*DO WHILE EOF()
DO WHILE .T. 
@ 6,5 SAY 'NUMERO DE CEDULA O NIT  'font'ARIAL ',16 COLOR RGB(0,0,128)255MUESTRA UNA RAYA STYLE 'NU'  
@ 6,62 get NITEM FONT 'ARIAL ',16 COLOR RGB(0,0,128)255
&COLOR GR+/B
READ
SEEK NITEM 
     DO CASE
      CASE NITEM=1
      QUIT
      CASE NITEM=2
      MODIFY COMMAND LLENAR1
     ENDCASE
IF EOF()
EXIT
endif
*CLEAR
SET READBORDER ON
*@ 6,3 CLEAR TO 43,210
@ 6,3 FILL TO 43, 210 COLOR RGB(192,192,255)
@ 8,50 SAY NITEM FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 8,5 SAY 'CEDULA O NIT  ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
STORE NOMBRE TO VC
STORE CORREO TO CS
STORE FECHACUMPL TO GATO
@ 12,50 SAY CS FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 10,50 SAY VC FONT 'ARIAL ',16 COLOR RGB(255,0,0)
STORE CIUDAD TO CD
@ 10,5 SAY 'PERSONA Y/O EMPRESA  ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,5 SAY 'CORREO ELECTRONICO   ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)7
@ 12,113 SAY  cd FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 14,5 SAY 'TIPO DE PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
**********
*************+
*RUTINA DE ELEGIR COMPUTAFOR
USE PC&customer   Open customer tablE
RECNO()
*BROWSE PARTITION 20 REDIT
&DEFINE WINDOW wBrowse FROM 7,167 TO 13,187 ;
DEFINE WINDOW wBrowse FROM 7,137 TO 13,157;
   CLOSE ;
   GROW ;
   COLOR SCHEME 10
&CLOSE DATABASES 
*OPEN DATABASE (HOME(2) + 'data\testdata')
USE PC   Open customer table
BROWSE WINDOW wBrowse ;
   FIELDS PCS :H = 'EQUIPO:' , ;
   NOMBRE :H = 'NOMBRE:' ;
   TIMEOUT 710
   STORE PCS TO TP&XX
RELEASE WINDOW wBrowse
*?XX
*WAIT
*********
************* 
*************
@ 14,5 SAY 'TIPO DE PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 14,50 SAY TP FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 14,97 SAY 'COLOR DEL PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 14,123 GET COLOR1 FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 16,5 SAY 'MARCA PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 16,50 GET MA FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 16,97 SAY 'MODELO PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 16,123 GET MODELO FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@18,5 SAY 'NUMERO SERIE DEL EQUIPO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 18,50 GET SERIE  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@20,5 SAY 'DISCO DURO 1' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 20,50 GET DD  FONT 'ARIAL ',16 COLOR RGB(0,0,128)&DD
@ 22,5 SAY 'DISCO DURO 2' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 22,50 GET DD1  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 24,5 SAY 'MEMORIA' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 24,50 GET MM  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 26,5 SAY 'BOARD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 26,50 GET BD  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 28,5 SAY 'SISTEMA OPERACIONAL' FONT 'ARIAL ',16 COLOR RGB(0,0,128) 
@ 28,50 GET SO  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 30,5 SAY 'MICRO PROCESADOR' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 30,50 GET MP  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 32,5 SAY 'DIRECCION' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 32,50 GET DIRR  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 34,5 SAY 'TELEFONO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 34,50 GET TEL1  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
*WAIT
@ 36,5 SAY 'TELEFONO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 36,50 GET TEL2  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 38,5 SAY 'FACTURA Y/O ORDEN' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 38,50 SAY OSF  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
USE FECHA
REPLACE HORA WITH TTT45
@ 20,97 SAY 'HORA DE RECIVO DEL EQUIPO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 20,150 GET HORA FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 22,97 SAY 'FECHA DE COMPRA DEL PC     ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 22,150 GET FECHA2 FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 24,97 SAY 'FECHA DE NACIMIENTO CLIENTE  ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 24,150 SAY GATO  FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 28,105 SAY 'DIAGNOSTICO Y SERVICIO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)  
@ 30,75 GET LIN1  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 32,75 GET LIN2  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 34,75 GET LIN3  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 36,75 GET LIN4  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 38,75 GET LIN5  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,97 SAY'CIUDAD'FONT 'ARIAL ',16 COLOR RGB(0,0,128)
READ
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
RECNO()
@ 8,96 SAY  'REGISTRO NUMERO'FONT 'ARIAL ',16 COLOR RGB(0,255,0)
@ 8,128 SAY RECNO() FONT 'ARIAL ',16 COLOR RGB(0,255,0)
@ 23,5 say ' '
STORE VC TO VCII
STORE CS TO CSII
STORE CD TO CDII
COLOR1=SPACE(10)
CLOSE ALL
USE LISTA
APPEND BLANK
REPLACE NVALUE WITH NITEM
REPLACE NOMBRE WITH VCII
REPLACE CORREO WITH CSII
REPLACE CIUDAD WITH CDII
REPLACE SERIEJ WITH SERIE
REPLACE MAJ WITH MA
REPLACE TPJ WITH TP
REPLACE DDJ WITH DD
REPLACE DD1J WITH DD1
REPLACE MMJ WITH MM
REPLACE BDJ WITH BD
REPLACE SOJ WITH SO
REPLACE MPJ WITH MP
REPLACE DIJJ WITH DIRR&DIRECCION  
REPLACE TELJ WITH TEL1
REPLACE TEL2J WITH TEL2 
REPLACE OSFJ WITH OSF
REPLACE LIN1J WITH LIN1
REPLACE LIN2J WITH LIN2
REPLACE LIN3J WITH LIN3
REPLACE LIN4J WITH LIN4
REPLACE LIN5J WITH LIN5
REPLACE  FECHA WITH FECHA1&TTODAY&tToday = DATE()
REPLACE HORA WITH TTT45
REPLACE FECHACOMPR WITH FECHA2
REPLACE FECHACUMPL WITH FECHA3
REPLACE COLLO WITH COLOR1
REPLACE MODEL WITH MODELO
CLOSE ALL
DO OBJETO
ENDDO
*@ 6,3 CLEAR TO 43,210
@ 6,3 FILL TO 43, 210 COLOR RGB(128,128,128)
@ 8,50 SAY NITEM FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 8,5 SAY 'CEDULA O NIT  ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 10,5 SAY 'PERSONA Y/O EMPRESA  ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 10,50 GET NOM  FONT 'ARIAL ',16 COLOR RGB(0,0,128)  &CLASS TextBox &NAME 
@ 12,5 SAY 'CORREO ELECTRONICO   ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,50 get CORR FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,123 GET CIU  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 14,5 SAY 'TIPO DE PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
********************************************
*RUTINA DE ELEGIR COMPUTAFOR
USE PC&customer   Open customer table
RECNO()
*BROWSE PARTITION 20 REDIT
DEFINE WINDOW wBrowse FROM 7,137 TO 13,157;
   CLOSE ;
   GROW ;
   COLOR SCHEME 10
CLOSE DATABASES
*OPEN DATABASE (HOME(2) + 'data\testdata')
USE PC   Open customer table
BROWSE WINDOW wBrowse ;
   FIELDS PCS :H = 'EQUIPO:' , ;
   NOMBRE :H = 'NOMBRE:' ;
   TIMEOUT 710
   STORE PCS TO TP&XX
RELEASE WINDOW wBrowse
*?XX
*WAIT
*********

@ 14,5 SAY 'TIPO DE PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 14,50 say tp FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 14,97 SAY 'COLOR DEL PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 14,123 GET COLOR1 FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@16,5  SAY 'MARCA PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 16,50 GET MA  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 16,97 SAY 'MODELO PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 16,123 GET MODELO FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 18,5 SAY 'NUMERO SERIE DEL EQUIPO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 18,50 GET SERIE FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@20,5 SAY 'DISCO DURO 1' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 20,50 GET DD  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 22,5 SAY 'DISCO DURO 2' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 22,50 GET DD1  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 24,5 SAY 'MEMORIA' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
*SET READBORDER ON
@ 24,50 GET MM   FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 26,5 SAY 'BOARD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 26,50 GET BD  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 28,5 SAY 'SISTEMA OPERACIONAL' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 28,50 GET SO  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 30,5 SAY 'MICRO PROCESADOR' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 30,50 GET MP  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 32,5 SAY 'DIRECCION' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 32,50 GET DIRR  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 34,5 SAY 'TELEFONO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 34,50 GET TEL1  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
*WAIT
@ 36,5 SAY 'TELEFONO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 36,50 GET TEL2  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 38,5 SAY 'FACTURA Y/O ORDEN' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 38,50 SAY OSF  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
USE FECHA
REPLACE HORA WITH TTT45
@ 20,97 SAY 'HORA DE RECIVO DEL EQUIPO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 20,150 GET HORA FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 22,97 SAY 'FECHA DE COMPRA DEL PC     ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 22,150 GET FECHA2 FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 24,97 SAY 'FECHA DE NACIMIENTO CLIENTE  ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 24,150 GET FECHA3 FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 28,105 SAY 'DIAGNOSTICO Y SERVICIO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 30,75 GET LIN1  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 32,75 GET LIN2  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 34,75 GET LIN3  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 36,75 GET LIN4  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 38,75 GET LIN5  FONT 'ARIAL ',16 COLOR RGB(0,0,128)
*@ 6,3 FILL TO 43, 210 COLOR RGB(128,128,128)
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
READ
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
CLOSE ALL
USE LISTA
GO BOTTOM
APPEND BLANK
   REPLACE nValue WITH NITEM  
   REPLACE NOMBRE WITH NOM
   REPLACE CORREO WITH CORR
   REPLACE CIUDAD WITH CIU
   REPLACE SERIEJ WITH SERIE
   REPLACE MAJ WITH MA
REPLACE TPJ WITH TP
REPLACE DDJ WITH DD
REPLACE DD1J WITH DD1
REPLACE MMJ WITH MM
REPLACE BDJ WITH BD
REPLACE SOJ WITH SO
REPLACE MPJ WITH MP
REPLACE DIJJ WITH DIRR&DIRECCION
REPLACE TELJ WITH TEL1
REPLACE TEL2J WITH TEL2 
REPLACE OSFJ WITH OSF
REPLACE LIN1J WITH LIN1
REPLACE LIN2J WITH LIN2
REPLACE LIN3J WITH LIN3
REPLACE LIN4J WITH LIN4
REPLACE LIN5J WITH LIN5
REPLACE  FECHA WITH FECHA1&TTODAY&tToday = DATE()  
REPLACE HORA WITH TTT45 
REPLACE FECHACOMPR WITH FECHA2
REPLACE FECHACUMPL WITH FECHA3
REPLACE COLLO WITH COLOR1
REPLACE MODEL WITH MODELO
CLOSE ALL
CLOSE DATABASES 
*g    
*BROWSE 
DO IMAGEN





El Lunes, 14 de septiembre, 2015 17:17:22, "Jose Alfonso Morquecho jamorquecho@hotmail.com [usuarios_fox]" escribió:


 
Bueno el cambio principal es k se trabaja en forma visual. Pero debes tener un prg de arranque al final lanzas un formulario (por ejemplo) y abajo debe ir
Read events

Enviado desde mi iPhone

El 14/09/2015, a las 14:59, "jefferson reina jrjefferson325@yahoo.com [usuarios_fox]" <usuarios_fox@yahoogrupos.com.mx> escribió:

 
EN LOS AÑOS 90 -93 USE DE BASEIII Plus Y IV; AÑOS MAS TARDE USE VISUAL FOXPRO ACTUALMENTE USO LA VERSIÓN 9 PERO AUN NO SE COMO SE HACE UN EJECUTABLE.




__._,_.___

Enviado por: Mario Goldstein <mariogoldstein@hotmail.com>
Responder mediante la Web Responder a remitente Responder a grupo Crear un tema nuevo Mensajes con este tema (6)
Comentarios, agregar archivos en el foro, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com


.

__,_._,___

Arquivo do blog