02/09/2005, 10:46
|
 | | | Fecha de Ingreso: noviembre-2003 Ubicación: Lima - Perú
Mensajes: 443
Antigüedad: 21 años, 5 meses Puntos: 1 | |
 Ayuda con código para agregar ceros al inicio de una numero
Hola, tengo este código que lo encontré en un post y que me funcionaba muy bien (la idea esque si se tiene un numero 3 lo convierta a 00000003-05):
year = right(year(date()), 2)
ultimo = Trim(rs("codigo")) + 1
ultimo = Replace(Space(8 - Len(ultimo)), " ", "0") & ultimo &"-"&year
el problema es que al blanquear mi base de datos tuve que hacer esto:
sql = "select max(cod_doc) as codigo from Documento"
rs = conexion.Execute(sql)
---------------------------------------------
ESTO LO AGREGUE LUEGO DE BLANQUEAR LA BD
---------------------------------------------
if isNull(rs("codigo")) then
ultimo = 0
end if
---------------------------------------------
year = right(year(date()), 2)
ultimo = Trim(rs("codigo")) + 1
ultimo = Replace(Space(8 - Len(ultimo)), " ", "0") & ultimo &"-"&year
pero me bota un error en la última línea, tal vez ese código no funciona cuando el valro es 0 o no se, tal vez la función IsnNull la estoy aplicando mal. Alguien podría ayudarem por favor? muchas gracias de antemano.
__________________
Tarecito |