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

-contratos tipos

Browse Source
This commit is contained in:
Rene Molina
2020-01-23 20:06:47 -07:00
parent 0093cd82da
commit 9178a8d77d
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Contratos/Contrato.aspx.vb
View File

@@ -664,10 +664,10 @@ Partial Class Contratos_Default
Private Sub loadComboTipoContrato(venta As Boolean)
Try
If venta Then
DdlTipoContrato.DataSource = GlobalDTContratosTipos.FiltraParametros($" CveEmpresa = {UsuarioActual.CveEmpresa} And TipoMovimiento = 1")
DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros(" TipoMovimiento = 1")
Else
DdlTipoContrato.DataSource = GlobalDTContratosTipos.FiltraParametros($" CveEmpresa = {UsuarioActual.CveEmpresa} And TipoMovimiento = 0")
DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros(" TipoMovimiento = 0")
End If
dvDetContrato.Visible = True
' DdlTipoContrato.Visible = True
@@ -705,7 +705,7 @@ Partial Class Contratos_Default
End If
TipoContrato = DdlTipoContrato.SelectedValue.ToEntero
TxtDescripcionTipoContrato.Text = GlobalDTContratosTipos.FiltraParametros("CveContratoTipo = " & DdlTipoContrato.SelectedValue)(0)("Descripcion").ToString()
TxtDescripcionTipoContrato.Text = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros("CveContratoTipo = " & DdlTipoContrato.SelectedValue)(0)("Descripcion").ToString()
TxtDescripcionTipoContrato.Visible = True
CargaContratoPadre()

2
Contratos/PopUpBuscarContrato.aspx.vb
View File

@@ -86,7 +86,7 @@ Partial Class Contratos_PopUpBuscarContrato
UPDatos.Update()
Try
DdlTipoContrato.DataSource = GlobalDTContratosTipos.FiltraParametros($" CveEmpresa = {UsuarioActual.CveEmpresa} AND TipoMovimiento = {DdlTipo.SelectedValue }")
DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros($" TipoMovimiento = {DdlTipo.SelectedValue }")
DdlTipoContrato.DataBind()
DdlTipoContrato.Items.Insert(0, New ListItem("Seleccione una opción", "-1"))

2
Contratos/RepContratosAvancesCP.aspx.vb
View File

@@ -32,7 +32,7 @@ Partial Class Contratos_RepContratosAvancesCP
DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
DdlClientes.DataBind()
DdlTipo.DataSource = GlobalDTContratosTipos().FiltraParametros($"CveEmpresa={UsuarioActual.CveEmpresa}")
DdlTipo.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa)
DdlTipo.Items.Insert(0, New ListItem("Todos", "-1"))
DdlTipo.DataBind()