From c481a8af4df3c910e373996d81083b036cb2e1fd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 5 Feb 2021 11:45:17 -0700
Subject: [PATCH 1/2] =?UTF-8?q?--=20columnas=20nuevas=20Descripci=C3=B3n?=
 =?UTF-8?q?=20y=20subproyecto?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OC/RepSolicitudesAnticipo.aspx | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/OC/RepSolicitudesAnticipo.aspx b/OC/RepSolicitudesAnticipo.aspx
index c5dff3a24..940525eab 100644
--- a/OC/RepSolicitudesAnticipo.aspx
+++ b/OC/RepSolicitudesAnticipo.aspx
@@ -117,7 +117,9 @@
                             <asp:HyperLink ID="HplNum" runat="server" CssClass="Texto"  Target="_blank" NavigateUrl='<%# Eval("CveOrdenCompra", "/OC/OC.aspx?OC={0}")%>' Text='<%# Eval("Folio") %>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField> 
-                    <asp:BoundField DataField="RazonSocial" HeaderText="Proveedor" ItemStyle-Width="50%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="RazonSocial" HeaderText="Proveedor" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
+                    <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:TemplateField HeaderText="Folio Mov. Banc." ItemStyle-Width="10%" Visible="false">
@@ -125,12 +127,12 @@
                             <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="20%" Visible="false" ItemStyle-HorizontalAlign="Right">
+                    <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="15%" ItemStyle-HorizontalAlign="Left">
+                     <asp:TemplateField HeaderText="Moneda" ItemStyle-Width="2.5%" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
                             <asp:Label runat="server" CssClass="Texto"  Text='<%# Eval("Abreviatura") %>'></asp:Label>
                         </ItemTemplate>

From 92177a451863225def74edb3e64139036d42daaf Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 5 Feb 2021 15:46:02 -0700
Subject: [PATCH 2/2] Correcion al pagar dollares

---
 Bancos/ProveedoresAbonar.aspx.vb | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index b11dc7cc1..e0d894fd5 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -2509,6 +2509,18 @@ Partial Class Bancos_ProveedoresAbonar
         'recargo la moneda con la que se va a pagar
         Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue))
         If dr IsNot Nothing Then
+
+
+            If dr("CveMoneda").ToString.ToEntero >= 2 Then
+                DivDolaresDolares.Visible = True
+                TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
+                BtnCambiaTipoMoneda_Click(Nothing, Nothing)
+            Else
+                DivDolaresDolares.Visible = False
+                TxtFechaDocumento.Attributes.Remove("onchange")
+            End If
+            UpDatos.Update()
+
             If ChkPagarPesos.Checked Then
                 CveMoneda = 2
                 RegistraScript("CambiaPesosDolares();")