FiveTech Software tech support forums

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

Daniel tengo el mismo inconveniente, si ya lo resolviste me puedes enviar una copia a mi correo caballero_cristian2004@yahoo.es , te lo agradesco.

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:

www.despachoarteaga.com.mx

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

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

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 tambien, te lo agradeceria.

leandroalfonso111@hotmail.com

Si me las puedes enviar, te lo agradeceria.

lebsoft@mixmail.com

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