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

/cambios en globalDT separados por Empresa

Browse Source
This commit is contained in:
janeth arvizu
2019-12-26 17:30:11 -07:00
parent fdb3abf583
commit 2bb4c47c92
32 changed files with 601 additions and 482 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
Ventas/ProductosServicios.aspx.vb
View File

@@ -1009,7 +1009,7 @@ Partial Class ProductosyServicios
End Sub
Private Sub ElProductoChange()
ddlUnidad.Items.Clear()
ddlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProductows.SelectedValue.ToEntero, -1)
ddlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProductows.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
ddlUnidad.DataBind()
UpDatos.Update()
End Sub
@@ -1301,7 +1301,7 @@ Partial Class ProductosyServicios
RecargaGlobal()
End Sub
Protected Sub HFProducto_ValueChanged(sender As Object, e As EventArgs) Handles HFProducto.ValueChanged
ddlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(HFProducto.Value.ToEntero, -1)
ddlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(HFProducto.Value.ToEntero, -1, UsuarioActual.CveEmpresa)
ddlUnidad.DataBind()
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
@@ -1330,27 +1330,34 @@ Partial Class ProductosyServicios
Hilo.Start()
End Sub
Private Sub GeneraGlobalDT()
Dim ObjPS As New ClsProductosServicios
GlobalDTPSAdicionales(-1, UsuarioActual.CveEmpresa) = Nothing
GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa) = Nothing
GlobalDTImpuestosLocales(-1, UsuarioActual.CveEmpresa) = Nothing
GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing
GlobalDTPSAdicionales(-1, UsuarioActual.CveEmpresa) = Nothing
If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable()
'Dim ObjPS As New ClsProductosServicios
If ObjPS.GetPSAlias(-1, -1) Then
GlobalDTProductosServiciosAlias(-1) = ObjPS.DtResultados
End If
'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable()
If ObjPS.GetPSImpuestosLocales(-1, -1) Then
GlobalDTImpuestosLocales(-1, -1) = ObjPS.DtResultados
End If
'If ObjPS.GetPSAlias(-1, -1) Then
' GlobalDTProductosServiciosAlias(-1) = ObjPS.DtResultados
'End If
If ObjPS.GetPSEquivalencias(-1, -1) Then
GlobalDTProductosServiciosEquivalencias(-1, -1) = ObjPS.DtResultados
End If
'If ObjPS.GetPSImpuestosLocales(-1, -1) Then
' GlobalDTImpuestosLocales(-1, -1) = ObjPS.DtResultados
'End If
If ObjPS.GetPSAdicionales(-1, -1) Then
GlobalDTPSAdicionales(-1, -1) = ObjPS.DtResultados
End If
'If ObjPS.GetPSEquivalencias(-1, -1) Then
' GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
'End If
ObjPS.Dispose()
''If ObjPS.GetPSAdicionales(-1, -1) Then
'' GlobalDTPSAdicionales(-1, -1) = ObjPS.DtResultados
''End If
'ObjPS.Dispose()
End Sub
#End Region
@@ -1398,11 +1405,12 @@ Partial Class ProductosyServicios
Hilo.Start()
End Sub
Private Sub GeneraGlobalEquivalencias()
Dim ObjPS = New ClsProductosServicios
If ObjPS.GetPSEquivalencias(-1, -1) Then
GlobalDTProductosServiciosEquivalencias(-1, -1) = 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
Private Sub CargaGvEquivalencias()
If DtEquivalencias IsNot Nothing Then