facturacion

facturacion

Postby 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
Susy
 
Posts: 35
Joined: Wed Nov 15, 2006 4:04 pm

Postby 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
carlosortiz
 
Posts: 39
Joined: Wed Mar 22, 2006 12:53 pm
Location: Córdoba // Argentina

Estoy usando Listbox

Postby 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
Susy
 
Posts: 35
Joined: Wed Nov 15, 2006 4:04 pm

Postby 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
User avatar
Armando Picon
 
Posts: 446
Joined: Mon Dec 26, 2005 9:11 pm
Location: Lima, Peru

Re: facturacion

Postby 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 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
User avatar
Vikthor
 
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Estoy usando Listbox

Postby 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
Susy
 
Posts: 35
Joined: Wed Nov 15, 2006 4:04 pm

Postby 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.
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Postby 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.
Vikthor
User avatar
Vikthor
 
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Hola Vikthor

Postby 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
Susy
 
Posts: 35
Joined: Wed Nov 15, 2006 4:04 pm

SALUDOS

Postby QAZWSX2K » Fri Nov 24, 2006 8:03 pm

A MI IGUAL, GRACIAS DE ANTEMANO

ALEX_PATINO74@HOTMAIL.COM
User avatar
QAZWSX2K
 
Posts: 364
Joined: Tue Oct 25, 2005 7:06 pm
Location: Bogota - Caracas

Postby joseluisysturiz » Mon Nov 27, 2006 10:36 pm

me sumo a la peticion mi correo joseluisysturiz@yahoo.com gracias de antemano
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

sobre los browses

Postby 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 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
User avatar
QAZWSX2K
 
Posts: 364
Joined: Tue Oct 25, 2005 7:06 pm
Location: Bogota - Caracas

Postby 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  Expand view  RUN
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
User avatar
RenOmaS
 
Posts: 205
Joined: Fri Oct 07, 2005 5:07 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 48 guests