FeCred rechazar cta. cte.

Mediante este método, el Comprador, dentro del plazo estipulado para el rechazo, puede

Rechazar la Cta. Cte. de una Factura Electrónica de Crédito debiendo indicar el motivo del

rechazo.

De esta manera la Factura y su Cta. Cte asociada alcanzarán el estado final Rechazadas

quedando la imposibilidad al vendedor de informarla al Agente de Depósito Colectivo

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("MotivoRechazo.itemcantidad", "1", 0, 0)

bresultado = bresultado And fe.fecCargarPropiedad("motivoRechazo.codMotivo", "5", 0, 0)

bresultado = bresultado And fe.fecCargarPropiedad("motivoRechazo.descMotivo", "prueba", 0, 0)

bresultado = bresultado And fe.fecCargarPropiedad("motivoRechazo.justificacion", "prueba", 0, 0)

bresultado = bresultado And fe.fecCargarPropiedad("idctacte.codCtaCte", "5", 0, 0)

If bresultado Then

bresultado = fe.fecrechazarfecred()

If fe.UltimoMensajeError = "" And fe.fecErrorDescripcion1 = "" Then

MsgBox(fe.fecLeerPropiedad("fecrechazarfecred", "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