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
If Application(AppNombre) Is Nothing Then
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 If

2
Contratos/Contrato.aspx.vb
View File

@@ -1654,7 +1654,7 @@ Partial Class Contratos_Default
End Sub
Private Sub CargaContratoPadre()
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.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub

2
Contratos/ContratoAvance.aspx.vb
View File

@@ -135,7 +135,7 @@ Partial Class Contratos_ContratoAvance
#Region "Filtros"
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()
End Sub

2
Contratos/ContratoObraAutorizacion.aspx.vb
View File

@@ -133,7 +133,7 @@ Partial Class Contratos_ContratoObraAutorizacion
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()
End Sub

2
Contratos/Estimaciones.aspx.vb
View File

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

2
Contratos/FacturacionMasiva.aspx.vb
View File

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

2
Contratos/RepContratos.aspx.vb
View File

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

2
Contratos/RepContratosAvances.aspx.vb
View File

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

2
Contratos/RepContratosCostos.aspx.vb
View File

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

2
Contratos/RepContratosDetalle.aspx.vb
View File

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

2
Contratos/RepContratosFianzas.aspx.cs
View File

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

2
Contratos/RepContratosObraAvances.aspx.vb
View File

@@ -79,7 +79,7 @@ Partial Class RepContratosObraAvances
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.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
End Sub

2
Contratos/RepContratosSuministros.aspx.vb
View File

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

2
Contratos/RepPedidosDevolucionesXContrato.aspx.vb
View File

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