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