From 624d253e197405cddf2712e13b6348b3604331de Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Thu, 18 Feb 2021 18:07:23 -0700
Subject: [PATCH 1/2] Cambios Solicitudes de Anticipo

---
 Compras/eFacturas.aspx.vb         |  2 +-
 OC/RepSolicitudesAnticipo.aspx    |  6 +++++-
 OC/RepSolicitudesAnticipo.aspx.cs | 14 ++++++++------
 3 files changed, 14 insertions(+), 8 deletions(-)

diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 991f1c4ba..b59eeb44c 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -3425,7 +3425,7 @@ Partial Class Compras_eFacturas
 
 
         'If XMLNodosPagosModalCount = Vinculados Then 
-        If ComprasEnComplemento = Vinculados Then  '
+        If ComprasEnComplemento = Vinculados And ComprasEnComplemento > 0 Then  '
             TodoVinculado = True
         End If
 
diff --git a/OC/RepSolicitudesAnticipo.aspx b/OC/RepSolicitudesAnticipo.aspx
index 940525eab..0d3f4f2c2 100644
--- a/OC/RepSolicitudesAnticipo.aspx
+++ b/OC/RepSolicitudesAnticipo.aspx
@@ -121,17 +121,21 @@
                     <asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="Nombre" HeaderText="Usuario Solicitó" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="ImporteSol" HeaderText="Importe Solicitud" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Right" /> 
+                    
+                    <asp:BoundField DataField="ImporteSol" HeaderText="Importe Solicitud" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Right"  Visible ="true" /> 
+                    
                     <asp:TemplateField HeaderText="Folio Mov. Banc." ItemStyle-Width="10%" Visible="false">
                         <ItemTemplate>
                             <asp:HyperLink ID="HplNum" runat="server" CssClass="Texto"  Target="_blank" NavigateUrl='<%# Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}") %>' Text='<%# Eval("FolioMov") %>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField> 
+
                     <asp:TemplateField HeaderText="Importe" ItemStyle-Width="10%" Visible="false" ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
                             <asp:Label runat="server" CssClass="Texto"  Text='<%# Eval("Importe", "${0:N2}") %>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+
                      <asp:TemplateField HeaderText="Moneda" ItemStyle-Width="2.5%" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
                             <asp:Label runat="server" CssClass="Texto"  Text='<%# Eval("Abreviatura") %>'></asp:Label>
diff --git a/OC/RepSolicitudesAnticipo.aspx.cs b/OC/RepSolicitudesAnticipo.aspx.cs
index 9efd1025c..c187eeda0 100644
--- a/OC/RepSolicitudesAnticipo.aspx.cs
+++ b/OC/RepSolicitudesAnticipo.aspx.cs
@@ -121,15 +121,17 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
     {
         if (DdlEstatus.SelectedValue.ToEntero() == 3)
         {
-            GvSolicitudes.Columns[4].Visible = true;
-            GvSolicitudes.Columns[5].Visible = true;
-            GvSolicitudes.Columns[7].Visible = false;
+            GvSolicitudes.Columns[5].Visible = false;
+
+            GvSolicitudes.Columns[6].Visible = true;
+            GvSolicitudes.Columns[7].Visible = true;
         }
         else
         {
-            GvSolicitudes.Columns[4].Visible = false;
-            GvSolicitudes.Columns[5].Visible = false;
-            GvSolicitudes.Columns[7].Visible = true;
+            GvSolicitudes.Columns[5].Visible = true;
+
+            GvSolicitudes.Columns[6].Visible = false;
+            GvSolicitudes.Columns[7].Visible = false;
         }
         CargaDatos();
     }

From 2542f4720f5ce60225bdb204e07aee52924f448b Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 19 Feb 2021 11:03:18 -0700
Subject: [PATCH 2/2] Compras ddlclasificaiones, seleccionar no filtra ps

---
 App_Code/ClsBancos.vb             | 2 +-
 Compras/Compras.aspx.vb           | 4 ++--
 OC/RepSolicitudesAnticipo.aspx.cs | 4 ++++
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 9ab441dc1..fff9651c8 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -954,7 +954,7 @@ Public Class ClsBancos
         Dim dttpagos As DataTable = Nothing
         Dim dr As Data.DataRow = Nothing
 
-        If GetComplementoPagosRep(-1, Now.AddYears(-2), Now, If(CvePrePoliza > 0, -1, CveIE), CveVenta, If(EsRegeneracion, 2, 1), UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
+        If GetComplementoPagosRep(-1, Now.AddYears(-5), Now, If(CvePrePoliza > 0, -1, CveIE), CveVenta, If(EsRegeneracion, 2, 1), UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
             dr = DtResultados.FiltroPrimero("CveVenta IS NULL")
             dttpagos = DtResultados.FiltraParametros("CveVenta > 0")
         End If
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 3ab2de74e..0e5c10f96 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -17759,6 +17759,7 @@ Partial Class Compras_Compras
         DdlClasificacionChange()
     End Sub
     Private Sub DdlClasificacionChange()
+
         CargaPS(DdlClasificacion.SelectedValue.ToEntero)
 
         If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
@@ -17811,8 +17812,7 @@ Partial Class Compras_Compras
                 DdlPS.DataSource = If(CveClasificacion > 0, DTTemp.FiltraParametros($"CveClasificacion = {CveClasificacion}"), DTTemp)
 
             Else
-                DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
-
+                DdlPS.DataSource = If(CveClasificacion > 0, GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros($"CveClasificacion = {CveClasificacion}"), GlobalDTPSSimplificado(UsuarioActual.CveEmpresa))
             End If
 
 
diff --git a/OC/RepSolicitudesAnticipo.aspx.cs b/OC/RepSolicitudesAnticipo.aspx.cs
index c187eeda0..c905690df 100644
--- a/OC/RepSolicitudesAnticipo.aspx.cs
+++ b/OC/RepSolicitudesAnticipo.aspx.cs
@@ -122,16 +122,20 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
         if (DdlEstatus.SelectedValue.ToEntero() == 3)
         {
             GvSolicitudes.Columns[5].Visible = false;
+            GvSolicitudes.Columns[9].Visible = false;
 
             GvSolicitudes.Columns[6].Visible = true;
             GvSolicitudes.Columns[7].Visible = true;
+            
         }
         else
         {
             GvSolicitudes.Columns[5].Visible = true;
+            GvSolicitudes.Columns[9].Visible = true;
 
             GvSolicitudes.Columns[6].Visible = false;
             GvSolicitudes.Columns[7].Visible = false;
+            
         }
         CargaDatos();
     }