Llenar de ceros a la izquierda un numero (GET) SOLUCIONADO
Posted: Mon Feb 14, 2011 7:22 pm
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)
Agradeciendo de antemano sus valiosos comentarios
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)
Agradeciendo de antemano sus valiosos comentarios