Hola como estan todos ustedes, soy nueva en este foro necesito ayuda urgente y pasando mis aplicaciones de clipper a fivewin, y me quede atorada en un detalle, alguien me propociona un ejemplo de codigo fuente como capturar en una pantalla de facturacion, que me pida num factura, num cliente, y agregar detalles de articulos y cantidad y precio.
estoy tratando de usar listbox para captura de detalles
Su amiga Susy
saludos a todos los colegas
Board index FiveWin para Harbour/xHarbour facturacion
Hola Susy, bienvenida.
Pasame una cuenta de correo que te mando algo, contame antes que browser estas usando.
salu2. carlosortiz
Pasame una cuenta de correo que te mando algo, contame antes que browser estas usando.
salu2. carlosortiz
carlosortiz wrote:Hola Susy, bienvenida.
Pasame una cuenta de correo que te mando algo, contame antes que browser estas usando.
salu2. carlosortiz
Hola Carlitos como esta corazon, estoy usando Listbox
Saludos y te lo agradecere mucho cuidate corazon
susan_mx@hotmail.com este es mi correo
Susy
En el foro para Clipper te indico que puedes visitar el siguiente site para verr un ejemplo de lo que buscas:
Saludos
Armando
FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicaci贸n via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicaci贸n via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
Susy wrote:Hola como estan todos ustedes, soy nueva en este foro necesito ayuda urgente y pasando mis aplicaciones de clipper a fivewin, y me quede atorada en un detalle, alguien me propociona un ejemplo de codigo fuente como capturar en una pantalla de facturacion, que me pida num factura, num cliente, y agregar detalles de articulos y cantidad y precio.
estoy tratando de usar listbox para captura de detalles
Su amiga Susy
saludos a todos los colegas
mmm un detallito... podr铆as ser m谩s clara en que tipo de detallito.
Si lo que quieres es editar sobre el browse los registros y poder hacer validaciones y modificaci贸n con los valores de esos campos o lo que desea hacer es mostrar un dialogo y capturar todos los datos.
Que versi贸n de FiveWin estas usando ?
y que versi贸n de xHarbour ?
Estas usando la clase Wbrowse original de FiveWin ?
o la clase modificada por Hern谩n Ceccarelli ?
Vikthor
Hola corazones gracias por contestar, estoy usando fivewin vers 2.6 y xharbour 0.99.60 y nada del browse estoy usando, no tengo conocimientos de esa clase, estoy tratando de usar listbox, o que me recomiendan hacer, estoy atrancada en ese detalle lo demas no tengo ningun problema, solo cuando ya planee hacer modulo de facturacion y sus validaciones es ahi que no tengo idea de como usar el wbrowse, echenme la mano por favor un ejemplo de codigo sencillo con su validacion de campos
Su amiga Susy ah y no puedo entrar al messenger, en la empresa donde trabajo no nos permite usar el messenger politica de la empresa
gracias a todos y les agradecere de corazon con un codigo de ejemplo corazones
Susy
Susy un dato para conectarte con el mundo sin tene messenger, visita www.e-messenger.net alli puedes conectarte a hotmail, yahoo y aol, espero te sirva y si puedes y te envian algo de lo de facturacion mucho te agradeceria si me puedes enviar una copia, estoy en algo parecido a ver en que nos ayudamos, gracias, saludos y un beso desde Venezuela.
Dios no est谩 muerto...
Gracias a mi Dios ante todo!
Gracias a mi Dios ante todo!
joseluisysturiz wrote:Susy un dato para conectarte con el mundo sin tene messenger, visita www.e-messenger.net alli puedes conectarte a hotmail, yahoo y aol, espero te sirva y si puedes y te envian algo de lo de facturacion mucho te agradeceria si me puedes enviar una copia, estoy en algo parecido a ver en que nos ayudamos, gracias, saludos y un beso desde Venezuela.
Hace poco m谩s de 4 a帽os liber茅 el fuente de una soluci贸n similar a la que necesitan, la puedn buscar en el foro anterior de FiveWin y si no la encuentran se las env铆o a su correo personal.
Vikthor
Hola corazon no encontre en el foro de fivewin el codigo fuente que usted libero me la puede enviar a mi correo por favor corazon
Ya me urge mucho empezar y por mas que le intento no le hayo
susan_mx@hotmail.com
Susy su amiga ayuda por favor
A MI IGUAL, GRACIAS DE ANTEMANO
Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian
alex_patino74@hotmail.com
whatsapp 57+3214777217
Impresion de todos los formularios del Seniat, Dian
alex_patino74@hotmail.com
whatsapp 57+3214777217
me sumo a la peticion mi correo joseluisysturiz@yahoo.com gracias de antemano
Dios no est谩 muerto...
Gracias a mi Dios ante todo!
Gracias a mi Dios ante todo!
yo creo que los que pasamos de clipper a fivewin es el problema principal que nos tranco o tranca a todos y los ejemplos que vienen son muy basicos casi siempre con una tabla, etc, siempre y me incluyo tengo el problema de hacer una pantalla en que sn 2 partes, una parte encabezado y otra detalles, llamase asientos de contabilidad, facturacion, etc y no hay ningun ejemplo claro, yo todavia uso listbox porque el hecho de meterme con esos browse me da pavor, me pueden salir cualquier cantidad de detalles que me tranquen durante semanas, aunque se ven horribles, trato en principio de que funciones y luego me ocupare de la apariencia, ya que esos detalles de decoracion por decirlo de una manera quitan demasiado tiempo, estamos bombardeados con txwbrose, wbrose, sbrowse y la verdad nadie saber decir cual es el mejor ya que cada quien tiene una necesidad diferente, pero basicamente el lo que piden aqui, me gustaria un ejemplo tanbien claro de algo sencillo, sin rebusques de lo que digo, gracias
Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian
alex_patino74@hotmail.com
whatsapp 57+3214777217
Impresion de todos los formularios del Seniat, Dian
alex_patino74@hotmail.com
whatsapp 57+3214777217
He aqui un semicodigo para que puedan darse una idea...
usando DATABASE...con Twbrowse... aun para losotros browse debe ser iguall y.. se sipone usando cdx.. por lo de ordscope
Saludos
usando DATABASE...con Twbrowse... aun para losotros browse debe ser iguall y.. se sipone usando cdx.. por lo de ordscope
Function FacturaEdit( lNuevo )
Local oCli, oFac, oDet, oClon, oGet
Local oLbx, oBtn[ 3 ]
Use Clientes New // Campos: Codigo Nombre
DATABASE oCli
Use Facturas New // Campos: Numero Codigo ValorTotal
DATABASE oFac
User Detalle New // Campos: Numero Detalle Valor
DATABASE oDet
If lNuevo
oFac:NUMERO := UnNuevoNumero() //como incrementas tu numero de la factura !!
EndIf
( oDet:nArea )->( OrdScope( 0, oFac:NUMERO ) )
( oDet:nArea )->( OrdScope( 1, oFac:NUMERO ) )
DEFINE DIALOG oDlg .......
REDEFINE GET oGet VAR oFac:NUMERO ID 4002 OF oDlg READONLY
REDEFINE GET oGet VAR oFac:CODIGO ID 4003 OF oDlg ;
VALID oCli:Seek( oFac:CODIGO )
///TWBROWSE .....
REDEFINE LISTBOX ID 4001 OF oDlg UPDATE ;
FIELDS oDet:DETALLE, oDer:VALOR ;
HEADERS "Detalle", "Valor" ;
SIZES 200, 90 ;
ALIGN .T., .F. ;
oDet:bBof := {|| Nil }
oDet:bEof := {|| Nil }
oDbf:bNetError := {|| Nil }
oLbx:cAlias := oDet:cAlias //Importante
oLbx:bLogicLen := {|| oDet:RecCount() }
oLbx:bGoTop := {|| oDet:GoTop() }
oLbx:bGoBottom := {|| oDet:GoBottom() }
oLBx:bSkip := {| nSkip | oDet:Skipper( nSkip ) }
//botones
REDEFINE BUTTON oBtn[ 1 ] ID 4007 OF oDlg PROMPT 'Nuevo" ;
ACTION oClon := oClone( oDet ), ;
NuevoDetalle( oClon, oFac ), ;
oDlg:Update()
REDEFINE BUTTON oBtn[ 2 ] ID 4008 OF oDlg PROMPT 'Modificar" ;
ACTION oClon := oClone( oDet ), ;
ModificarDetalle( oClon, oFac ), ;
oDlg:Update()
REDEFINE BUTTON oBtn[ 3 ] ID 4009 OF oDlg PROMPT 'Eliminarr" ;
ACTION If( MsgYesNo( "Quieres" ), ;
( oDet:Delete(),
oDlg:Update() ), )
REDEFINE BUTTON ID 4010 OF oDlg PROMPT 'Grabar" ;
ACTION GrabarFactura( oFac, lNuevo )
......
ACTIVATE DIALOG oDlg
Return Nil
Function NuevoDetalle( oDet, oFac )
Local oDlg, oGet
oDet:Blank()
oDet:NUMERO := oFac:NUMERO
DEFINE DIALOG oDlg RESOURCE 'EDITDETALLE'
REDEFINE GET oGet VAR oDet:DETALLE ID 4001 OF oDlg
REDEFINE GET oGet VAR oDet:VALOR ID 4002 PICTURE '999,999,999.99' OF oDlg
ACTIVATE DIALOG oDlg
oDet:Append()
oDet:Save()
Return Nil
Function ModificarDetalle( oDet, oFac )
Local oDlg, oGet
oDet:Load()
DEFINE DIALOG oDlg RESOURCE 'EDITDETALLE'
REDEFINE GET oGet VAR oDet:DETALLE ID 4001 OF oDlg
REDEFINE GET oGet VAR oDet:VALOR ID 4002 PICTURE '999,999,999.99' OF oDlg
ACTIVATE DIALOG oDlg
oDet:Save()
Return Nil
Function GrabarFactura( oFac, lNuevo )
If lNuevo
oFac:Append()
EndIf
oFac:Save()
Return NilSaludos
Saludos/regards
RenOmaS
skype: americo.balboa
RenOmaS
skype: americo.balboa