Hola al poner los break point detengo pauso ´para ver que es lo que contien el dim de contine y me dice que es falso y al llegar al if me dice que es falso y empieza hacer un ciclo en esa parte.
Ahoras bien dentro de esta parte
Código PHP:
s = ms.cancelaFactura(sSerieFolio(0), sSerieFolio(1))
se manda llamar a una funcion a lojada en una clase.
la cual es esta
Código PHP:
Public Function cancelaFactura(ByVal Serie As String, ByVal Folio As Long) As String
Dim msws As New MySuiteWS.FactWSFront
Dim transactionTAg = msws.RequestTransaction(m_Requestor, _
"CANCEL_XML", m_CodigoDelPais, m_EntityRFC, _
m_Requestor, _
Me.m_CodigoDelPais & Me.m_EntityRFC & Me.m_UserName, _
Serie, _
Folio.ToString(), "")
If transactionTAg.Response.Result = True Then
Return "Ok." & transactionTAg.Response.Identifier.Batch & " " & transactionTAg.Response.Identifier.Serial
Else
Return transactionTAg.Response.Hint & " " & transactionTAg.Response.Data
End If
End Function
Public Function obtenerDocumento(ByVal Serie As String, _
ByVal Folio As Long, _
ByVal ArchivoPDF As String, _
ByVal ArchivoXML As String) As String
Dim transactionTAg = msws.RequestTransaction(m_Requestor, _
"GET_DOCUMENT", m_CodigoDelPais, m_EntityRFC, _
m_Requestor, _
Me.m_CodigoDelPais & Me.m_EntityRFC & Me.m_UserName, Serie, _
Folio.ToString(), "XML PDF")
Dim sMensaje As String
If transactionTAg.Response.Result = True Then
sMensaje = Me.salvaArchivo(transactionTAg.ResponseData.ResponseData3, ArchivoPDF)
If sMensaje <> "Ok." Then
Return sMensaje
End If
sMensaje = Me.salvaArchivo(transactionTAg.ResponseData.ResponseData1, ArchivoXML)
If sMensaje <> "Ok." Then
Return sMensaje
End If
Return "Ok." & transactionTAg.Response.Identifier.Batch & " " & transactionTAg.Response.Identifier.Serial
Else
Return transactionTAg.Response.Hint & " " & transactionTAg.Response.Data
End If
End Function