Saludos
Compuin wrote:Buenas tardes estimados,
Estoy tratando de hacer lo siguiente:
Al colocar un numero en un GET este debe llenarse de 000 a la izquierda, es decir, si coloco 10, debe mostrar 0000000010.
Aca el codigo que estoy tratando de usar:
cCODANT := BANCO->BCO_CODIGO
NUMERO := BANCO->BCO_CODIGO
@ 1,1 GET oCodigo VAR CODBCO OF oDlg SIZE 40, 10 ;
VALID CHKBANCO(CODBCO, cCODant)
NUMERO := STRZERO(VAL(NUMERO),12)
El codigo que pones de ejemplo es algo confuso...
usas una funcion CHKBANCO que recibe 2 parametros ( CODBCO, cCODant )
CODBCO que es la variable que se llena en el GET y cCODant que es el valor del campo antes del GET
como tratas esos 2 parametros en la funcion CHKBANCO??
asumiendo que quieres llenar el contenido del GET al formato que planteas, pues usa la variable que tienes en el GET (CODBCO), le aplicas el formato (como lo estas haciendo) y actualizas el GET
algo asi
- Code: Select all Expand view
@ 1,1 GET oCodigo VAR CODBCO OF oDlg SIZE 40, 10 ;
VALID ( CODBCO := StrZero( Val( CODBCO), 12 ), oCodigo:Refresh(), .T. )
te expongo el codigo asi, por que no se como interviene cCODANT en tu aplicacion ni que significado tenga o si llevas algun tipo de control sobre este. Son simples conjeturas en base a lo que solicitas y al ejemplo que expusiste
espero ser de utilidad