Page 1 of 1
facturacion
Posted: Mon Nov 20, 2006 8:18 pm
by Susy
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
Posted: Tue Nov 21, 2006 12:10 am
by carlosortiz
Hola Susy, bienvenida.
Pasame una cuenta de correo que te mando algo, contame antes que browser estas usando.
salu2. carlosortiz
Estoy usando Listbox
Posted: Tue Nov 21, 2006 3:02 pm
by Susy
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
Posted: Wed Nov 22, 2006 5:34 pm
by Armando Picon
Susy
En el foro para Clipper te indico que puedes visitar el siguiente site para verr un ejemplo de lo que buscas:
www.geocities.com/sisgemeirl
Saludos
Armando
Re: facturacion
Posted: Wed Nov 22, 2006 5:41 pm
by Vikthor
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 _ 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 ?
Estoy usando Listbox
Posted: Wed Nov 22, 2006 6:37 pm
by Susy
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
susan_mx@hotmail.com
Posted: Wed Nov 22, 2006 8:12 pm
by joseluisysturiz
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.
Posted: Wed Nov 22, 2006 8:53 pm
by Vikthor
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.
Hola Vikthor
Posted: Thu Nov 23, 2006 3:16 pm
by Susy
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
SALUDOS
Posted: Fri Nov 24, 2006 8:03 pm
by QAZWSX2K
A MI IGUAL, GRACIAS DE ANTEMANO
ALEX_PATINO74@HOTMAIL.COM
Posted: Mon Nov 27, 2006 10:36 pm
by joseluisysturiz
me sumo a la peticion mi correo
joseluisysturiz@yahoo.com gracias de antemano
sobre los browses
Posted: Mon Dec 04, 2006 4:03 pm
by QAZWSX2K
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 _ 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
Posted: Mon Dec 04, 2006 8:03 pm
by RenOmaS
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
Code: Select all
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 Nil
Saludos