From c164b068e7027647a7d0765a52aad18875eb4aa0 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 28 Sep 2024 10:09:36 -0700 Subject: [PATCH] --Puntos GDiaz --- Bancos/ProveedoresAbonar.aspx | 1040 ++++++++++++++++-------------- Bancos/ProveedoresAbonar.aspx.vb | 18 + Ventas/Ventas.aspx.vb | 12 + 3 files changed, 569 insertions(+), 501 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index d4318ac11..f431d8275 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -1,258 +1,262 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ProveedoresAbonar.aspx.vb" Inherits="Bancos_ProveedoresAbonar" %> - - - - - - - - - - -
  • - Saldar Cuentas Sin Pagar -
    • -     -     -
  • - PDF Solicitud -
    • -
  • - Excel Solicitud -
    • -     - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ProveedoresAbonar.aspx.vb" Inherits="Bancos_ProveedoresAbonar" %> + + + + + + + + + + +
  • + Saldar Cuentas Sin Pagar +
    • +     +     +
  • + PDF Solicitud +
    • +
  • + Excel Solicitud +
    • +     + Pago Proveedor: - - - - - - -
    - -
    - - - -
    -
    - -
    - - - - - - -
    - -
    - - -
    -
    -
    - -
    - - - - - -
    -
    + + + + + + + + +
    + +
    + + + +
    +
    + +
    + + + + + + +
    + +
    + + +
    +
    +
    + +
    + + + + + +
    +
    T.C.: - - - - - -
    -
    -
    - -
    - -
    -
    -
    - -
    -
    -
    - -
    - -
    -
    - - + + + + + + +
    +
    +
    + +
    + +
    +
    +
    + +
    +
    +
    + +
    + +
    +
    + + - - -
    - - - - - - - - - - - - - -
    -
    -
    - -
    - - - -
    -
    - -
    - $ - - - -
    - -
    -
    -
    - -
    - -
    - -
    -
    - $ - - - -
    -
    -
    - -
    - - -
    -
    - -
    -
    -
    - -
    - - -
    -
    + + +
    + + + + + + + + + + + + + +
    +
    +
    + +
    + + + +
    +
    + +
    + $ + + + +
    + +
    +
    +
    + +
    + +
    + +
    +
    + $ + + + +
    +
    +
    + +
    + + +
    +
    + +
    +
    +
    + +
    + + +
    +
    Notificar por correo -
    -
    - - -
    - -
    - - - - -
    -
    -
    - -
    - - - -
    - -
    - + +
    +
    + + +
    + +
    + + + + +
    +
    +
    + +
    + + + +
    + +
    + <%-- - --%> -
    -
    -     -     -
    - -
    - - - - Otros Egresos - -
    -
    - - -
    -
    -
    - -
    -     -     -
    -
    - - -
    - -
    -     -     -
    -
    -
    + --%> +
    +
    + + +
    + +
    + + - + Otros Egresos + +
    +
    + + +
    +
    +
    + +
    + + +
    +
    + + +
    + +
    +     +     +
    +
    +
    <%-- - --%> - - - - - - - - - - - - - - - - - - - + --%> + + +
    Paguese a: -
    RFC del Proveedor: -
    Importe Total ($): -
    IVA ($): -
    + + + + + + + + + + + + + + + + <%-- - --%> -
    Paguese a: +
    RFC del Proveedor: +
    Importe Total ($): +
    IVA ($): +
    Cuentas de pago: @@ -282,16 +286,16 @@
    -     -     - - - - - - + --%> + + + + + + + + + <%--
    @@ -316,248 +320,282 @@
    -
    --%> -     -     -     - -
    -
    - -
    -
    - - - - - - - - -
    - - - - - - - -
    - -     -     -
    -
    - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" /> - " class="btn btn-circle btn-sm label-info"> -
    -     -     - - +
    --%> + + + + +
    + + +
    +
    + + + + + + + + +
    + + + + + + + +
    + +     +     +
    +
    + - - - <%-- 0 --%> - - - - - - - <%-- 1 --%> - - Factura - - - - - <%-- 2 --%> - - Aplica NC - - - - - <%-- 3 --%> - - - - - - <%-- 4 --%> - - Descripción - -   - - - - - <%-- 5 --%> - - Fecha Compra - - - - - <%-- 6 --%> - - Vencimiento - - - - - <%-- 7 --%> - - Días Vencidos - -   - - - - <%-- 8 --%> - - Monto Compra - -   - - - - <%-- 9 --%> - - Abonado - -   - - - - <%-- 10 --%> - - Saldo - -   - - - - <%-- 11 --%> - - % Desc. - - - - - - - <%-- 12 --%> - - Abonar - - - - - - <%-- 13 --%> - - Comisión - - - +
    + " style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" /> + " class="btn btn-circle btn-sm label-info"> +
    +     +     - - - <%-- 14 --%> - - Auxiliar - - - - - + + + + + <%-- 0 --%> + + + + + + + <%-- 1 --%> + + Factura + + + + + <%-- 2 --%> + + Aplica NC + + + + + <%-- 3 --%> + + + + + + <%-- 4 --%> + + Descripción + +   + + + + + <%-- 5 --%> + + Fecha Compra + + + + + <%-- 6 --%> + + Vencimiento + + + + + <%-- 7 --%> + + Días Vencidos + +   + + + + <%-- 8 --%> + + Monto Compra + +   + + + + <%-- 9 --%> + + Abonado + +   + + + + <%-- 10 --%> + + Saldo + +   + + + + <%-- 11 --%> + + % Desc. + + + - + + + <%-- 12 --%> + + Abonar + + + + + + <%-- 13 --%> + + Comisión + + + - - - - - - <%-- MODAL SALDAR INCOBRABLE--%> - + <%-- FIN MODAL SALDAR INCOBRABLE--%> + + + + +     + - + + +     diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index dd8d8709c..784cf9acf 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -223,6 +223,15 @@ Partial Class Bancos_ProveedoresAbonar ChkNoValidaSAT.Visible = True End If + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + HplCambiarProveedor.Visible = True + + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.SelectedText = "Todos" + DdlProveedores.SelectedValue = "-1" + End If + PermiteModificarImporte = True TxtFechaIncobrable.Text = NowADS().ToShortDateString @@ -1722,5 +1731,14 @@ Partial Class Bancos_ProveedoresAbonar End If End Sub + + Protected Sub BtnCambiarProveedor_Click(sender As Object, e As EventArgs) + If DdlProveedores.SelectedValue.ToEntero() <= 0 Then + Alert("Debe seleccionar un proveedor", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + Dim url As String = 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}", DdlProveedores.SelectedValue, Request("FechaI").ToString(), Request("FechaF").ToString(), Request("CveUsuarioProgramo").ToString(), -1, Request("CveUsuarioRegistro").ToString(), Request("CveUsuarioResponsable").ToString(), Request("CveClasificacion").ToString(), Request("CveMoneda").ToString(), Request("CveEstatus").ToString(), Request("CveProveedorSucursal").ToString(), Request("CveAplicaNC").ToString(), Request("CodigoProgramacion").ToString(), Request("CveSubProyecto").ToString()) + Response.Redirect(url) + End Sub End Class diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c76d61d32..b5c588b7b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -7723,6 +7723,18 @@ Partial Class Ventas ' RBLPago.SelectedValue = "2" 'End If + If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso Me.PermiteCredito Then + If IfNull(Request("Op"), "").ToString() = "Cot" OrElse (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then + Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) + If CreditoDispo > 0 Then + TrCreditoDisponible.Visible = True + LblCreditoDisponible.Text = CreditoDispo.FormatoNumero + TrPorcentajeCredito.Visible = True : LblPorcentajeCredito.Text = $"{PorcentajeCredito.FormatoNumero}%" + End If + + End If + End If + If Not EsFilial AndAlso (((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta <= 0) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) AndAlso RBLPago.SelectedValue = "1" AndAlso PermiteCredito) Then 'FUNCIONALIDAD 702 - NO VERIFICAR LIMITE DE CRÉDITO Y CANDADOS DE VENTA If Not UsuarioActual.Empresa.Funcionalidad(702) = "1" Then