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

modificaciones a los pop up

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-06-01 18:46:26 -07:00
parent 05a1ce7f3e
commit f0486bc754
14 changed files with 35 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
App_Code/ClsCGame.vb
View File

@@ -492,7 +492,8 @@ Public Class ClsCGame
#End Region #End Region
#Region "ORDEN DE PRODUCCION" #Region "ORDEN DE PRODUCCION"
Public Function GetOrdenProduccion(CveOrdenProduccion As Integer, CveEmpresa As Integer, CveEstatus As Integer, Folio As String, FEntregaI As Date, FEntregaF As Date, CveCliente As Integer) As Boolean Public Function GetOrdenProduccion(CveOrdenProduccion As Integer, CveEmpresa As Integer, CveEstatus As Integer, Folio As String, FEntregaI As Date, FEntregaF As Date,
CveCliente As Integer, Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_CGame_OrdenProduccionGet") DataAdapter("PA_CGame_OrdenProduccionGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -503,6 +504,7 @@ Public Class ClsCGame
.Add("@FEntregaI", SqlDbType.Date).Value = FEntregaI .Add("@FEntregaI", SqlDbType.Date).Value = FEntregaI
.Add("@FEntregaF", SqlDbType.Date).Value = FEntregaF .Add("@FEntregaF", SqlDbType.Date).Value = FEntregaF
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -1039,7 +1041,9 @@ Public Class ClsCGame
#End Region #End Region
#Region "PRODUCCION" #Region "PRODUCCION"
Public Function GetProduccion(CveEmpresa As Integer, Optional Folio As String = "-1", Optional CveProduccion As Integer = -1, Optional CveHuerta As Integer = -1, Optional FechaI As Date = MinFecha, Optional FechaF As Date = MaxFecha, Optional Opcion As Integer = -1, Optional Modalidad As Integer = -1) As Boolean Public Function GetProduccion(CveEmpresa As Integer, Optional Folio As String = "-1", Optional CveProduccion As Integer = -1, Optional CveHuerta As Integer = -1,
Optional FechaI As Date = MinFecha, Optional FechaF As Date = MaxFecha, Optional Opcion As Integer = -1, Optional Modalidad As Integer = -1,
Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_CGame_ProduccionGet") DataAdapter("PA_CGame_ProduccionGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1051,6 +1055,7 @@ Public Class ClsCGame
.Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@Modalidad", SqlDbType.Int).Value = Modalidad .Add("@Modalidad", SqlDbType.Int).Value = Modalidad
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

4
App_Code/ClsCRM.vb
View File

@@ -651,7 +651,7 @@ Public Class ClsCRM
Public Function GetAcercamiento(CveEmpresa As Integer, Optional CveEmpresaCRM As Integer = -1, Optional CveAcercamiento As Integer = -1, Optional CveTipoProceso As Integer = -1, Public Function GetAcercamiento(CveEmpresa As Integer, Optional CveEmpresaCRM As Integer = -1, Optional CveAcercamiento As Integer = -1, Optional CveTipoProceso As Integer = -1,
Optional CveVendedor As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1", Optional NombreAcercamiento As String = "-1", Optional CveVendedor As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1", Optional NombreAcercamiento As String = "-1",
Optional CveMedioCaptacion As Integer = -1, Optional CveRechazoMotivo As Integer = -1, Optional CveProbabilidad As Integer = -1, Optional CveMedioCaptacion As Integer = -1, Optional CveRechazoMotivo As Integer = -1, Optional CveProbabilidad As Integer = -1,
Optional FechaApertura As String = "-1", Optional FechaCierre As String = "-1") As Boolean Optional FechaApertura As String = "-1", Optional FechaCierre As String = "-1", Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_CRM_AcercamientoGet") DataAdapter("PA_CRM_AcercamientoGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -673,6 +673,8 @@ Public Class ClsCRM
.Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin
.Add("@FechaApertura", SqlDbType.VarChar).Value = FechaApertura .Add("@FechaApertura", SqlDbType.VarChar).Value = FechaApertura
.Add("@FechaCierre", SqlDbType.VarChar).Value = FechaCierre .Add("@FechaCierre", SqlDbType.VarChar).Value = FechaCierre
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

4
App_Code/ClsContratos.vb
View File

@@ -1880,7 +1880,8 @@ Public Class ClsContratos
#Region " REPORTE BUSQUEDA" #Region " REPORTE BUSQUEDA"
Public Function GetContratosBusquedaRep(TipoVenta As Integer, CveContratoTipo As Integer, NumeroContrato As String, DescripcionContrato As String, Ubicacion As String, Responsable As String, Public Function GetContratosBusquedaRep(TipoVenta As Integer, CveContratoTipo As Integer, NumeroContrato As String, DescripcionContrato As String, Ubicacion As String, Responsable As String,
EstatusContrato As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveCliente As Integer, CveProveedor As Integer) As Boolean EstatusContrato As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveCliente As Integer, CveProveedor As Integer,
Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Con_ContratosBusquedaRepGet") DataAdapter("PA_Con_ContratosBusquedaRepGet")
@@ -1898,6 +1899,7 @@ Public Class ClsContratos
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With

7
App_Code/ClsInventarios.vb
View File

@@ -732,7 +732,8 @@ Public Class ClsInventarios
Return Retorno Return Retorno
End Function End Function
Public Function GetMovimientosRep(CveAlmacen As Integer, CveTipoMovimiento As Integer, Folio As Integer, FechaIngI As Date, FechaIngF As Date, FechaInicio As Date, FechaFin As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Public Function GetMovimientosRep(CveAlmacen As Integer, CveTipoMovimiento As Integer, Folio As Integer, FechaIngI As Date, FechaIngF As Date, FechaInicio As Date,
FechaFin As Date, CveUsuario As Integer, CveEmpresa As Integer, Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_MovimientosRep") DataAdapter("PA_Inv_MovimientosRep")
@@ -746,6 +747,7 @@ Public Class ClsInventarios
.Add("@FechaFin ", SqlDbType.DateTime).Value = FechaFin .Add("@FechaFin ", SqlDbType.DateTime).Value = FechaFin
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -1824,7 +1826,7 @@ Public Class ClsInventarios
Optional FechaMovto As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional FechaMovto As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1,
Optional Serie As String = "-1", Optional Lote As String = "-1", Optional Caducidad As Date = MinFecha, Optional Serie As String = "-1", Optional Lote As String = "-1", Optional Caducidad As Date = MinFecha,
Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1,
Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Boolean Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_ExistenciasGet") DataAdapter("PA_Inv_ExistenciasGet")
@@ -1845,6 +1847,7 @@ Public Class ClsInventarios
.Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir
.Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados
.Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
.Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output .Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output
End With End With

3
App_Code/ClsOC.vb
View File

@@ -1728,7 +1728,7 @@ Public Class ClsOC
Public Function GetOrdenesCompraRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer, Public Function GetOrdenesCompraRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer,
FechaInicio As Date, FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveActivoFijo As Integer = -1, FechaInicio As Date, FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveActivoFijo As Integer = -1,
Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1) As Boolean Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_OC_OrdenesCompraRep") DataAdapter("PA_OC_OrdenesCompraRep")
@@ -1754,6 +1754,7 @@ Public Class ClsOC
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
.Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso
.Add("@CveUsuarioAutorizo", SqlDbType.Int).Value = CveUsuarioAutorizo .Add("@CveUsuarioAutorizo", SqlDbType.Int).Value = CveUsuarioAutorizo
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With

4
App_Code/ClsOS.vb
View File

@@ -470,7 +470,8 @@ Public Class ClsOS
Return Retorno Return Retorno
End Function End Function
Public Function GetOrdenesServicios(CveOS As Integer, CveCliente As Integer, Folio As Integer, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1) As Boolean Public Function GetOrdenesServicios(CveOS As Integer, CveCliente As Integer, Folio As Integer, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer,
CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_OS_OrdenesServiciosGet") DataAdapter("PA_OS_OrdenesServiciosGet")
@@ -482,6 +483,7 @@ Public Class ClsOS
.Add("@CveUsuarioRecibio", SqlDbType.Int).Value = CveUsuarioRecibio .Add("@CveUsuarioRecibio", SqlDbType.Int).Value = CveUsuarioRecibio
.Add("@CveEstatusOrdenServicio", SqlDbType.Int).Value = CveEstatusOrdenServicio .Add("@CveEstatusOrdenServicio", SqlDbType.Int).Value = CveEstatusOrdenServicio
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

2
CGame/PopUpBuscarEmpaque.aspx.cs
View File

@@ -31,7 +31,7 @@ public partial class CGame_PopUpBuscarProduccion :ClsPaginas
DdlHuerta.DataBind(); DdlHuerta.DataBind();
} }
ObjCort.Dispose(); ObjCort.Dispose();
UPDatos.Update(); UPDatos.Update();
} }
protected void Consultar_Click(object sender, EventArgs e) protected void Consultar_Click(object sender, EventArgs e)

3
CGame/PopUpBuscarOrdenProduccion.aspx.vb
View File

@@ -39,7 +39,8 @@ Partial Class CGame_PopUpBuscarOrdenProduccion
If TxtFolio.Text.Trim <> "" Then Folio = TxtFolio.Text Else Folio = "-1" If TxtFolio.Text.Trim <> "" Then Folio = TxtFolio.Text Else Folio = "-1"
If ValidarFiltrosSeleccionado() Then If ValidarFiltrosSeleccionado() Then
Dim ObjOP As New ClsCGame Dim ObjOP As New ClsCGame
If ObjOP.GetOrdenProduccion(-1, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero, Folio, TxtFechaEntregaI.Text.ToDate, TxtFechaEntregaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero) Then If ObjOP.GetOrdenProduccion(-1, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero, Folio, TxtFechaEntregaI.Text.ToDate, TxtFechaEntregaF.Text.ToDate,
DdlCliente.SelectedValue.ToEntero, TopSelect:=100) Then
GvOP.DataSource = ObjOP.DtResultados GvOP.DataSource = ObjOP.DtResultados
GvOP.DataBind() GvOP.DataBind()
LtlTotalRegistros.Text = ObjOP.DtResultados.Rows.Count.ToString LtlTotalRegistros.Text = ObjOP.DtResultados.Rows.Count.ToString

3
CRM/PopUpBuscarAcercamiento.aspx.cs
View File

@@ -167,7 +167,8 @@ public partial class CRM_PopUpBuscarAcercamiento : ClsPaginas
if (ValidarFiltrosSeleccionados()) if (ValidarFiltrosSeleccionados())
{ {
ClsCRM ObjCRM = new ClsCRM(); ClsCRM ObjCRM = new ClsCRM();
if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM, -1, CveTipoProceso, CveVendedor, "-1", "-1", NombreAcercamiento, CveMedioCaptacion, CveRechazoMotivo, CveProbabilidad, FechaApertura, FechaCierre)) if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM, -1, CveTipoProceso, CveVendedor, "-1", "-1", NombreAcercamiento, CveMedioCaptacion, CveRechazoMotivo,
CveProbabilidad, FechaApertura, FechaCierre, TopSelect:100))
{ {
GVDatos.DataSource = ObjCRM.DtResultados; GVDatos.DataSource = ObjCRM.DtResultados;
GVDatos.DataBind(); GVDatos.DataBind();

2
Contratos/PopUpBuscarContrato.aspx.vb
View File

@@ -145,7 +145,7 @@ Partial Class Contratos_PopUpBuscarContrato
Dim objContratos As New ClsContratos Dim objContratos As New ClsContratos
If (objContratos.GetContratosBusquedaRep(DdlTipo.SelectedValue.ToEntero, DdlTipoContrato.SelectedValue.ToEntero, NumeroContrato, Descripcion, Ubicacion, Responsable, Estatus, If (objContratos.GetContratosBusquedaRep(DdlTipo.SelectedValue.ToEntero, DdlTipoContrato.SelectedValue.ToEntero, NumeroContrato, Descripcion, Ubicacion, Responsable, Estatus,
DdlProyecto.SelectedValue.ToEntero, DdlSubProtecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, DdlCliente.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProtecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, DdlCliente.SelectedValue.ToEntero,
DdlProveedor.SelectedValue.ToEntero)) Then DdlProveedor.SelectedValue.ToEntero, TopSelect:=100)) Then
GV.DataSource = objContratos.DtResultados GV.DataSource = objContratos.DtResultados
LtlTotalRegistros.Text = objContratos.DtResultados.Rows.Count.ToString LtlTotalRegistros.Text = objContratos.DtResultados.Rows.Count.ToString
Else Else

2
Inventarios/PopUpBuscarMovto.aspx.vb
View File

@@ -58,7 +58,7 @@ Partial Class PopUpBuscarFolio
Dim FechaIngF = If(TxtFechaIngFin.Text.Trim <> "" AndAlso TxtFechaIngFin.Text <> "__/__/____", TxtFechaIngFin.Text.ToDate, MaxFecha) Dim FechaIngF = If(TxtFechaIngFin.Text.Trim <> "" AndAlso TxtFechaIngFin.Text <> "__/__/____", TxtFechaIngFin.Text.ToDate, MaxFecha)
If Reporte.GetMovimientosRep(DdlAlmacen.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, If(TxtFolio.Text = "", "-1", TxtFolio.Text.Trim).ToEntero, If Reporte.GetMovimientosRep(DdlAlmacen.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, If(TxtFolio.Text = "", "-1", TxtFolio.Text.Trim).ToEntero,
FechaIngI, FechaIngF, FechaInicial, FechaFinal, -1, UsuarioActual.CveEmpresa) Then FechaIngI, FechaIngF, FechaInicial, FechaFinal, -1, UsuarioActual.CveEmpresa, TopSelect:=100) Then
GvM.DataSource = Reporte.DtResultados GvM.DataSource = Reporte.DtResultados
LtlTotalRegistros.Text = Reporte.DtResultados.Rows.Count.ToString.FormatoNumero(0) LtlTotalRegistros.Text = Reporte.DtResultados.Rows.Count.ToString.FormatoNumero(0)
Else Else

3
Inventarios/PopUpExistenciasAlmacen.aspx.vb
View File

@@ -97,7 +97,8 @@ Partial Class Inventarios_Default
If ValidarFiltrosSeleccionados() Then If ValidarFiltrosSeleccionados() Then
Dim ObjInventarios As New ClsInventarios() Dim ObjInventarios As New ClsInventarios()
If ObjInventarios.GetExistenciasProducto(CvePS, -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then If ObjInventarios.GetExistenciasProducto(CvePS, -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"),
ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, TopSelect:=100) Then
Dim dr As Data.DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") Dim dr As Data.DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
If dr IsNot Nothing Then If dr IsNot Nothing Then

2
OC/PopUpBuscarReq.aspx.vb
View File

@@ -173,7 +173,7 @@ Partial Class OC_PopUpBuscarReq
Dim ObjOC As New ClsOC Dim ObjOC As New ClsOC
ObjOC.GetOrdenesCompraRep(DdlTipo.SelectedValue, CveProyecto, CveSubProyecto, -1, DdlEstatus.SelectedValue.ToEntero, FI, MaxFecha, -1, DdlProveedor.SelectedValue.ToEntero, ObjOC.GetOrdenesCompraRep(DdlTipo.SelectedValue, CveProyecto, CveSubProyecto, -1, DdlEstatus.SelectedValue.ToEntero, FI, MaxFecha, -1, DdlProveedor.SelectedValue.ToEntero,
If(TxtFolio.Text.ToEntero <= 0, -1, TxtFolio.Text.ToEntero), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Guia:=guia, If(TxtFolio.Text.ToEntero <= 0, -1, TxtFolio.Text.ToEntero), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Guia:=guia,
SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), TopSelect:=100)
Dim DtOC = ObjOC.DtResultados ' tipotermino, esattus inicial Dim DtOC = ObjOC.DtResultados ' tipotermino, esattus inicial
ObjOC.Dispose() ObjOC.Dispose()

4
Ventas/PopUpBuscarFolio.aspx.vb
View File

@@ -280,12 +280,12 @@ Partial Class PopUpBuscarFolio
End Sub End Sub
Private Function ValidarUnFiltroSeleccionado() As Boolean Private Function ValidarUnFiltroSeleccionado() As Boolean
If DdlTipoDocto.SelectedValue.ToEntero > 0 Then Return True If DdlTipoDocto.SelectedValue <> "-1" Then Return True
If DdlSubProyecto.SelectedValue.ToEntero > 0 Then Return True If DdlSubProyecto.SelectedValue.ToEntero > 0 Then Return True
If DdlEstatusFactura.SelectedValue.ToEntero > 0 Then Return True If DdlEstatusFactura.SelectedValue.ToEntero > 0 Then Return True
If DdlUsuario.SelectedValue.ToEntero > 0 Then Return True If DdlUsuario.SelectedValue.ToEntero > 0 Then Return True
If DdlPS.SelectedValue.ToEntero > 0 Then Return True If DdlPS.SelectedValue.ToEntero > 0 Then Return True
If TxtFolio.Text.Trim.Length > 0 Then Return True
If DdlNombre.SelectedValue.ToEntero > 0 Then Return True If DdlNombre.SelectedValue.ToEntero > 0 Then Return True
If TxtFolioFiscal.Text.Trim.Length > 0 Then Return True If TxtFolioFiscal.Text.Trim.Length > 0 Then Return True
If TxtPedidoContrato.Text.Length > 0 Then Return True If TxtPedidoContrato.Text.Length > 0 Then Return True