Embedded Files
Método por el cual el Comprador, dentro los plazos establecidos, habiendo aceptado
previamente la FECRED, informa que le ha cancelado (pagado) totalmente la deuda al
vendedor, debiendo indicar la forma de pago
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("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("idctacte.codCtaCte", "5", 0, 0)
bresultado = bresultado And fe.fecCargarPropiedad("importecancelado", "55.25", 0, 0)
If bresultado Then
bresultado = fe.fecInformarCancelacionTotalFECred()
If fe.UltimoMensajeError = "" And fe.fecErrorDescripcion1 = "" Then
MsgBox(fe.fecLeerPropiedad("fecInformarCancelacionTotalFECred", "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
Page updated
Google Sites
Report abuse