Merge branch 'master' of http://192.168.10.111:8383/SIG

2022-05-25 20:47:19 -07:00
parent 76d972e63a 7d62be91ab
commit 52ad6094b8
11 changed files with 243 additions and 599 deletions
--- a/Compras/RepComprasAF.aspx.vb
+++ b/Compras/RepComprasAF.aspx.vb
@@ -111,18 +111,22 @@ Partial Class Compras_RepComprasAF

        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
            DdlProyecto.Visible = False
-            LblSubProyecto.Text = "Sucursal"
+            'LblSubProyecto.Text = "Sucursal"
            LblProyecto.Visible = False
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            ' DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+            'DdlSubProyecto.DataBind()
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
            DdlProyecto.Visible = False
-            LblSubProyecto.Text = "Proyecto"
+            'LblSubProyecto.Text = "Proyecto"
            LblProyecto.Visible = False
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+            'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            'DdlSubProyecto.DataBind()
+            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Or UsuarioActual.Empresa.Tipo_CentroCosto = 0 Then
            LblProyecto.Text = "Proyecto"

@@ -149,10 +153,14 @@ Partial Class Compras_RepComprasAF
    End Sub

    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
+        'DdlSubProyecto.Items.Clear()
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        'DdlSubProyecto.DataBind()
+        'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub
    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
        CargaDatos()
--- a/Compras/RepComprasAFDetalle.aspx.vb
+++ b/Compras/RepComprasAFDetalle.aspx.vb
@@ -174,6 +174,11 @@ Partial Class Compras_RepComprasAFDetalle
        DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        DdlProveedores.DataBind()

+        If Request.QueryString("CveProveedor") IsNot Nothing AndAlso Request.QueryString("CveProveedor").ToEntero = -3 Then
+            DdlProveedores.Items.Add(New ListItem("Consumo Interno", "-3"))
+        End If
+
+
        DdlMonedas.DataSource = GlobalDTMonedas()
        DdlMonedas.DataBind()

@@ -325,11 +330,18 @@ Partial Class Compras_RepComprasAFDetalle
            FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")


-            Dim Liga As String = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveCompra")}"
+            Dim Liga As String = ""
+
+
+            If e.Row.DBCampo("CveCompra").ToEntero > 0 Then
+                Liga = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveCompra")}"
+            Else
+                Liga = $"/Inventarios/EntradasSalidas.aspx?CveMovimiento={e.Row.DBCampo("CveMovimiento")}"
+            End If


            If e.Row.DBCampo("Orden") = "1" Then
-                e.Row.Cells(0).Text = String.Format("<a class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString)
+                e.Row.Cells(0).Text = String.Format("<a Class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString)
            Else
                e.Row.BackColor = Drawing.Color.LightGray
                e.Row.Font.Bold = True
--- a/Compras/RepProductosServicios.aspx.vb
+++ b/Compras/RepProductosServicios.aspx.vb
@@ -202,7 +202,23 @@ Partial Class Compras_RepProductosServicios
        DdlGrupo.SelectedValueExist("8")
    End Sub
    Private Sub CargaTipoCentroCosto()
+
+
+
        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
+            DdlSubProyecto.Items.Clear()
+            DivProyecto.Visible = False
+            LblProyecto.Visible = False
+            LblSubProyecto.InnerText = "Centro de costo"
+
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlSubProyecto.DataBind()
+
+            DdlGrupo.Items.Insert(0, New ListItem("Centro de costo", "2"))
+            DdlGrupo.DataBind()
+
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
            DdlSubProyecto.Items.Clear()
            DivProyecto.Visible = False
            LblProyecto.Visible = False
@@ -215,30 +231,18 @@ Partial Class Compras_RepProductosServicios
            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
            DdlGrupo.DataBind()

-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Proyecto:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
-            DdlGrupo.DataBind()
-
        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
            DdlGrupo.DataBind()
+            LblSubProyecto.InnerText = "Proyecto"

        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
+            LblProyecto.InnerText = "Proyecto<br/>:"
+            LblSubProyecto.InnerText = "Subproyecto:"

-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2"))
+            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+            DdlGrupo.Items.Insert(1, New ListItem("Subproyecto", "2"))
            DdlGrupo.DataBind()

        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
--- a/Compras/RepProductosServiciosDetalle.aspx.vb
+++ b/Compras/RepProductosServiciosDetalle.aspx.vb
@@ -310,6 +310,19 @@ Partial Class Compras_RepProductosServiciosDetalle
    End Sub
    Private Sub CargaTipoCentroCosto()
        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
+            DdlSubProyecto.Items.Clear()
+            DivProyecto.Visible = False
+            LblProyecto.Visible = False
+            LblSubProyecto.InnerText = "Centro de costo"
+
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlSubProyecto.DataBind()
+
+            DdlGrupo.Items.Insert(0, New ListItem("Centro de costo", "2"))
+            DdlGrupo.DataBind()
+
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
            DdlSubProyecto.Items.Clear()
            DivProyecto.Visible = False
            LblProyecto.Visible = False
@@ -322,30 +335,18 @@ Partial Class Compras_RepProductosServiciosDetalle
            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
            DdlGrupo.DataBind()

-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Proyecto:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
-            DdlGrupo.DataBind()
-
        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
            DdlGrupo.DataBind()
+            LblSubProyecto.InnerText = "Proyecto"

        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
+            LblProyecto.InnerText = "Proyecto<br/>:"
+            LblSubProyecto.InnerText = "Subproyecto:"

-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2"))
+            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+            DdlGrupo.Items.Insert(1, New ListItem("Subproyecto", "2"))
            DdlGrupo.DataBind()

        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
@@ -356,6 +357,53 @@ Partial Class Compras_RepProductosServiciosDetalle
            DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
            DdlGrupo.DataBind()
        End If
+        'If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
+        '    DdlSubProyecto.Items.Clear()
+        '    DivProyecto.Visible = False
+        '    LblProyecto.Visible = False
+        '    LblSubProyecto.InnerText = "Sucursal:"
+
+        '    DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        '    'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        '    DdlSubProyecto.DataBind()
+
+        '    DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
+        '    DdlGrupo.DataBind()
+
+        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
+        '    DdlSubProyecto.Items.Clear()
+        '    DivProyecto.Visible = False
+        '    LblProyecto.Visible = False
+        '    LblSubProyecto.InnerText = "Proyecto:"
+
+        '    DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        '    'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        '    DdlSubProyecto.DataBind()
+
+        '    DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
+        '    DdlGrupo.DataBind()
+
+        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
+        '    DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+        '    DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
+        '    DdlGrupo.DataBind()
+
+        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
+        '    LblProyecto.InnerText = "Sucursal:"
+        '    LblSubProyecto.InnerText = "Proyecto:"
+
+        '    DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
+        '    DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2"))
+        '    DdlGrupo.DataBind()
+
+        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
+        '    LblProyecto.InnerText = "Proyecto:"
+        '    LblSubProyecto.InnerText = "Sucursal:"
+
+        '    DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+        '    DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
+        '    DdlGrupo.DataBind()
+        'End If
    End Sub

    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click