Este ejemplo teórico para el WSLUM de lechería muestra como cargar todos los campos posibles para autorizar una liquidación. Tener en cuenta que en una liquidación real algunos campo 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 41.60 o superior.
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
bResultado = True
If fe.iniciar(0, "CUIT", "*.pfx", "") Then
If fe.lumObtenerTicketAcceso() Then
bresultado = fe.lumCargarPropiedad("limpiar", "", 0, 0)
bresultado = fe.lumCargarPropiedad("balanceLitrosPorcentajesSolidos.kgGrasa", "1.1", 0, 0)
bresultado = fe.lumCargarPropiedad("balanceLitrosPorcentajesSolidos.kgProteina", "1.1", 0, 0)
bresultado = fe.lumCargarPropiedad("balanceLitrosPorcentajesSolidos.litrosDecomisados", "0", 0, 0)
bresultado = fe.lumCargarPropiedad("balanceLitrosPorcentajesSolidos.litrosRemitidos", "0", 0, 0)
bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.itemcantidad", "1", 0, 0)
bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.codBonificacionPenalizacion", "5", 0, 0)
bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.detalle", "detalle", 0, 0)
bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.porcentajeAAplicar", "3", 0, 0)
bresultado = fe.lumCargarPropiedad("bonificacionPenalizacion.resultado", "t", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.kgCrecimientoGB", "0", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.kgCrecimientoPR", "0", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.kgProduccionGB", "0", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.kgProduccionPR", "0", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.precioPorKgCrecimientoGB", "0", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.precioPorKgCrecimientoPR", "0", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.precioPorKgProduccionGB", "0", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoExterno.precioPorKgProduccionPR", "0", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.kgCrecimientoGB", "1", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.kgCrecimientoPR", "1.1", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.kgProduccionGB", "1.3", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.kgProduccionPR", "0.5", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.precioPorKgCrecimientoGB", "100.25", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.precioPorKgCrecimientoPR", "3.35", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.precioPorKgProduccionGB", "4.23", 0, 0)
bresultado = fe.lumCargarPropiedad("conceptosBasicosMercadoInterno.precioPorKgProduccionPR", "3.35", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.tipoajuste", "0", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.caeAAjustar", "6456654", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.caeAAjustarNO", "f", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.formularioPapel.cai", "3533535", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.formularioPapel.fechaEmision", "20160130", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.formularioPapel.nroComprobante", "1", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.formularioPapel.puntoventa", "2", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.ajuste.formularioPapel.tipoComprobante", "1", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.alicuotaIVA", "10.50", 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", "6945546", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.inscripcionRegistroPublico", "inscripto", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.nroComprobante", "2", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.periodo", "201601", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.puntoventa", "1", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.tipocomprobante", "1", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.otrosimpuesto.itemcantidad", "1", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.otrosimpuesto.alicuota", "10.50", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.otrosimpuesto.baseImponible", "100000.50", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.otrosimpuesto.detalle", "prueba 1", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.otrosimpuesto.tipo", "1", 0, 0)
bresultado = fe.lumCargarPropiedad("remito.itemcantidad", "2", 0, 0)
bresultado = fe.lumCargarPropiedad("remito", "54651", 0, 0)
bresultado = fe.lumCargarPropiedad("remito", "54353", 1, 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)
bresultado = fe.lumCargarPropiedad("liquidacion.tambero.cuit", "20235709490", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.tambero.iibb", "545465456", 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", "235465", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.tambo.nroTamboInterno", "1", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.tambo.nroTamboProvincial", "1", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.tambo.nroTamboProvincialNo", "f", 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", "235", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.tambo.ubicacionTambo.longitud", "105", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.tambo.ubicacionTambo.codLocalidad", "1", 0, 0)
bresultado = fe.lumCargarPropiedad("liquidacion.tambo.ubicacionTambo.nombrePartidoDepto", "san justo", 0, 0)
fe.ArchivoXMLEnviado = "d:\lumenviado.xml"
fe.ArchivoXMLRecibido = "d:\lumrecibido.xml"
If fe.UltimoMensajeError = "" Then
bResultado = fe.lumGenerarLiquidacion()
If bResultado Then
MsgBox("resultado método: verdadero")
Else
MsgBox("resultado método: falso")
End If
MsgBox("ultimo error " + fe.UltimoMensajeError)
MsgBox("error servicdor " + fe.lumErrorCodigo1 + " " + fe.lumErrorDescripcion1)
MsgBox("COE " + fe.lumLeerPropiedad("lumLiquidacionAutorizar", "liquidacion.cae", 0, 0)
Else
MsgBox("error en cargar de propiedad " + fe.UltimoMensajeError)
End If
Else
MsgBox("fallo acceso " + fe.UltimoMensajeError)
End If
Else
MsgBox("fallo inicio " + fe.UltimoMensajeError)
End If