diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index e7b81ca0c..dc09b7dbc 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -1726,6 +1726,57 @@ Public Class ClsOC Return Retorno End Function + Public Function GetOrdenesCompraCompradosRecibidosRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer, FechaInicio As Date, + FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, + CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", + Optional CveActivoFijo As Integer = -1, Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1, + Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveMoneda As Integer = -1, + Optional MetodoPago As Integer = -1, Optional Serie As String = "-1", Optional TieneAnticipo As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OC_OrdenesCompraCompradosRecibidosRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Tipo", SqlDbType.VarChar).Value = Tipo + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveUsuarioRegistro", SqlDbType.Int).Value = CveUsuarioRegistro + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Folio", SqlDbType.Int).Value = Folio + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@PendientePorSurtir", SqlDbType.Bit).Value = PendientePorSurtir + .Add("@Guia", SqlDbType.VarChar).Value = Guia + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso + .Add("@CveUsuarioAutorizo", SqlDbType.Int).Value = CveUsuarioAutorizo + .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado + .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta + .Add("@TopSelect", SqlDbType.Int).Value = TopSelect + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago + .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@TieneAnticipo", SqlDbType.Int).Value = TieneAnticipo + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener Ordenes de Compras Comprados Recividos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetOrdenesCompraRepReqXOC(Folio As Integer, FechaInicio As String, FechaFin As String, CveProveedor As Integer, CveVendedor As Integer, CveCliente As Integer, CveEmpresa As Integer, Grupo As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/Contabilidad/RepBalanceGeneral.aspx.vb b/Contabilidad/RepBalanceGeneral.aspx.vb index 89393e737..f40ebe5b0 100644 --- a/Contabilidad/RepBalanceGeneral.aspx.vb +++ b/Contabilidad/RepBalanceGeneral.aspx.vb @@ -554,6 +554,7 @@ Partial Class Contabilidad_RepBalanceGeneral End Sub Protected Sub GvPatrimonio_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then TotalPatrimonioActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble @@ -585,6 +586,7 @@ Partial Class Contabilidad_RepBalanceGeneral End If End If + End Sub #End Region diff --git a/Contabilidad/RepEstadoActividades.aspx.vb b/Contabilidad/RepEstadoActividades.aspx.vb index 1c403019b..4f66e11eb 100644 --- a/Contabilidad/RepEstadoActividades.aspx.vb +++ b/Contabilidad/RepEstadoActividades.aspx.vb @@ -165,8 +165,8 @@ Partial Class AC_RepEstadoActividades End Sub Private Sub CargaGrids() - DtIngresos = DtDatos.FiltraParametros("Tipo ='H' ") - DtGastos = DtDatos.FiltraParametros("Tipo ='G' ") + DtIngresos = DtDatos.FiltraParametros("(Tipo ='H' OR Codigo like '4020%') AND NOT(Codigo like '5030%' OR Codigo like '7020%') ") + DtGastos = DtDatos.FiltraParametros("(Tipo ='G' AND Codigo NOT like '4020%') OR (Codigo like '5030%' OR Codigo like '7020%') ") Dim Row As DataRow = DtIngresos.NewRow diff --git a/Contabilidad/RepEstadoResultados.aspx.vb b/Contabilidad/RepEstadoResultados.aspx.vb index 7427ce343..777914fe3 100644 --- a/Contabilidad/RepEstadoResultados.aspx.vb +++ b/Contabilidad/RepEstadoResultados.aspx.vb @@ -2,7 +2,6 @@ Option Strict On Imports System.Data -Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Contabilidad2_RepEstadoResultados Inherits ClsPaginas @@ -192,8 +191,8 @@ Partial Class Contabilidad2_RepEstadoResultados End Sub Private Sub CargaGrids() - DtIngresos = DtDatos.FiltraParametros("Orden Like '0004%' OR Tipo = 'H'") - DtGastos = DtDatos.FiltraParametros("Orden Like '0005%' OR Tipo = 'G'") + DtIngresos = DtDatos.FiltraParametros("Orden Like '0004%' OR Tipo = 'H' OR Codigo like '4020%' ") + DtGastos = DtDatos.FiltraParametros("Orden Like '0005%' OR Tipo = 'G' OR (Codigo like '5030%' OR Codigo like '7020%') ") Dim Row As DataRow = DtIngresos.NewRow diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx index 5d48cdaf7..d96ab1520 100644 --- a/OC/RepOC.aspx +++ b/OC/RepOC.aspx @@ -294,9 +294,15 @@
+ + +
+
+ + - +
diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index 3c26e13b2..8aea87ede 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -398,6 +398,7 @@ Partial Class RepOC If UsuarioActual.TienePermisoProceso(227) Then DivIndicadores.Visible = True DivIndicadores.InnerHtml = String.Empty + Dim Cantidad As Integer = DtOC.COUNT("CveOrdenCompra") Dim TotalPesos As Double = DtOC.SUM("Total", "CveMoneda = 1") Dim TotalDolares As Double = DtOC.SUM("Total", "CveMoneda = 2") @@ -405,6 +406,7 @@ Partial Class RepOC MuestraIndicador(DivIndicadores, "green-haze", "fa fa-money", "Órdenes de Compra", Cantidad.ToString, "Cantidad", "$" + Total.FormatoNumero, "Total", "$" + TotalPesos.FormatoNumero, "Pesos", "$" + TotalDolares.FormatoNumero, "Dólares") UPPIndicador.Update() + End If If DtOC IsNot Nothing AndAlso DtOC.Rows.Count > 0 Then @@ -432,6 +434,37 @@ Partial Class RepOC GvConsultar.Columns(15).Visible = False End If + + If UsuarioActual.TienePermisoProceso(227) And UsuarioActual.CveRol = 1 Then + + DivIndicadoresCompradoRecibido.Visible = True + DivIndicadoresCompradoRecibido.InnerHtml = String.Empty + + + If OC.GetOrdenesCompraCompradosRecibidosRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, + DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero, + UsuarioActual.CveUsuario, UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), False, + ddlclientes.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), + CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(), + CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero, TieneAnticipo:=DdlTieneAnticipo.SelectedValue.ToEntero) Then + + Dim Recibidos As Decimal = 0D + Dim Comprados As Decimal = 0D + + If OC.DtResultados.Rows.Count > 0 Then + Recibidos = OC.DtResultados.Rows(0)("Comprado").ToString.ToDecimal + Comprados = OC.DtResultados.Rows(0)("Recibido").ToString.ToDecimal + End If + + MuestraIndicadorCompradoRecibido(DivIndicadoresCompradoRecibido, "blue", "fa fa-truck", "Almacén", Recibidos.ToString("###,###,###.00"), "Comprados", "", "Recibidos", Comprados.ToString("###,###,###.00"), "") + + End If + + UPPIndicadorCompradoRecibido.Update() + + + End If + End If OC.Dispose() GvConsultar.DataBind() @@ -638,6 +671,7 @@ Partial Class RepOC #End Region #Region "Indicadores" + Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CT1 As String, C2 As String, CT2 As String, C3 As String, CT3 As String, C4 As String, CT4 As String) Dim htmldiv As New StringBuilder htmldiv.AppendFormat("{0}
", DIV.InnerHtml, Color, Icono) @@ -648,6 +682,24 @@ Partial Class RepOC htmldiv.AppendFormat("
") DIV.InnerHtml = htmldiv.ToString End Sub + + Private Sub MuestraIndicadorCompradoRecibido(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CT1 As String, C2 As String, CT2 As String, C3 As String, CT3 As String) + Dim htmldiv As New StringBuilder + htmldiv.AppendFormat("{0}
", DIV.InnerHtml, Color, Icono) + htmldiv.AppendFormat("
{0}
", Titulo) + + htmldiv.AppendFormat("", "", "") + htmldiv.AppendFormat("", CT1, C1) + htmldiv.AppendFormat("", "", "") + htmldiv.AppendFormat("", CT2, C2) + htmldiv.AppendFormat("", "", "") + htmldiv.AppendFormat("", CT3, C3) + 'htmldiv.AppendFormat("", CT4, C4) + htmldiv.AppendFormat("
") + DIV.InnerHtml = htmldiv.ToString + End Sub + + #End Region End Class