facturacion

Susy · Post by **Susy** » Mon Nov 20, 2006 8:18 pm

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 · Post by **carlosortiz** » Tue Nov 21, 2006 12:10 am

Hola Susy, bienvenida.

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

salu2. carlosortiz

Susy · Post by **Susy** » Tue Nov 21, 2006 3:02 pm

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

Armando Picon · Post by **Armando Picon** » Wed Nov 22, 2006 5:34 pm

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 · Post by **Vikthor** » Wed Nov 22, 2006 5:41 pm

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 ?

Susy · Post by **Susy** » Wed Nov 22, 2006 6:37 pm

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 · Post by **joseluisysturiz** » Wed Nov 22, 2006 8:12 pm

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 · Post by **Vikthor** » Wed Nov 22, 2006 8:53 pm

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.

Susy · Post by **Susy** » Thu Nov 23, 2006 3:16 pm

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 · Post by **QAZWSX2K** » Fri Nov 24, 2006 8:03 pm

A MI IGUAL, GRACIAS DE ANTEMANO

ALEX_PATINO74@HOTMAIL.COM

joseluisysturiz · Post by **joseluisysturiz** » Mon Nov 27, 2006 10:36 pm

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

QAZWSX2K · Post by **QAZWSX2K** » Mon Dec 04, 2006 4:03 pm

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

RenOmaS · Post by **RenOmaS** » Mon Dec 04, 2006 8:03 pm

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

FiveTech Software tech support forums

facturacion

facturacion

Estoy usando Listbox

Re: facturacion

Estoy usando Listbox

Hola Vikthor

SALUDOS

sobre los browses