Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function GeneraCodBarraFE(lsBarra, lCodigo)
- Local lsArchivo
- PyI25 = Createobject("PyI25")
- If !Directory("tmp")
- Mkdir tmp
- Endif
- lsArchivo = Fullpath("tmp\" + Sys(2015) + ".png")
- *-' cuit, tipo_cbte, punto_vta, cae, fch_venc_cae
- barras = lsBarra
- *-*' calculo digito verificador:
- barras = barras + PyI25.DigitoVerificadorModulo10(barras)
- *-*' genero imagen en png, aspecto 1x para ver en pantalla o por mail
- ok = PyI25.GenerarImagen(barras, lsArchivo)
- If lCodigo
- Return barras
- Else
- Return lsArchivo
- Endif
- Endfunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement