No me avanza los contadores de facturas

Estoy utilizando esta rutina en numeradores de series de facturas y no me avanzan los contadores siempre se quedan en el numero 1 no me avanzan los contadores

Dim A As String
A = "FR"
Me.NumFactura = A & Format(Nz(DMax("Right(NumFactura, 4)", "DATOSFACTURA", "Left(NumFactura,4)='" & A & "'"), 0) + 1, "0000")

NumFactura -> Alfanumerico -> 6

1 respuesta

Respuesta
1

Creo que el error lo tienes en esta parte que usas como criterio del DMax:

Left(NumFactura,4)='" & A & "'"

Pues nunca se te cumplirá (los 4 primeros caracteres de la izquierda del NumFactura nunca serán igual a "FR")

Si le cambias ese 4 por un 2, te debería funcionar.

Saludos!


Añade tu respuesta

Haz clic para o

Más respuestas relacionadas