WSLSP ejemplo ajuste

Este ejemplo operativo para el WSLSP de liquidación pecuaria de ajuste muestra como cargar campos para autorizar un liquidación y obtener el CAE. para ejecutar el ejemplo:

Debe usarse el instalador 45.20 o superior.

en el PDF de AFIP figuran los diferentes datos de prueba.

En el ejemplo usar datos concretos. Se han comentado (REM) los campos que no deben cargarse para esta liquidación en particular.

Ver más detalles en el apartado como usar.

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean

If fe.iniciar(0, "cuit", "certificado pfx cuit", "") Then

fe.ArchivoXMLEnviado = "d:\lsapenvio.xml"

fe.ArchivoXMLRecibido = "d:\lsparecibo.xml"

fe.ArchivoCertificadoPassword = ""

If fe.lspObtenerTicketAcceso(texto) Then

bresultado = fe.lspCargarPropiedadAjuste("limpiar", "", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("fechacomprobante", "20170124", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.gasto.itemcantidad", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.gasto.alicuota", "3", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.gasto.alicuotaNo", "f", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.gasto.alicuotaiva", "10.50", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.gasto.alicuotaivaNo", "f", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.gasto.baseImponible", "230520.6", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.gasto.baseImponibleNo", "F", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.gasto.codGasto", "16", 0, 0)

REM bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.gasto.descripcion", "felete", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.gasto.importe", "10", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.gasto.importeNo", "V", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.tributo.itemcantidad", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.tributo.alicuota", "5", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.tributo.alicuotaNo", "F", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.tributo.baseImponible", "10000", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.tributo.baseImponibleNo", "f", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.tributo.codTributo", "5", 0, 0)

REM bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.tributo.descripcion", "prueba", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.tributo.importe", "5", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("ajustefinanciero.tributo.importeNo", "V", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("emisor.nrocomprobante", "3", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("emisor.puntoventa", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("emisor.comprobanteaajustar.nrocomprobante", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("emisor.comprobanteaajustar.puntoventa", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("emisor.comprobanteaajustar.tipocomprobante", "185", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("tipoajuste", "C", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.itemcantidad", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.ajustemonetario.preciorecupero", "0.25", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.ajustemonetario.preciorecuperoNo", "T", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.ajustemonetario.preciounitario", "1", 0, 0)

REM bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.ajustefisico.cantidad", "0.25", 0, 0)

REM bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.ajustefisico.cantidadCabezas", "1", 0, 0)

REM bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.ajustefisico.cantidadCabezasNO", "v", 0, 0)

REM bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.ajustefisico.cantidadKgVivo", "1", 0, 0)

REM bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.ajustefisico.cantidadKgVivoNO", "V", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.liquidacionCompraAsociada.itemcantidad", "0", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.liquidacionCompraAsociada.itemcantidad", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.liquidacionCompraAsociada.tipocomprobante", "60", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.liquidacionCompraAsociada.puntoventa", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.liquidacionCompraAsociada.nrocomprobante", "60", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.liquidacionCompraAsociada.cantidadAsociada", "2", 0, 0)

bresultado = fe.lspCargarPropiedadAjuste("itemDetalleAjusteLiquidacion.liquidacionCompraAsociada.nroitem", "1", 0, 0)

If fe.UltimoMensajeError = "" Then

bresultado = fe.lspAjustarLiquidacion()

If fe.UltimoMensajeError = "" And fe.lspErrorDescripcion1 = "" Then

MsgBox("CAE " + fe.lspLeerPropiedad("lspajustarliquidacion", "encabezado.cae", "", 0, 0))

MsgBox("barras " + fe.lspLeerPropiedad("lspajustarliquidacion", "encabezado.nroCodigoBarras", "", 0, 0))

Else

MsgBox("error general" + fe.UltimoMensajeError)

MsgBox("error servidor " + fe.lspErrorDescripcion1)

End If

Else

MsgBox("error al cargar propiedad " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo iniciar " + fe.UltimoMensajeError)

End If