facturacion

[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

[carlosortiz]

Hola Susy, bienvenida.

Pasame una cuenta de correo que te mando algo, contame antes que browser estas usando.

salu2. carlosortiz

[Susy]

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

[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

[Vikthor]

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 ?

[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

[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.

[Vikthor]

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.

[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

[QAZWSX2K]

A MI IGUAL, GRACIAS DE ANTEMANO

ALEX_PATINO74@HOTMAIL.COM

[joseluisysturiz]

me sumo a la peticion mi correo joseluisysturiz@yahoo.com gracias de antemano

[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 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

[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  Expand view

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