codigo de cfdi para cancelacion facturas

[acse]

Hola a todos

Me podrian ayudar no se que esta mal en el codigo ya que me manda una ventana de: indice fuera de los limites de matriz, y no se por que..utilizo el case para mandar llamar la funcion en la cual me manda la ventana de error lo que esta parte s = ms.cancelaFactura(sSerieFolio(0), sSerieFolio(1)) de la funcion cancelar factura.

Código PHP:

  Select Case t(0)("letra") 
            
            Case "CA" 
 
                cancelaFactura(t(0)("letra"), "PASTELERIA", "CONTRPUNTA", cEmpresa, nNumero) 
 
            Case "CB" 
 
                cancelaFactura(t(0)("letra"), "MISCELANEOS", "CONTRPUNTA", cEmpresa, nNumero) 
 
            Case "CC" 
 
                cancelaFactura(t(0)("letra"), "CAFEENGRANO", "CONTRPUNTA", cEmpresa, nNumero) 
 
        End Select  
   

Código PHP:

  Public Sub cancelaFactura(ByVal letra As String, ByVal usuario As String, ByVal sucursal As String, ByVal cEmpresa As String, ByVal nNumero As Integer) 
        Dim cUsuario As String 
        Dim cSucursal As String 
        Dim cLetra As String 
 
        Dim ms As MySuite.MySuiteCFD 
        Dim m_con As New SqlConnection 
        Dim m_com As SqlCommand 
 
        cUsuario = usuario 
        cSucursal = sucursal 
        cLetra = letra 
 
        cLetra = cLetra.Substring(0) 
        cLetra = cLetra.Replace(".XML", "") 
 
        Dim sSerieFolio() = cLetra.Split("-") 
 
        If sSerieFolio.Length = 1 Then 
            'Exit Sub 
        End If 
 
        Dim s As String 
 
        ms = New MySuite.MySuiteCFD("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx", "xxxxx", "xxxxxxxxxxxxx", cUsuario, cSucursal) 
       s = ms.cancelaFactura(sSerieFolio(0), sSerieFolio(1)) 
        m_con = New SqlConnection 
        m_con.ConnectionString = Me.conn.ConnectionString 
        m_con.Open() 
 
        m_com = m_con.CreateCommand() 
        m_com.CommandText = "UPDATE c_albven SET libre_2 = @mensaje WHERE empresa = '" & cEmpresa & "' AND numero = " & nNumero & " AND letra = '" & cLetra & "" 
        m_com.Parameters.AddWithValue("mensaje", s) 
 
        m_com.ExecuteNonQuery() 
        m_con.Close() 
 
    End Sub  
   

[HaverRamirez]

verifica el split, posiblemente no existan los objetos 0 y 1 dentro del array

[acse]

Perdon pero como podria verifiacr eso la verdad es qeu no tengo mucha experiencia en la programacion.

Por otro lado si modifico esta linea cLetra = cLetra.Substring(0) y le pongo cLetra = cLetra.Substring(3) Me manda este mensaje startIndex no puede ser mayor que la longitud de la cadena. Nombre del parámetro: startIndex

Y si lo cambio por cLetra = cLetra.Substring(0, 3) me manda esto otro El índice y la longitud deben hacer referencia a una ubicación en la cadena. Nombre del parámetro: length

[HaverRamirez]

Verifica si el string contiene el "-" si lo tiene que lo parta, si lo parte, verifica que los valores no sean vacios,

Código vb:

dim contiene as boolean
contiene = cletra.contains("-")
if contiene = true then
Dim sSerieFolio() = cLetra.Split("-")
if not string.isnullorempty(sSerieFolio(0)) andalso not string.isnullorempty(sSerieFolio(1))
 s = ms.cancelaFactura(sSerieFolio(0), sSerieFolio(1)) 
end if
end if
 

adecualo a tu codigo

[acse]

Lo agrege al codigo de esta forma no se si lo hice bien

Código PHP:

   Public Sub cancelaFactura(ByVal letra As String, ByVal usuario As String, ByVal sucursal As String, ByVal cEmpresa As String, ByVal nNumero As Integer) 
        Dim cUsuario As String 
        Dim cSucursal As String 
        Dim cLetra As String 
 
        Dim ms As MySuite.MySuiteCFD 
        Dim m_con As New SqlConnection 
        Dim m_com As SqlCommand 
 
        cUsuario = usuario 
        cSucursal = sucursal 
        cLetra = letra 
 
        cLetra = cLetra.Substring(0) 
        cLetra = cLetra.Replace(".XML", "") 
 
        ' Dim sSerieFolio() = cLetra.Split("-") 
 
        ' If sSerieFolio.Length = 1 Then 
        'Exit Sub 
        ' End If 
 
        Dim s As String 
 
 
        Dim contiene As Boolean 
        contiene = cLetra.Contains("-") 
        If contiene = True Then 
            Dim sSerieFolio() = cLetra.Split("-") 
            If Not String.IsNullOrEmpty(sSerieFolio(0)) AndAlso Not String.IsNullOrEmpty(sSerieFolio(1)) Then 
 
                ms = New MySuite.MySuiteCFD("f7941c77-eb0a-4427-bec8-8e625e9cf27b", "MX", "CMP101004CV6", cUsuario, cSucursal) 
 
                s = ms.cancelaFactura(sSerieFolio(0), sSerieFolio(1)) 
 
 
 
 
                ' s = ms.cancelaFactura(sSerieFolio(0), sSerieFolio(1)) 
 
                m_con = New SqlConnection 
                m_con.ConnectionString = Me.conn.ConnectionString 
                m_con.Open() 
 
                m_com = m_con.CreateCommand() 
                m_com.CommandText = "UPDATE c_albven SET libre_2 = @mensaje WHERE empresa = '" & cEmpresa & "' AND numero = " & nNumero & " AND letra = '" & cLetra & "" 
                m_com.Parameters.AddWithValue("mensaje", s) 
 
                m_com.ExecuteNonQuery() 
                m_con.Close() 
            End If 
        End If 
    End Sub  
   

[HaverRamirez]

y te funciona?

[acse]

Pues no hace nada, Y tampoco me manda mensaje de nada. y ni poniendo los break point.

Código PHP:

  Dim contiene As Boolean  
        contiene = cLetra.Contains("-")  
        If contiene = True Then  
            Dim sSerieFolio() = cLetra.Split("-")  
            If Not String.IsNullOrEmpty(sSerieFolio(0)) AndAlso Not String.IsNullOrEmpty(sSerieFolio(1)) Then  
 
                ms = New MySuite.MySuiteCFD("f7941c77-eb0a-4427-bec8-8e625e9cf27b", "MX", "CMP101004CV6", cUsuario, cSucursal)  
 
                s = ms.cancelaFactura(sSerieFolio(0), sSerieFolio(1))  
   

[HaverRamirez]

pues ponle un messageBox("ALGO") para saber por donde va en tal caso, pero si ya no dio error me suena a que el split no lleva el "-"

[acse]

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  
   

[HaverRamirez]

No entiendo, tu sabes que hace tu aplicación?. en si me parece que era solo validar que el split devolviera dos valores...

[acse]

Hola, lapliacion es para la facturacion electronica, ahora bien es verdad que mi problema es el split pero agrege la parte de la clase para un mayor vision de como fuciona lo de la cancelacion electronica.

Regresando al tema del split, no me muestra ningun mensaje pero si llega a esa parte en la que me ayudaste a del dim y el if