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/Empresas/Grales/Formatos/RepAlmacen.rdlc b/Empresas/Grales/Formatos/RepAlmacen.rdlc index 945946299..4359d05d5 100644 --- a/Empresas/Grales/Formatos/RepAlmacen.rdlc +++ b/Empresas/Grales/Formatos/RepAlmacen.rdlc @@ -268,11 +268,6 @@ =Fields!Almacen.Value - - - =Fields!Almacen.Value - - 5cm @@ -594,8 +589,8 @@ Textbox9 0.06cm 1.60042cm - 0.68085cm - 2.6852cm + 0.42502cm + 5.39277cm 2 + 0in 0cm 19.26933cm 5 diff --git a/SigAyuda.aspx b/SigAyuda.aspx index 4b4f934bf..137278830 100644 --- a/SigAyuda.aspx +++ b/SigAyuda.aspx @@ -116,15 +116,15 @@ - - - + + + +

    Manual del Rol

    -
    diff --git a/SigAyuda.aspx.vb b/SigAyuda.aspx.vb index 9a8704cdc..4a12070b3 100644 --- a/SigAyuda.aspx.vb +++ b/SigAyuda.aspx.vb @@ -28,7 +28,6 @@ Partial Class Metronic_SigAyuda If ObjRoles.DtResultados IsNot Nothing AndAlso ObjRoles.DtResultados.Rows.Count = 1 Then Me.Adjunto = ObjRoles.DtResultados.Rows(0)("Adjunto").ToString() If Not String.IsNullOrEmpty(Me.Adjunto) Then - linkDescargaRol.HRef = $"javascript:downFile('{Me.Adjunto}');" DivPerfil.Visible = True End If End If @@ -39,6 +38,26 @@ Partial Class Metronic_SigAyuda UpAdjunto.Update() End If End Sub + Private Sub DescargaArchivoDirecto(RutaArchivo As String) + If RutaArchivo <> "" Then + + 'Dim Path As String = String.Format("{0}\{1}", UsuarioActual.Empresa.Ruta, RutaArchivo) + Dim Archivo As New System.IO.FileInfo(RutaArchivo) + + If Archivo.Exists Then + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = "application/octet-stream" + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(RutaArchivo) + 'HttpContext.Current.Response.Flush() + HttpContext.Current.Response.End() + End If + Archivo = Nothing + End If + End Sub + Protected Sub btnDownload_Click(sender As Object, e As EventArgs) Try Dim docto As String = TxtDocto.Text.Replace("/", "\") @@ -67,4 +86,8 @@ Partial Class Metronic_SigAyuda End Sub + + Protected Sub LnkDescargarManualRol_Click(sender As Object, e As EventArgs) + DescargaArchivoDirecto($"{UsuarioActual.Empresa.Ruta}Roles/{Me.Adjunto}") + End Sub End Class diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index b06befc54..1efebbdae 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 @@ -19785,15 +19797,17 @@ Partial Class Ventas Serie:=If(DIVCod.Visible, TxtCodigoSerie.Text.Trim, ""), TiempoEntrega:=TxtTiempoEntrega.Text, CuentaPredial:=TxtCuentaPredial.Text.Trim, RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=ObjDescuento.CvePromocionDetalle, ImporteProntoPago:=ObjDescuento.ImporteProntoPago, ObjDescuento:=ObjDescuento, CvePrecioLista:=CvePrecioListaPS, PrecioLista:=PrecioListaPS, NumTurnos:=NumTurnos, Costo:=Costo) + 'CALCULA EN BASE AL ULTIMO AGREGADO + If TmpDT.Rows.Count > 0 Then + CalculaPSPromocionFiltrosLubricantes(TmpDT.Rows(TmpDT.Rows.Count - 1)) + End If + CalculaUsados() If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso ListaDescuentos IsNot Nothing AndAlso ObjDescuento IsNot Nothing Then ListaDescuentos.Add(ObjDescuento) End If - 'CALCULA EN BASE AL ULTIMO AGREGADO - CalculaPSPromocionFiltrosLubricantes(TmpDT.Rows(TmpDT.Rows.Count - 1)) - CalculaTotalesVenta() LimpiaAgregar()