diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx b/Acumuladores/EntradasUsadosResumenRep.aspx index 67f945d0f..5ed52d568 100644 --- a/Acumuladores/EntradasUsadosResumenRep.aspx +++ b/Acumuladores/EntradasUsadosResumenRep.aspx @@ -11,7 +11,7 @@
  • - +
  • @@ -107,7 +107,7 @@

    -

    +
    @@ -116,7 +116,7 @@
    - +
    @@ -165,7 +165,7 @@
    - + diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 373fb7416..df3cbc36c 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -141,18 +141,18 @@
    @@ -122,7 +131,7 @@ <%----%>
    -
    Marca
    +
    Marca
    @@ -135,11 +144,11 @@
    -
    Tipo Almacen:
    +
    Tipo Almacén:
    -
    Modalidad:
    +
    Modalidad:
    @@ -197,8 +206,8 @@ - - + + @@ -251,7 +260,7 @@ - + diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx index 26b298482..e2c7a8874 100644 --- a/OC/RepOC.aspx +++ b/OC/RepOC.aspx @@ -147,7 +147,7 @@
    - + @@ -165,7 +165,7 @@
    - +
    @@ -199,7 +199,7 @@
    - +
    diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index f3c5712af..fdf6a6880 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -106,15 +106,15 @@ Partial Class RepOC End Sub Protected Sub CargaUsuarios() - ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) + ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", {"CveUsuario", "Nombre"}) ddlUsuario.DataBind() ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1")) - DdlUsuarioAsignado.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre") + DdlUsuarioAsignado.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre", {"CveUsuario", "Nombre"}) DdlUsuarioAsignado.DataBind() DdlUsuarioAsignado.Items.Insert(0, New ListItem("Todos", "-1")) - DdlUsuarioAutorizo.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) + DdlUsuarioAutorizo.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", {"CveUsuario", "Nombre"}) DdlUsuarioAutorizo.DataBind() DdlUsuarioAutorizo.Items.Insert(0, New ListItem("Todos", "-1")) @@ -137,7 +137,7 @@ Partial Class RepOC End Sub Protected Sub CargaEstatus() - DdlEstatus.DataSource = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (Tipo = '{0}' OR '{0}' = '-1')", DdlTipo.SelectedValue.ToString)) + DdlEstatus.DataSource = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (Tipo = '{0}' OR '{0}' = '-1')", DdlTipo.SelectedValue.ToString)) DdlEstatus.DataBind() If DdlTipo.SelectedValue = "-1" Or DdlTipo.SelectedValue = "REQ" Then DdlEstatus.Items.Insert(0, New ListItem("Pre Requisicion", "0")) DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/OC/RepRequisiciones.aspx b/OC/RepRequisiciones.aspx index 1134c9284..f89f57f3c 100644 --- a/OC/RepRequisiciones.aspx +++ b/OC/RepRequisiciones.aspx @@ -79,7 +79,7 @@
    Proyecto:
    - +
    diff --git a/OC/RepRequisiciones.aspx.vb b/OC/RepRequisiciones.aspx.vb index 5af841a73..4642cb047 100644 --- a/OC/RepRequisiciones.aspx.vb +++ b/OC/RepRequisiciones.aspx.vb @@ -7,7 +7,14 @@ Imports Microsoft.Reporting.WebForms Partial Class OC_RepRequisiciones Inherits ClsPaginas - + Private Property DtUsuarioProyectos As DataTable + Get + Return DirectCast(ViewState("DtUsuarioProyectos"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtUsuarioProyectos") = value + End Set + End Property Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then ViewState("Orden") = "" @@ -19,7 +26,6 @@ Partial Class OC_RepRequisiciones Private Sub CargaCombos() 'CargaProyectos - Dim DtUsuarioProyectos As DataTable = Nothing Dim objEstatusUsuarios As New ClsOC If objEstatusUsuarios.GetEstatusUsuarios(UsuarioActual.CveUsuario, -1, -1, -1, UsuarioActual.CveEmpresa) Then @@ -67,6 +73,19 @@ Partial Class OC_RepRequisiciones End Sub + Public Sub CargaSubProyecto(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged + DdlSubProyecto.Items.Clear() + If DdlProyecto.SelectedValue.ToEntero = -1 Then + DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlSubProyecto.DataBind() + DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) + Else + DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, Estatus:=1) + DdlSubProyecto.DataBind() + End If + + End Sub + 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.RowIndex = 0 Then @@ -161,4 +180,5 @@ Partial Class OC_RepRequisiciones End Sub #End Region + End Class diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 4003b40e1..8852a875b 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -10350,9 +10350,11 @@ Partial Class Clientes Min = row.Item("Total").ToString.ToDouble End If + If row.Item("Total").ToString.ToDouble > 0 Then + Total += row.Item("Total").ToString.ToDouble + Cantidad += 1 - Total += row.Item("Total").ToString.ToDouble - Cantidad += 1 + End If End If Next diff --git a/Ventas/RepVentasUtilidadPadre.aspx b/Ventas/RepVentasUtilidadPadre.aspx index b6ace4a1b..35a9fc4e5 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx +++ b/Ventas/RepVentasUtilidadPadre.aspx @@ -46,7 +46,7 @@ - Reporte de Utilidad o Pérdida sobre Ventas + Reporte de utilidad o pérdida sobre venta @@ -210,11 +210,11 @@ - + - +