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

-- cambios en globaldtContratos, parametro cveempresa

Browse Source
This commit is contained in:
rrene
2021-07-22 21:15:33 -07:00
parent 7622ee5b0d
commit 94a4c32564
14 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsPaginas.vb
View File

@@ -1804,7 +1804,7 @@ Public Class ClsPaginas
'sino existe, recarga los datos 'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
Using ObjContratos As New ClsContratos Using ObjContratos As New ClsContratos
If ObjContratos.GetContratos(-1, -1) Then Application(AppNombre) = ObjContratos.DtResultados Else Application(AppNombre) = Nothing If ObjContratos.GetContratos(-1, CveEmpresa) Then Application(AppNombre) = ObjContratos.DtResultados Else Application(AppNombre) = Nothing
End Using End Using
End If End If

2
Contratos/Contrato.aspx.vb
View File

@@ -1654,7 +1654,7 @@ Partial Class Contratos_Default
End Sub End Sub
Private Sub CargaContratoPadre() Private Sub CargaContratoPadre()
DdlContratoPadre.Items.Clear() DdlContratoPadre.Items.Clear()
DdlContratoPadre.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ") DdlContratoPadre.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($" CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ")
DdlContratoPadre.DataBind() DdlContratoPadre.DataBind()
DdlContratoPadre.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlContratoPadre.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub

2
Contratos/ContratoAvance.aspx.vb
View File

@@ -135,7 +135,7 @@ Partial Class Contratos_ContratoAvance
#Region "Filtros" #Region "Filtros"
Private Sub CargaContrato() Private Sub CargaContrato()
DdlContratos.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}")) DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(" CveContratoTipo in (30,31) ")
DdlContratos.DataBind() DdlContratos.DataBind()
End Sub End Sub

2
Contratos/ContratoObraAutorizacion.aspx.vb
View File

@@ -133,7 +133,7 @@ Partial Class Contratos_ContratoObraAutorizacion
Private Sub CargaContrato() Private Sub CargaContrato()
DDlContratosEstimaciones.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}")) DDlContratosEstimaciones.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros("CveContratoTipo in (30,31) ")
DDlContratosEstimaciones.DataBind() DDlContratosEstimaciones.DataBind()
End Sub End Sub

2
Contratos/Estimaciones.aspx.vb
View File

@@ -54,7 +54,7 @@ Partial Class Contratos_Estimaciones
End Sub End Sub
Private Sub CargaContratos() Private Sub CargaContratos()
DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind() DdlContrato.DataBind()
DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
End Sub End Sub

2
Contratos/FacturacionMasiva.aspx.vb
View File

@@ -115,7 +115,7 @@ Partial Class Contratos_FacturacionMasiva
Private Sub CargaCombos() Private Sub CargaCombos()
DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlCliente.DataBind() DdlCliente.DataBind()
DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind() DdlContrato.DataBind()
DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
DdlSucursal.DataBind() DdlSucursal.DataBind()

2
Contratos/RepContratos.aspx.vb
View File

@@ -55,7 +55,7 @@ Partial Class RepContratos
End Sub End Sub
Private Sub CargaContratos() Private Sub CargaContratos()
DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind() DdlContrato.DataBind()
DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
End Sub End Sub

2
Contratos/RepContratosAvances.aspx.vb
View File

@@ -42,7 +42,7 @@ Partial Class RepContratosAvances
Private Sub CargaContratos() Private Sub CargaContratos()
DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind() DdlContrato.DataBind()
DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
End Sub End Sub

2
Contratos/RepContratosCostos.aspx.vb
View File

@@ -44,7 +44,7 @@ Partial Class Contratos_RepContratosCostos
#Region "C O M B O S" #Region "C O M B O S"
Public Sub CargaContratos() Public Sub CargaContratos()
DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContratos.DataBind() DdlContratos.DataBind()
End Sub End Sub

2
Contratos/RepContratosDetalle.aspx.vb
View File

@@ -55,7 +55,7 @@ Partial Class RepContratos
End Sub End Sub
Private Sub CargaContratos() Private Sub CargaContratos()
DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind() DdlContrato.DataBind()
DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
End Sub End Sub

2
Contratos/RepContratosFianzas.aspx.cs
View File

@@ -69,7 +69,7 @@ public partial class Contratos_RepContratosFianzas : ClsPaginas
protected void CargaContratos() protected void CargaContratos()
{ {
DdlContratos.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa); DdlContratos.DataSource = get_GlobalDTContratos(UsuarioActual.CveEmpresa);
DdlContratos.DataBind(); DdlContratos.DataBind();
} }
protected void CargaClientes() protected void CargaClientes()

2
Contratos/RepContratosObraAvances.aspx.vb
View File

@@ -79,7 +79,7 @@ Partial Class RepContratosObraAvances
Private Sub CargaContratos() Private Sub CargaContratos()
DdlContrato.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo IN(30,31) ") DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(" CveContratoTipo IN(30,31) ")
DdlContrato.DataBind() DdlContrato.DataBind()
DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
End Sub End Sub

2
Contratos/RepContratosSuministros.aspx.vb
View File

@@ -42,7 +42,7 @@ Partial Class Contratos_RepContratosSuministros
#Region "C O M B O S" #Region "C O M B O S"
Public Sub CargaContratos() Public Sub CargaContratos()
DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContratos.DataBind() DdlContratos.DataBind()
End Sub End Sub

2
Contratos/RepPedidosDevolucionesXContrato.aspx.vb
View File

@@ -45,7 +45,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
#Region "C O M B O S" #Region "C O M B O S"
Public Sub CargaContratos() Public Sub CargaContratos()
DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContratos.DataBind() DdlContratos.DataBind()
End Sub End Sub