Skip to content

Instantly share code, notes, and snippets.

@SidVal

SidVal/Generar_EAN128.vba

Last active February 7, 2023 17:56
Show Gist options
  • Save SidVal/ec1f9dab0cd64edc6616ad854d1d3a22 to your computer and use it in GitHub Desktop.
Save SidVal/ec1f9dab0cd64edc6616ad854d1d3a22 to your computer and use it in GitHub Desktop.
Download ZIP
Generar Codigo EAN128 en Crystal Report
Raw
Generar_EAN128.vba
Function TestNum (Codigo as string, i as number, mini as number) as Number 'Si los caracteres de la variable mini desde la variable i son numericos entonces se devuelve 0 mini = mini - 1 If i + mini <= Len(Codigo) Then Do While mini >= 0 If Asc(Mid(Codigo, i + mini, 1)) < 48 Or Asc(Mid(Codigo, i + mini, 1)) > 57 Then Exit Do mini = mini - 1 Loop End If TestNum = mini End Function
Raw
TestNum.vba
Function TestNum (Codigo as string, i as number, mini as number) as Number 'Si los caracteres de la variable mini desde la variable i son numericos entonces se devuelve 0 mini = mini - 1 If i + mini <= Len(Codigo) Then Do While mini >= 0 If Asc(Mid(Codigo, i + mini, 1)) < 48 Or Asc(Mid(Codigo, i + mini, 1)) > 57 Then Exit Do mini = mini - 1 Loop End If TestNum = mini End Function
@SidVal
Copy link
Author

SidVal commented Feb 7, 2023

Más información

Leer cómo usar el código en Consultoria-SAP

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment