Crystal Report - Eliminar ceros a la izquierda de String

   
Vista:
Imágen de perfil de rosam16

Eliminar ceros a la izquierda de String

Publicado por rosam16 (1 intervención) el 06/08/2014 17:54:18
Hola.
Tengo un campo String que corresponde a una numeración de documentos.
Este campo tiene una longitud de 8 caracteres y puede contener números o letras.
Por ejemplo, los albaranes se enumeran: 00003456, 00003457, 00003458, etc.; y los abonos se enumeran: 00A00034, 00A00035, etc.
En el reporte me gustaría mostrar solamente los caracteres útiles (sin ceros a la izquierda)
Es decir, para albaranes: 3456, 3457, 3458; y para abonos (A00034, A00035, etc.)
¿Cómo podría hacerlo?
Gracias.

rosam16.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Eliminar ceros a la izquierda de String

Publicado por Juan Gilberto (129 intervenciones) el 07/08/2014 20:14:47
El siguiente codigo esta en VB6, quiza te sirva la logica
1
2
3
4
5
6
7
8
9
10
11
12
Dim Campo1 As String
    Dim I      As Integer
 
    Campo1 = "00001234"
 
    For I = 1 To Len(Campo1)
        If Mid(Campo1, I, 1) <> "0" Then
            Exit For
        End If
    Next I
 
    MsgBox Campo1 & " ---> " & Mid(Campo1, I)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar