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