Page 1 of 2

Ejemplo de un Browse tipo Factura

Posted: Fri Feb 17, 2006 8:45 pm
by servicomver
Hola:
Alguien tiene algun ejemplo, de alguna clase para meter datos tipos facturas, es decir que dentro de un listbox o browse teclear por ejemplo cantidad, en la siguiente la clave (al hacerlo buscar en otra base de datos para validarlo) y el resultado ponerlo en la siguiente columna ?
al posicionarse al final, abrir modo de edicion, y poder "navegar" de arriba a abajo ??

gracias por su atencion
salu2
veracruz, mexico

Posted: Sat Feb 18, 2006 1:24 am
by DanielPuente
servicomver:

La propia clase twbrowse de hernan te permite hacer eso, ya sea sobre matrices o sobre dbfs. Uno de los ejemplos que vienen con la clase (sample01.prg) hace justamente eso sobre matrices. Fijate estos metodos:

oLbx:lAutoEdit := .t.
oLbx:bEdit:= {|nCol, cBuffer, lFirstEdit|;
EditaCelda( oLbx, nCol, cBuffer, aDatos, lFirstEdit, aTotal ) }

Algo similar podes hacer con browses sobre dbfs:

oBcli:lAutoEdit := .t.
oBcli:bKeyChar := {|nK| if( nK==VK_RETURN,oBcli:Edit(oBcli:nColAct,.t.),) }
oBcli:bEdit:= {|nCol, cBuffer, lFirstEdit|;
Edita2Celda( oDlg,oBcli, nCol,cBuffer,lFirstEdit )}

Function Edita2Celda( oFld,oLbx, nCol, cBuffer, lFirstEdit )
LOCAL lContinue:= .t., bValid, nColReal:= nCol

Do Case
Case nCol == 2
cBuffer:=val( left( Personas->C4, 2 )) //C41
bValid:= {|| If( cBuffer < 0 , ;
(MsgStop( "Numero de Nucleos Familiares Incorrecto, ingrese: "+CRLF+CRLF+;
"un valor",oemtoansi("Dato Inv lido") ),.f.), .T. ) }

If lContinue:= oLbx:lEditCol( nColReal, @cBuffer, "@ZE 99", bValid,,CLR_YELLOW )
TrPerson->C4:=PADL(cBuffer,2,'0')
EndIf
Case nCol == 6
cBuffer:=Personas->FECNAC
If lContinue:= oLbx:lEditCol( nColReal, @cBuffer, "@d", bValid,,CLR_YELLOW )
TrPerson->FECNAC:=cBuffer
EndIf
return lContinue

Con la variable lContinue controlas si sigue el ciclo de edicion (para pasar al siguiente registro y continuar agregando uno nuevo o si salis del modo de edicion).

La mayoria de las clases para browses (la tsbrowse de manuel mercado por ejemplo) permiten hacerlo.

Saludos,

Posted: Sat Feb 18, 2006 6:54 pm
by servicomver
DANIEL

No he podido crear la libreria y en verdad estoy atorado, me puedes pasar a mi correo la libreria Sbrowse (para clipper) a mi correo, y un ejemplo con dbfs x favor ????
servicomver@yahoo.com.mx
salu2
veracruz, mexico

Posted: Fri Mar 24, 2006 9:05 pm
by cristian caballero
Daniel tengo el mismo inconveniente, si ya lo resolviste me puedes enviar una copia a mi correo caballero_cristian2004@yahoo.es , te lo agradesco.

:shock:
servicomver wrote:DANIEL

No he podido crear la libreria y en verdad estoy atorado, me puedes pasar a mi correo la libreria Sbrowse (para clipper) a mi correo, y un ejemplo con dbfs x favor ????
servicomver@yahoo.com.mx
salu2
veracruz, mexico

Posted: Sat Mar 25, 2006 3:54 am
by DanielPuente
Cristian:

Te envie a tu privado la clase y dos prg.

Saludos,

Posted: Sat Mar 25, 2006 6:12 pm
by R.F.
Alfredo Arteaga tiene eso implementado en su RC-Extended y tiene a la venta el codigo fuente, pueden contactarlo en:

www.despachoarteaga.com.mx

Posted: Sat Mar 25, 2006 6:18 pm
by lubin
Buen dia DANIEL, te seria posible enviarme una copia igual por favor, pues deseo ver dicha metodologia, ayuraria bastante
Gracias.

Mi correo es lubin.am@speedy.com.pe

Posted: Sun Mar 26, 2006 2:16 am
by devwin2004
Estimados Colegas

Pueden descargar una demo que contiene un browse para facturacion
con tsbrowse (clipper) desde http://hyperupload.com/download/01e03d2 ... 6.zip.html
al que le interese le puedo enviar los fuentes del modulo de facturacion

Gracias
DEvwin2004

Posted: Thu Apr 20, 2006 9:05 am
by Pedro
devwin2004 wrote:Estimados Colegas

Pueden descargar una demo que contiene un browse para facturacion
con tsbrowse (clipper) desde http://hyperupload.com/download/01e03d2 ... 6.zip.html
al que le interese le puedo enviar los fuentes del modulo de facturacion

Gracias
DEvwin2004
Podrías enviarme un ejemplo de como haces el diálogo y el browse en la misma caja a mi dirección? algafiq@terra.es

gracias anticipadas

Posted: Thu Apr 20, 2006 10:59 am
by MANOLO
devwin2004 wrote:Estimados Colegas

Pueden descargar una demo que contiene un browse para facturacion
con tsbrowse (clipper) desde http://hyperupload.com/download/01e03d2 ... 6.zip.html
al que le interese le puedo enviar los fuentes del modulo de facturacion

Gracias
DEvwin2004
hola podrias enviarme los fuentes a mi email:

francesport@telefonica.net

gracias.

Amigo si me las puedes enviar te lo agradeceria.

Posted: Thu Apr 20, 2006 3:49 pm
by leandro
Amigo si me las puedes enviar tambien, te lo agradeceria.

leandroalfonso111@hotmail.com

Re: disculpa si me las puedes enviar te lo agradeceria.

Posted: Fri Apr 21, 2006 9:10 pm
by Wneskers
William wrote:Amigo si me las puedes enviar tambien, te lo agradeceria.

Wneskers@hotmail.com

Si me las puedes enviar te lo agradeceria.

Posted: Sun Apr 23, 2006 7:36 am
by Manuel Valdenebro
Si me las puedes enviar, te lo agradeceria.

lebsoft@mixmail.com

Posted: Tue Apr 25, 2006 3:56 pm
by QAZWSX2K
a mi tanbien gracias, alex_patino74@hotmail.com

no lo ha podido bajar

Posted: Wed May 17, 2006 3:17 pm
by QAZWSX2K
no he podido bajar el archivo http://hyperupload.com/download/01e03d2 ... 6.zip.html me dice not available, podrias volver a mandarlo y mandarme el prg donde esta el browse, gracias y disculpa la molestia