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 @@
-
+
+
+
+
+
+
+
+
+
-
@@ -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