From 7d749d749359ea7ac7f4532b9bf96e4dad43fa31 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 1 Aug 2021 16:48:10 -0700 Subject: [PATCH 1/7] -- correcion de textos --- Nomina/CatPeriodos.aspx | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Nomina/CatPeriodos.aspx b/Nomina/CatPeriodos.aspx index bb24d979f..c050b0b4b 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:
From 9ecb44f7da6500b85eecbcf9a350cf6cc880b57f Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 2 Aug 2021 22:30:22 -0700 Subject: [PATCH 2/7] parametro de addmovto permanente --- App_Code/ClsNominas.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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()) From 886f27ed0cc3f087c1f13cdc83dafe63b7cf5773 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Aug 2021 07:03:59 -0700 Subject: [PATCH 3/7] columna de cpk, para empresa acumuladores --- Ventas/ActualizarPrecios.aspx | 2 +- Ventas/ActualizarPrecios.aspx.vb | 65 ++++++++++++++------------------ 2 files changed, 29 insertions(+), 38 deletions(-) diff --git a/Ventas/ActualizarPrecios.aspx b/Ventas/ActualizarPrecios.aspx index 20890b2fc..c3a985ea4 100644 --- a/Ventas/ActualizarPrecios.aspx +++ b/Ventas/ActualizarPrecios.aspx @@ -153,7 +153,7 @@ " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
- 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 From 6d297f80f7c17b999651f66d53e5874c9da2bf36 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Aug 2021 07:04:31 -0700 Subject: [PATCH 4/7] - parametro prepolizasdetalle, columna de nominamovtopermanente --- App_Code/ClsContabilidad.vb | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 From e0f37e3aaf02875849bd1f1ce54b4ef1b0c79a72 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Aug 2021 07:05:04 -0700 Subject: [PATCH 5/7] =?UTF-8?q?descuento=20via=20n=C3=B3mina?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/Devoluciones.aspx.cs | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) 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 From 5eaf92aeed38e7d70706ebe1a97c73bfb9c0b13d Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Aug 2021 07:33:40 -0700 Subject: [PATCH 6/7] columnas --- Inventarios/InventarioFisicoDetalle.aspx | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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 @@ - - - + + + From b94e34653d1abd31c25786193a9ab0e3d98f27cb Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 3 Aug 2021 11:25:56 -0700 Subject: [PATCH 7/7] Se agrega columna CveSATPSActualizado al cargar los detalles de la compra --- Compras/Compras.aspx.vb | 3 +++ 1 file changed, 3 insertions(+) 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()