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/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx index b11a035ad..36a2fb0f6 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx +++ b/Acumuladores/RepEntradasUsadosClientes.aspx @@ -5,6 +5,7 @@ + Reporte Entradas Usados Clientes @@ -75,7 +76,7 @@ - + diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb index 72659691c..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 + 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 @@ -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 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..116d4501f 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -78,6 +78,13 @@
+
+ SubProyecto +
+
+ + +
F.I.:
diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index e04b47980..95c0d7ad0 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() @@ -82,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 diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 6586f85fa..5fac2308b 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 ''' @@ -19232,12 +19226,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 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:
- - - +
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 @@
+