Llenar de ceros a la izquierda un numero (GET) SOLUCIONADO

[Compuin]

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

[wmormar]

asi hazlo

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:

Code: Select all  Expand view

cCODANT := BANCO->BCO_CODIGO
NUMERO := BANCO->BCO_CODIGO

        @ 1,1 GET oCodigo VAR CODBCO OF oDlg SIZE 40, 10 ;
        VALID CHKBANCO(CODBCO, cCODant)

function chkbanco( o, c )
        c := STRZERO(VAL(c),12)
        o:refresh()
return .t.
 

[Compuin]

asi hazlo

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:

Code: Select all  Expand view

cCODANT := BANCO->BCO_CODIGO
NUMERO := BANCO->BCO_CODIGO

        @ 1,1 GET oCodigo VAR CODBCO OF oDlg SIZE 40, 10 ;
        VALID CHKBANCO(CODBCO, cCODant)

function chkbanco( o, c )
        c := STRZERO(VAL(c),12)
        o:refresh()
return .t.
 

Gracias William,

El campo es caracter, de que forma debo transformarlo para que esta funcion trabaje??

Atento a tus comentarios

[wmormar]

No es necesaria hacer la transformación, ahi considera el valor de tipo caracter, asi que debe funcionar tal cual.

Algun error?

[Compuin]

o:Refresh() arroja error

[Daniel Garcia-Gil]

Saludos

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

[Daniel Garcia-Gil]

Saludos

o:Refresh() arroja error

arroja error porque se esta pasando un dato tipo caracter (CODBCO) y estas intentando usar un refresh sobre este el cual no es posible

[Compuin]

Gracias Daniel y Williams

Funciona perfecto.

Saludos!