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