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

globalDTContratos

Browse Source
This commit is contained in:
rrene
2021-07-23 18:42:43 -07:00
parent 94a4c32564
commit 06e1853754
3 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
GPS/FacturacionMasiva.aspx.vb
View File

@@ -100,7 +100,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
Inventarios/RepTrasladoSolicitud.aspx.vb
View File

@@ -21,7 +21,7 @@ Partial Class Inventarios_RepTrasladoSolicitud
DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Todos", "-1"))
DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind()
DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))

12
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -246,7 +246,7 @@ Partial Class Inventarios_TrasladoSolicitud
If CveDireccionEnvio > 0 And ObjClientes.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then
LblDireccionEnvio.Text = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1")).Rows(0)("SucursalClienteVentaDireccion").ToString
Else
Dim CveCliente As Integer = GlobalDTContratos().FiltroPrimeroValor("CveCliente", $"CveContrato = {ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero}").ToEntero
Dim CveCliente As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero}").ToEntero
Dim DtCliente As DataTable = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
If DtCliente.Rows.Count > 0 Then
LblDireccionEnvio.Text = String.Format("{0},{1}, {2}", DtCliente.FiltroPrimeroValor("Direccion"), DtCliente.FiltroPrimeroValor("Colonia"), DtCliente.FiltroPrimeroValor("Ciudad"), DtCliente.FiltroPrimeroValor("Contacto"))
@@ -517,7 +517,7 @@ Partial Class Inventarios_TrasladoSolicitud
If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
Dim CveEstatusVigente = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoEstatus", "TipoEstatus = 1", Orderby:="CveContratoEstatus").ToEntero
DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCliente = {DdlClientes.SelectedValue.ToEntero} AND CveContratosEstatus = {CveEstatusVigente}")
DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($" CveCliente = {DdlClientes.SelectedValue.ToEntero} AND CveContratosEstatus = {CveEstatusVigente}")
'If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, CveEstatusVigente) Then
' DdlContratos.DataSource = ObjContratos.DtResultados
@@ -808,10 +808,10 @@ Partial Class Inventarios_TrasladoSolicitud
Dim CveContrato As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CveContrato").ToString.ToEntero
If CveContrato > 0 Then
Contrato = GlobalDTContratos().FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
NumContrato = GlobalDTContratos().FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
CveCliente = GlobalDTContratos().FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero
CveDireccionEnvio = GlobalDTContratos().FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero
Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato}")
NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} ")
CveCliente = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero
CveDireccionEnvio = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero
If CveCliente > 0 Then