From 3d2af25cb3dc08fb1dd372a9e3c1e5ff8ff7699b Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Thu, 2 Jan 2020 13:30:40 -0700 Subject: [PATCH 1/8] Funcionalidad 6% ret servicios CveFuncionalidad 577 --- Compras/Compras.aspx.vb | 30 +++++++++--------------------- 1 file changed, 9 insertions(+), 21 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 1137e4f71..be31eebe3 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2235,25 +2235,19 @@ Partial Class Compras_Compras 'ASIGNA VALORES ORIGINALES PARA GUARDAR AsignaValoresOriginales(SubtotalTemp, Subtotal2Temp, IVATemp, RetIVATemp, RetISRTemp, Total) + If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then - - If RetencionIVA = 0 And IVAOriginal > 0 Then - - For Each dRow As DataRow In TmpDT.Rows - - If dRow("CveTipoPS").ToString.ToEntero = 1 Then - tdIVA6.Visible = True - Exit For - End If - - - Next + If RetencionIVA = 0 And IVAOriginal > 0 Then + For Each dRow As DataRow In TmpDT.Rows + If dRow("CveTipoPS").ToString.ToEntero = 1 Then + tdIVA6.Visible = True + Exit For + End If + Next + End If End If - - - End Sub ''' @@ -19226,12 +19220,6 @@ Partial Class Compras_Compras TotalOriginal = TxtTotal.Text.ToDecimal - 'For Each dRow As DataRow In TmpDT.Rows - ' If dRow("CveTipoPS").ToString.ToEntero = 1 Then - ' tdIVA6.Visible = True - ' Exit For - ' End If - 'Next For Each dRow As DataRow In TmpDT.Rows From 2bb53c1b264dc839b2e8886ebb0cabd8b3619d95 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 2 Jan 2020 15:39:35 -0700 Subject: [PATCH 2/8] cambios en formatos visual --- Acumuladores/RepEntradasUsadosClientes.aspx | 2 +- Acumuladores/RepEntradasUsadosClientes.aspx.vb | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx index b11a035ad..572aa285d 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx +++ b/Acumuladores/RepEntradasUsadosClientes.aspx @@ -75,7 +75,7 @@ - + diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb index 72659691c..c6555a88e 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb +++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb @@ -49,7 +49,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes Dim Acum As New ClsAcumuladores If Acum.EntradasUsadosClientesRep(CveAlmacen, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - GvDatos.DataSource = Acum.DtResultados + GvDatos.DataSource = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'") DatosEntradasUsadosClientes = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'") End If @@ -61,7 +61,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("EsHeader").ToString = "-1" Then + If e.Row.DBCampo("EsHeader").ToString = "-1" Or e.Row.DBCampo("Codigo").ToString = "" Then e.Row.CssClass = "SubTotales2" End If From b0361a737e07642748deb2546dfb9ac7382261ed Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 2 Jan 2020 15:58:13 -0700 Subject: [PATCH 3/8] cambios de formato --- Acumuladores/RepEntradasUsadosClientes.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb index c6555a88e..58fbe6141 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb +++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb @@ -49,7 +49,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes Dim Acum As New ClsAcumuladores If Acum.EntradasUsadosClientesRep(CveAlmacen, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - GvDatos.DataSource = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'") + GvDatos.DataSource = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'") 'los renglones generados con esta caracteriztica son con un grouping set en la consulta, se pueden quitar DatosEntradasUsadosClientes = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'") End If From 200233f7b50e111a79129f3f9ccafe7dbb8268c1 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 2 Jan 2020 16:10:51 -0700 Subject: [PATCH 4/8] =?UTF-8?q?se=20agreg=C3=B3=20titulo=20a=20la=20p?= =?UTF-8?q?=C3=A1gina?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Acumuladores/RepEntradasUsadosClientes.aspx | 1 + 1 file changed, 1 insertion(+) diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx index 572aa285d..36a2fb0f6 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx +++ b/Acumuladores/RepEntradasUsadosClientes.aspx @@ -5,6 +5,7 @@ + Reporte Entradas Usados Clientes From 37709395c4c5c3b527b3adb3e49bab2e8da1d63a Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 2 Jan 2020 18:26:30 -0700 Subject: [PATCH 5/8] cambios en formatos de usados y agregando nuevo filtro de busqueda a repCortes --- Acumuladores/EntradasUsadosResumenRep.aspx | 22 +++++++++---------- Acumuladores/EntradasUsadosResumenRep.aspx.vb | 5 +++-- App_Code/ClsPuntoVenta.vb | 3 ++- Bancos/RepCortes.aspx | 5 +++++ Bancos/RepCortes.aspx.vb | 5 ++++- 5 files changed, 25 insertions(+), 15 deletions(-) diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx b/Acumuladores/EntradasUsadosResumenRep.aspx index 9399901c2..b840b5165 100644 --- a/Acumuladores/EntradasUsadosResumenRep.aspx +++ b/Acumuladores/EntradasUsadosResumenRep.aspx @@ -80,17 +80,17 @@ ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" DataKeyNames="CvePSCargo,Codigo,Inicial,E_Almacen,E_Pub,E_Traspaso,E_Compra,E_Otros,S_Almacen,S_Traspaso,S_Otros,Exist_Actual"> - - - - - - - - - - - + + + + + + + + + + + diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb index 8e8489b85..1aa15ed02 100644 --- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb +++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb @@ -53,14 +53,15 @@ Partial Class Acumuladores_RepEntradasUsados Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("Direccion", "asdfasdfasdf")) + params.Add(New ReportParameter("Direccion", "dirección")) params.Add(New ReportParameter("FechaConFormato", FechaConFormato)) params.Add(New ReportParameter("FechaInicial", txtFechaI.Text)) params.Add(New ReportParameter("FechaFinal", txtFechaF.Text)) + params.Add(New ReportParameter("Sucursal", "Sucursal")) Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsados} - ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsados2.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsados, params, "prueba", "PDF") + ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsados.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsados, params, "Reporte entrada usados", "PDF") End Sub End Class diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb index 48b57e6ab..6a0112680 100644 --- a/App_Code/ClsPuntoVenta.vb +++ b/App_Code/ClsPuntoVenta.vb @@ -243,13 +243,14 @@ Public Class ClsPuntoVenta Return Retorno End Function - Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean + Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveSubProyecto As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_ReporteCortesGet") SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa SqlAdapter.SelectCommand.Parameters.Add("@FechaInicio", SqlDbType.Date).Value = FechaI SqlAdapter.SelectCommand.Parameters.Add("@FechaFin", SqlDbType.Date).Value = FechaF + SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto Try SqlAdapter.Fill(Data) diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index 7794916f9..cb73fe891 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -112,6 +112,11 @@ +
+ + + +
<%--
> diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index e04b47980..937679e51 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -61,6 +61,9 @@ Partial Class Bancos_RepCortes txtFechaVI.Text = Now.ToShortDateString txtFechaVF.Text = Now.ToShortDateString Me.Form.DefaultButton = BtnConsultar.UniqueID + DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) + DdlSubProyectos.DataBind() + DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) End If End Sub @@ -70,7 +73,7 @@ Partial Class Bancos_RepCortes Dim ObjPuntoVenta As New ClsPuntoVenta Dim FechaI As Date = If(txtFechaVI.Text <> "", txtFechaVI.Text.ToDate, MinFecha) Dim FechaF As Date = If(txtFechaVF.Text <> "", txtFechaVF.Text.ToDate, MaxFecha) - If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaI, FechaF) Then + If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaI, FechaF, DdlSubProyectos.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjPuntoVenta.DtResultados GvDatos.DataBind() UPDatos.Update() From b7abe00c842efc48d000e551d1e4dfc367cf334f Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 2 Jan 2020 19:02:37 -0700 Subject: [PATCH 6/8] agregando sumatoria al final del grid --- Bancos/RepCortes.aspx | 12 +++++++----- Bancos/RepCortes.aspx.vb | 4 +++- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index cb73fe891..116d4501f 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -78,6 +78,13 @@

+
+ SubProyecto +
+
+ + +
F.I.:
@@ -112,11 +119,6 @@
-
- - - -
<%--
> diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 937679e51..95c0d7ad0 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -85,7 +85,9 @@ Partial Class Bancos_RepCortes #Region "G V - D A T O S " Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - + If e.Row.DBCampo("CveCorte").ToString = "" Then + e.Row.CssClass = "SubTotales2" + End If End If End Sub From 11c8e5a18311d43345e23392c128f0498312be66 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Fri, 3 Jan 2020 08:59:22 -0700 Subject: [PATCH 7/8] EntradasSalidas Se quito required en TxtObservaciones --- Inventarios/EntradasSalidas.aspx | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index e11493f81..e95b81ae4 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -277,9 +277,7 @@ Observaciones:
- - - +
From 6d72986397dd70dcd2b6cb96de883fc62f8bbffc Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 3 Jan 2020 09:30:43 -0700 Subject: [PATCH 8/8] =?UTF-8?q?validaci=C3=B3n=20de=2010=20digitos=20para?= =?UTF-8?q?=20numero=20de=20tel=C3=A9fono=20del=20cliente?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx | 1 + 1 file changed, 1 insertion(+) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 01639bdf5..e62d3985f 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -6277,6 +6277,7 @@
+