Para que un formulario devuelva datos debe ser modal
Supongo (no probe que la forma) de retornar valores de un formulario instanciado como un objeto es con:
frmTuFormulario = CREATEOBJECT('TuClaseForm' ) frmTuFormulario.UnaPropiedad = ValorParámetro && para pasar parametro
lvRetorno = frmTuFormulario.SHOW(1) && Para que sea modal.
Pero no se si funciona, probalo y contanos.
Saludos: Miguel
----- Mensaje original ---- De: Carlos Alberto Cuevas <cacuevas@...> Para: vfoxpro@... Enviado: viernes 28 de septiembre de 2007, 13:05:00 Asunto: [vfoxpro] clase FORM
Tenia un formulario que le pasaba un parametro y retornaba un valor
DO FORM miform WITH unValor TO retorno
Ahora lo guarde como clase, pero no se como hacer para pasarle un parametro y retornarle un valor.
Tengo que crearle propiedades?
NO SE COMO EJECUTARLO
Atte. Carlos
El Mundial de Rugby 2007 Las últimas noticias en Yahoo! Deportes:
http://ar.sports.yahoo.com/mundialderugby
----- Mensaje original ---- De: Linker Soluciones <linker@...> Para: vfoxpro@... Enviado: viernes, 28 de septiembre, 2007 18:37:21 Asunto: Re: [vfoxpro] Nota de Credito
Para la Nota de credito tenés que abrir un ComprobanteNoFiscal Homologado pero antes tenes que darle el número de factura a anular con InformaciónRemito.
Yo lo hice asi:
Thisform.Hasar320. InformacionRemit o[1] =STR(Thisform.Quefactura.Value)Thisform.Hasar320. AbrirComprobante NoFiscalHomologa do(NOTA_CREDITO_ A)
El resto es igual a la factura excepto el cierre que debe ser Thisform.Hasar320.CerrarCom probanteNoFiscal Homologado( )
Como notarás yo tengo una Hasar 320 pero supongo que funcionan igual.
PD: Para evacuar tus dudas podes llamar a Hasar al (011) 4117-8900
Tengo una hashar 715. Las ticket-factura imprimo bien, utilizando el metedo "abrircomprobantefi scal", los renglones imprimo con el metodo "imprimirItem"
Quiero imprimir notas de credito, pero no me funciona, no se como hacerlo. Si alguien me puede ayudar estaré agradecido.
Atte. Carlos
¡Sé un mejor fotógrafo! Perfecciona tu técnica y encuentra las mejores fotos en: http://telemundo. yahoo.com/ promos/mejorfoto grafo.html
¡Sé un mejor ambientalista! Encuentra consejos para cuidar el lugar donde vivimos en:
http://telemundo.yahoo.com/promos/mejorambientalista.html
Asunto: Chistes de Ancianos................ Para reirse un rato entre la realidad y la broma, con todo el amor y respeto que se merecen...
Un anciano que era sordo desde hacía varios años, fue al doctor, quien
le recetó un auricular que le devolvió la audición al 100%. El anciano regresó 1 mes para su chequeo y el doctor le dijo: su audición es perfecta. Su familia debe estar muy complacida de que haya vuelto
a oir.
El anciano respondió:
- Oh, no se lo he dicho todavía a mi familia. Sólo me siento y escucho
las
conversaciones. Ya he cambiado mi testamento 3 veces!!!!!!!
Las reglas del hospital obligan a usar una silla de ruedas para los pacientes que son dados de alta. Cuando era estudiante de enfermería, encontré a un anciano ya vestido y sentado en su cama con su maleta
a los pies, quien insistía que no necesitaba una silla de ruedas para salir
del
hospital. Después de explicarle que las reglas eran las reglas, muy
a su pesar me dejó que lo llevara en silla de ruedas a la salida. En el
camino
le pregunté si su esposa lo iba a recoger. No lo sé me contestó. Ella
está todavía arriba en el baño, cambiándose la bata que usó mientras estaba
hospitalizada.....
Una pareja en los noventas tenía problemas de memoria. Durante su chequeo el médico les dijo que estaban bien físicamente pero que deberían comenzar a apuntar las cosas para recordarlas. Mientras veían TV en la noche,
él se levantó de su silla y le preguntó a su esposa:
- quieres que te traiga algo de la cocina?- Tráeme helado.- Ok.- No
crees que deberías apuntarlo?- No, yo me acuerdo.- Bien, también quiero que
le
pongas fresas. Deberías escribirlo para que no te olvides.
- Yo puedo recordarlo.
- Quieres helado con fresas. También deseo crema chantilly. Seguro
que lo vas a olvidar, escríbelo.
Irritado responde:
- no necesito escribirlo, puedo recordarlo: helado con fresas y crema.
Por Dios, te lo traeré!!!!
Va a la cocina y regresa en 20 minutos y le entrega a su esposa un
plato de huevos con tocino.
Ella mira el plato por un momento y luego pregunta:
dónde está mi tostada???
Un hombre de 82 años va al médico a chequearse. Unos días despúes el
doctor lo ve caminando con una despampanante mujer del brazo. Unos días después
el >doctor lo llama y le dice:
- Guau, te la estás pasando muy bien no es verdad?
El dice:
- estoy haciendo justo lo que me dijo: consíguete una mamacita y sé animoso.
El doctor contesta:
- No yo no te dije eso, te dije: tienes un fallita en el corazón, se cuidadoso!!
Seguí de cerca a la Selección Argentina de Rugby en el Mundial de Francia 2007.
http://ar.sports.yahoo.com/mundialderugby
Para la Nota de credito tenés que abrir un ComprobanteNoFiscalHomologado pero antes tenes que darle el número de factura a anular con InformaciónRemito.
Tengo una hashar 715. Las ticket-factura imprimo bien, utilizando el metedo "abrircomprobantefiscal", los renglones imprimo con el metodo "imprimirItem"
Quiero imprimir notas de credito, pero no me funciona, no se como hacerlo. Si alguien me puede ayudar estaré agradecido.
Atte. Carlos
¡Sé un mejor fotógrafo! Perfecciona tu técnica y encuentra las mejores fotos en: http://telemundo.yahoo.com/promos/mejorfotografo.html
Tengo una hashar 715. Las ticket-factura imprimo bien, utilizando el metedo "abrircomprobantefiscal", los renglones imprimo con el metodo "imprimirItem"
Quiero imprimir notas de credito, pero no me funciona, no se como hacerlo. Si alguien me puede ayudar estaré agradecido.
Atte. Carlos
¡Sé un mejor fotógrafo! Perfecciona tu técnica y encuentra las mejores fotos en:
http://telemundo.yahoo.com/promos/mejorfotografo.html
alguien tendra algun componente o clase poder enviar correos desde VFP
utilizando mi servidor exchange o sea sin emplear Outlook o Outlook
Express y aparte mi servidor requiere autentificacion y que pueda
configurar un puerto diferente al 25.
Gracias de antemano,
Alehandro Castrejón
Quisiera saber como hago para que en mi combobox me visualice el valor del primer registro en la primera fila............porque a mi me presenta el recuadro del combobox pero vacio...recien cuando despliego la lista me aparecen todos los valores
Quisiera saber como hago para que en mi combobox me visualice el valor del primer registro en la primera fila............porque a mi me presenta el recuadro del combobox pero vacio...recien cuando despliego la lista me aparecen todos los valores
-----Mensaje original----- De: vfoxpro@gruposyahoo.com.ar [mailto:vfoxpro@gruposyahoo.com.ar]
En nombre de Gustavo Borchez Enviado el: jueves, 27 de septiembre de 2007 16:10 Para: vfoxpro@gruposyahoo.com.ar Asunto: [vfoxpro] LIMITE DE FECHA
Gente de los que saben:
Qusiera poner un tope de fecha para el uso de una aplicación y pensé en
algo como lo siguiente:
if DATE( ) < 08/31/2007
run c:/prueba.exe
else do form vencido
endif
El problema es que me tira error de incompatibilidad entre el tipo de
operando y el tipo de opoerador...
Alguien me puede iluminar con la habitual buena onda?
Agradezco anticipadamente.
GB
As you are aware, messages sent by e-mail can be manipulated by
third parties. For this reason take into account the following
message.This
electronic message (including any attachments) contains confidential
information and may be privileged or protected from disclosure. The
information is intended to be for the use of the intended addressee
only. Please be aware that any disclosure, copy, distribution or use of
the contents
of this message is prohibited. If you have received this e-mail in
error please notify me immediately by reply e-mail and delete this
message and any
attachments from your system. Thank you for your cooperation.
Como Usted sabe, los mensajes enviados por e-mail pueden ser
manipulados por terceros. Por esta razón le pedimos tener en
consideración lo
siguiente: Este mensaje electrónico (incluyendo los archivos adjuntos)
contienen información confidencial y su circulación está restringida
solamente a la dirección a la que se intenta enviar. Cualquier copia,
distribución, difusión o uso de los contenidos de este mensaje sin una
autorización previa está prohibido. Si Usted ha recibido este mensaje
por error, por favor avise inmediatamente reenviando el e-mail y borre
las copias recibidas de su sistema computacional.
Agradecemos su cooperación.
-----Mensaje original----- De: vfoxpro@... [mailto:vfoxpro@...] En nombre de Gustavo Borchez Enviado el: jueves, 27 de septiembre de 2007 16:10 Para: vfoxpro@... Asunto: [vfoxpro] LIMITE DE FECHA
Gente de los que saben:
Qusiera poner un tope de fecha para el uso de una aplicación y pensé en algo como lo siguiente:
if DATE( ) < 08/31/2007 run c:/prueba.exe else do form vencido endif
El problema es que me tira error de incompatibilidad entre el tipo de operando y el tipo de opoerador...
Alguien me puede iluminar con la habitual buena onda?
Agradezco anticipadamente. GB
As you are aware, messages sent by e-mail can be manipulated by third parties. For this reason take into account the following message.This
electronic message (including any attachments) contains confidential information and may be privileged or protected from disclosure. The
information is intended to be for the use of the intended addressee only. Please be aware that any disclosure, copy, distribution or use of the contents
of this message is prohibited. If you have received this e-mail in error please notify me immediately by reply e-mail and delete this message and any
attachments from your system. Thank you for your cooperation.
Como Usted sabe, los mensajes enviados por e-mail pueden ser manipulados por terceros. Por esta razón le pedimos tener en consideración lo
siguiente: Este mensaje electrónico (incluyendo los archivos adjuntos) contienen información confidencial y su circulación está restringida
solamente a la dirección a la que se intenta enviar. Cualquier copia, distribución, difusión o uso de los contenidos de este mensaje sin una
autorización previa está prohibido. Si Usted ha recibido este mensaje por error, por favor avise inmediatamente reenviando el e-mail y borre
las copias recibidas de su sistema computacional.
Agradecemos su cooperación.
Alguien tiene un formato de Mantenimiento de Equipos de Computo, me dieron una que hicieron en la empresa por la ISO, pero es para máquinas, no se acopla a los equipos de computo.
Saludos Jenny León Encargada de Sistemas
-- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos,
y se considera que está limpio.
MailScanner agradece a transtec Computers por su apoyo.
Me parece que se demora interpretando tantos valores por referencias a tantas variables, trata de poner todo el string en una sola variable, tal vez asi mejore el rendimiento.
Tengo una consulta que se realiza por varios campos.
Cual seria la manera mas optima de hacerlo ?
En este ejemplo(que funciona ) usa 15 campos, pero se vuelve lento y es algo que quisiera optimizar.
Gracias
[MIGUEL CANCHAS]
With Thisform .Grdotc.RecordSource = ' ' nOl = IIF(.Check1.Value = 0,'',' and Empty(ndoc) ') cOT = IIF(Empty(.txtot.Value),'Where !Empty(otc.ot)',' Where otc.ot like "%"+Allt(.txtot.Value)+"%" ') cIT = IIF(Empty(.txtitem.Value),' ','And item like "%"+Allt(.txtitem.Value)+"%" ') cCD = IIF(Empty(.txtcodclien.Value),' ',' And Codclien like "%"+Allt(.txtcodclien.Value)+"%" ') cFE = IIF(Empty(.txtfecha1.Value),' ',' And BetWeen(Fecha,.txtfecha1.Value,.txtfecha2.Value)')
cFII = IIF(Empty(.text19.Value),' ',' And BetWeen(Ffina,.text19.Value,.text20.Value)')
cSE = IIF(Empty(.txtsv.Value),' ',' And sv like "%"+Allt(.txtsv.Value)+"%" ') cPo = IIF(Empty(.txtpo.Value),' ',' And Po Like "%"+ Allt(.txtpo.Value)+"%" ') cOC = IIF(Empty(.txtoc.Value),' ',' And nDoc Like "%"+Allt(.txtoc.Value)+"%" ') cFI = IIF(Empty(.txtficha.Value),' ',' And Fichmues like "%"+Allt(.txtficha.Value)+"%" ')
cFA = IIF(Empty(.txtfamilia.Value),' ',' Where DesFamil like "%"+Allt(.txtfamilia.Value)+"%" ') cDE = IIF(Empty(.txtdescrip.Value),' ',' Where DesDescr like "%"+Allt(.txtdescrip.Value)+"%" ') cCo = IIF(Empty(.text4.Value),' ',' And nCodcolor like "%"+Allt(.text4.Value)+"%" ')
cPag = IIF(Empty(.text8.Value),' ',' And style like "%"+Allt(.text8.Value)+"%" ')
rEp_ = IIF(ThisForm.Check2.Value=0,' ',' Where !EMPTY(REPOSI) ')
Sele otc.Ot, codclien, Fecha, Po, nDoc, Val(Otc.Ot)vOt, fichmues, item, sv,; Sum(PESO_TEJI)Peso, ncont, ncodcolor, style, Ffina, oci,aprobado ; &&Aprobado From Otc Inner join Otd On otc.ot = otd.ot &cOT &cIT &cCD &cFE &cSE &cCo &cFii ; &cPO &cOC &cFI &nOl &cPag Group by otc.ot,otd.item Order by vOt Into Cursor wek_
Sele A.*,IIF(ISNULL(B.OT),' ','SI')REPOSI,IIF(ISNULL(B.MOTIVO),' ',B.MOTIVO)MOTIVO from Wek_ A Left Join OTREPOSI B ; On A.ot = B.ot Into Cursor Wekw sele * from Wekw &rEp_ Into CUrsor Wek
Sele Wek.*,IIF(ISNULL(CodFamil),'',CodFamil)CodFamil,; IIF(ISNULL(CodDescr),'',CodDescr)CodDescr From wek Left Join ; tejedura on wek.fichmues = tejedura.fichmues Into Cursor cTek
Sele cTek.*,IIF(ISNULL(Desfamil),'',DesFamil)DesFamil From cTek ; Left join Mfamilia On ctek.codfamil = mfamilia.Codfamil &cFA Into Cursor cFl
Sele cFl.*,IIF(ISNULL(DesDescr),'',DesDescr)DesDescr From cFl ; left join Mdescripcion on cfl.coddescr = mdescripcion.coddescr &cDE Into Cursor Weto
Tengo una consulta que se realiza por varios campos.
Cual seria la manera mas optima de hacerlo ?
En este ejemplo(que funciona ) usa 15 campos, pero se vuelve lento y es algo que quisiera optimizar.
Gracias
[MIGUEL CANCHAS]
With Thisform .Grdotc.RecordSource = ' ' nOl = IIF(.Check1.Value = 0,'',' and Empty(ndoc) ') cOT = IIF(Empty(.txtot.Value),'Where !Empty(otc.ot)',' Where otc.ot like "%"+Allt(.txtot.Value)+"%" ') cIT = IIF(Empty(.txtitem.Value),' ','And item like "%"+Allt(.txtitem.Value)+"%" ') cCD = IIF(Empty(.txtcodclien.Value),' ',' And Codclien like "%"+Allt(.txtcodclien.Value)+"%" ') cFE = IIF(Empty(.txtfecha1.Value),' ',' And BetWeen(Fecha,.txtfecha1.Value,.txtfecha2.Value)')
cFII = IIF(Empty(.text19.Value),' ',' And BetWeen(Ffina,.text19.Value,.text20.Value)')
cSE = IIF(Empty(.txtsv.Value),' ',' And sv like "%"+Allt(.txtsv.Value)+"%" ') cPo = IIF(Empty(.txtpo.Value),' ',' And Po Like "%"+ Allt(.txtpo.Value)+"%" ') cOC = IIF(Empty(.txtoc.Value),' ',' And nDoc Like "%"+Allt(.txtoc.Value)+"%" ') cFI = IIF(Empty(.txtficha.Value),' ',' And Fichmues like "%"+Allt(.txtficha.Value)+"%" ')
cFA = IIF(Empty(.txtfamilia.Value),' ',' Where DesFamil like "%"+Allt(.txtfamilia.Value)+"%" ') cDE = IIF(Empty(.txtdescrip.Value),' ',' Where DesDescr like "%"+Allt(.txtdescrip.Value)+"%" ') cCo = IIF(Empty(.text4.Value),' ',' And nCodcolor like "%"+Allt(.text4.Value)+"%" ')
cPag = IIF(Empty(.text8.Value),' ',' And style like "%"+Allt(.text8.Value)+"%" ')
rEp_ = IIF(ThisForm.Check2.Value=0,' ',' Where !EMPTY(REPOSI) ')
Sele otc.Ot, codclien, Fecha, Po, nDoc, Val(Otc.Ot)vOt, fichmues, item, sv,; Sum(PESO_TEJI)Peso, ncont, ncodcolor, style, Ffina, oci,aprobado ; &&Aprobado From Otc Inner join Otd On otc.ot = otd.ot &cOT &cIT &cCD &cFE &cSE &cCo &cFii ; &cPO &cOC &cFI &nOl &cPag Group by otc.ot,otd.item Order by vOt Into Cursor wek_
Sele A.*,IIF(ISNULL(B.OT),' ','SI')REPOSI,IIF(ISNULL(B.MOTIVO),' ',B.MOTIVO)MOTIVO from Wek_ A Left Join OTREPOSI B ; On A.ot = B.ot Into Cursor Wekw sele * from Wekw &rEp_ Into CUrsor Wek
Sele Wek.*,IIF(ISNULL(CodFamil),'',CodFamil)CodFamil,; IIF(ISNULL(CodDescr),'',CodDescr)CodDescr From wek Left Join ; tejedura on wek.fichmues = tejedura.fichmues Into Cursor cTek
Sele cTek.*,IIF(ISNULL(Desfamil),'',DesFamil)DesFamil From cTek ; Left join Mfamilia On ctek.codfamil = mfamilia.Codfamil &cFA Into Cursor cFl
Sele cFl.*,IIF(ISNULL(DesDescr),'',DesDescr)DesDescr From cFl ; left join Mdescripcion on cfl.coddescr = mdescripcion.coddescr &cDE Into Cursor Weto
Amigos foxeros:
Muchas gracias inicialmente por leer mi mensaje solicitando ayuda.
Cual es?
Bueno necesito invocar un documento Word con el contenido de un texto,
en el cual se le colocara una variable que va desde el VFP 6. Si me
pueden enviar al correo peludo_123@... un ejemplo de un
documento en word recibiendo una variable digamos llamada WNOMBRE, que
esta capturada en un formulario VFP, claro tambien el formulario que
hace el enlace con word para que aparezca en pantalla como WORD y se
combine con esa variable y se imprimira desde Word.
muchas gracias por su gentileza
Jose B.
Barranquilla-COLOMBIA
Necesito saber si alguno de ustedes conoce o ha trabajado con alcoholimetros que poseán interfaz USB o SERIAL o cualquier tipo de interfaz de manera que desde el PC se cpaturen los datos y se envíe la orden al dispositivo de tomar la muestra.... es urgente saber donde se adquieren para hacer la respectiva compra..
Porfa, al privado las resp...
-- -------------------------------------- Mario Cerón Charry Ing. Sistemas
y poner al container la propiedad BackStyle como transparente no funca?
Miguel
De: vfoxpro@... [mailto:vfoxpro@...] En nombre de Alejandro J. Nicolás Enviado el: Miércoles, 26 de Septiembre de 2007 01:40 p.m. Para: vfoxpro@... Asunto: RE: [vfoxpro] Objeto Container
Si en eso tenes razón, quedan como activos, pero no podes interactuar con ellos.
Alejandro J. Nicolás
-----Mensaje original----- De:vfoxpro@gruposyahoo.com.ar [mailto:vfoxpro@gruposyahoo.com.ar] En nombre de Rogelio A. Schwindt Enviado el: Miércoles, 26 de Septiembre de 2007 07:50 a.m. Para:vfoxpro@gruposyahoo.com.ar Asunto: Re: [vfoxpro] Objeto Container
Si, se deshabilitan para darles click, pero visualmente parecen activos y eso es lo que verdaderamente molesta...
y SI, los botones estan dentro del container... (Uso VFP9)
Hola Cesar, si se deshabilitan …. Por lo menos en vfp7 y vfp9 …. Una pregunta, los objetos los tenes dentro del container?
Alejandro J. Nicolás
-----Mensaje original----- De:vfoxpro@gruposyahoo.com.ar [mailto:vfoxpro@gruposyahoo.com.ar] En nombre de César Luque Enviado el: Sábado, 22 de Septiembre de 2007 10:58 a.m. Para:vfoxpro@gruposyahoo.com.ar Asunto: Re: [vfoxpro] Objeto Container
Con esto no se deshabilitan los controles pertenecientes al container....
No se quien diseño esto, pero es poco lògico lo que hace.
No se me ocurre en que caso uno quisiera deshabilitar el contenedor y dejar habilitados los controles internos...
Deshabilita solo el contairner, thisform.container1.enabled = .f.
Salu2
Alejandro J. Nicolás
-----Mensaje original----- De:vfoxpro@gruposyahoo.com.ar [mailto:vfoxpro@gruposyahoo.com.ar] En nombre de Rogelio A. Schwindt Enviado el: Viernes, 21 de Septiembre de 2007 09:24 a.m. Para:vfoxpro@gruposyahoo.com.ar Asunto: [vfoxpro] Objeto Container
Consulto:
Hice un objeto container que adentro tiene 2 botones. Eso a su vez esta en un form donde hay mas botones.
Queria saber si existe la forma de deshabilitar los botones de adentro del container con un solo comando o si tengo que hacerlos de a uno, como si estuvieran afuera del container.
yo intenten con thisform.container1.setall("enabled",.f.,"commandbutton") pero se me desactivaron todos los botones, tanto los de adentro del container como los de afuera.
con thisform.container1.enabled=.f. no puedo acceder a los botones, pero visualmente parecen activos y yo quiero que queden en gris...
Esto es lo que utilizo para una impresora Zebra 4M Plus
set library to "rawprint5.fll" Additive rutaarchivo =sys(5)+sys(2003)+"\ETIQUETA.TXT" SET PRINTER TO FILE ETIQUETA.TXT SET CONSOLE OFF SET DEVICE TO PRINTER
wfila = 0 @00,wfila Say '^XA' @01,wfila Say '^MCY' @02,wfila Say '^XZ' @03,wfila Say '^XA' @04,wfila Say '^FWN^CFD,24^PW812^LH0,0' @05,wfila Say '^CI0^PR2^MNY^MTT^MMT^MD0^PON^PMN^LRN' @06,wfila Say '^XZ' @07,wfila Say '^XA' @08,wfila Say '^MCY' @09,wfila Say '^XZ' @10,wfila Say '^XA' @11,wfila Say '^DFR:TEMP_FMT.ZPL' @12,wfila Say '^LRN'
*** Lineas @13,wfila Say '^FO7,123^GB789,3,3,B,0^FS' @14,wfila Say '^FO6,911^GB786,3,3,B,0^FS' @15,wfila Say '^FO3,956^GB786,3,3,B,0^FS' @16,wfila Say '^FO7,15^GB785,3,3,B,0^FS' @17,wfila Say '^FO791,15^GB3,899,3,B,0^FS' @18,wfila Say '^FO8,205^GB786,3,3,B,0^FS' @19,wfila Say '^FO9,510^GB782,3,3,B,0^FS' @20,wfila Say '^FO9,675^GB782,3,3,B,0^FS' @21,wfila Say '^FO3,19^GB3,896,3,B,0^FS'
@22,wfila Say '^A0N,73,74^FO24,45^FDALMACEN PP.TT.^FS' @23,wfila Say '^A0N,32,30^FO547,27^FDFecha Fabricacion^FS' @24,wfila Say '^A0N,53,52^FO541,72^FD' +Vsfecide+ '^FS' @25,wfila Say '^A0N,53,40^FO23,145^FDO.P.:^FS' @26,wfila Say '^A0N,53,36^FO105,144^FD' +vsnum_pro+ '^FS' @27,wfila Say '^A0N,53,44^FO304,144^FDPdto:^FS' @28,wfila Say '^A0N,53,36^FO401,144^FD' + vsNombre + '^FS' @29,wfila Say '^A0N,77,40^FO18,239^FDAlma:^FS' @30,wfila Say '^A0N,77,40^FO126,242^FD' + vsalma + '^FS' @31,wfila Say '^A0N,77,40^FO211,242^FDDireccion:^FS' @32,wfila Say '^A0N,77,40^FO394,245^FD' + vstorcido + '^FS' @33,wfila Say '^A0N,77,40^FO479,242^FDAcero:^FS' @34,wfila Say '^A0N,77,40^FO605,239^FD' + vstipo + '^FS' @35,wfila Say '^A0N,77,40^FO21,333^FDEstado:^FS' @36,wfila Say '^A0N,77,40^FO169,330^FD' + vsestado + '^FS' @37,wfila Say '^A0N,77,40^FO374,333^FDMaq. Cerrado:^FS' @38,wfila Say '^A0N,77,40^FO632,334^FD' + vsmaqcer + '^FS' @39,wfila Say '^A0N,77,40^FO181,419^FDLongitud:^FS' @40,wfila Say '^A0N,77,58^FO361,422^FD' + wlongitud + '^FS' @41,wfila Say '^A0N,67,34^FO21,532^FDCliente:^FS' @42,wfila Say '^A0N,37,22^FO130,553^FD' + vsCliente + '^FS' @43,wfila Say '^A0N,67,34^FO479,526^FDMod. Carrete:^FS' @44,wfila Say '^A0N,77,56^FO680,523^FD' + "# "+Alltrim(OP_CAR) + '^FS' @45,wfila Say '^A0N,67,34^FO21,604^FDNro. Tramo:^FS' @46,wfila Say '^A0N,77,56^FO223,598^FD' + vsnum_bob + '^FS' @47,wfila Say '^A0N,67,34^FO482,604^FDTotal Tramos:^FS' @48,wfila Say '^A0N,77,56^FO702,604^FD' + vspr3can +'^FS'
@49,wfila Say '^BY2^FO53,712^BCN,123,Y,N,Y^FD>:>8' + num_mov+cod_pro+num_ite + '^FS'
@61,wfila Say '^XZ' @62,wfila Say '^XA' @63,wfila Say '^XFR:TEMP_FMT.ZPL' @64,wfila Say '^PQ1,1,1,Y' @65,wfila Say '^XZ' @66,wfila Say '^XA' @67,wfila Say '^IDR:TEMP_FMT.ZPL' @68,wfila Say '^XZ'
Set Printer to SET PRINTER OFF SET DEVICE TO SCREEN SET CONSOLE ON cPrinter = "Genérico" =RAWPRINT(cPrinter,rutaarchivo) SET LIBRARY TO
Subject: {Disarmed} Re: [vfoxpro] Off Topic: Lenguaje EPZL-ZPL/Ambientes Criticos

Diego, eso ya lo hice con el AccuLabel, tal vez no pregunte correctamente, se tiene que comprar otra impresora y nos sugieren una Zebra S4M en vez de AccuMax A4P-2 el tema pasa por no tener que cambiar el software que genera las etiquetas (el que programamos nosotros), saber si la Zebra acepta el EPZL (es decir los comandos del txt)
Por lo que investigue en la web, c/impresora tiene su lenguaje propio. El punto es saber si uno acepta al otro.
Busco el software para ver que genera y compararlo.
Subject: Re: [vfoxpro] Off Topic: Lenguaje EPZL-ZPL/Ambientes Criticos
Tuve oportunidad de tener que trabajar con una impresora zebra en mi trabajo.
Lo mas facil para obtener el zpl (lenguaje de las zebra), es utilizar el bartender, que es un programa para diseñar las etiquetas que viene con la impresora.
Si no lo tenes podes bajarlo de internet.
Este programa te genera un archivo de texto con todo el codigo de la etiqueta que generaste y separa los campos con un caracter que no recuerdo bien si es el @.
Si desde fox le envias todo ese string reemplanzando los campos, directamente a la impresora, listo ya tenes la etiqueta.
Ante todo disculpen el off-topic. Alguien habra tenido que programar una impresora Zebra o Accumax para emision de etiquetas?. Y otra pregunta, proteccion de equipos en ambientes agrestes o criticos, ambientes de humedad, vapor. Necesito informacion de equipos y formas de proteccion para una situacion de este tipo. Si alguno quiere compartir su experiencia por favor escriban al privado. Muchas Gracias Saludos Marcela.
__________ NOD32 2552 (20070926) Information __________
This message was checked by NOD32 antivirus system. part001.htm - is OK
-- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que está limpio. MailScanner agradece a transtec Computers por su apoyo.
-- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos,
y se considera que está limpio.
MailScanner agradece a transtec Computers por su apoyo.
Si en eso tenes razón,
quedan como activos, pero no podes interactuar con ellos.
Alejandro J. Nicolás
-----Mensaje original----- De:vfoxpro@... [mailto:vfoxpro@...] En nombre de Rogelio A. Schwindt Enviado el: Miércoles, 26 de
Septiembre de 2007 07:50 a.m. Para:vfoxpro@... Asunto: Re: [vfoxpro] Objeto
Container
Si, se deshabilitan para darles
click, pero visualmente parecen activos y eso es lo que verdaderamente
molesta...
y SI, los botones estan dentro del
container... (Uso VFP9)
Hola
Cesar, si se deshabilitan …. Por lo menos en vfp7 y vfp9 …. Una
pregunta, los objetos los tenes dentro del container?
Alejandro J. Nicolás
-----Mensaje original----- De:vfoxpro@gruposyahoo.com.ar
[mailto:vfoxpro@gruposyahoo.com.ar] En
nombre de César Luque Enviado el: Sábado, 22 de
Septiembre de 2007 10:58 a.m. Para:vfoxpro@gruposyahoo.com.ar Asunto: Re: [vfoxpro] Objeto
Container
Con esto no se deshabilitan los
controles pertenecientes al container....
No se quien diseño esto, pero es
poco lògico lo que hace.
No se me ocurre en que caso uno quisiera
deshabilitar el contenedor y dejar habilitados los controles internos...
Deshabilita
solo el contairner, thisform.container1.enabled = .f.
Salu2
Alejandro
J. Nicolás
-----Mensaje original----- De:vfoxpro@gruposyahoo.com.ar
[mailto:vfoxpro@gruposyahoo.com.ar] En
nombre de Rogelio A. Schwindt Enviado el: Viernes, 21 de
Septiembre de 2007 09:24 a.m. Para:vfoxpro@gruposyahoo.com.ar Asunto: [vfoxpro] Objeto Container
Consulto:
Hice un objeto container que adentro
tiene 2 botones. Eso a su vez esta en un form donde hay mas botones.
Queria saber si existe la forma de
deshabilitar los botones de adentro del container con un solo comando o si
tengo que hacerlos de a uno, como si estuvieran afuera del container.
yo intenten con thisform.container1.setall("enabled",.f.,"commandbutton")
pero se me desactivaron todos los botones, tanto los de adentro del container
como los de afuera.
con thisform.container1.enabled=.f.
no puedo acceder a los botones, pero visualmente parecen activos y yo quiero
que queden en gris...
Hola
Marcela, ya que Diego te contestó la primera parte de tu pregunta yo te puedo
guiar por la segunda, trabajo en una empresa que hace cloro así que el tipo de
ambiente es muy corrosivo y poco amigable, lo que mejor le hace a los equipos
es ponerlos en un gabinete que lo llamamos de presión inversa, este gabinete tiene
dentro el equipo y tiene un tubo que libera nitrógeno (puede ser solo aire), lo
que hace que se llene de este y no deje entrar el aire del medio ambiente.
Salu2
Alejandro J. Nicolás
-----Mensaje original----- De:vfoxpro@... [mailto:vfoxpro@...] En nombre de Marcela Enviado el: Miércoles, 26 de
Septiembre de 2007 06:32 a.m. Para: VFP Asunto: [vfoxpro] Off Topic:
Lenguaje EPZL-ZPL/Ambientes Criticos
Ante todo
disculpen el off-topic.
Alguien habra tenido que programar una impresora Zebra o Accumax para
emision de etiquetas?.
Y otra pregunta, proteccion de equipos en ambientes agrestes o criticos,
ambientes de humedad, vapor.
Necesito informacion de equipos y formas de proteccion para una situacion de
este tipo.
Si alguno quiere compartir su experiencia por favor escriban al privado.
Muchas Gracias
Saludos
Marcela.
Subject: Re: [vfoxpro] Vifos sobre Linux con MySql
Hans, buenas noches.
Si, varios sistemas. Sobre MySQL con UBUNTU Server
Saludos cordiales
Manuel Tovar Barranquilla - COLOMBIA
Hans M_A escribió:
Hola atodos, alguien ha corrido algun sistema desarrollado en Visual Fox, sobre Linux con MySql.
Gracias
Atte.
Hans
No virus found in this incoming message.
Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.13.30/1030 - Release Date: 25/09/2007 08:02 a.m.
__________ Información de NOD32, revisión 2544 (20070921) __________
Creo que la respuesta a lo que consultas la tiene el vendedor del
periférico o el fabricante.
> Diego, eso ya lo hice con el AccuLabel, tal vez no pregunte correctamente,
> se tiene que comprar otra impresora y nos sugieren una Zebra S4M en vez de
> AccuMax A4P-2 el tema pasa por no tener que cambiar el software que genera
> las etiquetas (el que programamos nosotros), saber si la Zebra acepta el
> EPZL (es decir los comandos del txt)
> Por lo que investigue en la web, c/impresora tiene su lenguaje propio. El
> punto es saber si uno acepta al otro.
> Busco el software para ver que genera y compararlo.
> Gracias por tu respuesta.
>
> ----- Original Message -----
> From: Diego Fortunato
> To: vfoxpro@...
> Sent: Wednesday, September 26, 2007 8:54 AM
> Subject: Re: [vfoxpro] Off Topic: Lenguaje EPZL-ZPL/Ambientes Criticos
>
>
> Tuve oportunidad de tener que trabajar con una impresora zebra en mi
> trabajo.
> Lo mas facil para obtener el zpl (lenguaje de las zebra), es utilizar el
> bartender, que es un programa para diseñar las etiquetas que viene con
> la impresora.
> Si no lo tenes podes bajarlo de internet.
> Este programa te genera un archivo de texto con todo el codigo de la
> etiqueta que generaste y separa los campos con un caracter que no
> recuerdo bien si es el @.
> Si desde fox le envias todo ese string reemplanzando los campos,
> directamente a la impresora, listo ya tenes la etiqueta.
> Saludos
>
>
> El dÃa 26/09/07, Marcela <arrobasoftwareweb@...> escribió:
> Ante todo disculpen el off-topic.
> Alguien habra tenido que programar una impresora Zebra o Accumax para
> emision de etiquetas?.
> Y otra pregunta, proteccion de equipos en ambientes agrestes o
> criticos,
> ambientes de humedad, vapor.
> Necesito informacion de equipos y formas de proteccion para una
> situacion de
> este tipo.
> Si alguno quiere compartir su experiencia por favor escriban al
> privado.
> Muchas Gracias
> Saludos
> Marcela.
>
>
>
>
>
ROUND( sum(iif(mv250tpmv='I',mv250cant,-mv250cant)), 4) as CANTIDAD,;
Que tal el ROUND()
Miguel
-----Mensaje original----- De: Miguel Ayte [mailto:bapsystems@...] Enviado el: Martes, 25 de Septiembre de 2007 07:05 p.m. Para: vfoxpro@... Asunto: Re: [vfoxpro] Ayuda con consulta SQL
Gracias por tu rapido interés en mi consulta.
Respuestas:
a) mv250puni es N(8,4)
b) El formulario esta fijado como SESION PRIVADA DE DATOS y en el evento LOAD puse:
SET FIXED ON
SET DECIMALS TO 4
Además tengo otro problema similar cuando hago una consulta análoga como:
Select .....
...
sum(iif(mv250tpmv='I',mv250cant,-mv250cant)) as CANTIDAD,;
...
Bueno resulta que la consulta en el campo CANTIDAD me muestra los siguientes valores:
8
* // aqui deberia devolverme 140
* // aqui deberia devolverme 23
2
5
* // aqui deberia devolverme 112
...
Como ves es como si los valores superiores a 1 cifra se truncaran o perdieran.
Pregunta: como puedo indicarle a la consulta que me devueva ese campo a N(8,0) por decir un ejemplo.
Estimado Preguntas: a) mv250puni tiene en la definición de la tabla 4 decimales? b) SET FIXED esta en ON? c) el SET DECIMALS ( y el anterior ) lo fijaste en la sesión actual? d) SET SYSFORMATS esta en OFF?
b) c) y d) tienen como alcance la sesión actual de datos, si el sql corre en un formulario con sesión de datos privada y el set decimals fue fijado al comenzar el programa general, dicho seteo no es visible en la sesión privada del formulario y por omisión, set decimals esta fijado en 2. Saludos: Miguel
P.D. si usaras alias para las tablas, acortarías y simplificarías el SQL, otra forma, sería usar vistas para pre juntar tablas que estén relacionadas.
----- Mensaje original ---- De: bapsystems <bapsystems@yahoo.es> Para: vfoxpro@gruposyahoo.com.ar Enviado: martes 25 de septiembre de 2007, 19:21:48 Asunto: [vfoxpro] Ayuda con consulta SQL
Porque la siguiente consulta SQL:
SELECT Rubro001.rb001name, Linea001.li001name, Tdamv250.mv250idar,; Ptema700.pt700name, Tdamv250.mv250fech, Tdamv250.mv250tpdo,; Tdamv250.mv250nmdo, Faccl600.cl600name, Faccl605.cl605ctto,; IIF(Tdamv250.mv250tpmv="I",Tdamv250.mv250ctot,-Tdamv250.mv250ctot) AS mv250neto,; Ptema700.pt700pcos,; Tdamv250.mv250puni,; IIF(Tdamv250.mv250tpmv="I",Tdamv250.mv250pven,-Tdamv250.mv250pven) AS mv250pven; FROM ; tienda!tdamv250 ; LEFT OUTER JOIN factur!faccl600 ; ON Tdamv250.mv250idcl = Faccl600.cl600idcl ; LEFT OUTER JOIN pterm!ptema700 ; ON Tdamv250.mv250idar = Ptema700.pt700idar ; LEFT OUTER JOIN pterm!linea001 ; ON Ptema700.pt700idli = Linea001.li001idli ; LEFT OUTER JOIN pterm!rubro001 ; ON Ptema700.pt700idrb = Rubro001.rb001idrb ; LEFT OUTER JOIN factur!faccl605 ; ON Tdamv250.mv250idcl = Faccl605.cl605idcl; AND Tdamv250.mv250ndir = Faccl605.cl605ndir; WHERE ( ( ( ( ( ( Tdamv250.mv250stat = ( 1 ); AND Tdamv250.mv250idmv = ( '10' ) ); AND Ptema700.pt700idrb = ( IDRB ) ); AND Linea001.li001idli = ( IDLI ) ); AND Tdamv250.mv250idar = ( IDAR ) ); AND Tdamv250.mv250idcl = ( IDCL ) ); AND Tdamv250.mv250ndir = ( NDIR ) ); AND Tdamv250.mv250fech BETWEEN FEDE and FEHA; ORDER BY Rubro001.rb001name, Linea001.li001name, Ptema700.pt700name,; Tdamv250.mv250fech, Tdamv250.mv250tpdo, Tdamv250.mv250nmdo; INTO Cursor CONSULTA Readwrite
Me arroja los valores siguientes para el campo "mv250puni": 3.33 4.00 4.40 ...
Cuando deberia arrojarme valores: 3.3333 4.0000 4.4020
Sin conexión 
Enviar correo
