diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 4519bd0b3..8d8369a89 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -336,7 +336,7 @@ Public Class ClsVentas Optional ObservacionesAlmacen As String = "", Optional CveSubProyecto As Integer = -1, Optional CveSubProyectoEjecucion As Integer = -1, Optional CveSubProyectoCobranza As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0, Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, - Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False) As Boolean + Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasAdd") @@ -424,6 +424,7 @@ Public Class ClsVentas .Add("@AnticipoEspecial", SqlDbType.Bit).Value = AnticipoEspecial .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje .Add("@EsAmortizacion", SqlDbType.Bit).Value = EsAmortizacion + .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With @@ -4287,7 +4288,7 @@ Public Class ClsVentas End Try Return retorno End Function - Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal) As Boolean + Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal, CveClasificacion As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Vta_MetasVendedoresAdd", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters @@ -4296,12 +4297,84 @@ Public Class ClsVentas .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@MetaCantidad", SqlDbType.Int).Value = MetaCantidad .Add("@MetaImporte", SqlDbType.Decimal).Value = MetaImporte + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion End With Try SqlAdapter.Fill(Data) retorno = True Catch ex As Exception - OnError("Ocurrió un error al obtener el reporte de ventas mensuales", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al agregar metas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + Public Function GetMetasVendedores(CveEmpresa As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_MetasVendedoresGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de metas de los vendedores", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + Public Function RemoveMetasVendedores(CveEmpresa As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_MetasVendedoresDelete", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMeta", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar una meta", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + Public Function UpdateMetasVendedores(CveMeta As Integer, CveVendedor As Integer, MesAño As String, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal, + CveClasificacion As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_MetasVendedoresUpdate", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMeta", SqlDbType.Int).Value = CveMeta + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@MesAño", SqlDbType.DateTime).Value = MesAño + .Add("@CveMarca", SqlDbType.Int).Value = CveMarca + .Add("@MetaCantidad", SqlDbType.Int).Value = MetaCantidad + .Add("@MetaImporte", SqlDbType.Decimal).Value = MetaImporte + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar una meta", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + Public Function GetRepMetasVendedores(FechaMesActual As String, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer, + CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_MetasVendedores", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaMesActual", SqlDbType.DateTime).Value = FechaMesActual + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 + .Add("@CveMarca", SqlDbType.Int).Value = CveMarca + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de metas por vendedores", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return retorno End Function diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index b5fc67326..b261ef977 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2928,7 +2928,7 @@ Namespace Modelos End If Case 8 'Ret IVA por Trasladar - If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then + If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso ObjFactura.CveTipoRetencion <> 4 Then 'SI NO ES RETENCION DE IVA DE SERVICIOS importeMovimiento = (ObjFactura.RetIVA * ValorMultiplicador) importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago @@ -2956,6 +2956,26 @@ Namespace Modelos End If End If End If + End If + + Case 313 'Ret Iva Servicios + If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso ObjFactura.CveTipoRetencion = 4 Then 'SI TIENE RETENCION DE IVA DE SERVICIOS + importeMovimiento = ObjFactura.RetIVA * ValorMultiplicador + importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador + FechaMovimiento = ObjFactura.FechaPago + CveSubProyectoContabilizar = CveSubProyectoVenta + If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" + + 'OBTENER CUENTAS + If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then + If ObjConta.DtResultados.Rows.Count > 0 Then + 'Conta ContPAQ + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero + 'Conta SIG + CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero + End If + End If + End If Case 9 'Ret ISR por Trasladar @@ -5744,6 +5764,8 @@ Namespace Modelos Public Property EsNCAmortizacion As Boolean Public Property Kilometraje As Decimal + Public Property CveTipoRetencion As Integer + #End Region diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 8c0308a63..2609cc2f7 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1138,8 +1138,9 @@ Partial Class PopUpVerFactura Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer) Dim ObjInventarios As New ClsInventarios - ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) - Dim CveConcepto = ObjInventarios.CveConcepto + ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) + + Dim CveConcepto As Integer = ObjInventarios.CveConcepto Dim Folio As String = ObjInventarios.Folio.ToString Dim CveCompra = ObjInventarios.CveCompra Dim Fecha As String = ObjInventarios.Fecha.ToShortDateString @@ -1201,6 +1202,11 @@ Partial Class PopUpVerFactura Dim DepartamentoEntrega As String = ObjInventarios.DepartamentoEntrega Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro + Dim CveMovimientoRelacionado As Integer = -1 + If UsuarioActual.CveEmpresa = 140 AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then + CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero() + End If + If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Then 'SALIDA Y DEVOLUCION DEL CLIENTE If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa) Then DtMovimientos = ObjInventarios.DtResultados @@ -1214,7 +1220,29 @@ Partial Class PopUpVerFactura End If Else If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then - DtMovimientos = ObjInventarios.DtResultados + DtMovimientos = ObjInventarios.DtResultados.Copy() + + If UsuarioActual.CveEmpresa = 140 AndAlso CveMovimientoRelacionado > 0 Then + If ObjInventarios.GetMovimientos(CveMovimientoRelacionado, -1, -1, UsuarioActual.CveEmpresa) Then + Dim CveAlmacenRelacionado As Integer = ObjInventarios.CveAlmacen + Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero + + 'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION + If CveTipoAlmacenRelacionado = 24 Then + If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then + Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy() + Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1 + + For Each Dr As DataRow In DtUsados.Rows + Dr("No") = IndexInicialUsados + IndexInicialUsados += 1 + Next + + DtMovimientos.Merge(DtUsados) + End If + End If + End If + End If DtMovimientos.Columns("No").AutoIncrement = True DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1 @@ -1996,7 +2024,6 @@ Partial Class PopUpVerFactura End If - Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta)) If Archivo.Exists Then params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text @@ -2487,7 +2514,11 @@ Partial Class PopUpVerFactura End If 'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", "Salida por Prestamo")) + If CveConcepto = 21 Then + params.Add(New ReportParameter("Concepto", "Salida por Prestamo")) + Else + params.Add(New ReportParameter("Concepto", "Entrada por Prestamo")) + End If params.Add(New ReportParameter("Almacen", Almacen)) params.Add(New ReportParameter("Fecha", Fecha)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) 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..060289af1 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() @@ -387,8 +397,8 @@ Partial Class Compras_RepComprasDetalle ImprimirPDF(String.Format("{0}Formatos\Remesa.rdlc", UsuarioActual.Empresa.Ruta), DtDatos.FiltraParametros("CveCompra > 0"), params, "Remesa", RDSName:="DsCompras") End Sub Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click - 'GvDatos.ExportToExcel("ReporteComprasClasificacion" & Now.ToShortDateString) - GenerarPDF("EXCEL") + GvDatos.ExportToExcel("ReporteComprasDetalles" & Now.ToShortDateString) + 'GenerarPDF("EXCEL") End Sub Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) @@ -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 diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index 14d01b097..64cddcd84 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -477,7 +477,7 @@ true - 6.39118in + 6.06618in 0.06752in 1.60919in 8.23953in @@ -1262,7 +1262,7 @@ DsOC - 2.12778in + 1.92778in 0.09836in 0.36206in 8.16634in @@ -1288,7 +1288,7 @@ Textbox5 - 8.90041cm + 8.32309cm 0.28014cm 0.05496cm 20.88652cm @@ -1318,17 +1318,12 @@ - + - - + + + =Parameters!ClienteRFC.Value + @@ -2086,41 +2088,6 @@ 2pt - - true - true - - - - - =Parameters!ClienteRFC.Value - - - - - - - Textbox35 - 4.77809cm - 0.26772cm - 0.52062cm - 9.72441cm - 14 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2168,11 +2135,11 @@ Textbox4 - 6.3831cm + 5.8751cm 1.74571cm 1.05328cm 17.71415cm - 15 + 14 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") > 0),false,true) @@ -2307,11 +2274,11 @@ Textbox4 - 9.72545cm + 8.96468cm 0.22108cm 2.03224cm 20.79751cm - 16 + 15 @@ -2337,11 +2304,11 @@ Textbox5 - 13.43309cm - 0.21585cm + 12.60759cm + 0.24983cm 0.05496cm 20.88652cm - 17 + 16 @@ -2357,11 +2324,11 @@ Embedded ID5 FitProportional - 11.91239cm - 0.17151cm + 11.06748cm + 0.28014cm 0.96488cm 3.75909cm - 18 + 17 @@ -2415,11 +2382,11 @@ Textbox4 - 12.95598cm + 12.13048cm 0.19008cm 0.40655cm 12.88812cm - 19 + 18 @@ -2434,11 +2401,11 @@ Embedded ID4 FitProportional - 11.91239cm - 4.34941cm + 11.06748cm + 4.45804cm 0.91769cm 3.03541cm - 20 + 19 @@ -2449,11 +2416,11 @@ Embedded ID1 FitProportional - 11.91239cm - 7.56121cm + 11.06748cm + 7.66984cm 0.97656cm 4.16281cm - 21 + 20 @@ -2464,11 +2431,11 @@ Embedded ID6 FitProportional - 11.91239cm - 11.90634cm + 11.06748cm + 12.01497cm 0.97656cm 3.76809cm - 22 + 21 @@ -2479,11 +2446,11 @@ Embedded ID3 FitProportional - 12.4824cm - 15.67443cm + 11.63749cm + 15.78306cm 0.93046cm 5.37042cm - 23 + 22 @@ -2511,11 +2478,11 @@ Textbox60 - 11.91239cm + 11.08689cm 15.67443cm 0.50299cm 5.42547cm - 24 + 23 @@ -2568,7 +2535,7 @@ 17.09066cm 0.64028cm 3.90165cm - 25 + 24 @@ -2709,11 +2676,11 @@ Textbox4 - 13.59388cm + 12.76838cm 0.16383cm 2.44366cm 15.5106cm - 26 + 25 @@ -2744,11 +2711,11 @@ Textbox19 - 5.33803in + 5.01303in 6.21617in 0.17708in 0.94607in - 27 + 26 @@ -2779,11 +2746,11 @@ Textbox19 - 5.5305in + 5.2055in 6.21616in 0.17966in 0.94607in - 28 + 27 @@ -2814,11 +2781,11 @@ Textbox19 - 5.72949in + 5.40449in 6.21616in 0.18819in 0.94607in - 29 + 28 @@ -2849,11 +2816,11 @@ Textbox19 - 5.93574in + 5.61074in 6.22658in 0.17119in 0.94607in - 30 + 29 @@ -2885,11 +2852,11 @@ Textbox19 - 6.12637in + 5.80137in 6.237in 0.19596in 0.94607in - 31 + 30 @@ -2921,11 +2888,11 @@ Textbox42 - 5.33803in + 5.03803in 7.16224in 0.17708in 0.98426in - 32 + 31 @@ -2956,11 +2923,11 @@ Textbox42 - 5.5305in + 5.2305in 7.16224in 0.17966in 0.98425in - 33 + 32 @@ -2991,11 +2958,11 @@ Textbox42 - 5.72949in + 5.42949in 7.17266in 0.18819in 0.98425in - 34 + 33 @@ -3027,11 +2994,11 @@ Textbox42 - 5.93574in + 5.63574in 7.17266in 0.17119in 0.98425in - 35 + 34 @@ -3063,11 +3030,11 @@ Textbox42 - 6.12637in + 5.82637in 7.18308in 0.19596in 0.98425in - 36 + 35 @@ -3101,10 +3068,10 @@ Textbox90 1.88947cm - 8.42669cm + 6.75122cm 0.82021cm - 3.83789cm - 37 + 5.51336cm + 36 @@ -3130,11 +3097,11 @@ Textbox5 - 16.14337cm + 15.2826cm 0.10579cm 0.05496cm 20.88652cm - 38 + 37 @@ -3148,6 +3115,7 @@ true + true true @@ -3176,11 +3144,11 @@ Textbox3 - 7.43638cm + 6.92838cm 1.15361cm 1.32415cm 19.15078cm - 39 + 38 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20342 or Fields!CveClasificacion.Value = 20341,1,0), "DsOC") > 0),false,true) @@ -3195,7 +3163,7 @@ - 20.32094cm + 19.49544cm