cuenta = Lookup("INPUT_PedirCuenta")
cuentaLen = Len(cuenta)
Call Setlog(2, "PedirCuenta->CODE_AjustarDigitos->cuenta(antes)->" & cuenta)
Select Case cuentaLen
Case 5,6,7,8
cuenta = String(8-cuentaLen, "0") & cuenta
Case 9,10
cuenta = String(10-cuentaLen, "0") & cuenta
Case 13
cuenta = String(14-cuentaLen, "0") & cuenta
Case 15,16
cuenta = String(16-cuentaLen, "0") & cuenta
Case Else
cuenta = ""
nAllowType = 2
End Select
En especifico esta funcion:
cuenta = String(8-cuentaLen, "0") & cuenta
No se a que se refiera, Saludos.
Gracias
