From 5a93e86aeb127f1b2bf67a90ad6304aaee57b990 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 10 Dec 2024 08:08:00 -0700 Subject: [PATCH 01/19] z --- App_Code/ClsNominas.vb | 23 ++++ Nomina/Aguinaldo.aspx | 141 +++++++++++++++++------- Nomina/Aguinaldo.aspx.cs | 189 ++++++++++++++++++++++++++++----- Nomina/CalculoISRAnual.aspx | 58 +++++++--- Nomina/CalculoISRAnual.aspx.cs | 5 + 5 files changed, 335 insertions(+), 81 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index ea1675b67..d76b4e8bc 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -611,6 +611,29 @@ Public Class ClsNominas End Try Return retorno End Function + + Public Function GuardarAguinaldo(CveEmpresa As Integer, CveUsuario As Integer, registros As String, EJercicio As Integer) As Boolean + Dim retorno As Boolean = False + + Try + DataAdapter("PA_Nom_GuardarAguinaldo", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Decimal).Value = CveUsuario + .Add("@registros", SqlDbType.Xml).Value = registros + .Add("@EJercicio", SqlDbType.Xml).Value = EJercicio + End With + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al guardar Aguinaldo.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al guardar Aguinaldo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function RegistraProvision(CvePeriodo As Int32, CveUsuario As Int32, CveEmpresa As Int32) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Nom_RegistraProvision", CommandType.StoredProcedure) diff --git a/Nomina/Aguinaldo.aspx b/Nomina/Aguinaldo.aspx index 590492fe9..294a3da55 100644 --- a/Nomina/Aguinaldo.aspx +++ b/Nomina/Aguinaldo.aspx @@ -1,4 +1,5 @@ <%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Aguinaldo.aspx.cs" Inherits="Nomina_Aguinaldo" %> + <%@ Import Namespace="Extensiones" %> @@ -8,10 +9,12 @@ .dSala { width: 90px; } + .dSalaz input { width: 50px; text-align: right; } + .dlab { width: 50px; } @@ -38,6 +41,21 @@
  • Descargar excel
    • + + + +
  • + Autorizar + + +
    • +
  • + Cargar Excel + + +
    • +     +     @@ -71,7 +89,8 @@
    - + +
    @@ -138,8 +157,8 @@
    - - + <%----%> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
    @@ -148,13 +167,14 @@ - - + + - + - Fecha
    ingreso + Fecha
    + ingreso     @@ -163,7 +183,8 @@     - Salario
    diario + Salario
    + diario     @@ -173,7 +194,8 @@     - Salario
    Aguinaldo + Salario
    + Aguinaldo     @@ -181,27 +203,33 @@     - + - Días
    laborados + Días +
    + laborados     - + - Días
    Faltados + Días +
    + Faltados     - + - Días
    Incapacidad + Días +
    + Incapacidad     @@ -210,16 +238,20 @@     - Días
    base + Días +
    + base     - + - Días
    pago + Días +
    + pago     @@ -227,9 +259,9 @@     - + - Aguinaldo + Aguinaldo @@ -239,75 +271,79 @@ - + - + - Aguinaldo
    Por Pagar + Aguinaldo +
    + Por Pagar     - <%-- + <%-- --%> - + - Aguinaldo
    gravado + Aguinaldo +
    + gravado     - + - + - + - + - + - - + + - + - + - + @@ -321,7 +357,7 @@ - + @@ -356,7 +392,6 @@ - + + diff --git a/Nomina/Aguinaldo.aspx.cs b/Nomina/Aguinaldo.aspx.cs index fee5884ef..9d9486cf6 100644 --- a/Nomina/Aguinaldo.aspx.cs +++ b/Nomina/Aguinaldo.aspx.cs @@ -8,7 +8,9 @@ using System.Text; using System.Web; using System.Web.UI; using System.Web.UI.WebControls; +using System.Xml.Linq; using Extensiones; +using static Stimulsoft.Report.StiOptions.Export; public partial class Nomina_Aguinaldo : ClsPaginas { @@ -28,14 +30,25 @@ public partial class Nomina_Aguinaldo : ClsPaginas { get { - return ViewState["tipocalculo"].ToString().ToEntero(); + return ViewState["tipocalculo"].ToString().ToEntero(); } set { ViewState["tipocalculo"] = value; } } - + private int ejercicioActual + { + get + { + return ViewState["ejercicioActual"].ToString().ToEntero(); + } + set + { + ViewState["ejercicioActual"] = value; + } + } + #endregion protected void Page_Load(object sender, EventArgs e) { @@ -66,7 +79,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas LtlUma.Text = ""; int cveempresa = 1; if (UsuarioActual != null) { cveempresa = UsuarioActual.CveEmpresa; } - + using (ClsNominas onom = new ClsNominas()) { if (onom.UMAFechaGet(cveempresa, $"{NowADS():yyyy/MM/dd}") && onom.DtResultados.Rows.Count > 0) @@ -84,6 +97,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas int ejercicio = DdlEjercicios.SelectedValue.ToEntero(); int CveTipoPeriodo = DdlTipoPeriodo.SelectedValue.ToEntero(); int CvePeriodo = -1; + ejercicioActual = ejercicio; using (ClsNominas objnom = new ClsNominas()) { @@ -98,8 +112,12 @@ public partial class Nomina_Aguinaldo : ClsPaginas GVCalcularAguinaldo.DataBind(); LnkAutorizarModal.Visible = true; + BtnGuardar.Visible = true; + BtnLimpiar.Visible = true; + LnkCargarExcel.Visible = true; BtnRecalcular_Click(sender, null); upDatosPA_N.Update(); + Upacciones.Update(); } private void CargaPeriodos() { @@ -266,7 +284,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas if (CveNomina > 0) { - if (continuar && !objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario, false, 1, 1, 1,false)) + if (continuar && !objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario, false, 1, 1, 1, false)) { continuar = false; } @@ -337,6 +355,8 @@ public partial class Nomina_Aguinaldo : ClsPaginas { int CveNomina = e.Row.DBCampo("CveNomina").ToString().ToEntero(); int CvePersonal = e.Row.DBCampo("CvePersonal").ToString().ToEntero(); + e.Row.FCTextBox("TxtAjuste").Text = e.Row.DBCampo("Ajuste").ToString(); + e.Row.FCTextBox("TxtDescuento").Text = e.Row.DBCampo("descuento").ToString(); if (CveNomina > 0) { e.Row.CssClass = "success"; @@ -361,7 +381,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas protected void BtnRecalcular_Click(object sender, EventArgs e) { tipocalculo = ddltipoCalculo.SelectedValue.ToEntero(); - GVCalcularAguinaldo.Columns[13].Visible = (tipocalculo ==1 || tipocalculo == 3); + GVCalcularAguinaldo.Columns[13].Visible = (tipocalculo == 1 || tipocalculo == 3); GVCalcularAguinaldo.Columns[14].Visible = (tipocalculo == 1 || tipocalculo == 3); GVCalcularAguinaldo.Columns[15].Visible = (tipocalculo == 1 || tipocalculo == 3); GVCalcularAguinaldo.Columns[16].Visible = (tipocalculo == 1 || tipocalculo == 3); @@ -392,7 +412,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas decimal Aguinaldoapagar = 0; decimal descuento = 0; - decimal ajuste =0; + decimal ajuste = 0; decimal aguinaldoSubproyeto = 0; decimal aguinaldogravadoSubproyeto = 0; @@ -409,9 +429,9 @@ public partial class Nomina_Aguinaldo : ClsPaginas decimal ISRTOTAL = 0; decimal AguinaldoapagarTotal = 0; - decimal totalgravado= 0; + decimal totalgravado = 0; decimal isrtotalgravado = 0; - decimal isrmensual= 0; + decimal isrmensual = 0; decimal lisr = 0; GridViewRow gvrowTotal = null; @@ -442,7 +462,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas diasaguipago = gvrow.FCTextBox("TxtdiasAguinaldoprop").Text.ToDecimal();// (diaslaborados / diasanio) * diasaguinaldo; salariomensual = salariodiario * 30; - aguinaldo = (diasaguipago * salarioAguinaldo)+ ajuste; + aguinaldo = (diasaguipago * salarioAguinaldo) + ajuste; /*if (gvrow.FCTextBox("TxtAguinaldoExento").Text.Length > 0) { aguinaldoexcento = (aguinaldoExcentoreg > aguinaldo ? aguinaldo : aguinaldoExcentoreg); @@ -456,7 +476,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas if (aguinaldogravado > 0) { - totalgravado = aguinaldogravado + salariomensual; + totalgravado = aguinaldogravado + salariomensual; if (objbase.CalculosISRAguinaldo(totalgravado, salariomensual, diasmes, DdlEjercicios.SelectedValue.ToEntero())) { DataRow drow = objbase.DtResultados.Rows[0]; @@ -464,11 +484,11 @@ public partial class Nomina_Aguinaldo : ClsPaginas isrmensual = drow["isrFraccionIII_1"].ToString().ToDecimal(); } else { break; } - lisr = isrtotalgravado- isrmensual; + lisr = isrtotalgravado - isrmensual; + + + - - - @@ -478,7 +498,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas //str.AppendFormat("SELECT dbo.Fnc_NomValues(40, 0, {2}, -1, {0}, {1}, {1}) isrFraccionII_2,", FraccionII_1, diasmes, DdlEjercicios.SelectedValue); //str.AppendFormat(" dbo.Fnc_NomValues(40, 0, {2}, -1, {0}, {1}, {1}) isrFraccionIII_1", salariomensual, diasmes, DdlEjercicios.SelectedValue); //if (objbase.runQuerystr(str.ToString())) - if(objbase.CalculosISRAguinaldo(FraccionII_1, salariomensual, diasmes, DdlEjercicios.SelectedValue.ToEntero())) + if (objbase.CalculosISRAguinaldo(FraccionII_1, salariomensual, diasmes, DdlEjercicios.SelectedValue.ToEntero())) { DataRow drow = objbase.DtResultados.Rows[0]; FraccionII_2 = drow["isrFraccionII_2"].ToString().ToDecimal(); @@ -494,9 +514,9 @@ public partial class Nomina_Aguinaldo : ClsPaginas else { - totalgravado = 0; - isrtotalgravado = 0; - isrmensual = 0; + totalgravado = 0; + isrtotalgravado = 0; + isrmensual = 0; lisr = 0; @@ -516,7 +536,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas { FraccionIV = lisr; } - if (tipocalculo == 3 && FraccionIV > lisr) + if (tipocalculo == 3 && FraccionIV > lisr) { FraccionIV = lisr; } @@ -633,7 +653,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas libro.Cell(fila, cxc++).Value = "Días base"; libro.Cell(fila, cxc++).Value = "Días aguinaldo"; libro.Cell(fila, cxc++).Value = "Ajuste";//TxtAjuste - libro.Cell(fila, cxc++).Value = "Aguinaldo completo"; + libro.Cell(fila, cxc++).Value = "Aguinaldo completo"; libro.Cell(fila, cxc++).Value = "Aguinaldo gravado"; libro.Cell(fila, cxc++).Value = "Aguinaldo exento"; libro.Cell(fila, cxc++).Value = "Fraccion I"; //lblFraccion1 @@ -641,7 +661,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas libro.Cell(fila, cxc++).Value = "Fraccion III"; //lblFraccion3 libro.Cell(fila, cxc++).Value = "Fraccion IV"; //lblFraccion4 libro.Cell(fila, cxc++).Value = "I.S.R."; - libro.Cell(fila, cxc++).Value = "Descuento"; //TxtDescuento + libro.Cell(fila, cxc++).Value = "Descuento"; //TxtDescuento libro.Cell(fila, cxc++).Value = "Aguinaldo por pagar"; libro.Range(fila, 1, fila, 20).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; @@ -666,7 +686,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas } cxc = 1; - libro.Cell(fila, cxc++).Value = string.Format("'{0}",gvrow.DataKey("Codigo")); + libro.Cell(fila, cxc++).Value = string.Format("'{0}", gvrow.DataKey("Codigo")); libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblnombreCompleto").Text; libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblfechaingreso").Text; libro.Cell(fila, cxc++).Value = gvrow.FCTextBox("TxtsueldoDiario").Text.ToDecimal(); @@ -677,7 +697,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas libro.Cell(fila, cxc++).Value = gvrow.FCLabel("TxtdiasAguinaldo").Text.ToDecimal(); libro.Cell(fila, cxc++).Value = gvrow.FCTextBox("TxtdiasAguinaldoprop").Text.ToDecimal(); libro.Cell(fila, cxc++).Value = gvrow.FCTextBox("TxtAjuste").Text.ToDecimal(); - + libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblsueldoAguinaldo").Text.ToDecimal(); libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal(); libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblsueldoAguinaldo").Text.ToDecimal() - gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal(); @@ -695,7 +715,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas libro.Range(filatitulo, 1, fila, 18).Columns(); libro.Range(filatitulo + 1, 4, fila + 1, 20).DataType = ClosedXML.Excel.XLDataType.Number; - libro.Range(filatitulo + 1, 4, fila + 1,5).Style.NumberFormat.Format = "$###,###,###,##0.00"; + libro.Range(filatitulo + 1, 4, fila + 1, 5).Style.NumberFormat.Format = "$###,###,###,##0.00"; libro.Range(filatitulo + 1, 11, fila + 1, 20).Style.NumberFormat.Format = "$###,###,###,##0.00"; libro.ColumnsUsed().AdjustToContents(); @@ -718,4 +738,125 @@ public partial class Nomina_Aguinaldo : ClsPaginas Response.BinaryWrite(memoryStream.ToArray()); Response.End(); } + + protected void BtnGuardar_Click(object sender, EventArgs e) + { + + System.Xml.Linq.XDocument xmlregistros = null; + + xmlregistros = new System.Xml.Linq.XDocument( + new System.Xml.Linq.XElement("registros", + GVCalcularAguinaldo.Rows.Cast().Where(row => + { + // Obtener el valor de CvePersonal (por DataKeys o celda) + if (int.TryParse(GVCalcularAguinaldo.DataKeys[row.RowIndex]["CvePersonal"]?.ToString(), out var cvePersonal)) + { + return cvePersonal > 0; + } + return false; + }) + .Select(row => + { + // Obtener valores directamente desde las celdas o controles + var TxtdiasAguinaldoprop = ((TextBox)row.FindControl("TxtdiasAguinaldoprop"))?.Text; + var txtAjuste = ((TextBox)row.FindControl("TxtAjuste"))?.Text; + var txtDescuento = ((TextBox)row.FindControl("TxtDescuento"))?.Text; + + return new XElement("registro", + new XElement("EJercicio", ejercicioActual), + new XElement("CveSubProyecto", GVCalcularAguinaldo.DataKeys[row.RowIndex]["CveSubProyecto"]), + new XElement("CvePersonal", GVCalcularAguinaldo.DataKeys[row.RowIndex]["CvePersonal"]), + new XElement("diasAguinaldo", decimal.TryParse(TxtdiasAguinaldoprop, out var diasPropAgui) ? diasPropAgui : 0), + new XElement("Ajuste", decimal.TryParse(txtAjuste, out var ajuste) ? ajuste : 0), + new XElement("descuento", decimal.TryParse(txtDescuento, out var descuento) ? descuento : 0) + ); + } + ))); + string xml = xmlregistros.ToString(); + using (ClsNominas objnom = new ClsNominas()) + { + objnom.GuardarAguinaldo(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, xml, ejercicioActual); + } + BtnCalcular_Click(null, null); + + } + + protected void BtnLimpiar_Click(object sender, EventArgs e) + { + + string xml = ""; + using (ClsNominas objnom = new ClsNominas()) + { + objnom.GuardarAguinaldo(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, xml, ejercicioActual); + } + BtnCalcular_Click(null, null); + } + + protected void LnkCargarExcel_Click(object sender, EventArgs e) + { + RegistraScript("$('#Modalxls').modal();"); + + } + + protected void LnkProcesarXls_Click(object sender, EventArgs e) + { + + List Filesgral = TxtFileaguinaldo.getfiles().Archivos; + + bool continuar = Filesgral.Count > 0; + string stringError = ""; + Archivo fileItem = continuar ? Filesgral[0] : null; + if (continuar) + { + string FileExtension = fileItem.Extension.ToUpper(); + if (FileExtension == "XLS" | FileExtension == "XLSX" | FileExtension == "CSV") + { + } + else + { + continuar = false; + stringError = "No se inserto un archivo de tipo Excel"; + } + + } + else + { + stringError = "favor de ingresar el archivo y esperar a que cargue"; + + } + DataTable dtxz = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, true); + + + // Filtrar filas con longitud de "Concepto" > 0 + DataRow[] filteredRows = dtxz.Select("LEN(Código) > 0"); + + // Crear nuevo DataTable con las filas filtradas + DataTable filteredTable = dtxz.Clone(); // Clona la estructura del DataTable original + foreach (DataRow row in filteredRows) + { + filteredTable.ImportRow(row); + } + + foreach (GridViewRow gvrow in GVCalcularAguinaldo.Rows) + { + string Codigo = gvrow.DataKey("Codigo"); + string TxtdiasAguinaldoprop = ""; + string TxtAjuste = ""; + string TxtDescuento = ""; + DataRow drow = filteredTable.FiltroPrimero(string.Format(" Código='{0}'", Codigo)); + if (drow != null) + { + TxtdiasAguinaldoprop = drow["Días aguinaldo"].ToString(); + TxtAjuste = drow["Ajuste"].ToString(); + TxtDescuento = drow["Descuento"].ToString(); + ((TextBox)gvrow.FindControl("TxtdiasAguinaldoprop")).Text = TxtdiasAguinaldoprop; + ((TextBox)gvrow.FindControl("TxtAjuste")).Text = TxtAjuste; + ((TextBox)gvrow.FindControl("TxtDescuento")).Text = TxtDescuento; + } + } + + BtnRecalcular_Click(sender, null); + RegistraScript("$('#Modalxls').modal('hide');"); + upDatosPA_N.Update(); + } } diff --git a/Nomina/CalculoISRAnual.aspx b/Nomina/CalculoISRAnual.aspx index 85ad28de4..a9c40cd89 100644 --- a/Nomina/CalculoISRAnual.aspx +++ b/Nomina/CalculoISRAnual.aspx @@ -7,10 +7,11 @@ .GVCalculoISRAnual tr td:nth-child(n+6) { text-align: right; } - + .GVCalculoISRAnual tr td:nth-child(5) { white-space: nowrap; } + .GVCalculoISRAnual tr td:nth-child(6) { white-space: nowrap; } @@ -36,7 +37,7 @@
  • Descargar XLS
    • - +
  •  Constancia 37
    • @@ -134,25 +135,31 @@     - + - Ingresos
    totales     + Ingresos +
    + totales         - + - Base
    gravada     + Base +
    + gravada         - + - Base
    exenta     + Base +
    + exenta         @@ -160,7 +167,9 @@     - ISR
    retenido     + ISR +
    + retenido         @@ -174,9 +183,10 @@     - + - Subs.
    correspondiente     + Subs.
    + correspondiente         @@ -184,7 +194,8 @@     - Impuesto
    anual     + Impuesto
    + anual         @@ -251,18 +262,33 @@
    +
    +
    +
    + + + + + +
    +
    +
    +
    + + +
    +
    +
    -
    - - -
    + + <%----%>
    diff --git a/Nomina/CalculoISRAnual.aspx.cs b/Nomina/CalculoISRAnual.aspx.cs index 82dd5049d..6db4daa63 100644 --- a/Nomina/CalculoISRAnual.aspx.cs +++ b/Nomina/CalculoISRAnual.aspx.cs @@ -345,4 +345,9 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas Response.End(); } + + protected void ddldivision_SelectedIndexChanged(object sender, EventArgs e) + { + divnumeropagos.Visible=(ddldivision.SelectedValue == "1"); + } } \ No newline at end of file From a72ed291f9f285fbd529e7e91c04ccfd246e5576 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 19 Dec 2024 14:43:59 -0700 Subject: [PATCH 02/19] --- App_Code/ClsRH.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index bd72d8ceb..7617ad869 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2300,7 +2300,7 @@ Public Class ClsRH .Add("@SalarioDiarioSS", SqlDbType.Money).Value = SalarioDiarioSS .Add("@CalcularSDI", SqlDbType.Bit).Value = CalcularSDI .Add("@ActualizaSalarioV", SqlDbType.Bit).Value = ActualizaSalarioV - .Add("@OrigenU", SqlDbType.Bit).Value = OrigenU + .Add("@OrigenU", SqlDbType.VarChar).Value = OrigenU End With Try SqlAdapter.Fill(Data) From 2acb10d97fff212a41ab2704d0dc5e51a61a8466 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 24 Dec 2024 11:53:40 -0700 Subject: [PATCH 03/19] =?UTF-8?q?--=20cambio=20de=20moneda=20que=20afecte?= =?UTF-8?q?=20la=20remisi=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Transportes/RepContratoDetalle.aspx | 2 +- Transportes/RepContratoDetalle.aspx.vb | 6 ++++++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index 2ca7e6e39..fe65b91fc 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -387,7 +387,7 @@
    - Date: Fri, 27 Dec 2024 12:42:03 -0700 Subject: [PATCH 04/19] --- mostrar todas las remisiones pendients --- Ventas/PVCobranza.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 2bfd8e851..4598cfe5f 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -298,8 +298,8 @@ Partial Class Ventas_PVCobranza Dim dtt As DataTable = ObjMovtos.DtResultados.FiltraParametros($"CveVenta > 0 AND (CveUsuarioCobranza IS NULL OR CveUsuarioCobranza = {UsuarioActual.CveUsuario})") 'si hay ya asignado, solo la mostrará - Dim Dtta As DataTable = dtt.FiltraParametros($"CveUsuarioCobranza = {UsuarioActual.CveUsuario}") - If Dtta IsNot Nothing AndAlso Dtta.Rows.Count > 0 Then dtt = Dtta + 'Dim Dtta As DataTable = dtt.FiltraParametros($"CveUsuarioCobranza = {UsuarioActual.CveUsuario}") + 'If Dtta IsNot Nothing AndAlso Dtta.Rows.Count > 0 Then dtt = Dtta GvDatos.DataSource = dtt End If From d02eb38f0488bb4bbaaba9790d05a5afbda83f13 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Dec 2024 14:05:46 -0700 Subject: [PATCH 05/19] -- mejoras --- Compras/Compras.aspx | 15 +++++++-------- Compras/Compras.aspx.vb | 6 ------ 2 files changed, 7 insertions(+), 14 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 49d571215..bf8e3a079 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -12,7 +12,7 @@
  • -
    • g +
  • Agregar Concepto
    • @@ -1311,7 +1311,7 @@ ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall mysmallbtn" Visible="false"> <%--0--%> - + Aplica
    Inventario
    @@ -1322,7 +1322,7 @@     <%--1--%> - +
    @@ -1330,11 +1330,10 @@     - +     <%--2--%> - + Unidad @@ -1343,9 +1342,9 @@ <%--3--%> - + <%--4--%> - + <%--5--%> diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index e24f5713c..b4bb04673 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4531,13 +4531,7 @@ Partial Class Compras_Compras Exit Sub End If End If - - - End If - - - End If If UsuarioActual.Empresa.Funcionalidad(538) = "1" Then From 62be2fa31c991f4dce8891712e6be3636a29e49a Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Dec 2024 14:07:04 -0700 Subject: [PATCH 06/19] =?UTF-8?q?mejoras=20en=20cambio=20de=20clientes,=20?= =?UTF-8?q?que=20se=20refleje=20en=20la=20remisi=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Transportes/RepContratoDetalle.aspx.vb | 30 +++++++++++++++++--------- 1 file changed, 20 insertions(+), 10 deletions(-) diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index a24a9f28d..c8e76dbb5 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -140,6 +140,18 @@ Partial Class RepContratoDetalle ViewState("CveMonedaOriginal") = value End Set End Property + Private Property CveClienteOriginal As Integer + Get + If ViewState("CveClienteOriginal") Is Nothing Then + ViewState("CveClienteOriginal") = -1 + End If + Return ViewState("CveClienteOriginal").ToString.ToEntero + + End Get + Set(value As Integer) + ViewState("CveClienteOriginal") = value + End Set + End Property Private Property ImporteOrigial As Decimal @@ -357,6 +369,7 @@ Partial Class RepContratoDetalle CveSubProyectoOriginal = drc("CveSubProyecto").ToString.ToEntero CveMonedaOriginal = drc("CveMoneda").ToString.ToEntero + CveClienteOriginal = drc("CveCliente").ToString.ToEntero ImporteOrigial = Importe DescripcionOriginal = drc("DescripcionContrato").ToString TipoAFOriginal = DdlTipoAF.SelectedItem.Text @@ -601,10 +614,11 @@ Partial Class RepContratoDetalle ImporteOrigial <> TxtImporte.Text.ToDecimal OrElse DescripcionOriginal <> TxtDescripcion.Text OrElse TipoAFOriginal <> DdlTipoAF.SelectedItem.Text OrElse - FolioOriginal <> TxtFolio.Text.Trim) Then + FolioOriginal <> TxtFolio.Text.Trim OrElse + CveClienteOriginal <> DdlClientes.SelectedValue.ToEntero) Then Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{TxtFolio.Text}" - If Not UpdateRemision(ObjContratos.IniciaTransacSQL(), DdlSubProyecto.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtImporte.Text.ToDecimal, ObsRemisionPartida) Then + If Not UpdateRemision(ObjContratos.IniciaTransacSQL(), DdlSubProyecto.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtImporte.Text.ToDecimal, ObsRemisionPartida, DdlClientes.SelectedValue.ToEntero) Then ErrorProceso = True End If End If @@ -653,7 +667,7 @@ Partial Class RepContratoDetalle End Sub - Private Function UpdateRemision(ByRef transaccionSql As SqlTransaction, CveSubProyectoNew As Integer, CveMonedaNew As Integer, TotalNew As Decimal, DescripcionNew As String) As Boolean + Private Function UpdateRemision(ByRef transaccionSql As SqlTransaction, CveSubProyectoNew As Integer, CveMonedaNew As Integer, TotalNew As Decimal, DescripcionNew As String, CveClienteNew As Integer) As Boolean Dim Respuesta As Boolean = False Dim TmpDT As DataTable = New DataTable @@ -675,12 +689,9 @@ Partial Class RepContratoDetalle PorcentajeIVA = ObjVentas.DtResultados.MAX("PorcentajeIVA").ToDecimal If PorcentajeIVA > 0 Then - IVANew = (TotalNew * (PorcentajeIVA * 100)) / (100 + (PorcentajeIVA * 100)) SubTotalNew = TotalNew - IVANew - End If - End If If TmpDT Is Nothing OrElse TmpDT.Rows.Count = 0 Or FechaVenta = MinFecha Then @@ -697,7 +708,7 @@ Partial Class RepContratoDetalle UsuarioActual.CveEmpresa, CveVentaRemision, Vigencia:=FechaVenta, CondicionesPago:=-1, PedidoContrato:="-1", AtencionA:="-1", CveMetodoPago33:=-1, - CveFormaPago33:=-1, TipoDocto:="Rem", CveCliente:=-1, CveClienteSucursal:=-1, + CveFormaPago33:=-1, TipoDocto:="Rem", CveCliente:=CveClienteNew, CveClienteSucursal:=-1, OrdenCompra:="-1", RetIVA:=0, RetISR:=0, Kilometraje:=0D, CveUsoCFDi:=-1, CveVendedor:=-1, ServicioDomicilio:=False, CveMedico:=-1, CveProcedimiento:=-1, FechaParaSurtir:=MinFecha, Paciente:="-1", Episodio:="-1", CveCondicionEntrega:=-1, FolioRemision:="-1") Then @@ -721,7 +732,6 @@ Partial Class RepContratoDetalle If Not OcurrioError Then Dim DTPrePoliza As New DataTable - If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then DTPrePoliza = ObjConta.DtResultados If DTPrePoliza.Rows.Count = 0 Then @@ -733,8 +743,7 @@ Partial Class RepContratoDetalle End If For Each dRow As DataRow In DTPrePoliza.Rows - - If Not ObjConta.UpdatePrePolizasDetalle(dRow("CvePrePolizaDetalle").ToString.ToEntero, dRow("Concepto").ToString, dRow("CveSubProyecto").ToString.ToEntero, -1, Boolean.Parse(dRow("TipoMovto").ToString), ImporteMN:=TotalNew, Importe:=TotalNew, TipoCambio:=TC) Then + If Not ObjConta.UpdatePrePolizasDetalle(dRow("CvePrePolizaDetalle").ToString.ToEntero, dRow("Concepto").ToString, dRow("CveSubProyecto").ToString.ToEntero, -1, Boolean.Parse(dRow("TipoMovto").ToString), ImporteMN:=TotalNew, Importe:=TotalNew, TipoCambio:=TC, CveCliente:=CveClienteNew) Then OcurrioError = True Exit For End If @@ -765,6 +774,7 @@ Partial Class RepContratoDetalle DescripcionOriginal = TxtDescripcion.Text TipoAFOriginal = DdlTipoAF.SelectedItem.Text FolioOriginal = TxtFolio.Text.Trim + CveClienteOriginal = DdlClientes.SelectedValue.ToEntero Return True End If End Function From da3cab609c2ea287e3e6b7dcea9adfd122d1c08e Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Dec 2024 15:45:06 -0700 Subject: [PATCH 07/19] -- VISTA para dev de almacen --- Compras/Compras.aspx | 6 +- Compras/Compras.aspx.vb | 247 +++------------------------------------- 2 files changed, 17 insertions(+), 236 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 0ccab8145..bbc5e7a95 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -5161,7 +5161,7 @@