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