Formatar variável ainda no GET

Formatar Variável ainda no GET

Coloque os zeros antes do número automaticamente, ainda dentro do GET.

 Para ficar bem claro, será mostrado duas rotinas equânimes a seguir.

Uma rotina normalmente usada seria assim:

WCOD := 0
@ 10,10 SAY "CODIGO:" GET WCOD PICT "999999"
//Outros GETs
READ
WCOD := STRZERO(WCOD,6)

---------------------------------------

A partir de agora você fará o seguinte:

@ 10,10 SAY "CODIGO:" GET WCOD PICT "999999" VALID EVAL( { || WCOD := STRZERO(WCOD,6), .T.} )
//Outros GETs
READ


Gostou?!
(Esta página foi reclassificada de Know-how para Dicas)