Merge

Compras/Compras.aspx.vb

@@ -1008,6 +1008,7 @@ Partial Class Compras_Compras
             ViewState("CveFlete") = value
         End Set
     End Property
+
     Private Property FleteImportacionOpcion As Integer
         Get
             Return IfNull(ViewState("FleteImportacionOpcion"), -1).ToString.ToEntero
@@ -1017,6 +1018,22 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+    Private Property DTClasificacionesComprobaciones As DataTable
+        Get
+
+            If ViewState("DTClasificacionesComprobaciones") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DTClasificacionesComprobaciones"), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            ViewState("DTClasificacionesComprobaciones") = value
+        End Set
+    End Property
+
+
 #End Region
 
 #Region "  PROPIEDADES DE TOTALES  "
@@ -1603,6 +1620,10 @@ Partial Class Compras_Compras
             InicializaDevolucionAlmacen()
             HabilitaEdicionManualAgregar()
             InicializaActualizarTC()
+
+
+
+
         End If
 
 
@@ -3412,6 +3433,7 @@ Partial Class Compras_Compras
     End Function
 
     Private Sub CargaPSAlias()
+
         DdlPSAlias2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
 
         If UsuarioActual.CveEmpresa = 66 Then
@@ -3424,9 +3446,39 @@ Partial Class Compras_Compras
                 DdlPSAlias2.ddlWS.Attributes.Add("data-pagina", "Compras2")
             End If
         End If
+
         If Not DdlPSAlias2.UsaWebService AndAlso CType(DdlPSAlias2.DataSource, DataTable) Is Nothing Then
-            DdlPSAlias2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
-            DdlPSAlias2.DataBind()
+
+            If UsuarioActual.TienePermisoProceso(300) Or UsuarioActual.TienePermisoProceso(301) Then
+
+                Dim DTTemp As New DataTable
+                DTTemp.Columns.Add("CvePS", GetType(Integer))
+                DTTemp.Columns.Add("PSCodigoClasificacion", GetType(String))
+
+                For Each dRow As DataRow In GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).Rows
+                    For Each drowCla As DataRow In DTClasificacionesComprobaciones.Rows
+
+                        If drowCla("CveClasificacion").ToString.ToEntero = dRow("CveClasificacion").ToString.ToEntero Then
+
+                            Dim InRow As DataRow = DTTemp.NewRow
+                            InRow("CvePS") = dRow("CvePS").ToString.ToEntero
+                            InRow("PSCodigoClasificacion") = dRow("PSCodigoClasificacion").ToString
+                            DTTemp.Rows.Add(InRow)
+
+                        End If
+                    Next
+                Next
+
+
+                DdlPSAlias2.DataSource = DTTemp
+                DdlPSAlias2.DataBind()
+
+            Else
+                DdlPSAlias2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+                DdlPSAlias2.DataBind()
+            End If
+
+
         End If
 
     End Sub
@@ -3763,6 +3815,37 @@ Partial Class Compras_Compras
         'DtPSTemp.Dispose()
 
     End Sub
+
+
+    Private Sub CargaClasificacionesComprobaciones()
+
+        If UsuarioActual.TienePermisoProceso(300) Or UsuarioActual.TienePermisoProceso(301) Then
+
+            Dim ObjClasificaciones As New ClsClasificaciones()
+
+            If ObjClasificaciones.GetClasificacionesComprobaciones(UsuarioActual.CveEmpresa) Then
+
+                If UsuarioActual.TienePermisoProceso(300) And UsuarioActual.TienePermisoProceso(301) Then
+                    DTClasificacionesComprobaciones = ObjClasificaciones.DtResultados
+                Else
+
+                    If UsuarioActual.TienePermisoProceso(300) Then 'TipoComprobacion = 1 Biaticos
+                        DTClasificacionesComprobaciones = ObjClasificaciones.DtResultados.FiltraParametros("TipoComprobacion = 1")
+                    ElseIf UsuarioActual.TienePermisoProceso(301) Then 'TipoComprobacion = 2 Comprobaciones
+                        DTClasificacionesComprobaciones = ObjClasificaciones.DtResultados.FiltraParametros("TipoComprobacion = 2")
+                    End If
+
+                End If
+            End If
+
+            ObjClasificaciones.Dispose()
+
+        End If
+
+    End Sub
+
+
+
 #End Region
 
 #Region "Vinculacion De Servcios"
@@ -11165,6 +11248,7 @@ Partial Class Compras_Compras
         'CargaEstatus()
         CargaTiposAF()
         CargaProyectoAsignado()
+        CargaClasificacionesComprobaciones()
         CargaClasificaciones()
         CargaPS(-1)
         CargaProyecto()
@@ -17134,6 +17218,7 @@ Partial Class Compras_Compras
         UPPClasificacion.Update()
     End Sub
     Private Sub CargaPS(CveClasificacion As Integer)
+
         DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
 
         If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
@@ -17142,7 +17227,41 @@ Partial Class Compras_Compras
             DdlPS.SelectedValue = "-1"
         Else
             DdlPS.ddl.Items.Clear()
-            DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion)
+
+            'DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion)
+
+            If UsuarioActual.TienePermisoProceso(300) Or UsuarioActual.TienePermisoProceso(301) Then
+
+                Dim DTTemp As New DataTable
+                DTTemp.Columns.Add("CvePS", GetType(Integer))
+                DTTemp.Columns.Add("PSCodigo", GetType(String))
+                DTTemp.Columns.Add("CveClasificacion", GetType(Integer))
+
+                For Each dRow As DataRow In GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).Rows
+                    For Each drowCla As DataRow In DTClasificacionesComprobaciones.Rows
+
+                        If drowCla("CveClasificacion").ToString.ToEntero = dRow("CveClasificacion").ToString.ToEntero Then
+
+                            Dim InRow As DataRow = DTTemp.NewRow
+                            InRow("CvePS") = dRow("CvePS").ToString.ToEntero
+                            InRow("PSCodigo") = dRow("PSCodigo").ToString
+                            InRow("CveClasificacion") = dRow("CveClasificacion").ToString.ToEntero
+                            DTTemp.Rows.Add(InRow)
+
+                        End If
+                    Next
+                Next
+
+
+                DdlPS.DataSource = If(CveClasificacion > 0, DTTemp.FiltraParametros($"CveClasificacion = {CveClasificacion}"), DTTemp)
+
+            Else
+                DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+
+            End If
+
+
+
             DdlPS.ddl.DataBind()
             DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
         End If
@@ -17670,13 +17789,24 @@ Partial Class Compras_Compras
 
 #Region "  RECLASIFICA PARTIDAS - CLASIFICACION - SUBPROYECTO  "
     Private Sub CargaClasificaciones()
+
         If UsuarioActual.Empresa.UsaAC Then
             DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
             DdlAplicaClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         Else
+
             DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
             DdlAplicaClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
+
+            If UsuarioActual.TienePermisoProceso(300) Or UsuarioActual.TienePermisoProceso(301) Then
+                DdlClasificacion.DataSource = DTClasificacionesComprobaciones.FiltraParametros("", Orderby:="Clasificacion")
+                DdlAplicaClasificacion.DataSource = DTClasificacionesComprobaciones.FiltraParametros("", Orderby:="Clasificacion")
+            End If
+
         End If
+
+
+
         DdlClasificacion.DataBind()
         DdlAplicaClasificacion.DataBind()
     End Sub