From 72db432b5ea53ad8a343ec14bc0ddc99621a01a9 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 27 Aug 2020 15:07:33 -0700 Subject: [PATCH 01/33] =?UTF-8?q?nuevo=20reporte=20para=20impresi=C3=B3n?= =?UTF-8?q?=20del=20documento=20detalle?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Formatos/RepClientesPagosBancos.rdlc | 73 ++++++------------- Empresas/Grales/Formatos/RepOCPorAtender.rdlc | 8 +- OI/DocumentoDetalle.aspx | 10 +++ OI/DocumentoDetalle.aspx.cs | 55 +++++++++++++- 4 files changed, 93 insertions(+), 53 deletions(-) diff --git a/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc b/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc index 574f43d48..fbf8a8cbf 100644 --- a/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc +++ b/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc @@ -52,10 +52,10 @@ 4.42895cm - 3.2021cm + 3.06732cm - 3.36938cm + 3.6031cm 2.89562cm @@ -156,7 +156,7 @@ - Fecha Ven. + Fecha Vencimiento. @@ -191,7 +191,7 @@ - Movto. + Cheque. @@ -226,14 +226,14 @@ - Abono + Abonado @@ -250,47 +250,14 @@ 2pt + 2 - - - - true - true - - - - - - - - - - - - Textbox21 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - + - 0.6cm + 0.46771cm @@ -303,7 +270,8 @@ = IIF( IsNothing(Fields!CveVenta.Value) , (Fields!Banco.Value & " - " & Fields!NumCuenta.Value),Fields!SerieFolio.Value) @@ -336,7 +304,8 @@ =Fields!Fecha.Value @@ -372,7 +341,8 @@ = IIF( IsNothing(Fields!CveVenta.Value), Fields!FechaDocumento.Value,Fields!FechaVencimiento.Value) @@ -408,7 +378,8 @@ = IIF( IsNothing(Fields!CveVenta.Value) , Fields!FolioCobro.Value,"") @@ -441,7 +412,8 @@ =Fields!ImporteAbonado.Value @@ -478,7 +450,8 @@ =IIF(Fields!CveVenta.Value > 0,Fields!MonedaVenta.Value, Fields!MonedaIE.Value) @@ -527,8 +500,8 @@ DataSet1 1.00112cm 0.12912cm - 1.2cm - 19.74272cm + 1.06771cm + 19.84166cm 2 <%----%> - Proyecto: + Proyecto: @@ -70,7 +74,10 @@ - + + + + @@ -142,11 +168,19 @@ - + + + + + + + + + diff --git a/Ventas/RepPS.aspx.vb b/Ventas/RepPS.aspx.vb index fcef61fbb..00101529a 100644 --- a/Ventas/RepPS.aspx.vb +++ b/Ventas/RepPS.aspx.vb @@ -33,6 +33,39 @@ Partial Class Ventas_RepPS Private Sub CargaCombos() CargaTipoCentroCosto() + DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + DdlClasificacion.DataBind() + + DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then + DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue) + DdlPS.SelectedText = "" + DdlPS.SelectedValue = "-1" + Else + DdlPS.ddl.Items.Clear() + DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero) + DdlPS.ddl.DataBind() + DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) + End If + + + If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then + DivMarca.Visible = True + LblMarca.Visible = True + LblLinea.Visible = True + DivLinea.Visible = True + + Using ObjMarcas As New ClsProductosServicios + If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then + DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados + DdlMarcaPSDes.DataBind() + End If + End Using + End If + + DdlLinea.DataSource = GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa) + DdlLinea.DataBind() + 'DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1")) End Sub Private Sub CargaTipoCentroCosto() @@ -70,9 +103,12 @@ Partial Class Ventas_RepPS Private Sub CargaDatos() + Dim Clasificacion As String = If(DdlClasificacion.GetSelectedValuesM = "", "-1", DdlClasificacion.GetSelectedValuesM) + Dim Linea As String = If(DdlLinea.GetSelectedValuesM = "", "-1", DdlLinea.GetSelectedValuesM) + Dim Marca As String = If(DdlMarcaPSDes.GetSelectedValuesM = "", "-1", DdlMarcaPSDes.GetSelectedValuesM) Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero() Dim Grupo As Integer = DdlGrupo.SelectedValue.ToEntero() - Dim CvePS As Integer = -1 + Dim CvePS As Integer = DdlPS.SelectedValue.ToEntero() Dim CveMoneda As Integer = -1 Dim TC As Integer = 1 Dim TCEspecifico As Decimal = -1 @@ -81,7 +117,7 @@ Partial Class Ventas_RepPS FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha) Dim ObjVentas As New ClsVentas() - If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico) Then + If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico, Clasificacion:=Clasificacion, Linea:=Linea, Marca:=Marca) Then DtReporte = ObjVentas.DtResultados.Copy() GvDatos.DataSource = DtReporte Else @@ -97,14 +133,25 @@ Partial Class Ventas_RepPS If e.Row.RowType = DataControlRowType.DataRow Then Select Case e.Row.DBCampo("Orden").ToString.ToEntero() Case 4 + + e.Row.Cells(0).ColumnSpan = 2 + e.Row.Cells(1).Visible = False e.Row.CssClass = "Totales" Case 3 + e.Row.Cells(0).ColumnSpan = 2 + e.Row.Cells(1).Visible = False e.Row.CssClass = "SubTotales2" Case 2 + e.Row.Cells(0).ColumnSpan = 2 + e.Row.Cells(1).Visible = False e.Row.CssClass = "SubTotales" Case 1 + e.Row.Cells(0).ColumnSpan = 2 + e.Row.Cells(1).Visible = False e.Row.CssClass = "SubTotalesB" Case 0 + e.Row.Cells(0).ColumnSpan = 1 + e.Row.Cells(1).Visible = True e.Row.CssClass = "Texto" End Select End If diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index 6f25b6b3a..961687d51 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -295,12 +295,12 @@ Partial Class Ventas_RepProductosServicios DivMarca.Visible = True LblMarca.Visible = True - Dim ObjMarcas As New ClsProductosServicios - If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then - DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados - ObjMarcas.Dispose() - DdlMarcaPSDes.DataBind() - End If + Using ObjMarcas As New ClsProductosServicios + If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then + DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados + DdlMarcaPSDes.DataBind() + End If + End Using End If DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1")) End Sub diff --git a/packages.config b/packages.config index e62d14c90..88f1d754c 100644 --- a/packages.config +++ b/packages.config @@ -26,7 +26,7 @@ - + From 03b322f5f6a80a1e9f21789a1b20ef5507af6c12 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 1 Sep 2020 11:04:53 -0700 Subject: [PATCH 15/33] =?UTF-8?q?validaci=C3=B3n=20para=20mostrar=20una=20?= =?UTF-8?q?pesat=C3=B1a=20en=20ventas,=20en=20oc=20se=20recupera=20el=20us?= =?UTF-8?q?uario=20asignado?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/OC.aspx.vb | 12 +++++++++++- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 645cf0e68..8df2ee5f5 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -18,6 +18,14 @@ Partial Class OC ViewState("CveEmpresaActual") = value End Set End Property + Private Property CveUsuarioAsignado As Integer + Get + Return If(IsNothing(ViewState("CveUsuarioAsignado")), -1, ViewState("CveUsuarioAsignado").ToString.ToEntero) + End Get + Set(value As Integer) + ViewState("CveUsuarioAsignado") = value + End Set + End Property Private Property TipoOC As String Get TipoOC = ViewState("TipoOC").ToString @@ -1212,7 +1220,7 @@ Partial Class OC MPContrato.Enabled = False 'SOLICITUD DE ANTICIPO CveIEAnticipo = objOC.CveIEAnticipo - + CveUsuarioAsignado = objOC.CveUsuarioAsignado 'LtImporteIEAnticipo.Text = objOC.ImporteAnticipo.FormatoNumero 'LtFolioIEAnticipo.Text = $"{objOC.FolioIEAnticipo}" @@ -5400,6 +5408,8 @@ Partial Class OC DdlUsuariosAsignado.DataSource = GlobalDTUsuarios(CveEmpresa:=CveEmpresaActual).FiltraParametros("Estatus = 1", "Nombre") DdlUsuariosAsignado.DataBind() DdlUsuariosAsignado.Items.Insert(0, New ListItem(" - ", "-1")) + DdlUsuariosAsignado.SelectedValueExist(CveUsuarioAsignado) + End If Else VerificaCotizacionesGanadoras() diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9843d7605..56ab2f9d3 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3668,7 +3668,7 @@ Partial Class Ventas HlCuentaTerminal.Visible = True End If CargarSaldoAuxiliar(CveCliente) - TabAuxiliarConta.Visible = True + TabAuxiliarConta.Visible = UsuarioActual.TienePermisoProceso(306) Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto"))) If TienePermiso <> "" Then ' si tiene acceso en el subproyecto 'LkNotaCredito.Visible = UsuarioActual.TienePermisoProceso(175) From 8cc3c035853319b12e2e59a47aa0011e4027bcc5 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 1 Sep 2020 15:25:33 -0700 Subject: [PATCH 16/33] --- Contabilidad2/RepEstadoResultadosHorizontal.aspx | 4 ++-- Ventas/RepAuxiliarFacturas.aspx | 3 +++ 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 55f95ed26..467d19c2c 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -185,7 +185,7 @@ - + @@ -544,7 +544,7 @@ - + diff --git a/Ventas/RepAuxiliarFacturas.aspx b/Ventas/RepAuxiliarFacturas.aspx index 4146eba0b..557ef1378 100644 --- a/Ventas/RepAuxiliarFacturas.aspx +++ b/Ventas/RepAuxiliarFacturas.aspx @@ -154,6 +154,9 @@ + + + From 5e5e25c2761c0d83397252110f014a4ddd696023 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 1 Sep 2020 20:59:46 -0700 Subject: [PATCH 17/33] -- filtrado predeterminado --- Inventarios/Apartados.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/Apartados.aspx.vb b/Inventarios/Apartados.aspx.vb index f25090430..fd119f2c7 100644 --- a/Inventarios/Apartados.aspx.vb +++ b/Inventarios/Apartados.aspx.vb @@ -806,7 +806,7 @@ Partial Class Inventarios_Apartados If e.Row.RowType = DataControlRowType.DataRow Then e.Row.FCTextBox("TxtCantidad").Attributes.Add("onblur", String.Format("ValidaCantidad(this,{0})", e.Row.DBCampo("Cantidad"))) If CBool(e.Row.DBCampo("AplicaSeccion")) AndAlso DdlAlmacenDestinoDesapartado.SelectedValue.ToEntero > 0 Then - Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoDesapartado.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero) + Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoDesapartado.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero).FiltraParametros("Predeterminado = 1") e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind() From 94ee536ef5459781282dde6fb92448868c5d114e Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 1 Sep 2020 21:03:59 -0700 Subject: [PATCH 18/33] titulo tab, contabilidad --- Ventas/Ventas.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 679b36265..029f871b0 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -2880,7 +2880,7 @@ - +
From a4efc39ec6c4ee206b633af67516a1c8b2e5a457 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 1 Sep 2020 22:17:32 -0700 Subject: [PATCH 19/33] - ancho columnas --- Ventas/RepPS.aspx | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Ventas/RepPS.aspx b/Ventas/RepPS.aspx index 8cf13668e..b3f9052f4 100644 --- a/Ventas/RepPS.aspx +++ b/Ventas/RepPS.aspx @@ -186,13 +186,13 @@ - - - - - - - + + + + + + + From 8494d0230c6169f18b9a05e7c7ca436c20a4e227 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 2 Sep 2020 01:02:06 -0700 Subject: [PATCH 20/33] --- .../RepEstadoResultadosHorizontal.aspx | 786 +++++++++++------- .../RepEstadoResultadosHorizontal.aspx.vb | 89 +- Inventarios/RepTraspasoAlmacen.aspx | 4 +- Inventarios/RepTraspasoAlmacen.aspx.vb | 7 +- Metronic/assets/admin/layout/css/custom.css | 7 +- Scripts/custom.js | 4 +- Ventas/RepVentas.aspx.vb | 2 +- vwd.webinfo | 2 + 8 files changed, 560 insertions(+), 341 deletions(-) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 467d19c2c..52c0ff298 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -3,6 +3,18 @@ + + @@ -10,15 +22,13 @@ - -
  • +
  • Generar Excel
    • -     - +
    @@ -29,19 +39,19 @@
      - +
      - + -
      +
    - -
    - + +
    + -
    - - +
    + +
    @@ -57,25 +67,26 @@ -
    +
    - - + +
    -
    - - -
    - - - - - -
    + +
    + + + + + + +
    @@ -84,10 +95,10 @@     - - - - + + + +
    @@ -108,7 +119,7 @@ - + <%-- --%> @@ -116,13 +127,13 @@ - + <%-- --%> - +

    @@ -140,20 +151,20 @@     - + - + - + @@ -185,7 +196,7 @@ - + @@ -197,11 +208,13 @@ - + <%----%> - + + + @@ -212,73 +225,73 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + @@ -294,7 +307,7 @@ <%----%> - + @@ -305,11 +318,12 @@
    - + <%----%> - + + @@ -320,85 +334,85 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - <%-- + <%-- --%> - <%-- --%> + <%-- --%> @@ -409,96 +423,97 @@ -

    - +
    + - + + - - +     +     - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + @@ -517,7 +532,7 @@ -
    +