0 - Conta: Aplicación de pago a proveedores en pesos y dólares con una misma cuenta, ej. SCHNEIDER ELECTRIC MEXICO

App_Code/ClsMovimientos.vb

@@ -594,7 +594,7 @@ Public Class ClsMovimientos
     Public Function GetCxPEmpresa(CveProveedor As Integer, FechaVencimientoInicio As String, FechaVencimientoFin As String, CveSubProyecto As Integer, DiasVencidos As Integer, CveUsuarioRegistro As Integer,
                                   CveUsuarioProgramo As Integer, CveUsuarioResponsable As Integer, CveClasificacion As Integer, CveMoneda As Integer, CveTipoPagoProgramo As Integer, CveEstatusFactura As Integer,
                                   CveAplicaNC As Integer, CveEmpresa As Integer, Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional CodigoProgramacion As String = "-1", Optional CveTipoProveedor As Integer = 0,
-                                  Optional AgrupadoPorSubProyecto As Boolean = False) As Boolean
+                                  Optional AgrupadoPorSubProyecto As Boolean = False, Optional VerEnPesos As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_Proveedores")
         With SqlAdapter.SelectCommand.Parameters
@@ -617,6 +617,7 @@ Public Class ClsMovimientos
             .Add("@CodigoProgramacion", SqlDbType.VarChar).Value = CodigoProgramacion
             .Add("@CveTipoProveedor", SqlDbType.TinyInt).Value = CveTipoProveedor
             .Add("@AgrupadoPorSubProyecto", SqlDbType.Bit).Value = AgrupadoPorSubProyecto
+            .Add("@VerEnPesos", SqlDbType.Bit).Value = VerEnPesos
         End With
 
         Try

Bancos/ProveedoresAbonar.aspx

@@ -342,6 +342,7 @@
                             <asp:CheckBox Text=" No Validar ante SAT" ID="ChkNoValidaSAT" CssClass="md-checksd" runat="server" Checked="false" Visible="false" />
                             <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
                             <asp:CheckBox Text="Descuento" ID="chkaplicaDescuento" CssClass="md-checksd" runat="server" Checked="false" OnCheckedChanged="chkaplicaDescuento_CheckedChanged" AutoPostBack="true" Visible="false" />
+                            <asp:CheckBox Text="Descuento Masivo" ID="chkaplicaDescuentoMasivo" CssClass="md-checksd" runat="server" Checked="false" OnCheckedChanged="chkaplicaDescuentoMasivo_CheckedChanged" AutoPostBack="true" Visible="false" />
                             <asp:TextBox runat="server" ID="TxtDescuenoMasivo" ClientIDMode="Static" onkeyup="DescuenoMasivo(this)" Visible="false" Width="60px"></asp:TextBox>
                             <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDescuenoMasivo" FilterType="Custom" ValidChars="1234567890+" />
                         </td>
@@ -477,6 +478,15 @@
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%-- 14 --%>
+                    <asp:TemplateField>
+                        <HeaderTemplate>Moneda</HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlMoneda" runat="server" Text='<%# Eval("Abreviatura") %>'></asp:Literal>&nbsp;
+   
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Left" />
+                    </asp:TemplateField>
+                    <%-- 15 --%>
                     <asp:TemplateField>
                         <HeaderTemplate>Auxiliar</HeaderTemplate>
                         <ItemTemplate>
@@ -601,7 +611,6 @@
         var Facturas = '';
 
         function FnSuma(t, txt, importe) {
-            debugger;
             var chkPesosBancos = $get("ChkPagarPesos");
             var chkDolaresBancos = $get("ChkPagarDolares");
 
@@ -612,9 +621,9 @@
             }
 
             if (chkPesosBancos && chkPesosBancos.checked) {
-                CambiaPesosDolares()
+                CambiaPesosDolares();
             } else if (chkDolaresBancos && chkDolaresBancos.checked) {
-                CambiaDolaresPesos()
+                CambiaDolaresPesos();
             }
             else {
                 var Suma = SumaValores();
@@ -622,7 +631,7 @@
             }
         }
 
-        function SumaValores(aplicaTC) {
+        function SumaValores(aplicaTC, cveMonedaPago = 0) {
 
             var Importe = 0;
             var Comision = 0.00;
@@ -637,11 +646,43 @@
                             idd = textBoxes[i].id.replace('C_GvCxP_TxtAbonar_', '');
                             Facturas = Facturas + (Importe == 0 ? '' : ', ') + $get("C_GvCxP_HplF_" + idd).innerText;
                             let importeFactura = 0;
+
+                            if (cveMonedaPago == 0) {
                                 if (aplicaTC && $get('TxtTC') != null) {
                                     importeFactura = parseFloat(FormatoNumero(parseFloat(textBoxes[i].value.split(',').join('')) * parseFloat($get('TxtTC').value), 2).split(',').join(''));
                                 } else {
                                     importeFactura = parseFloat(textBoxes[i].value.split(',').join(''));
                                 }
+                            } else {
+                                let cveMonedaCompra = textBoxes[i].getAttribute("cvemoneda");
+
+                                switch (cveMonedaPago) {
+                                    case 1: //PAGO CON PESOS
+
+                                        //SI SON DOLARES MULTIPLICAR POR TC
+                                        if (cveMonedaCompra == '2') {
+                                            importeFactura = parseFloat(FormatoNumero(parseFloat(textBoxes[i].value.split(',').join('')) * parseFloat($get('TxtTC').value), 2).split(',').join(''));
+                                            //MISMA MONEDA DEBE SOLO SUMAR
+                                        } else if (cveMonedaCompra == '1') {
+                                            importeFactura = parseFloat(textBoxes[i].value.split(',').join(''));
+                                        }
+
+                                        break;
+                                    case 2: //PAGO CON DOLARES
+
+                                        //MISMA MONEDA DEBE SOLO SUMAR
+                                        if (cveMonedaCompra == '2') {
+                                            importeFactura = parseFloat(textBoxes[i].value.split(',').join(''));
+                                            //SI SON PESOS DIVIDIR ENTRE EL TC
+                                        } else if (cveMonedaCompra == '1') {
+                                            importeFactura = parseFloat(FormatoNumero(parseFloat(textBoxes[i].value.split(',').join('')) / parseFloat($get('TxtTC').value), 2).split(',').join(''));
+                                        }
+                                        break;
+                                }
+
+
+                            }
+
                             Importe = parseFloat(Importe) + importeFactura;
                         }
                     }
@@ -699,15 +740,14 @@
             }
 
             if (chkPesosBancos && chkPesosBancos.checked) {
-                CambiaPesosDolares()
+                CambiaPesosDolares();
             } else if (chkDolaresBancos && chkDolaresBancos.checked) {
-                CambiaDolaresPesos()
+                CambiaDolaresPesos();
             }
-
-
         }
 
         function CambiaPesosDolares() {
+            if ('<%= Me.FiltrarCuentas.ToString() %>' == '1') {
                 let ImporteDolares = SumaValores(true);
 
                 $get('TxtImporte').value = FormatoNumero(ImporteDolares, 2);
@@ -726,14 +766,18 @@
                 if ($get('LblImporteTotal')) $get('LblImporteTotal').innerHTML = FormatoNumero(SumaValores(), 2);
                 if ($get('LblIVA')) $get('LblIVA').innerHTML = FormatoNumero(SumaValores() - ((SumaValores() / 1.16)), 2);
                 if ($get('ChkAbonoCuenta')) $get('ChkAbonoCuenta').checked = (parseFloat($get('TxtImporte').value.replace(/,/g, '')) > 2000);
+            } else {
+                SumaDolaresPesos(1);
+            }
+
         }
 
         function CambiaDolaresPesos() {
-            debugger;
+            if ('<%= Me.FiltrarCuentas.ToString() %>' == '1') {
                 $get('TxtImporte').value = FormatoNumero(SumaValores(), 2);
                 $('#LtlTotalMXN').text(FormatoNumero(SumaValores(), 2))
 
-            debugger;
+
                 if ($("#LbImporteMN").length) {
                     $get('LbImporteMN').innerHTML = '$ ' + FormatoNumero(SumaValores(), 2) + ' MXN';
                     $get('TxtImporte').value = FormatoNumero(ToDouble($get('TxtImporte').value.replace(',', '')) / ToDouble($get('TxtTC').value), 2);
@@ -747,6 +791,41 @@
                 if ($get('LblImporteTotal')) $get('LblImporteTotal').innerHTML = FormatoNumero(SumaValores(), 2);
                 if ($get('LblIVA')) $get('LblIVA').innerHTML = FormatoNumero(SumaValores() - ((SumaValores() / 1.16)), 2);
                 if ($get('ChkAbonoCuenta')) $get('ChkAbonoCuenta').checked = (parseFloat($get('TxtImporte').value.replace(/,/g, '')) > 2000);
+            } else {
+                SumaDolaresPesos(2);
+            }
+        }
+
+        function SumaDolaresPesos(cveMonedaPago) {
+
+            let ImporteSuma = parseFloat(SumaValores(false, cveMonedaPago));
+
+            $get('TxtImporte').value = FormatoNumero(ImporteSuma, 2);
+            $('#LtlTotalMXN').text(FormatoNumero(ImporteSuma, 2))
+
+            if ($("#LbImporteMN").length) {
+
+                $get('TxtImporte').value = FormatoNumero(ToDouble($get('TxtImporte').value.replace(',', '')), 2);
+                $get('LtlTotalMXN').value = FormatoNumero(ToDouble($get('TxtImporte').value), 2);
+
+                switch (cveMonedaPago) {
+                    case 1:                      
+                        $get('LbImporteMN').innerHTML = '$ ' + FormatoNumero(ImporteSuma, 2) + ' MXN';
+                        break;
+                    case 2:
+                        $get('LbImporteMN').innerHTML = '$ ' + FormatoNumero(ImporteSuma, 2) + ' USD';
+                        break;
+                }
+               
+            }
+
+            if ($get('TxtTotal') != null) {
+                $get('TxtTotal').value = FormatoNumero(ToDouble($get('TxtImporte').value.replace(',', '')) + (ToDouble($get('TxtOtrosImportes').value.replace(',', '') * -1)), 2);
+            }
+
+            if ($get('LblImporteTotal')) $get('LblImporteTotal').innerHTML = FormatoNumero(ImporteSuma, 2);
+            if ($get('LblIVA')) $get('LblIVA').innerHTML = FormatoNumero(ImporteSuma - ((ImporteSuma / 1.16)), 2);
+            if ($get('ChkAbonoCuenta')) $get('ChkAbonoCuenta').checked = (parseFloat($get('TxtImporte').value.replace(/,/g, '')) > 2000);
 
         }
 

Bancos/ProveedoresAbonar.aspx.vb

@@ -99,6 +99,14 @@ Partial Class Bancos_ProveedoresAbonar
         End Set
     End Property
 
+    Public Property FiltrarCuentas As Integer
+        Get
+            Return If(IsNothing(ViewState("FiltrarCuentas")), 1, ViewState("FiltrarCuentas").ToString.ToEntero)
+        End Get
+        Set(value As Integer)
+            ViewState("FiltrarCuentas") = value
+        End Set
+    End Property
     Private Property CveMonedaFiltro As Integer
         Get
             Return ViewState("CveMonedaFiltro").ToString.ToEntero
@@ -247,6 +255,7 @@ Partial Class Bancos_ProveedoresAbonar
                 CveClasificacionProveedor = IfNull(Request("CveClasificacion"), "-1").ToString.ToEntero
                 CveMoneda = IfNull(Request("CveMoneda"), "-1").ToString.ToEntero
                 CveMonedaFiltro = IfNull(Request("CveMoneda"), "-1").ToString.ToEntero
+                FiltrarCuentas = IfNull(Request("FiltrarCuentas"), "1").ToString.ToEntero
                 CveEstatus = IfNull(Request("CveEstatus"), "-1").ToString.ToEntero
                 Serie = IfNull(Request("Serie"), "").ToString
                 CveAplicaNC = IfNull(Request("CveAplicaNC"), "-1").ToString.ToEntero
@@ -254,7 +263,6 @@ Partial Class Bancos_ProveedoresAbonar
                 CodigoProgramacion = IfNull(Request("CodigoProgramacion"), "-1").ToString
                 CveSubProyectoFiltro = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
 
-
                 TxtOtrosImportes.Attributes.Add("onKeyUp", String.Format("FnSuma(this,{0},{1});", "TxtTotal", 0))
 
                 'proceso para que solo pague lo que este programada
@@ -300,6 +308,17 @@ Partial Class Bancos_ProveedoresAbonar
                 LbTipoMoneda.Text = String.Format("Pago en {0}", GlobalDTMonedas.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda)).Rows(0)("Moneda"))
             End If
 
+            'SI NO ES GDIAZ, NO PERMITIR LA MEZCLA DE CUENTAS
+            If UsuarioActual.Empresa.Funcionalidad(382) <> "1" AndAlso FiltrarCuentas = 0 Then
+                FiltrarCuentas = 1
+            End If
+
+            If FiltrarCuentas = 0 Then
+                ChkPagarPesos.Visible = False
+                ChkPagarDolares.Visible = False
+
+                CveMonedaFiltro = -1
+            Else
                 If CveMoneda = 2 Then
                     ChkPagarPesos.Visible = True
                     TxtTC.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
@@ -308,6 +327,7 @@ Partial Class Bancos_ProveedoresAbonar
                     ChkPagarDolares.Visible = True
                     TxtTC.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
                 End If
+            End If
 
             RegistraScript($"TipoCambioActual = {GlobalTipoCambio(NowADS()).FormatoNumero(4)}")
             UpDatos.Update()
@@ -324,7 +344,7 @@ Partial Class Bancos_ProveedoresAbonar
             If UsuarioActual.TienePermisoProceso(361) Then
                 'GvCxP.Columns(11).Visible = True
                 chkaplicaDescuento.Visible = True
-                'chkaplicaDescuentoMasivo.Visible = True
+                chkaplicaDescuentoMasivo.Visible = True
             End If
 
 
@@ -367,23 +387,27 @@ Partial Class Bancos_ProveedoresAbonar
     Private Sub CargaDatos(Optional tCveMoneda As Integer = -1) 'pCveProveedor As Integer, tCveMoneda As Integer, FechaVencimientoInicio As String, FechaVencimientoFin As String, CveUsuarioRegistro As Integer, CveUsuarioPrograma As Integer, Serie As String)
         If tCveMoneda = -1 Then tCveMoneda = CveMoneda
 
-        Dim Mov As New ClsMovimientos
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso FiltrarCuentas = 0 Then
+            tCveMoneda = -1
+        End If
+
         TxtObservaciones.Text = ""
         TxtImporte.Text = ""
         TxtTotal.Text = ""
 
-        If Mov.GetCxPProveedor(CveProveedor, FechaI, FechaF, CveUsuarioProgramo, CveUsuarioRegistro, CveUsuarioResponsable, CveClasificacionProveedor, tCveMoneda, CveEstatus, CveProveedorSucursal, CveAplicaNC, "-1", "-1", CodigoProgramacion, CveSubProyecto:=CveSubProyectoFiltro) Then
+        Dim ObjMov As New ClsMovimientos
-            DtDatos = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio")
+        If ObjMov.GetCxPProveedor(CveProveedor, FechaI, FechaF, CveUsuarioProgramo, CveUsuarioRegistro, CveUsuarioResponsable, CveClasificacionProveedor, tCveMoneda, CveEstatus, CveProveedorSucursal, CveAplicaNC, "-1", "-1", CodigoProgramacion, CveSubProyecto:=CveSubProyectoFiltro) Then
+            DtDatos = ObjMov.DtResultados.FiltraParametros("CveCompra > 0 AND Saldo > 0", "Fecha,SerieFolio")
             GvCxP.DataSource = DtDatos
             DtDatos.Columns.Add("Movimiento")
             If DtDatos.Rows.Count > 0 Then
                 DVBusqueda.Visible = True
                 DtDatos.Rows(0)("Movimiento") = "FACTURA DE ACREEDOR"
             End If
-
         End If
+        ObjMov.Dispose()
+
 
-        Mov.Dispose()
         GvCxP.DataBind()
         UPCompras.Update()
         UpBusqueda.Update()
@@ -473,6 +497,8 @@ Partial Class Bancos_ProveedoresAbonar
                 e.Row.FCLiteral("LtlFactura").Text = e.Row.DBCampo("Folio")
             End If
 
+            e.Row.FCTextBox("TxtAbonar").Attributes.Add("CveMoneda", e.Row.DBCampo("CveMoneda"))
+
             If e.Row.DBCampo("CveCompra").ToEntero > 0 Then
 
                 Dim FiltroInv As String = ""
@@ -643,6 +669,10 @@ Partial Class Bancos_ProveedoresAbonar
         Dim ValidaSAT As Boolean = True
         If UsuarioActual.Empresa.Funcionalidad(529) = "1" OrElse ChkNoValidaSAT.Checked Then ValidaSAT = False
 
+        If Not EsProduccion Then
+            ValidaSAT = False
+        End If
+
         If ValidaSAT Then
             Dim Validada As Boolean = False
             Dim MsgValidadas As New StringBuilder
@@ -1117,6 +1147,7 @@ Partial Class Bancos_ProveedoresAbonar
         DdlCuenta.Items.Clear()
         Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
 
+        If FiltrarCuentas = 1 Then
             If ChkPagarPesos.Checked Then
                 dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
                 RegistraScript("CambiaPesosDolares();")
@@ -1128,6 +1159,9 @@ Partial Class Bancos_ProveedoresAbonar
                     dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMonedaFiltro))
                 End If
             End If
+        End If
+
+
 
         If TipoPago = 3 Then
             dt = dt.FiltraParametros("CveTipoCuenta = 7")
@@ -1148,8 +1182,32 @@ Partial Class Bancos_ProveedoresAbonar
     End Sub
 
     Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
-        '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 FiltrarCuentas = 0 Then
+
+            If dr("CveMoneda").ToString() = "2" Then
+                ChkPagarDolares.Visible = True
+                ChkPagarDolares.Checked = True
+                ChkPagarDolares.Enabled = False
+
+                ChkPagarPesos.Visible = False
+                ChkPagarPesos.Checked = False
+            Else
+                ChkPagarPesos.Visible = True
+                ChkPagarPesos.Checked = True
+                ChkPagarPesos.Enabled = False
+
+                ChkPagarDolares.Visible = False
+                ChkPagarDolares.Checked = False
+            End If
+
+            TxtTC.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
+            TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
+        End If
+
+        'recargo la moneda con la que se va a pagar
+
         If dr IsNot Nothing Then
             TxtFechaDocumento.Attributes.Remove("onchange")
             UpDatos.Update()
@@ -1673,11 +1731,17 @@ Partial Class Bancos_ProveedoresAbonar
     Protected Sub chkaplicaDescuento_CheckedChanged(sender As Object, e As EventArgs)
 
         GvCxP.Columns(11).Visible = chkaplicaDescuento.Checked
-        TxtDescuenoMasivo.Visible = chkaplicaDescuento.Checked
         UPCompras.Update()
     End Sub
 
 
+    Protected Sub chkaplicaDescuentoMasivo_CheckedChanged(sender As Object, e As EventArgs)
+
+        GvCxP.Columns(11).Visible = chkaplicaDescuentoMasivo.Checked
+        TxtDescuenoMasivo.Visible = chkaplicaDescuentoMasivo.Checked
+        UPCompras.Update()
+    End Sub
+
     Private Sub tmpValida()
 
         Dim ValidaSAT As Boolean = True

Bancos/RepProveedoresPagos.aspx

@@ -194,6 +194,12 @@
                                 <asp:ListItem Selected="False" Text="Ambos" Value="3"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <div class="col-md-3" id="DivVerPesos" runat="server" visible="false">
+                            <div style="display: flex; align-items: center;">
+                                Ver en pesos:
+                                 <asp:CheckBox ID="ChkVerEnPesos" data-size="small" CssClass="chksino" Style="margin-top: -2px; background-color: #fff;" runat="server" Text=" " AutoPostBack="False" />&nbsp;
+                            </div>
+                        </div>
                     </div>
                 </div>
             </div>
@@ -208,7 +214,8 @@
                         <div class="display" style="margin-bottom: 0px">
                             <div class="number">
                                 <h3 class="font-red-haze">
-                                    <span data-counter="counterup" data-value="1349"><asp:Literal runat="server" ID="LtlTotalOriginal"></asp:Literal></span>
+                                    <span data-counter="counterup" data-value="1349">
+                                        <asp:Literal runat="server" ID="LtlTotalOriginal"></asp:Literal></span>
                                     <small class="font-red-haze">$</small>
                                 </h3>
                                 <small>TOTAL ORIGINAL</small>
@@ -219,10 +226,12 @@
                         </div>
                         <div class="progress-info">
                             <div class="status" style="font-size: 12px">
-                               MXN: <asp:Literal Text="text" ID="LtlTotalMXN" runat="server" />
+                                MXN:
+                                <asp:Literal Text="text" ID="LtlTotalMXN" runat="server" />
                             </div>
                             <div class="status" style="font-size: 12px">
-                              Dólares: <asp:Literal Text="text" ID="LtlTotalDolares" runat="server" />
+                                Dólares:
+                                <asp:Literal Text="text" ID="LtlTotalDolares" runat="server" />
                             </div>
                         </div>
                     </div>
@@ -232,7 +241,8 @@
                         <div class="display">
                             <div class="number">
                                 <h3 class="font-green-sharp">
-                                    <span data-counter="counterup" data-value="7800"><asp:Literal runat="server" ID="LtlTotalAbonado"></asp:Literal></span>
+                                    <span data-counter="counterup" data-value="7800">
+                                        <asp:Literal runat="server" ID="LtlTotalAbonado"></asp:Literal></span>
                                     <small class="font-green-sharp">$</small>
                                 </h3>
                                 <small>ABONADO</small>
@@ -262,7 +272,8 @@
                         <div class="display" style="margin-bottom: 0px">
                             <div class="number">
                                 <h3 class="font-blue-sharp">
-                                    <span data-counter="counterup" data-value="1349"><asp:Literal ID="TotalPendiente" runat="Server" ></asp:Literal></span>
+                                    <span data-counter="counterup" data-value="1349">
+                                        <asp:Literal ID="TotalPendiente" runat="Server"></asp:Literal></span>
                                     <small class="font-blue-sharp">$</small>
                                 </h3>
                                 <small>SALDO PENDIENTE</small>
@@ -273,10 +284,12 @@
                         </div>
                         <div class="progress-info">
                             <div class="status" style="font-size: 12px">
-                              MXN: <asp:Literal Text="text" ID="LtlPendiente" runat="server" /> 
+                                MXN:
+                                <asp:Literal Text="text" ID="LtlPendiente" runat="server" />
                             </div>
                             <div class="status" style="font-size: 12px">
-                             DÓLARES <asp:Literal Text="text" ID="LtlPendienteDolares" runat="server" />
+                                DÓLARES
+                                <asp:Literal Text="text" ID="LtlPendienteDolares" runat="server" />
                             </div>
                         </div>
                     </div>
@@ -303,7 +316,7 @@
                             <asp:HyperLink ID="Hpl" runat="server" NavigateUrl='<%#String.Format("/Compras/Proveedores.aspx?CveProveedor={0}&Opt=3&CveProveedorSucursal={1}&CveMoneda={2}", Eval("CveProveedor"), Eval("CveProveedorSucursal"), Eval("CveMoneda"))%>' Text='<%# Eval("RazonSocial") %>'></asp:HyperLink>
                         </ItemTemplate>
                         <ControlStyle CssClass="Texto" />
-                        <ItemStyle HorizontalAlign="Left" width="300px"/>
+                        <ItemStyle HorizontalAlign="Left" Width="300px" />
                     </asp:TemplateField>
                     <asp:TemplateField>
                         <HeaderTemplate>
@@ -332,7 +345,7 @@
                         </ItemTemplate>
                         <ItemStyle Width="100px" HorizontalAlign="Right" />
                     </asp:TemplateField>
-                    <asp:BoundField Datafield="Abreviatura" HeaderText="Moneda" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px"/>
+                    <asp:BoundField DataField="Abreviatura" HeaderText="Moneda" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px" />
                     <asp:TemplateField>
                         <HeaderTemplate>
                             Abonado
@@ -389,7 +402,6 @@
 
 
                     <%--<asp:BoundField Datafield="Moneda" HeaderText="Moneda" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10px"/>--%>
-
                 </Columns>
                 <RowStyle CssClass="Texto" />
                 <AlternatingRowStyle CssClass="TextoAlterno" />

Bancos/RepProveedoresPagos.aspx.vb

@@ -31,6 +31,11 @@ Partial Class Bancos_RepProveedoresPagos
                 GvCxP.Columns(10).Visible = True
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                chkexpand.Checked = True
+                DivVerPesos.Visible = True
+            End If
+
         End If
     End Sub
 
@@ -103,7 +108,7 @@ Partial Class Bancos_RepProveedoresPagos
         GvCxP.Columns(7).Visible = ChkProgramadas.Checked 'AndAlso DdlUsuarioProgramo.SelectedValue.ToEntero > 0
 
 
-        If Mov.GetCxPEmpresa(DdlProveedores.SelectedValue.ToEntero, FechaI, FechaF, DdlSubProyecto.SelectedValue.ToEntero, -1, DdlUsuarioRegistro.SelectedValue.ToEntero, CveUsuarioProgramo, DdlUsuarioResponsable.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, -1, DdlEstatusCompra.SelectedValue.ToEntero, AplicaNC.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaVI, FechaVF, CodigoProgramacion, DdlTipoProveedor.SelectedValue.ToEntero) Then
+        If Mov.GetCxPEmpresa(DdlProveedores.SelectedValue.ToEntero, FechaI, FechaF, DdlSubProyecto.SelectedValue.ToEntero, -1, DdlUsuarioRegistro.SelectedValue.ToEntero, CveUsuarioProgramo, DdlUsuarioResponsable.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, -1, DdlEstatusCompra.SelectedValue.ToEntero, AplicaNC.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaVI, FechaVF, CodigoProgramacion, DdlTipoProveedor.SelectedValue.ToEntero, VerEnPesos:=ChkVerEnPesos.Checked) Then
 
             GvCxP.DataSource = Mov.DtResultados
             If Mov.DtResultados IsNot Nothing AndAlso Mov.DtResultados.Rows.Count > 0 Then
@@ -162,7 +167,13 @@ Partial Class Bancos_RepProveedoresPagos
                 CveUsuarioProgramo = DdlUsuarioProgramo.SelectedValue.ToEntero
             End If
 
-            e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&FechaI={1}&FechaF={2}&CveUsuarioProgramo={3}&TipoPago={4}&CveUsuarioRegistro={5}&CveUsuarioResponsable={6}&CveClasificacion={7}&CveMoneda={8}&CveEstatus={9}&CveProveedorSucursal={10}&CveAplicaNC={11}&CodigoProgramacion={12}&CveSubProyecto={13}", e.Row.DBCampo("CveProveedor"), If(txtFechaI.Text <> "", txtFechaI.Text, "-1"), If(txtFechaF.Text <> "", txtFechaF.Text, "-1"), CveUsuarioProgramo, -1, DdlUsuarioRegistro.SelectedValue, DdlUsuarioResponsable.SelectedValue, DdlProveedoresClasificaciones.SelectedValue, e.Row.DBCampo("CveMoneda"), DdlEstatusCompra.SelectedValue, e.Row.DBCampo("CveProveedorSucursal"), AplicaNC.SelectedValue, DdlCodigoProgramacion.SelectedValue, DdlSubProyecto.SelectedValue)
+            Dim FiltrarCuentas As Integer = 1
+
+            If ChkVerEnPesos.Checked Then
+                FiltrarCuentas = 0
+            End If
+
+            e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&FechaI={1}&FechaF={2}&CveUsuarioProgramo={3}&TipoPago={4}&CveUsuarioRegistro={5}&CveUsuarioResponsable={6}&CveClasificacion={7}&CveMoneda={8}&CveEstatus={9}&CveProveedorSucursal={10}&CveAplicaNC={11}&CodigoProgramacion={12}&CveSubProyecto={13}&FiltrarCuentas={14}", e.Row.DBCampo("CveProveedor"), If(txtFechaI.Text <> "", txtFechaI.Text, "-1"), If(txtFechaF.Text <> "", txtFechaF.Text, "-1"), CveUsuarioProgramo, -1, DdlUsuarioRegistro.SelectedValue, DdlUsuarioResponsable.SelectedValue, DdlProveedoresClasificaciones.SelectedValue, e.Row.DBCampo("CveMoneda"), DdlEstatusCompra.SelectedValue, e.Row.DBCampo("CveProveedorSucursal"), AplicaNC.SelectedValue, DdlCodigoProgramacion.SelectedValue, DdlSubProyecto.SelectedValue, FiltrarCuentas)
 
         End If
     End Sub