diff --git a/Compras/RepCompras.aspx b/Compras/RepCompras.aspx index 6e8dcf909..27dd1c5b4 100644 --- a/Compras/RepCompras.aspx +++ b/Compras/RepCompras.aspx @@ -1,137 +1,144 @@ -<%@ Page Title="Reporte de Compras" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepCompras.aspx.vb" Inherits="Compras_RepCompras" %> - - - - - - - - - - Reporte de Compras - - -
  • - PDF -
    • -
  • - Excel -
    • -
  • -
    Personalizar
    -
    • -
  • - Ver Dlls en pesos -
    • - + }*/ + + /* 29/05/2018 - ListBoxs */ + .select2 .select2-selection__rendered { + line-height: 1; + color: #111; + } + + .select2 .select2-selection--multiple { + box-sizing: border-box; + cursor: pointer; + display: block; + min-height: 20px; + user-select: none; + -webkit-user-select: none; + } + + .select2-container--default .select2-selection--multiple .select2-selection__choice { + margin-top: 10px; + } + + .select2-selection__rendered { + margin-top: 0px; + height: 25px; + } + + .select2-selection { + margin-top: 0px; + height: 31px; + } + + .select2-container--default.select2-container--focus .select2-selection--multiple { + border: none; + outline: 0; + } + + #chartdiv { + width: 100%; + height: 500px; + } + +     + + + + Reporte de Compras + + +
  • + PDF +
    • +
  • + Excel +
    • +
  • - Ver Grafica + Personalizar
    • -     -     - - - -
    -
    -
    - - -
    -
    -
    -
    Proveedor:
    -
    - + +
  • + Ver Dlls en pesos +
    • + + +
  • + Ver Grafica +
    • +     +     + + + + +
    +
    +
    + + +
    +
    +
    +
    Proveedor:
    +
    + <%-- - --%> -
    -
    + --%> +
    +
    Fecha Inicio: -
    -
    -
    - - - - -
    - - - - - - -
    -
    + +
    +
    +
    + + + + +
    + + + + + + +
    +
    Fecha Fin: -
    -
    -
    - - - - -
    - - - - - - -
    -
    Grupo:
    -
    - + +
    +
    +
    + + + + +
    + + + + + + +
    +
    Grupo:
    +
    + <%-- @@ -143,443 +150,473 @@ - --%> - -
    -
    -
    -
    - +
    + -
    - - -
    - - - - - - + --%> + +
    +
    Tipo Docto:
    +
    + + + + + + + +
    +
    +
    +
    +     +     +
    + + + + + + Grupo - - - - - - - + + + + + + + + Cantidad - - - - - - - + + + + + + + + Sub Total - - - - - - - - + + + + + + + + + Descuento - - - - - - - - + + + + + + + + + Amortización - - - - - - - - + + + + + + + + + IVA - - - - - - - - + + + + + + + + + + IEPS + + + + + + + + + Ret. IVA - - - - - - - - + + + + + + + + + Ret. ISR - - - - - - - - + + + + + + + + + Total - - - - - - - - + + + + + + + + + Sub. Máximo - - - - - - - - + + + + + + + + + Sub. Promedio - - - - - - - - + + + + + + + + + Sub. Mínimo - - - - - - - - + + + + + + + + + Tot. Máximo - - - - - - - - + + + + + + + + + Tot. Promedio - - - - - - - - + + + + + + + + + Tot. Mínimo - - - - - - - + + + + + + + + <%-- - --%> - - - - - - - - - - - - - - - - - - - + + + + + +     + + + + + + + + - + + diff --git a/Compras/RepCompras.aspx.vb b/Compras/RepCompras.aspx.vb index 3173f899a..7b9864e11 100644 --- a/Compras/RepCompras.aspx.vb +++ b/Compras/RepCompras.aspx.vb @@ -130,7 +130,8 @@ Partial Class Compras_RepCompras DdlGrupo.Items.Add(New ListItem("Tipo Gasto", "15")) End Sub - Private Sub CargaCombos() + Private Sub CargaCombos() + txtFechaI.Text = $"01/01/{Now.Year}" 'CargaProveedores DdlProveedores.setEsWebService(True) DdlProveedores.Attributes.Add("data-metodo", "getproveedores") @@ -169,12 +170,9 @@ Partial Class Compras_RepCompras Private Sub ConfiguraEmpresa() - 'Dim ObjEmpresa As New ClsEmpresas() - 'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then - If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(6).Visible = False - If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(7).Visible = False - 'End If - 'ObjEmpresa.Dispose() + ChkIVA.Checked = True + If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False + If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False End Sub Private Sub CargaSubProyecto() @@ -211,11 +209,13 @@ Partial Class Compras_RepCompras CargaDatos() ConfiguraEmpresa() UPDatos.Update() + UPPersonalizar.Update() End Sub Protected Sub BtnTipoCambio_Click(sender As Object, e As EventArgs) CargaDatos() ConfiguraEmpresa() UPDatos.Update() + UPPersonalizar.Update() End Sub Private Sub CargaDatos() Dim ObjCompras As New ClsCompras() @@ -304,61 +304,73 @@ Partial Class Compras_RepCompras If e.Row.DBCampo("AVG_Total").ToDouble = 0 Then e.Row.FCLiteral("LtlAVGTotal").Text = "" If e.Row.DBCampo("MIN_Total").ToDouble = 0 Then e.Row.FCLiteral("LtlMinTotal").Text = "" End If - End Sub - + End Sub + #End Region - + #Region "PERSONALIZAR" + + Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click + If ChkIVA.Checked Then + GvDatos.Columns(5).Visible = True + Else + GvDatos.Columns(5).Visible = False + End If - Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click - If ChkRetIVA.Checked Then + If ChkIEPS.Checked Then GvDatos.Columns(6).Visible = True Else GvDatos.Columns(6).Visible = False - End If - - If ChkRetISR.Checked Then + End If + + If ChkRetIVA.Checked Then GvDatos.Columns(7).Visible = True Else GvDatos.Columns(7).Visible = False End If - If ChkMinSub.Checked Then - GvDatos.Columns(9).Visible = True + If ChkRetISR.Checked Then + GvDatos.Columns(8).Visible = True Else - GvDatos.Columns(9).Visible = False + GvDatos.Columns(8).Visible = False End If - If ChkAVGSub.Checked Then + If ChkMinSub.Checked Then GvDatos.Columns(10).Visible = True Else GvDatos.Columns(10).Visible = False End If - If ChkMaxSub.Checked Then + If ChkAVGSub.Checked Then GvDatos.Columns(11).Visible = True Else GvDatos.Columns(11).Visible = False End If - If ChkMinTot.Checked Then + If ChkMaxSub.Checked Then GvDatos.Columns(12).Visible = True Else GvDatos.Columns(12).Visible = False End If - If ChkAvgTot.Checked Then + If ChkMinTot.Checked Then GvDatos.Columns(13).Visible = True Else GvDatos.Columns(13).Visible = False End If - If ChkMaxTot.Checked Then + If ChkAvgTot.Checked Then GvDatos.Columns(14).Visible = True Else GvDatos.Columns(14).Visible = False End If + If ChkMaxTot.Checked Then + GvDatos.Columns(15).Visible = True + Else + GvDatos.Columns(15).Visible = False + End If + UPDatos.Update() End Sub diff --git a/Compras/RepComprasDetalle.aspx b/Compras/RepComprasDetalle.aspx index f00545904..a2cbbff15 100644 --- a/Compras/RepComprasDetalle.aspx +++ b/Compras/RepComprasDetalle.aspx @@ -1,172 +1,183 @@ -<%@ Page Title="Reporte de Compras Clasificación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComprasDetalle.aspx.vb" Inherits="Compras_RepComprasDetalle" %> - -<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - - - <%----%> -
  • - Generar PDF -
    • -
  • +<%@ Page Title="Reporte de Compras Clasificación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComprasDetalle.aspx.vb" Inherits="Compras_RepComprasDetalle" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + <%----%> +
  • + Generar PDF +
    • + +
  • Exportar Excel - -
    • -
  • + +
    • +
  • Imprimir Remesa - -
    • -
  • - Ver Dlls en pesos -
    • - - -
  • - Ver Grafica -
    • -     -     -     - - Reporte de Compras Detalle - - - - - - - - - - -
    -
    -
    - - -
    -
    -
    -
    Proveedor:
    -
    - + + + + +
  • + Personalizar +
    • +     +     +
  • + Ver Dlls en pesos +
    • + + +
  • + Ver Grafica +
    • +     +     + + + Reporte de Compras Detalle + + + + + + + + + + +
    +
    +
    + + +
    +
    +
    +
    Proveedor:
    +
    + <%-- - --%> -
    -
    + --%> +
    +
    Fecha Inicio: -
    -
    -
    - - - - -
    - - - - - - -
    -
    + +
    +
    +
    + + + + +
    + + + + + + +
    +
    Fecha Fin: -
    -
    -
    - - - - -
    - - - - - - -
    -
    Grupo:
    -
    - + +
    +
    +
    + + + + +
    + + + + + + +
    +
    Grupo:
    +
    + <%-- @@ -178,334 +189,408 @@ - --%> - -
    -
    -
    -
    - +
    + -
    - - -
    - - - - - - + --%> + +
    +
    Tipo Docto:
    +
    + + + + + + + +
    +
    +
    +
    +     +     +
    + + + + + + Fecha - - - - - - - + + + + + + + + Serie/Folio - - - - - - - + + + + + + + + Cant. - - - - - - - + + + + + + + + SubTotal - - - - - - - + + + + + + + + IVA - - - - - - - + + + + + + + + + IEPS + + + + + + + + Descuentos - - - - - - - + + + + + + + + Total - - - - - - - + + + + + + + + Moneda - - - - - - - - + + + + + + + + + Proveedor - - - - - - - + + + + + + + + Folio Inv - - - - - - - + + + + + + + + Fecha Movimiento - - - - - - - - - - - - - + + + + + + + + + + + + + +     + + + + + + + + + - + + diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index ada9dcb43..db2c11126 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/Compras/RepComprasDetalle.aspx.vb @@ -159,6 +159,16 @@ Partial Class Compras_RepComprasDetalle End If DdlTipoProveedor.SelectedValueExist(CveTipoProveedor) DdlTipoDocto.SelectedValueExist(TipoDocto) + + ChkIVA.Checked = True + ChkIEPS.Checked = True + ChkDesc.Checked = True + ChkTotal.Checked = True + ChkAbre.Checked = True + ChkRazon.Checked = True + ChkFolio.Checked = True + ChkFecha.Checked = True + End Sub Private Sub CargaGrupo() @@ -582,11 +592,63 @@ Partial Class Compras_RepComprasDetalle Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs) CambioGrafica() - End Sub - + End Sub + #End Region + + Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click + If ChkIVA.Checked Then + GvDatos.Columns(4).Visible = True + Else + GvDatos.Columns(4).Visible = False + End If + If ChkIEPS.Checked Then + GvDatos.Columns(5).Visible = True + Else + GvDatos.Columns(5).Visible = False + End If + + If ChkDesc.Checked Then + GvDatos.Columns(6).Visible = True + Else + GvDatos.Columns(6).Visible = False + End If + + If ChkTotal.Checked Then + GvDatos.Columns(7).Visible = True + Else + GvDatos.Columns(7).Visible = False + End If + If ChkAbre.Checked Then + GvDatos.Columns(8).Visible = True + Else + GvDatos.Columns(8).Visible = False + End If + If ChkRazon.Checked Then + GvDatos.Columns(9).Visible = True + Else + GvDatos.Columns(9).Visible = False + End If + + If ChkFolio.Checked Then + GvDatos.Columns(10).Visible = True + Else + GvDatos.Columns(10).Visible = False + End If + + If ChkFecha.Checked Then + GvDatos.Columns(11).Visible = True + Else + GvDatos.Columns(11).Visible = False + End If + + UPDatos.Update() + End Sub + + + End Class