Clipper/FiveWin - captura de ca,pos

Hola a todos los Clipperos
Necesito que alguien me ayude con una pequeña función en la captura de guiones; que al momento de capturar y darle enter que me convierta los ceros delante de los numeros :
ejemplo: 1020-1-4 y que sería así 1020-0001-0004
Ejemplo de código

CTA:=SPACE(14)
@ 4,20 SAY 'Cuenta' GET CTA PICT '1020-4-2'
READ

IF LASTKEY() = 27
EXIT
ENDIF

y luego que se convierta las variables capturadas en: 1020-0004-0002
Si me podrian enviar una rutina o ejemplos por favor se los agradeceré
mucho.
Atentamente su servidor Adriano Casanova Cauich
[email protected]

Amigo adriano has intentado con ¿ STRTRAN() ?

Hola Adriano:

Que dice el sureste mexicano?. Aqui te reproduzco una rutina ojalá te
funcione bien.

Un abrazo

/*
Programa: Charct.Prg
Objetivo: Reformatear un texto
Elaboró: Armando Estrada Bucio
Fecha: 18/Oct/2001
N o t a: Compilar en clipper puro y duro, no es necesario FW
Compilar: Cl Charct
*/

CLS
cTxtT := SPACE(14)
@ 10,10 SAY "Teclea el texto:" GET cTxtT // Pide el text a formatear
READ

nIni := 1 // Aquí se separa en tres partes
cTxt1 := SUBSTR(cTxtT,nIni,AT("-",cTxtT)-1) // buscando los guiones
nIni += (LEN(cTxt1)+1)
cTxt2 := SUBSTR(cTxtT,nIni,AT("-",cTxtT)-1)
nIni += (LEN(cTxt2)+1)
cTxt3 := SUBSTR(cTxtT,nIni,AT("-",cTxtT)-1)

@ 12,10 SAY cTxt1 // Mostramos lo que se separo
@ 13,10 SAY cTxt2
@ 14,10 SAY cTxt3

cTxtT := PADL(ALLTRIM(cTxt1),4,"0")+ "-"+; // Re armamos el texto de acuerdo
PADL(ALLTRIM(cTxt2),4,"0")+ "-"+; // a nuestras necesidades
PADL(ALLTRIM(cTxt3),4,"0")
@ 15,10 SAY cTxtT
RETURN