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