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
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,
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
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
Cristian:
Te envie a tu privado la clase y dos prg.
Saludos,
Alfredo Arteaga tiene eso implementado en su RC-Extended y tiene a la venta el codigo fuente, pueden contactarlo en:
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
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
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
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
Amigo si me las puedes enviar tambien, te lo agradeceria.
William wrote:Amigo si me las puedes enviar tambien, te lo agradeceria.
Wneskers@hotmail.com
Si me las puedes enviar, te lo agradeceria.
a mi tanbien gracias, alex_patino74@hotmail.com
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
