FoxPro/Visual FoxPro - COMO IDENTIFICAR UN "-" AYUDAAA!!!!

Hola gente, una pregunta yo tengo registro de la siguiente manera:

001-0002
000001-000015
01-000510950
01-02
1-1

por ejemplo.

ahora como hago yo para identificar un guion, porque tengo que rellenar con 0 a esos datos, es decir 6 numeros - 10 numeros.

Como haria?? yo se que con el PADL relleno de ceros a la izquierda, pero como identifico donde posicionarme antes y despues del guion.

Espero su ayuda. Gracias

prueba lo siguiente haber si esto es lo que quieres

var='001-0002'
primeraparte=SUBSTR(var,1,AT('-',var)-1)
segundaparte=SUBSTR(var,AT('-',var)+1,20)
?primeraparte
?segundaparte

Esto lo posteo Andy hace un rato, creo te puede servir:
eliminar='-'
cadena='000001-000015 '
cadena=CHRTRAN(cadena,eliminar,"")
?cadena

Suerte!!!!!!!!!!!!!!

Hola Michael, mira con la funcion que me diste no me sale muy bien, bueno yo lo estoy haciendo de la siguiente manera:

codigo=0001-00001
PADL(SUBSTR(cnumero,1,AT('-',codigo)-1),6,"0")+"-"+PADL(SUBSTR(codigo,AT('-',cnumero)+1,20),13,"0")

pero no me sale como deberia salir.
menos si es que el codigo es : 1-1

si tienes de ingreso 1-1
como quieres que salga ?

de cuantos digitos deseas tu salida ?

0000000011 ?

Mira yo echo algo parecido

Esta es mi idea tiene k contar cuantos caracteres son una ves echo esto crear un ciclo y buscando el guion como referencia todo lo k este del guiom para atras es tu numero ahora agregas los ceros esto es del guion para atras ahora del guion para adelante buscas un espacio en blaco y el imite sera el guion una ves echo esto cl cmbinas las cadenas y ahi esta ...

te debo el codigo solo estoy de paso pero en proximo dias are el codigo