diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index c2289f545..2c3753280 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -2593,7 +2593,7 @@ Public Class ClsNominas
Return retorno
End Function
#End Region
- Public Function GetCalculoSBC(CveEmpresa As Integer, Tipo As Integer, FechaCalculo As String) As Boolean
+ Public Function GetCalculoSBC(CveEmpresa As Integer, Tipo As Integer, FechaCalculo As String, Optional CveRegistroPatronal As Integer = -1) As Boolean
Dim retorno As Boolean = False
Try
DTSet = New DataSet()
@@ -2601,6 +2601,7 @@ Public Class ClsNominas
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Tipo", SqlDbType.Int).Value = Tipo
+ .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
.Add("@Fecha", SqlDbType.Date).Value = FechaCalculo
End With
SqlAdapter.Fill(DTSet)
diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb
index 6fee37f4c..8f2cafafa 100644
--- a/App_Code/LogicNominas.vb
+++ b/App_Code/LogicNominas.vb
@@ -19,7 +19,7 @@ Public Class LogicNominas
sw.Start()
End If
- Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False, CvePAC) 'CvePersonal, CvePeriodo,
+ Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False) 'CvePersonal, CvePeriodo,
If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then
If Not cfdi.Timbrado Then
Dim ObjTimbrado As New Timbrado
@@ -81,7 +81,7 @@ Public Class LogicNominas
Return Retorno
End Function
Dim hasfiniquito As Boolean
- Public Function PreTimbrar(CveNomina As Integer, UsuarioActual As Usuario, TimbreIndemnizacion As Boolean, Optional CvePAC As Integer = 4) As CFDITimbre
+ Public Function PreTimbrar(CveNomina As Integer, UsuarioActual As Usuario, TimbreIndemnizacion As Boolean) As CFDITimbre
Dim continuar As Boolean = True
hasfiniquito = False
Dim CvePersonal As Integer = -1
@@ -439,7 +439,7 @@ Public Class LogicNominas
cfdi.Comprobante.TipoComprobante = "N"
cfdi.Comprobante.TipoDocto = "Egs"
cfdi.Comprobante.MetodoPago = "PUE"
- cfdi.Comprobante.CondicionesdePago = If(CvePAC < 4, "CONTADO", "") '"" '""
+ cfdi.Comprobante.CondicionesdePago = "" '"CONTADO"
cfdi.Comprobante.FormadePago = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "", "99")
cfdi.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString() ' AHORITA SOLO SE REQUIERE ESPECIFICAR EL CODIGO POSTAL
cfdi.Comprobante.NumCuentaPago = "" 'objPersonal.BancoNumCuenta
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index ba53c315f..e37d222e5 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -71,7 +71,7 @@ Namespace Extensiones
Dim dataTable As DataTable = New DataTable()
Dim worksheet As GemBox.Spreadsheet.ExcelWorksheet = excelFile.Worksheets(0)
- For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
+ For cols = 0 To worksheet.Rows(curRow).AllocatedCells.Count - 1
If firstRowHasHeaders Then
@@ -80,12 +80,14 @@ Namespace Extensiones
Else
dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
End If
+
Else
dataTable.Columns.Add("Column " & (cols + 1))
End If
Next
- If firstRowHasHeaders Then curRow += 1
-
+ If firstRowHasHeaders Then
+ curRow = curRow + 1
+ End If
While curRow < worksheet.Rows.Count
columns = New String(cols - 1) {}
diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll
index 3656903b0..e25ec6628 100644
Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 50deab8a5..3b3e942db 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -2360,7 +2360,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim ErrorArchivo = False
Dim ErrorExcel = False
DdlPlantilla.SelectedValue = DdlPlantilla2.SelectedValue
- dt = ReadExcelFile(Ruta + FileName, True)
+ dt = ReadExcelFile(Ruta + FileName, True, 0)
If Not ErrorArchivo Then
diff --git a/GPS/PalletEtiqueta.rdlc b/GPS/PalletEtiqueta.rdlc
index bdfd61a05..0151edb60 100644
--- a/GPS/PalletEtiqueta.rdlc
+++ b/GPS/PalletEtiqueta.rdlc
@@ -1606,7 +1606,7 @@ KM12 HERMOSILLO, SONORA
5.84433in