WSLUM ejemplo teorico
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