SHARE
TWEET

Untitled

a guest Nov 21st, 2018 158 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top