interfaz COM y OCX Factura Electrónica y web services ARCA

WSLSPa ajuste avícola

Este ejemplo teórico para el WSLSP de ajuste de liquidación pecuaria avícola muestra como cargar todos los campos posibles para autorizar un ajuate avícola. Tener en cuenta que en una liquidación real algunos campos o grupos de campos se deben informar o no según el tipo de liquidación. Es decir este ejemplo no intenta obtener un CAE pero si mostrar como se deben informar los campos para lograrlo. Debe usarse e instalador 53.40 o superior. y tomar como base la documentación del WSLSP.

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

En este ejemplo se hace uso del método "lspCargarPropiedadAjusteAvicola" para simplificar la carga de datos y evitar la saturación de propiedades

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean

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

REM fe.forzarCertificadoSSL(true)

REM esta linea puede ser necesaria si se recibe el error "no se pudo establecer una conex.." aun despues de seguir los pasos de la guia para este REM error https://sites.google.com/site/facturaelectronicax/Home/solucion-de-problemas

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

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

fe.lspPDF = "d:\liquidacion.pdf"

fe.ArchivoCertificadoPassword = ""

If fe.lspObtenerTicketAcceso() Then

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

bresultado = fe.lspCargarPropiedadAjusteAvicola("tipoAjuste", "C", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("fechacomprobante", "20190505", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("ajusteFinanciero.gasto.itemcantidad ", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("ajusteFinanciero.gasto.alicuota", "21", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("ajusteFinanciero.gasto.alicuotaNo", "V", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("ajusteFinanciero.gasto.alicuotaIva", "21", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("ajusteFinanciero.gasto.alicuotaIvaNo", "V", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("ajusteFinanciero.gasto.baseImponible", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("ajusteFinanciero.gasto.baseImponibleNO", "V", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("ajusteFinanciero.gasto.codGasto", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("ajusteFinanciero.gasto.descripcion", "prueba", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("ajusteFinanciero.gasto.importe", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("ajusteFinanciero.gasto.importeNo", "V", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("ajusteFinanciero.gasto.tipoIvaNulo", "EX", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("ajusteFinanciero.gasto.tipoIvaNuloNo", "V", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("bonificacionesPenalizaciones.itemcantidad", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("bonificacionesPenalizaciones.codigo", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("bonificacionesPenalizaciones.detalle", "prueba", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("bonificacionesPenalizaciones.importe", "5", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("datosadicionales", "prueba", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("emisor.comprobanteAAjustar.nroComprobante", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("emisor.comprobanteAAjustar.puntoVenta", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("emisor.comprobanteAAjustar.tipocomprobante", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("emisor.nroComprobante", "1", 0, 0)

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

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

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

bresultado = fe.lspCargarPropiedadAjusteAvicola("itemDetalleAjusteLiquidacion.ajusteCompraAsociada.cantidadAsociada", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("itemDetalleAjusteLiquidacion.ajusteCompraAsociada.nroComprobante", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("itemDetalleAjusteLiquidacion.ajusteCompraAsociada.nroItem", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("itemDetalleAjusteLiquidacion.ajusteCompraAsociada.puntoVenta", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("itemDetalleAjusteLiquidacion.ajusteCompraAsociada.tipoComprobante", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("itemDetalleAjusteLiquidacion.ajusteFisico.cantidad", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("itemDetalleAjusteLiquidacion.ajusteFisico.cantidadCabezas", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("itemDetalleAjusteLiquidacion.ajusteFisico.cantidadCabezasNO", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("itemDetalleAjusteLiquidacion.ajusteFisico.cantidadKgVivo", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("itemDetalleAjusteLiquidacion.ajusteFisico.cantidadKgVivoNO", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("itemDetalleAjusteLiquidacion.ajusteMonetario.precioUnitario", "1", 0, 0)

bresultado = fe.lspCargarPropiedadAjusteAvicola("itemDetalleAjusteLiquidacion.nroitemAjustar", "1", 0, 0)

If fe.UltimoMensajeError = "" Then

bresultado = fe.lspGenerarAjusteAvicola()

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

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

MsgBox("barras " + fe.lspLeerPropiedad("lspgenerarliquidacionavicola", "liquidacion.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

Page updated

Google Sites

Report abuse