FeCred aceptar cta. cte.
Mediante este método, el comprador podrá Aceptar la Factura de Crédito electrónica,
pudiendo informar la cancelación parcial o total, pagos parciales, retenciones y/o
embargos, de corresponder. La aceptación de la Factura implica la aceptación de todos
aquellos comprobantes asociados que modificaron el saldo de la Cuenta Corriente y no
fueron rechazados. Por este mecanismo de interacción Web Service se solicita que al
utilizar este método de aceptación se confirme la aceptación o rechazo de cada uno
de los comprobantes asociados. También deberá indicarse el saldo resultante negociable.
De esta manera el servicio validará el request con todos los registros mantenidos en el
sistema.
Si la operación es exitosa, la Factura Electrónica de Crédito y su Cta Cte quedan en el estado
Aceptadas con el saldo negociable calculado. Luego, mientras no se haya vencido el plazo de
aceptación estipulado el comprador puede informar la cancelación total, y una vez vencido dicho plazo
sin ser cancelada totalmente, el vendedor tiene la opción de informar al Agente de Depósito Colectivo
(la Factura con su saldo negociable)
Instalador 98 o superior.
Dim fe As New WSAFIPFE.Factura
Dim bresultado As Boolean = True
If fe.iniciar(0, "cuit", "certificado pfx", "archivo licencia modo real") Then
fe.ArchivoCertificadoPassword = ""
If fe.fecObtenerTicketAcceso() Then
fe.ArchivoXMLRecibido = "d:\fecrecibido.xml"
fe.ArchivoXMLEnviado = "d:\fecenviado.xml"
bresultado = fe.fecCargarPropiedad("LIMPIAR", "", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayAjustesOperacion.itemcantidad", "1", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayAjustesOperacion.codigo", "1", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayAjustesOperacion.importe", "5.5", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayconfirmarNotasDC.itemcantidad", "1", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayconfirmarNotasDC.aceptada", "S", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayconfirmarNotasDC.idNota.codTipocmp", "1", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayconfirmarNotasDC.idNota.CUITemisor", "2035709490", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayconfirmarNotasDC.idNota.nroCmp", "5", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayconfirmarNotasDC.idNota.ptoVta", "1", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayFromasCancelacion.itemcantidad", "1", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayFromasCancelacion.descripcion", "prueba", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayFromasCancelacion.codigo", "1", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayRetenciones.itemcantidad", "1", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayRetenciones.codTipo", "1", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayRetenciones.descMotivo", "pruebo", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayRetenciones.importe", "6", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("arrayRetenciones.porcentaje", "50", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("codMoneda", "PES", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("cotizacionMonedaUlt", "1", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("idctacte.codctaCte", "5", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("importecancelado", "5", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("importecanceladoNO", "V", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("importeEmbargadoPeso", "4", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("importeEmbargadoPesoNO", "F", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("importeTotalRetPesos", "6", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("saldoAceptado", "6.6", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("tipoCancelacion", "PAR", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("tipoCancelacionNO", "F", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("informarCBU", "S", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("informarCBUNo", "F", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("CBUcomprador", "1234567890123456789012", 0, 0)
If bresultado Then
bresultado = fe.fecAceptarFeCred()
If fe.UltimoMensajeError = "" And fe.fecErrorDescripcion1 = "" Then
MsgBox(fe.fecLeerPropiedad("fecAceptarFeCred", "resultado", "", 0, 0))
Else
MsgBox("error leer ctactes" + fe.UltimoMensajeError)
MsgBox("error ller servidor ctactes " + fe.fecErrorDescripcion1)
End If
Else
MsgBox("fallo cargar propiedad " + fe.UltimoMensajeError)
End If
else
MsgBox("fallo acceso " + fe.UltimoMensajeError)
end if
else
MsgBox("fallo iniciar " + fe.UltimoMensajeError)
end if