WSFEC informar a agente de pago 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"
bResultado = Fe.fecCargarPropiedad("LIMPIAR", "", 0, 0)
bResultado = bResultado And Fe.fecCargarPropiedad("idctacte.codctacte", "1234", 0, 0)
bResultado = bResultado And Fe.fecCargarPropiedad("ctacomitente.cuentaDepositante", "numero", 0, 0)
bResultado = bResultado And Fe.fecCargarPropiedad("ctacomitente.denominacion", "nombre", 0, 0)
bResultado = bResultado And gFe.fecCargarPropiedad("ctacomitente.subcuentaComitente", "texto", 0, 0)
bresultado = fe.fecinformarFacturaAgtDptoCltv()
If fe.UltimoMensajeError = "" And fe.fecErrorDescripcion1 = "" Then
MsgBox(fe.fecLeerPropiedad("fecinformarFacturaAgtDptoCltv", "resultado", "", 0, 0))
Else
MsgBox("error leer" + fe.UltimoMensajeError)
MsgBox("error del servidor " + fe.fecErrorDescripcion1)
End If
else
MsgBox("fallo acceso " + fe.UltimoMensajeError)
end if
else
MsgBox("fallo iniciar " + fe.UltimoMensajeError)
end if