Hola Farik:

Fijate en ésto

01. En el bloque de ingresar el código pones esta rutina:

     arc=variable del codigo

     l0=row()

     c0=col()
     getcodi(arc,l0,c0)

     IF LASTKEY()=27

        ... RETORNAR AL ANTERIOR

     ELSE

       .... SEGUIR A RUTINA SIGUIENTE

    ENDI

02. FUNCTION getcodi(arc,l0,c0)

     sk=0

     USE productos

     DO WHIL .T.

           SET KEY 28 TO gettabla

           @ l0,c0 GET arc

           READ

           SET KEY 28 TO

           IF LASTKEY()=27 .OR. arc=...VACIO .OR. sk=1

              EXIT

           ELSEIF arc MAYOR QUE VACIO .OR. sk=0

              SEEK arc

              IF EOF()

                 ... NO ENCONTRADO

              ELSE

                 ard=descripcion

                 aru=unid

                 amo=moneda

                 apl=preciodelista

                 EXIT

              ENDI

      ENDI

ENDD

USE

SELE factura

RETU

03. PROCEDURE gettabla

SET KEY 28 TO

CLEAR GETS

DO tabla

sk=1

RETU

LA PRIMERA TE PIDE EL CODIGO

LA SEGUNDA ANALIZA, SI ESCRIBES EL CODIGO DIRECTAMENTE, LO BUSCA, SINO USAS EL F1 PARA BUSCAR EN LA TABLA Y ARRASTRARLO, LA TERCERA COMPRUEBA E INVOCA EL LLAMADO A LA TABLA. OJO QUE LAS VARIABLES QUE INTENTAS ARRASTRAR DEBEN SER LAS MISMAS QUE EXPIDE LA TABLA CUANDO SE CIERRA. NO OLVIDES USAR SALVAPANTALLAS PARA ABRIR Y CERRAR LA TABLA Y VOLVER A LA PANTALLA DE FACTURA.

MUCHOS SALUDOS

JULIO GOMEZ

LIMA PERU

--- El jue 17-jul-08, Lucho Miranda <LuchoMiranda@...> escribió:

De: Lucho Miranda <LuchoMiranda@...>
Asunto: Re: [CA-Clipper] rutina de facturacion
A: DesarrolloClipper@...
Fecha: jueves, 17 julio, 2008, 3:51 am

 

Al colega de "rutina de facturacion":

Si, se puede hacer y es muy sencillo y práctico. Pocas líneas de código.

 

Pulsas por ejemplo: F10  para elegir el Item por medio de un menu  y el ITEM elegido quedara reflejado  en la celda del DBEDIT()  yo lo hago en un Browse y me imagino que tambien lo hará en DBEDIT()

 

Si aún estas interesado dimelo y te haria un código de prueba para ver su funcionamiento y poder comprobarlo.

 

Saludos

Lucho Miranda

 

 

----- Original Message -----

From: farickm

To: DesarrolloClipper@...

Sent: Wednesday, July 16, 2008 7:05 PM

Subject: [CA-Clipper] rutina de facturacion

hola amigos , deseo que me ayuden, tengo un programa de inventario, el
cual tiene un modulo de facturacion, este esta hecho en clipper5 , el
diseño de facturacion es con dbedit, en una de las columnas hay que
escribir el codigo para que haga uan busqueda, el cual es tedioso
porque son demasiado item y memeorizarselos es tedioso asi como
tambien , tener un catalogo , lo que deseo es hacer una rutina , en la
que presiones una tecla sea esta "Enter" , o cualquiera y que me
aparesca el listado de los items y selecciones con "enter", y volver
al formato de factura,

Tambien quisiera saber donde puedo conceguir el el archivo de apoyo.ch
Gracias