diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index dd6e58ab7..482e3bee4 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -880,9 +880,10 @@ Public Class ClsContabilidad
Public Function AddPrePolizasDetalle(CvePrePoliza As Integer, TipoMovimiento As Boolean, Importe As Decimal, Referencia As String, CveConceptoContable As Integer, Concepto As String, FechaVencimiento As Date, IdCtaContable As Integer, IdSegmentoNegocio As Integer,
Optional CveIE As Integer = -1, Optional CveVenta As Integer = -1, Optional CveCompra As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1,
- Optional CvePersonal As Integer = -1, Optional CveMovimientoAlmacen As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveAcreedor As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCreditoDetalle As Integer = -1,
- Optional CveOC As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveVentaAmortizacion As Integer = -1, Optional CveCompraAmortizacion As Integer = -1, Optional ImporteMX As Decimal = 0, Optional ImporteME As Decimal = 0,
- Optional CvePrePolizaOriginal As Integer = -1, Optional CveIEDevolucion As Integer = -1, Optional CveCredito As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional Contabilizable As Boolean = True, Optional TipoCambio As Decimal = 1, Optional CveOCDetalle As Integer = -1, Optional TipoCambioPago As Decimal = 1, Optional PorcentajeImpuesto As Decimal = 0) As Boolean
+ Optional CvePersonal As Integer = -1, Optional CveMovimientoAlmacen As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveAcreedor As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCreditoDetalle As Integer = -1,
+ Optional CveOC As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveVentaAmortizacion As Integer = -1, Optional CveCompraAmortizacion As Integer = -1, Optional ImporteMX As Decimal = 0, Optional ImporteME As Decimal = 0,
+ Optional CvePrePolizaOriginal As Integer = -1, Optional CveIEDevolucion As Integer = -1, Optional CveCredito As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional Contabilizable As Boolean = True,
+ Optional TipoCambio As Decimal = 1, Optional CveOCDetalle As Integer = -1, Optional TipoCambioPago As Decimal = 1, Optional PorcentajeImpuesto As Decimal = 0, Optional CveNominaMovtoPermanente As Integer = -1) As Boolean
Dim Retorno As Boolean = False
If CvePrePoliza = 0 Then
@@ -935,6 +936,7 @@ Public Class ClsContabilidad
.Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva
.Add("@CveCreditoDetalle", SqlDbType.Int).Value = CveCreditoDetalle
.Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto
+ .Add("@CveNominaMovtoPermanente", SqlDbType.Money).Value = CveNominaMovtoPermanente
.Add("@CvePrePolizaDetalle", SqlDbType.Int).Direction = ParameterDirection.Output
End With
diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index ef4c518c0..d2f3cfe8d 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -2624,7 +2624,7 @@ Public Class ClsNominas
End With
Try
SqlAdapter.Fill(Data)
- retorno = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+ retorno = SqlAdapter.SelectCommand.Parameters("@CveMovtoPermanente").Value.ToString.ToEntero
Catch sqEx As SqlException
retorno = -1
OnError("Ocurrió un error al agregar los movimientos permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs
index f8131736a..bff8ee372 100644
--- a/Bancos/Devoluciones.aspx.cs
+++ b/Bancos/Devoluciones.aspx.cs
@@ -355,9 +355,10 @@ public partial class Bancos_Devoluciones : ClsPaginas
{
int valor = (TxtValor.Text.ToEntero() * TxtVecesAplicar.Text.ToEntero()).ToEntero();
int total = hdnTotal.Text.ToEntero();
- if (valor <> total)
+ if (valor != total)
{
Alert("La cantidad total debe ser igual a lo seleccionado");
+ return;
}
}
@@ -442,8 +443,9 @@ public partial class Bancos_Devoluciones : ClsPaginas
string fechaInicioAplicacion = DateTime.Now.ToString("yyyy/MM/dd");
bool estatus = true;
int CveCuenta = -1;
+ int CveMovtoPermanente = ObjNom.AddMovtoPermanente(cveConcepto, cvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta);
- if (ObjNom.AddMovtoPermanente(cveConcepto, cvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta) < 0)
+ if (CveMovtoPermanente < 0)
{
MsgError = "No se pudo insertar movimiento permanente";
}
@@ -453,7 +455,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
{
if (gvr.FCCheckBox("Chk").Checked)
{
- if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, 0, -1, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE))
+ if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, 0, -1, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE, CveNominaMovtoPermanente: CveMovtoPermanente))
{
MsgError = "No se pudo insertar concepto de Devolución";
break;
@@ -463,16 +465,13 @@ public partial class Bancos_Devoluciones : ClsPaginas
//Decimal tTotal = (TxtValor.Text.ToDecimal() * TxtVecesAplicar.Text.ToDecimal()).RoundSQL();
Decimal tTotal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal();
//GUARDA PREPOLIZAS DETALLE Via Nómina
- if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: tTotal))
+ if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: tTotal, CveNominaMovtoPermanente: CveMovtoPermanente))
{
MsgError = "No se pudo insertar concepto de Devolución";
}
}
}
- }
-
-
-
+ }
}
else
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 97cbb3328..4995b7418 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2702,6 +2702,9 @@ Partial Class Compras_Compras
TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer))
End If
+ If Not TmpDT.Columns.Contains("CveSATPSActualizado") Then
+ TmpDT.Columns.Add("CveSATPSActualizado", GetType(Integer))
+ End If
GvPS.DataSource = TmpDT
GvPS.DataBind()
diff --git a/Inventarios/InventarioFisicoDetalle.aspx b/Inventarios/InventarioFisicoDetalle.aspx
index f657197fb..7fde8403c 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx
+++ b/Inventarios/InventarioFisicoDetalle.aspx
@@ -358,8 +358,8 @@
-
-
+
+
@@ -391,9 +391,9 @@
-
-
-
+
+
+
diff --git a/Nomina/CatPeriodos.aspx b/Nomina/CatPeriodos.aspx
index bb781721c..a0c2c4956 100644
--- a/Nomina/CatPeriodos.aspx
+++ b/Nomina/CatPeriodos.aspx
@@ -189,8 +189,8 @@
+ CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvDatos" data-tableheader=".tableheader" EmptyDataText="No se encontraron Periodos Registrados"
+ GridLines="None" data-rows="0" ShowHeader="false">
@@ -364,7 +364,7 @@
-
Concepto:
+
Tipo Periodo:
@@ -436,7 +436,7 @@
- Numero:
+ Estatus:
-
diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb
index 3093d872a..eee8c3a09 100644
--- a/Ventas/ActualizarPrecios.aspx.vb
+++ b/Ventas/ActualizarPrecios.aspx.vb
@@ -177,7 +177,7 @@ Partial Class Ventas_ActualizarPrecios
End If
objPS.Dispose()
- If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+ If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
GVPrecios.Columns(2).Visible = True
End If
@@ -314,6 +314,7 @@ Partial Class Ventas_ActualizarPrecios
Select New With
{
.Codigo = row.DataKey("Codigo"),
+ .Codigo2 = row.DataKey("Codigo2"),
.PS = row.DataKey("PS"),
.Precio = row.FCTextBox("TxtPrecio").Text.ToDecimal()
}).QueryToDataTable(True)
@@ -344,6 +345,11 @@ Partial Class Ventas_ActualizarPrecios
DtExcel.Columns("Codigo").ColumnName = "Código"
DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
+ If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
+ DtExcel.Columns("Codigo2").ColumnName = "Código CPK"
+ Else
+ DtExcel.Columns.Remove("Codigo2")
+ End If
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim FileExcel As New ExcelFile()
@@ -361,33 +367,8 @@ Partial Class Ventas_ActualizarPrecios
Dim columnCount = worksheet.CalculateMaxUsedColumns()
For i = 0 To columnCount
worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
- Next
-
- 'worksheet.Cells.Style.Locked = False
- 'worksheet.Cells.Style.FormulaHidden = False
-
- 'worksheet.Columns(0).Cells.Style.Locked = True
-
- 'worksheet.Protected = True
-
- 'Dim protectionSettings = worksheet.ProtectionSettings
- 'protectionSettings.AllowDeletingColumns = False
- 'protectionSettings.AllowDeletingRows = True
- 'protectionSettings.AllowEditingObjects = True
- 'protectionSettings.AllowEditingScenarios = True
- 'protectionSettings.AllowFormattingCells = True
- 'protectionSettings.AllowFormattingColumns = True
- 'protectionSettings.AllowFormattingRows = True
- 'protectionSettings.AllowInsertingColumns = False
- 'protectionSettings.AllowInsertingRows = True
- 'protectionSettings.AllowSelectingLockedCells = True
- 'protectionSettings.AllowSelectingUnlockedCells = True
- 'protectionSettings.AllowSelectingUnlockedCells = True
- 'protectionSettings.AllowSorting = True
- 'protectionSettings.AllowUsingAutoFilter = True
- 'protectionSettings.AllowUsingPivotTableReports = True
- 'protectionSettings.SetPassword(ModExtensiones.IMEI)
-
+ Next
+
FileExcel.Save(Response, "Precios.xlsx", SaveOptions.XlsxDefault)
End Sub
@@ -420,19 +401,29 @@ Partial Class Ventas_ActualizarPrecios
Exit Sub
End If
If Not dt.Columns(0).ColumnName = "Código" Then
- Alert("El nombre de la tercera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
+ Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(1).ColumnName = "Producto / Servicio" Then
- Alert("El nombre de la cuarta columna debe ser 'Producto / Servicio'. Favor de corregirlo", TipoMensaje.MsgError)
+ Alert("El nombre de la segunda columna debe ser 'Producto / Servicio'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
- End If
- If Not dt.Columns(2).ColumnName = "Precio" Then
- Alert("El nombre de la sexta columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
- Exit Sub
- End If
-
-
+ End If
+
+ If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
+ If Not dt.Columns(3).ColumnName = "Precio" Then
+ Alert("El nombre de la cuarta columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ Else
+ If Not dt.Columns(2).ColumnName = "Precio" Then
+ Alert("El nombre de la tercera columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ End If
+
+
+
+
dt.TableName = "Datos"
Dim ProductosNoCargados As New StringBuilder()
Dim RowsCargados As Integer = 0