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