From 6edc749fd5f32ceed6308b768665056654cc4c4c Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 1 Jun 2024 08:07:16 -0700 Subject: [PATCH] -- reporte de vencimientos --- App_Code/ClsClientes.vb | 10 ++- CxC/RepCxCDetalle.aspx | 12 +++ CxC/RepCxCDetalle.aspx.vb | 5 ++ Ventas/Clientes.aspx | 25 +++--- Ventas/Clientes.aspx.vb | 10 ++- Ventas/RepVencimientosCredito.aspx | 11 ++- Ventas/RepVencimientosCredito.aspx.cs | 110 +++----------------------- 7 files changed, 64 insertions(+), 119 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index c1aeb6b22..b69978eb7 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -161,6 +161,7 @@ Public Class ClsClientes Public Property CveAlmacenAlterno As Integer = -1 Public Property CveAlmacenConsignacion As Integer = -1 Public Property UsaProductoAlterno As Boolean = False + Public Property CreditoRegistroFirmas As String Public Property EnDemanda As Boolean = False Public Property EnQuebranto As Boolean = False Public Property GastosEnvio As Decimal = 0 @@ -416,8 +417,9 @@ Public Class ClsClientes _CveAlmacenConsignacion = Data(0)("CveAlmacenConsignacion").ToString.ToEntero _UsaProductoAlterno = CBool(Data(0)("UsaProductoAlterno")) - _EnDemanda = CBool(Data(0)("UsaProductoAlterno")) + _EnDemanda = CBool(Data(0)("EnDemanda")) _EnQuebranto = CBool(Data(0)("EnQuebranto")) + _CreditoRegistroFirmas = Data(0)("CreditoRegistroFirmas").ToString _GastosEnvio = Data(0)("GastosEnvio").ToString.ToDecimal End If @@ -537,7 +539,7 @@ Public Class ClsClientes Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False, Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False, - Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional GastosEnvio As Decimal = 0) As Boolean + Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0) As Boolean Dim Retorno As Boolean = False @@ -671,6 +673,7 @@ Public Class ClsClientes .Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno .Add("@EnDemanda", SqlDbType.Bit).Value = EnDemanda .Add("@EnQuebranto", SqlDbType.Bit).Value = EnQuebranto + .Add("@CreditoRegistroFirmas", SqlDbType.VarChar).Value = CreditoRegistroFirmas .Add("@GastosEnvio", SqlDbType.SmallMoney).Value = GastosEnvio End With Try @@ -718,7 +721,7 @@ Public Class ClsClientes Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False, Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional UsaProductoAlterno As Boolean = False, - Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional GastosEnvio As Decimal = 0) As Boolean + Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0) As Boolean Dim Retorno As Boolean = False @@ -862,6 +865,7 @@ Public Class ClsClientes .Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno .Add("@EnDemanda", SqlDbType.Bit).Value = EnDemanda .Add("@EnQuebranto", SqlDbType.Bit).Value = EnQuebranto + .Add("@CreditoRegistroFirmas", SqlDbType.VarChar).Value = CreditoRegistroFirmas .Add("@GastosEnvio", SqlDbType.SmallMoney).Value = GastosEnvio End With Try diff --git a/CxC/RepCxCDetalle.aspx b/CxC/RepCxCDetalle.aspx index 6708f6071..9766d26fa 100644 --- a/CxC/RepCxCDetalle.aspx +++ b/CxC/RepCxCDetalle.aspx @@ -541,6 +541,9 @@ + + + @@ -684,6 +687,15 @@ + + + + + + + + + diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index a22dcc01e..1b4eb4a43 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -419,10 +419,12 @@ Partial Class RepCxCDetalle If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True + DdlTieneLineaAdicional.SelectedValueExist(If(Request("TieneLineaAdicional") IsNot Nothing, Request("TieneLineaAdicional").ToString, "-1").ToString) If UsuarioActual.CveEmpresa = 119 Then divLineaAdicional1.Visible = True divLineaAdicional2.Visible = True + trEnquebranto.Visible = True End If If UsuarioActual.CveEmpresa = 13 Then @@ -629,6 +631,9 @@ Partial Class RepCxCDetalle ActivaColumna(48, ChkSubTotalPend.Checked) ActivaColumna(49, ChkIVAPend.Checked) ActivaColumna(50, ChkIEPSPend.Checked) + ActivaColumna(51, ChkEnQuebranto.Checked) + ActivaColumna(52, ChkEnDemanda.Checked) + ActivaColumna(53, ChkRegistroFirmas.Checked) If SePersonalizo = 1 Then ImgExcelPersonalizado.Visible = True diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 8cd43f9a3..3a6800f24 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4576,10 +4576,7 @@ --%>
- - - @@ -4618,15 +4615,28 @@
-
+
+
+
+
+ +
+
+ +
+ +
+ +
+
+
" style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
@@ -4669,10 +4679,7 @@ - - - - + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 47e6963ce..10b2f1556 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1699,8 +1699,11 @@ Partial Class Clientes ' ActivarRegistroAutomatico() 'End If - - '7eleven + ChkEnQuebranto.Checked = ObjClientes.EnQuebranto + ChkEnDemanda.Checked = ObjClientes.EnDemanda + TxtNombreFirmas.Text = ObjClientes.CreditoRegistroFirmas + + '7eleven TxtProveedor.Text = ObjClientes.SevenEleven_NumProveedor 'FORD @@ -2668,7 +2671,8 @@ Partial Class Clientes RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()), NoDesglosaIVA:=Not ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito, - Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked) Then + Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked, + EnQuebranto:=ChkEnQuebranto.Checked, EnDemanda:=ChkEnDemanda.Checked, CreditoRegistroFirmas:=TxtNombreFirmas.Text.Trim) Then If Not ObjClientes.LimpiaImpuestosLocales(Me.CveCliente) Then ErrorProceso = True diff --git a/Ventas/RepVencimientosCredito.aspx b/Ventas/RepVencimientosCredito.aspx index 6e137229f..c29f49f8f 100644 --- a/Ventas/RepVencimientosCredito.aspx +++ b/Ventas/RepVencimientosCredito.aspx @@ -77,13 +77,12 @@
-
Estatus:
+
Tipo Linea:
- - - <%-- --%> - - + + + +
Agrupador:
diff --git a/Ventas/RepVencimientosCredito.aspx.cs b/Ventas/RepVencimientosCredito.aspx.cs index bcd923158..2bb092c17 100644 --- a/Ventas/RepVencimientosCredito.aspx.cs +++ b/Ventas/RepVencimientosCredito.aspx.cs @@ -1,6 +1,4 @@ using System; using System.Web.UI.WebControls; using Extensiones; using System.Data; using static Extensiones.ModExtensiones; -using System.Collections.Generic; -using System.IO; using System.Web.UI; @@ -66,17 +64,15 @@ public partial class Ventas_RepVencimientosCredito : ClsPaginas private void InicializaValores() { - txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString(); - txtFechaF.Text = NowADS().ToShortDateString(); + txtFechaI.Text = NowADS().AddMonths(-1).FirstDayOfMonth().ToShortDateString(); + txtFechaF.Text = NowADS().LastDayOfMonth().ToShortDateString(); DdlClientes.setEsWebService(true); DdlClientes.Attributes.Add("data-metodo", "getcliente"); DdlClientes.SelectedText = "Todos"; - DdlClientes.SelectedValue = "-1"; - + DdlClientes.SelectedValue = "-1"; } - protected void BtnConsultar_Click(object sender, EventArgs e) { CargaDatos(); @@ -89,7 +85,7 @@ public partial class Ventas_RepVencimientosCredito : ClsPaginas ClsVentas objVentas = new ClsVentas(); - if (objVentas.GetLineasAdicionalesVencimientos( DdlClientes.SelectedValue.ToEntero(), -1, txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), 1, UsuarioActual.CveEmpresa)) + if (objVentas.GetLineasAdicionalesVencimientos( DdlClientes.SelectedValue.ToEntero(), DdlTipoLinea.SelectedValue.ToEntero(), txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), -1, UsuarioActual.CveEmpresa)) { GvD.DataSource = objVentas.DtResultados; @@ -104,99 +100,17 @@ public partial class Ventas_RepVencimientosCredito : ClsPaginas GvD.DataBind(); UpLineasAdicionales.Update(); } - - - protected void LnkCargarComprobante_Click(object sender, EventArgs e) - { - GridViewRow GvRow = (GridViewRow) ((LinkButton) sender).NamingContainer; - - CveLineaAdicional = GvRow.DataKey("CveLineaAdicional").ToString().ToEntero(); - CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero(); - LineaAdicionalComprobante = GvRow.DataKey("LineaAdicionalComprobante").ToString(); - - RegistraScript("$('#ModalComprobante').modal('show');",""); - } - - + protected void LnkDescargaExcel_Click(object sender, EventArgs e) - { - if(TipoLinea == 1) - { - GridView gvTemp = GvD; - //gvTemp.ExportToExcelX("RepLineasAdicionales" + NowADS().ToShortDateString()); - gvTemp.ExportToExcelGembox("RepLineasAdicionales", UsuarioActual, "Rep Lineas Adicionales", AnchoImagen: 150); - } + { + GridView gvTemp = GvD; + //gvTemp.ExportToExcelX("RepLineasAdicionales" + NowADS().ToShortDateString()); + gvTemp.ExportToExcelGembox("RepVencimientos", UsuarioActual, "Rep Vencimientos de líneas", AnchoImagen: 150); + } - - protected void GvLAPO_RowDataBound(object sender, GridViewRowEventArgs e) - { - if (e.Row.RowType == DataControlRowType.DataRow) - { + - LinkButton LnkCambiarEstatus = e.Row.FCLinkButton("LnkCambiarEstatus"); - LinkButton LnkCargarComprobante = e.Row.FCLinkButton("LnkCargarComprobante"); - LinkButton LnkDescargaComprobante = e.Row.FCLinkButton("LnkDescargaComprobante"); + public override void VerifyRenderingInServerForm(Control control) { } - if (e.Row.DataKey("CveLineaAdicional")=="") - { - if (e.Row.DataKey("CveLineaAdicional") == "" && e.Row.DataKey("CveCliente") == "") - { - e.Row.CssClass = "SubTotales2"; - if (e.Row.DataKey("CveLineaAdicional") == "" && e.Row.DataKey("CveCliente") == "" && e.Row.DataKey("CveProveedor") != "") - { - e.Row.Cells[0].Text = ""+ e.Row.DBCampo("Proveedor") +""; - } - } - else - { - e.Row.CssClass = "SubTotales"; - } - LnkCambiarEstatus.Visible = false; - LnkCargarComprobante.Visible = false; - LnkDescargaComprobante.Visible = false; - } - else - { - if (e.Row.DataKey("CveVenta").ToEntero() > 0 && e.Row.DataKey("CveLineaAdicionalEstatus").ToEntero() == 1) - { - - if (UsuarioActual.TienePermisoProceso(356)) LnkCambiarEstatus.Visible = true; - LnkCargarComprobante.Visible = true; - } - - if (e.Row.DataKey("LineaAdicionalComprobante").Length > 0 && e.Row.DataKey("CveVenta").ToEntero() > 0) - { - FileInfo fi = new FileInfo($@"{UsuarioActual.Empresa.Ruta}\LineasAdicionales\{e.Row.DataKey("LineaAdicionalComprobante")}"); - - if (fi.Exists) - { - LnkDescargaComprobante.Visible = true; - ScriptManager.GetCurrent(this).RegisterPostBackControl(LnkDescargaComprobante); - } - } - } - } - } - - protected void LnkDescargaComprobante_Click(object sender, EventArgs e) - { - GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; - string Comprobante = GvRow.DataKey("LineaAdicionalComprobante"); - FileInfo fi = new FileInfo($@"{UsuarioActual.Empresa.Ruta}\LineasAdicionales\{Comprobante}"); - - if (fi.Exists) - { - Response.Clear(); - Response.AddHeader("Content-Disposition", "attachment; filename=" + fi.Name); - Response.AddHeader("Content-Length", fi.Length.ToString()); - Response.ContentType = "text/octet-stream"; - Response.Flush(); - Response.TransmitFile(fi.FullName); - Response.End(); - } - } - - - } \ No newline at end of file