Librerias en Java para Facturación Electrónica

Integre fácilmente librerías en JAVA a su sistema ERP y realice todos los procesos de la facturación electrónica requeridos por la DIAN. Corren en cualquier sistema operativo y se pueden llamar desde cualquier lenguaje de programación. El único requisito es tener instalado java en su computador e incluir estos pequeños procedimientos en su aplicación o ERP .

Procedimiento para armar XML:

LcP0 = “java.exe -jar Focusxml.jar ”
LcP1 = ruta y XML con los datos a procesar(Convertir cursor de datos en un XML ya que se toma este para generar el XML dependiendo de la planilla).
LcP2 = ruta plantilla y modelo
LcP3 = ruta xml generado
IF FILE(LcP3)
DELETE FILE (lcP3)
ENDIF
LOCAL oWSH,oComando

oWSH = CREATEOBJECT(“WScript.Shell”)

oComando = Lcp0 + ” “+LcP1 + ” “+LcP2 +” “+Lcp3

oWSH.Run(oComando ,0,.T.)

IF !FILE(LcP3)
RETURN “No se pudo generar el archivo “+LcP3
ELSE
RETURN “XMLGENERADO”
ENDIF

Procedimiento para Firmar :

LcP1 = “java.exe -jar FocusFirma.jar ”
LcP2 = LcRutaXml+ LcNombreXml +” ”
LcP3 = LcRutaCertificado +” ”
LcP4 = LcPasscertificado +” ”
LcP5 = LcRutaFinal+ LcXmlDestino+” ”
LcP6 = JUSTPATH(LcCertificado)+”\politicadefirmav2.pdf ”
IF FILE(LcP5)
DELETE FILE (lcP5)
ENDIF
LOCAL oWSH,oComando
oWSH = CREATEOBJECT(“WScript.Shell”)
oComando = Lcp1 + ” “+ LcP2 +” “+LcP3+” “+Lcp4+” “+Lcp5 +” “+Lcp6
oWSH.Run(oComando ,0,.T.)
IF !FILE(LcP5)
RETURN ‘FALLOFIRMA’
ELSE
RETURN ‘FIRMADO-OK’
ENDIF

Procedimiento para Enviar :

LcP1=”java.exe -jar FocusWs.jar”
LcP2=”1″   *** con este parámetro estamos indicando el método aplicar  1=enviar
LcP3 = url web service dian
LcP4 = rutaresultadoenvio en XML  (El resultado lo recibimos en este XML).
LcP5 = usuario que envia
LcP6 = password
LcP7 = valor aleatorio Nonce
LcP8 = nit empresa que envia
LcP9 = documento prefijo + factura
LcP10 = fecha y hora factura
LcP11 = ruta XML firmado

IF FILE(LcP4)
DELETE FILE (lcP4)
ENDIF
LOCAL oWSH,oComando
oComando = Lcp1 + ” “+ LcP2 +” “+LcP3+” “+Lcp4+” “+Lcp5 +” “+Lcp6+” “+LcP7+” “+Lcp8+” “+Lcp9+” “+Lcp10+” “+Lcp11

oWSH = CREATEOBJECT(“WScript.Shell”)

oWSH.Run(oComando ,0,.T.)

IF !FILE(LcP4)
RETURN “ENVIADO-FALLO”
ELSE
RETURN “ENVIADO-VALIDAR”
ENDIF

Procedimiento para consultar transacciones:

LcP1=”java.exe -jar FocusWs.jar”
LcP2=”2″ *** método 2= consulta transacciones
LcP3 = Url webservice Dian
LcP4 = ruta resultado de la consulta en XML
LcP5 = usuario
LcP6 = password
LcP7 = tipo de documento
LcP8 = empresa nit que factura)
Lcp9 = documento electrónico factura y/o nota
Lcp10 = fecha y hora
LcP11 = cufe factura
LcP12 = id software
IF FILE(LcP4)
DELETE FILE (lcP4)
ENDIF
LOCAL oWSH,oComando
oWSH = CREATEOBJECT(“WScript.Shell”)

oComando = Lcp1 + ” “+ LcP2 +” “+ LcP3+” “+Lcp4 +” “+Lcp5 +” “+Lcp6+” “+LcP7+” “+Lcp8+” “+Lcp9+” “+Lcp10+” “+Lcp11+” “+LcP12

oWSH.Run(oComando ,0,.T.)

IF !FILE(LcP4)
RETURN “FALLIDO”
ELSE
RETURN “CONSULTADO”
ENDIF

Procedimiento consulta resoluciones:

LcP1=”java.exe -jar FocusWs.jar”
LcP2=”3″ *** método 3 consulta resoluciones
LcP3= url para resoluciones dian
LcP4 ==> Archivo Resultado en XML
LcP5 ==> Username
LcP6 ==> Password
LcP7 ==> Nit Empresa
LcP8 ==> Nit Proveedor Tecnológico
LcP9 ==> Id Software
IF FILE(LcP4)
DELETE FILE (lcP4)
ENDIF
LOCAL oWSH,oComando
oWSH = CREATEOBJECT(“WScript.Shell”)

oComando =Lcp1 + ” “+ LcP2 +” “+ LcP3 +” “+Lcp4 +” “+Lcp5 +” “+Lcp6+” “+LcP7+” “+Lcp8+” “+Lcp9

oWSH.Run(oComando ,0,.T.)

IF !FILE(LcP4)
RETURN “FALLIDO”
ELSE
RETURN “EXITOSO”
ENDIF

Procedimiento para generar códigos de barras :

LcP1 = “java.exe -jar FocusQr.jar ”
LcP2 = cTexto+” ”
LcP3 = CtipoGrafico + ” ” ***Tipo de codigo de barras == > PDF, QR, MATRIZ
LcP4 = LnAncho + ” ”
LcP5 = LnAlto + ” ”
LcP6 = LnMargen+ ” ”
LcP7 = cRutaImagen  + ” ”
*** si existe la imagen la borramos
IF FILE(LcP7)
DELETE FILE (lcP7)
ENDIF
LOCAL oWSH,oComando
oWSH = CREATEOBJECT(“WScript.Shell”)

oComando = Lcp1 + LcP2 + LcP3 +Lcp4 +Lcp5 +Lcp6 + Lcp7

oWSH.Run(oComando ,0,.T.)

IF !FILE(LcP7)
RETURN “No se pudo generar la imagen en “+LcP3
ENDIF
RETURN “GENERADO”

CONTACTO (57) 3006649509