Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

2019-12-26 18:24:31 -07:00
parent fd6e6bafa9 dba2c52643
commit 7e8912355d
37 changed files with 744 additions and 506 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2411,10 +2411,10 @@ Partial Class Compras_Compras
                    CambiaEjercicioAC(False)
                End If

-                If GlobalDTProveedorSucursales(CveProveedor).Rows.Count > 0 Then
+                If GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa).Rows.Count > 0 Then
                    RowProveedorSucursal.Visible = True
                    DdlProveedorSucursal.Items.Clear()
-                    DdlProveedorSucursal.DataSource = GlobalDTProveedorSucursales(CveProveedor)
+                    DdlProveedorSucursal.DataSource = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa)
                    DdlProveedorSucursal.DataBind()
                    DdlProveedorSucursal.Items.Insert(0, New ListItem("Matriz", "0"))
                    DdlProveedorSucursal.SelectedValueExist(dr("CveProveedorSucursal").ToString.ToEntero)
@@ -3178,7 +3178,7 @@ Partial Class Compras_Compras

                If Not CveCompra > 0 Then '[IPP] SI YA ESTA REGISTRADA LOS VALORES SE CARGAN EN EL CARGACOMPRA()
                    'DF 11-04-17
-                    Dim dtprovsuc As DataTable = GlobalDTProveedorSucursales(ObjProveedor.CveProveedor)
+                    Dim dtprovsuc As DataTable = GlobalDTProveedorSucursales(ObjProveedor.CveProveedor, UsuarioActual.CveEmpresa)
                    If dtprovsuc IsNot Nothing AndAlso dtprovsuc.Rows.Count > 0 Then
                        RowProveedorSucursal.Visible = True
                        DdlProveedorSucursal.Items.Clear()
@@ -3859,7 +3859,7 @@ Partial Class Compras_Compras
        'DF - 10/04/2017
        If UsuarioActual.TienePermisoProceso(187) Then
            If TxtSerie.Text <> SerieVieja Then
-                Dim SerieNueva As String = GlobalDTProveedorSucursales(CveProveedor).FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString
+                Dim SerieNueva As String = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString
                If SerieNueva = "" Then
                    Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia)
                    Exit Sub
@@ -5119,7 +5119,7 @@ Partial Class Compras_Compras
                                                                'UNIDAD BASE - EQUIVALENCIAS - INVENTARIO
                                                                If UsuarioActual.CveEmpresa = 1 Then
                                                                    DtEquivalencias = New DataTable
-                                                                    DtEquivalencias = GlobalDTProductosServiciosEquivalencias(CveProducto, -1)
+                                                                    DtEquivalencias = GlobalDTProductosServiciosEquivalencias(CveProducto, -1, UsuarioActual.CveEmpresa)
                                                                    Dim CveUnidadBase As Integer = DtEquivalencias.FiltroPrimeroValor("CveUM", "UnidadBase = 'True'").ToEntero
                                                                    Dim drUMBase As DataRow = DtEquivalencias.FiltroPrimero("UnidadBase = 'True'")

@@ -10295,7 +10295,7 @@ Partial Class Compras_Compras

                'VALIDA UNIDAD DE MEDIDA
                If e.Row.DBCampo("CvePS").ToString.ToEntero > 0 Then
-                    Dim DtEquivalencias = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToString.ToEntero, -1)
+                    Dim DtEquivalencias = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)

                    'SI UM NO ESTA REGISTRADA
                    If e.Row.DBCampo("CveUM").ToString.ToEntero <= 0 Then
@@ -10458,17 +10458,19 @@ Partial Class Compras_Compras

 #Region "METODOS"
    Private Sub GeneraGlobalDT(data As Object)
-        Dim ObjPS As New ClsProductosServicios
-
-        If (ObjPS.GetPSSimplificado(-1)) Then
-            Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable
-        End If
-
-        If ObjPS.GetPSEquivalencias(-1, -1) Then
-            GlobalDTProductosServiciosEquivalencias(-1, -1) = ObjPS.DtResultados
-        End If
-
-        ObjPS.Dispose()
+        GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjPS As New ClsProductosServicios
+
+        'If (ObjPS.GetPSSimplificado(-1)) Then
+        '    Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable
+        'End If
+
+        'If ObjPS.GetPSEquivalencias(-1, -1) Then
+        '    GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
+        'End If
+
+        'ObjPS.Dispose()
    End Sub
    Private Function notienepresupuesto() As Boolean
        Dim notienerecursos = False
@@ -12106,10 +12108,10 @@ Partial Class Compras_Compras
            ChkConsignacion.Enabled = False
        End If

-        If GlobalDTProveedorSucursales(DdlProveedor.SelectedValue.ToEntero).Rows.Count > 0 Then
+        If GlobalDTProveedorSucursales(DdlProveedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows.Count > 0 Then
            RowProveedorSucursal.Visible = True
            DdlProveedorSucursal.Items.Clear()
-            DdlProveedorSucursal.DataSource = GlobalDTProveedorSucursales(DdlProveedor.SelectedValue.ToEntero)
+            DdlProveedorSucursal.DataSource = GlobalDTProveedorSucursales(DdlProveedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
            DdlProveedorSucursal.DataBind()
            DdlProveedorSucursal.Items.Insert(0, New ListItem("Selecciona una Sucursal", "-1"))
            DdlProveedorSucursal.Items.Insert(0, New ListItem("Matriz", "0"))
@@ -16667,7 +16669,7 @@ Partial Class Compras_Compras

        ddlUM.Items.Clear()
        If UsuarioActual.Empresa.UsaInventarios Then
-            ddlUM.DataSource = GlobalDTProductosServiciosEquivalencias(GvRow.DataKey("CvePS").ToEntero, -1)
+            ddlUM.DataSource = GlobalDTProductosServiciosEquivalencias(GvRow.DataKey("CvePS").ToEntero, -1, UsuarioActual.CveEmpresa)
        Else
            ddlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
        End If
@@ -16791,7 +16793,7 @@ Partial Class Compras_Compras

                    ddlUM.Items.Clear()
                    If UsuarioActual.Empresa.UsaInventarios Then
-                        ddlUM.DataSource = GlobalDTProductosServiciosEquivalencias(PS("CvePS").ToString.ToEntero, -1)
+                        ddlUM.DataSource = GlobalDTProductosServiciosEquivalencias(PS("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
                    Else
                        ddlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
                    End If
@@ -17447,7 +17449,7 @@ Partial Class Compras_Compras
        If Not DdlPSAlias2.SelectedValue = "" Then
            Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSAlias2.SelectedValue.ToEntero).FiltroPrimero("")
            If DrPS IsNot Nothing Then
-                DdlUnidadAlias.DataSource = GlobalDTProductosServiciosEquivalencias(DdlPSAlias2.SelectedValue.ToEntero, -1)
+                DdlUnidadAlias.DataSource = GlobalDTProductosServiciosEquivalencias(DdlPSAlias2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
                DdlUnidadAlias.DataBind()
                HdnPSAliasCveClasificacion.Value = DrPS("CveClasificacion").ToString
                HdnPSAliasClasificacion.Value = DrPS("Clasificacion").ToString
@@ -17508,7 +17510,7 @@ Partial Class Compras_Compras
    Private Sub GeneraGlobalEquivalencias()
        Dim ObjPS = New ClsProductosServicios
        If ObjPS.GetPSEquivalencias(-1, -1) Then
-            GlobalDTProductosServiciosEquivalencias(-1, -1) = ObjPS.DtResultados
+            GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
        End If
        ObjPS.Dispose()
    End Sub
@@ -17522,7 +17524,7 @@ Partial Class Compras_Compras
        UpUMAlias.Update()
    End Sub
    Protected Sub DdlUMAlias_SelectedIndexChanged(sender As Object, e As EventArgs)
-        If GlobalDTProductosServiciosEquivalencias(TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CvePS").ToString.ToEntero, DdlUMAlias.SelectedValue.ToEntero).Rows.Count > 0 Then
+        If GlobalDTProductosServiciosEquivalencias(TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CvePS").ToString.ToEntero, DdlUMAlias.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows.Count > 0 Then
            RegistraScript("$('#RowUMEquivalencia').addClass('hidden')", "RowUMEquivalenciaShow")
        Else
            RegistraScript("$('#RowUMEquivalencia').removeClass('hidden')", "RowUMEquivalenciaHide")
@@ -17534,7 +17536,7 @@ Partial Class Compras_Compras
        Dim ObjPS As New ClsProductosServicios(ObjUM.IniciaTransacSQL())

        Dim TieneError = False
-        Dim DtEquivalencia = GlobalDTProductosServiciosEquivalencias(TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CvePS").ToString.ToEntero, -1)
+        Dim DtEquivalencia = GlobalDTProductosServiciosEquivalencias(TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
        Dim CveUM = -1
        Dim UM = ""
        Dim Equivalencia = 0.0
@@ -17548,7 +17550,7 @@ Partial Class Compras_Compras

                'SI NO TIENE EQUIVALENCIA DEL PS - AGREGA LA EQUIVALENCIA
                If Not TieneError Then
-                    If Not GlobalDTProductosServiciosEquivalencias(TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CvePS").ToString.ToEntero, DdlUMAlias.SelectedValue.ToEntero).Rows.Count > 0 Then
+                    If Not GlobalDTProductosServiciosEquivalencias(TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CvePS").ToString.ToEntero, DdlUMAlias.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows.Count > 0 Then
                        If Not ObjPS.AddPSEquivalencias(TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CvePS").ToString.ToEntero, DdlUMAlias.SelectedValue.ToEntero, TxtUMEquivalenciaCantidad.Text.ToDecimal, False, 0, UsuarioActual.CveUsuario) Then
                            TieneError = True
                        End If
@@ -17643,7 +17645,7 @@ Partial Class Compras_Compras
    End Sub
    Protected Sub LBAplicarEquivalencia_Click(sender As Object, e As EventArgs)
        Dim Dr = TmpDT.Rows(CType(CType(sender, LinkButton).NamingContainer, GridViewRow).RowIndex)
-        Dim DtEquivalencia = GlobalDTProductosServiciosEquivalencias(Dr("CvePS").ToString.ToEntero, -1)
+        Dim DtEquivalencia = GlobalDTProductosServiciosEquivalencias(Dr("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
        Dim Equivalencia = DtEquivalencia.FiltroPrimeroValor("Cantidad", $"CveUM = {Dr("CveUM")}").ToDouble

        If Equivalencia > 0 Then
@@ -17670,7 +17672,7 @@ Partial Class Compras_Compras
        Dim OjbUM As New ClsUnidadesMedida

        If ObjPS.GetPSEquivalencias(-1, -1) Then
-            GlobalDTProductosServiciosEquivalencias(-1, -1) = ObjPS.DtResultados
+            GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
        End If

        If OjbUM.GetUnidadesMedidaAlias(-1) Then
@@ -19066,11 +19068,12 @@ Partial Class Compras_Compras
        RecargaPSGlobal()
    End Sub
    Private Sub RecargaPSGlobal()
-        Dim ObjPS As New ClsProductosServicios
-
-        If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable()
-
-        ObjPS.Dispose()
+        GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjPS As New ClsProductosServicios
+
+        'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable()
+
+        'ObjPS.Dispose()
    End Sub

 #End Region