Guest User

Untitled

a guest
Nov 21st, 2018
174
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Function GeneraCodBarraFE(lsBarra, lCodigo)
  2. Local lsArchivo
  3.  
  4. PyI25 = Createobject("PyI25")
  5. If !Directory("tmp")
  6.     Mkdir tmp
  7. Endif
  8. lsArchivo = Fullpath("tmp\" + Sys(2015) + ".png")
  9. *-' cuit, tipo_cbte, punto_vta, cae, fch_venc_cae
  10. barras = lsBarra
  11. *-*' calculo digito verificador:
  12. barras = barras + PyI25.DigitoVerificadorModulo10(barras)
  13.  
  14. *-*' genero imagen en png, aspecto 1x para ver en pantalla o por mail
  15. ok = PyI25.GenerarImagen(barras, lsArchivo)
  16.  
  17. If lCodigo
  18.     Return barras
  19. Else
  20.     Return lsArchivo
  21. Endif
  22.  
  23. Endfunc
RAW Paste Data