AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-01-02 13:30:50 -07:00
parent 3d2af25cb3 7cf5316557
commit 5a3d97ed87
768 changed files with 1318 additions and 96609 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
Compras/Compras.aspx.vb
View File

@@ -4134,8 +4134,9 @@ Partial Class Compras_Compras
'si hay necesidad de actualizar el globaldtps
If RegeneraPS Then
Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
Hilo.Start()
'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
'Hilo.Start()
GeneraGlobalDT(Nothing)
End If
Dim CvePlantillaPrePoliza As Integer
@@ -17498,15 +17499,17 @@ Partial Class Compras_Compras
End Sub
Private Sub RecargaGlobalEquivalencias()
Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalEquivalencias)
Hilo.Start()
'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalEquivalencias)
'Hilo.Start()
GeneraGlobalEquivalencias()
End Sub
Private Sub GeneraGlobalEquivalencias()
Dim ObjPS = New ClsProductosServicios
If ObjPS.GetPSEquivalencias(-1, -1) Then
GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
End If
ObjPS.Dispose()
GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing
'Dim ObjPS = New ClsProductosServicios
'If ObjPS.GetPSEquivalencias(-1, -1) Then
' GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
'End If
'ObjPS.Dispose()
End Sub
#End Region
@@ -17658,23 +17661,26 @@ Partial Class Compras_Compras
End Sub
Private Sub RecargaGlobalUM()
Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalUM)
Hilo.Start()
'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalUM)
'Hilo.Start()
GeneraGlobalUM()
End Sub
Private Sub GeneraGlobalUM()
Dim ObjPS = New ClsProductosServicios
Dim OjbUM As New ClsUnidadesMedida
If ObjPS.GetPSEquivalencias(-1, -1) Then
GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
End If
If OjbUM.GetUnidadesMedidaAlias(-1) Then
GlobalDTUnidadesMedidaAlias = OjbUM.DtResultados
End If
ObjPS.Dispose()
OjbUM.Dispose()
Private Sub GeneraGlobalUM()
GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing
GlobalDTUnidadesMedidaAlias(UsuarioActual.CveEmpresa) = Nothing
'Dim ObjPS = New ClsProductosServicios
'Dim OjbUM As New ClsUnidadesMedida
'If ObjPS.GetPSEquivalencias(-1, -1) Then
' GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
'End If
'If OjbUM.GetUnidadesMedidaAlias(-1) Then
' GlobalDTUnidadesMedidaAlias = OjbUM.DtResultados
'End If
'ObjPS.Dispose()
'OjbUM.Dispose()
End Sub
#End Region
@@ -19062,7 +19068,7 @@ Partial Class Compras_Compras
RecargaPSGlobal()
End Sub
Private Sub RecargaPSGlobal()
GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
'GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
'Dim ObjPS As New ClsProductosServicios
'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable()