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

WSLUM ejemplo operativo

Este ejemplo operativo para el WSLUM de lechería muestra como cargar campos para autorizar un liquidación y obtener el CAE. para ejecutar el ejemplo:

Debe usarse el instalador 41.60 o superior.

Debe solicitar a AFIP sri@afip.gob.ar un conjunto de datos de prueba indicando CUIT del certificado y comprador y CUIT del productor a usar para recibir los datos y el punto de venta a usar.

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.

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 "lumCargarPropiedad" 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", "archivo pfx para CUIT", "") Then

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

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

fe.ArchivoCertificadoPassword = "s"

If fe.lumObtenerTicketAcceso() Then

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

bresultado = fe.lumCargarPropiedad("balanceLitrosPorcentajesSolidos.kgGrasa", "4922.26", 0, 0)

bresultado = fe.lumCargarPropiedad("balanceLitrosPorcentajesSolidos.kgProteina", "4455.47", 0, 0)

bresultado = fe.lumCargarPropiedad("balanceLitrosPorcentajesSolidos.litrosDecomisados", "0", 0, 0)

bresultado = fe.lumCargarPropiedad("balanceLitrosPorcentajesSolidos.litrosRemitidos", "184448", 0, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.itemcantidad", "5", 0, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.codBonificacionPenalizacion", "2", 0, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.detalle", "Resultado Recuento Células Somáticas (RCS/ml/miles) ", 0, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.porcentajeAAplicar", "12", 0, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.porcentajeAAplicarNO", "F", 0, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.importe", "0.0", 0, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.importeNO", "V", 0, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.resultado", "355", 0, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.codBonificacionPenalizacion", "1", 1, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.detalle", "Recuento Bacterias (UFC/ml)", 1, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.porcentajeAAplicar", "12", 1, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.porcentajeAAplicarNO", "F", 1, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.importe", "0.0", 1, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.importeNO", "V", 1, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.resultado", "58", 1, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.codBonificacionPenalizacion", "3", 2, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.detalle", "Resultado BRUCELOSIS", 2, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.porcentajeAAplicar", "7", 2, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.resultado", "Libre", 2, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.codBonificacionPenalizacion", "4", 3, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.detalle", "Tuberculosis (Libre)", 3, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.porcentajeAAplicar", "2", 3, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.porcentajeAAplicarNO", "F", 3, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.importe", "0.0", 3, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.importeNO", "V", 3, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.resultado", "Libre", 3, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.codBonificacionPenalizacion", "5", 4, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.detalle", "Resultado TEMPERATURA (ºC)", 4, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.porcentajeAAplicar", "15", 4, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.porcentajeAAplicarNO", "F", 4, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.importe", "0.0", 4, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.importeNO", "V", 4, 0)

bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.resultado", "4", 4, 0)

~~Rem bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.kgCrecimientoGB", "0", 0, 0)~~

~~Rem bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.kgCrecimientoPR", "0", 0, 0)~~

Rem bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.kgProduccionGB", "0", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.kgProduccionPR", "0", 0, 0)

~~Rem bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.precioPorKgCrecimientoGB", "0", 0, 0)~~

~~Rem bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.precioPorKgCrecimientoPR", "0", 0, 0)~~

Rem bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.precioPorKgProduccionGB", "0", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.precioPorKgProduccionPR", "0", 0, 0)

~~bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.kgCrecimientoGB", "0.0", 0, 0)~~

~~bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.kgCrecimientoPR", "0.0", 0, 0)~~

bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.kgProduccionGB", "4922.26", 0, 0)

bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.kgProduccionPR", "4455.47", 0, 0)

~~bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.precioPorKgCrecimientoGB", "0.0", 0, 0)~~

~~bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.precioPorKgCrecimientoPR", "0.0", 0, 0)~~

bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.precioPorKgProduccionGB", "70.73", 0, 0)

bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.precioPorKgProduccionPR", "78.14", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.caeAAjustar", "0", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.caeAAjustarNO", "t", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.formularioPapel.cai", "3533535", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.formularioPapel.fechaEmision", "20160130", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.formularioPapel.nroComprobante", "1", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.formularioPapel.puntoventa", "2", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.formularioPapel.tipoComprobante", "1", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.alicuotaIVA", "21", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.alicuotaIVANo", "f", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.datosAdicionales", "prueba", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.domicilioSede", "calle 1", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.iibbAdquirente", "0", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.inscripcionRegistroPublico", "5465", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.nroComprobante", "1", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.periodo", "2016/02", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.fechaComprobante", "20160228", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.puntoventa", "1", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tipocomprobante", "27", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("liquidacion.otrosimpuesto.itemcantidad", "1", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("liquidacion.otrosimpuesto.alicuota", "10.50", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("liquidacion.otrosimpuesto.baseImponible", "100000.50", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("liquidacion.otrosimpuesto.detalle", "pru 6257eba 1", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("liquidacion.otrosimpuesto.tipo", "1", 0, 0)

bresultado = fe.lumCargarPropiedad("remito.itemcantidad", "0", 0, 0)

Rem bresultado = fe.lumCargarPropiedad("remito", "54651", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.condicionventa.itemcantidad", "1", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.condicionventa.codigo", "0", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.condicionventa.descripcion", "", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambero.cuit", "cuit prueba", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambero.iibb", "0", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambo.fechaVencCertBrucelosis", "20170131", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambo.fechaVencCertTuberculosis", "20170131", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambo.nroRenspa", "03.020.1.00702/00", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambo.nroTamboInterno", "1", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambo.nroTamboProvincial", "0", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambo.nroTamboProvincialNo", "t", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambo.ubicacionTambo.codigoPostal", "2413", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambo.ubicacionTambo.codProvincia", "2", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambo.ubicacionTambo.domicilio", "calle 2", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambo.ubicacionTambo.latitud", "-31.02", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambo.ubicacionTambo.longitud", " -62.04", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambo.ubicacionTambo.codLocalidad", "11311", 0, 0)

bresultado = fe.lumCargarPropiedad("liquidacion.tambo.ubicacionTambo.nombrePartidoDepto", "san justo", 0, 0)

If fe.UltimoMensajeError = "" Then

bresultado = fe.lumGenerarLiquidacion()

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

MsgBox "CAE " + fe.lumLeerPropiedad("lumgenerarliquidacion", "liquidacion.encabezado.cae", "", 0, 0)

Else

MsgBox ("error general" + fe.UltimoMensajeError)

MsgBox ("error servidor " + fe.lumErrorDescripcion1)

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