ajustes rep OC 13, cuentas 119

2025-05-29 01:44:56 -07:00
parent 205cdbcef0
commit 9621a60e50
6 changed files with 116 additions and 6 deletions
--- 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

--- 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
--- 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


--- 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


--- a/OC/RepOC.aspx
+++ b/OC/RepOC.aspx
@@ -294,9 +294,15 @@
    <asp:UpdatePanel ID="UpBusqueda" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
            <div class="row" style="display:flex; justify-content:flex-end; padding-bottom: 12px; padding-right: 15px;">
+                <asp:UpdatePanel class="col-md-4" style="max-width: 300px;" ID="UPPIndicadorCompradoRecibido" UpdateMode="Conditional" runat="server">
+                <ContentTemplate>
+                    <div id="DivIndicadoresCompradoRecibido" align="Right" runat="server" visible="false" style="max-width:300px!important">
+                        </div>                    
+                </ContentTemplate>
+            </asp:UpdatePanel>

                <asp:UpdatePanel class="col-md-4" style="min-width: 450px;" ID="UPPIndicador" UpdateMode="Conditional" runat="server">
-                    <ContentTemplate>
+                    <ContentTemplate>                        
                        <div id="DivIndicadores" align="Right" runat="server" visible="false">
                        </div>
                    </ContentTemplate>
--- 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 class='dashboard-stat {1}'><div class='visual'><i class='{2}' '=''></i></div>", DIV.InnerHtml, Color, Icono)
@@ -648,6 +682,24 @@ Partial Class RepOC
        htmldiv.AppendFormat("</div></div></div>")
        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 class='dashboard-stat {1}'><div class='visual'><i class='{2}' '=''></i></div>", DIV.InnerHtml, Color, Icono)
+        htmldiv.AppendFormat("<div class='details'><div class='number'>{0}</div><div class='desc'>", Titulo)
+
+        htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", "", "")
+        htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", CT1, C1)
+        htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", "", "")
+        htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", CT2, C2)
+        htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", "", "")
+        htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", CT3, C3)
+        'htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", CT4, C4)
+        htmldiv.AppendFormat("</div></div></div>")
+        DIV.InnerHtml = htmldiv.ToString
+    End Sub
+
+
 #End Region

 End Class