WSLPG liquidacion ajuste unificado por COE

El ejemplo requiere versión 47.80 o superior del instalador para el WSLPG 1.19 (homologación)

Los datos son provistos por AFIP, debe ser modificados a datos coherentes. Aun en modo prueba los C.U.I.T. deben ser validos y con un certificado de prueba.

En el proyecto en visual basic, agregar una referencia al objeto WSAFIPFE y ejecutar el codigo desde un botón.

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean

Dim nindex As Integer

Dim NumeroDeOrden As Integer

Dim cptoEmision as string

Dim ccuit As String

NumeroDeOrden = 0

nindex = 0

ccuit = "cuit válido sin separadores"

cptoEmision = "1"

bresultado = False

If fe.iniciar(0, ccuit, "ruta del archivo certificado.pfx", "") Then

If fe.lpgObtenerTicketAcceso() Then

NumeroDeOrden = fe.lpgliquidacionUltimoNroOrdenConsultar(cptoemision)

If fe.lpgErrorItemCantidad > 0 Then

MsgBox("errores al recperar último numero de orden autorizado " + fe.UltimoMensajeError + fe.lpgErrorDescripcion1)

End If

fe.lpgptoEmision = cptoemision

fe.lpgnroOrden = NumeroDeOrden

fe.lpgcoeAjustado = "COE de la liquidación a ajustar"

fe.lpgcodLocalidadProcedencia = "3"

fe.lpgcodProvProcedencia = "1"

fe.lpgFusionnroActividad = "0"

fe.lpgFusionnroIngBrutos = "1"

fe.lpgdebitoItemcantidad = 0

fe.lpgcreditoItemcantidad = 1

fe.lpgImputacion = -1

fe.lpgcertificadosItemCantidad = 1

fe.lpgIndiceItem = 0

fe.lpgcertificadocampania = "1213"

fe.lpgcertificadocodLocalidadProcedencia = "3"

fe.lpgcertificadocodProvProcedencia = "1"

fe.lpgcertificadofechaCierre = "20130920"

fe.lpgcertificadonroCertificadoDeposito = "555501200624"

fe.lpgcertificadopesoNeto = "100000"

fe.lpgcertificadotipoCertificadoDeposito = "5"

fe.lpgcertificadoPesoNetoTotalCertificado = "100000"

fe.lpgcertificadoPesoNetoTotalCertificadoNo = False

fe.lpgcodGradoEnt = "G1"

fe.lpgcodGrano = "31"

fe.lpgcodLocalidadProcedencia = "3"

fe.lpgcodProvProcedencia = "1"

fe.lpgcodPuerto = "1"

fe.lpgcuitComprador = "cuit sin separadores"

fe.lpgcuitCorredorNo = True

fe.lpgcuitVendedor = "cuit sin separadores"

fe.lpgdesPuertoLocalidad = ""

fe.lpgFactor = 98

fe.lpgFactorNo = False

fe.lpgnroActComprador = "29"

fe.lpgprecioFleteTn = 10

fe.lpgprecioRefTn = 2000

fe.lpgValGrado = 0

fe.lpgValGradoNo = True

fe.lpgCodGradoEnt = "G1"

fe.lpgconceptoImporteIva0 = ""

fe.lpgconceptoImporteIva105 = ""

fe.lpgconceptoImporteIva21 = "ajuste iva"

fe.lpgimporteAjustarIva0No = True

fe.lpgimporteAjustarIva105No = True

fe.lpgimporteAjustarIva21No = False

fe.lpgimporteAjustarIva21 = 0.01

fe.lpgdatosadicionales = ""

fe.lpgdiferenciaPesoNeto = "10"

fe.lpgdiferenciaPrecioFleteTn = 0.01

fe.lpgdiferenciaPrecioOperacion = 0

fe.ArchivoXMLEnviado = "c:\enviado.xml"

fe.ArchivoXMLRecibido = "c:\recibido.xml"

bresultado = fe.lpgliquidacionAjustarUnificado()

MsgBox("COE: " + fe.lpgRespuestaCoe+" "+fe.lpgRespuestaCOEAjustado)

MsgBox("errores : " + fe.UltimoMensajeError + fe.lpgErrorDescripcion1)

ccampo = fe.lpgLeerRespuestaAjuste( "totalesunificados.imp21", 0)

msgbox("ajuste registrado en afip: "+ccampo)

Else

MsgBox("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo inicio " + fe.UltimoMensajeError)

End If