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