WSLSG ejemplo ajuste

El ejemplo requiere versión 29.20 superior del instalador y realiza un ajuste por COE.

Los datos son teóricos. 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.

En este ejemplo se usa la propiedad "lpgVersion" tal como se explica en la equivalencia WSLSG-WSLPG

Dim fe As New WSAFIPFE.Factura

Dim bResultado As Boolean = True

Dim numero As Integer

If fe.iniciar(0, "CUIT", "certificado PFX", "") Then

fe.ArchivoCertificadoPassword = ""

fe.lpgVersion = 1

If fe.lpgObtenerTicketAcceso() Then

numero = fe.lpgliquidacionUltimoNroOrdenConsultar("1")

fe.lpgcoeAjustado = "coe"

fe.lpgFusionnroActividad = "0"

fe.lpgFusionnroIngBrutos = " "

fe.lpgdebitoItemcantidad = 1

fe.lpgImputacion = 1

fe.lpgptoEmision = "1"

fe.lpgnroOrden = numero + 1

fe.lpgnumerContrato = ""

fe.lpgconceptoImporteIva0 = "ajuste"

fe.lpgconceptoImporteIva105 = ""

fe.lpgconceptoImporteIva21 = ""

fe.lpgdatosadicionales = ""

fe.lpgimporteAjustarIva0 = 1

fe.lpgimporteAjustarIva0No = False

fe.lpgimporteAjustarIva105 = 0

fe.lpgimporteAjustarIva105No = True

fe.lpgimporteAjustarIva21 = 0

fe.lpgimporteAjustarIva21No = True

fe.lpgdatosadicionales = ""

fe.lpgcodLocalidadProcedencia = 3

fe.lpgcodProvProcedencia = 1

fe.lpgretencionesItemCantidad = 1

fe.lpgIndiceItem = 0

fe.lpgretencionalicuota = 0

fe.lpgretencionbaseCalculo = 1

fe.lpgretenciondetalleAclaratorio = "prueba"

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)

Dim cCampo As String

cCampo = fe.lpgLeerRespuestaAjuste("totalesunificados.importeNeto", 0)

MsgBox("ajuste registrado en afip: " + cCampo)

Else

MsgBox("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo inicio " + fe.UltimoMensajeError)

End If