Formato: 001-000123
Hola a todos, tengo un campo string de 11 en un dw. Como hago para que el usuario digite por ejemplo "1-123" y que después se transforme a "001-000123", estuve probando ese campo con un editmask, y los eventos itemchanged e itemfocuschanged del dw, pero no me funciona bien.
Gracias por la respuesta
Fernando
Gracias por la respuesta
Fernando
1 Respuesta
Respuesta de achafio
1
Lo que tienes que hacer es lo siguiente:
Long i
String ls_parte1,ls_parte2,c
i=1
c=mid(sle_1.text,i,1)
while c<>"-"
i = i + 1
c=mid(sle_1.text,i,1)
end while
ls_parte1 = mid(sle_1.text,1,i - 1)
ls_parte2 = mid(sle_1.text, i + 1, Len(sle_1.text)
ls_parte1 = left("000",3 - len(ls_parte1)) + ls_parte1
ls_parte2 = left("000000" 6 - len(ls_parte2)) + ls_parte2
sle_1.text = ls_parte1 + "-" + ls_parte2
//Esto lo deberás poner editchanged o si deseas en un botón
Cualquier duda solo pregunta
Long i
String ls_parte1,ls_parte2,c
i=1
c=mid(sle_1.text,i,1)
while c<>"-"
i = i + 1
c=mid(sle_1.text,i,1)
end while
ls_parte1 = mid(sle_1.text,1,i - 1)
ls_parte2 = mid(sle_1.text, i + 1, Len(sle_1.text)
ls_parte1 = left("000",3 - len(ls_parte1)) + ls_parte1
ls_parte2 = left("000000" 6 - len(ls_parte2)) + ls_parte2
sle_1.text = ls_parte1 + "-" + ls_parte2
//Esto lo deberás poner editchanged o si deseas en un botón
Cualquier duda solo pregunta
