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

validación de campos en los pop up

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-05-29 19:57:48 -07:00
parent 03e14625a4
commit 58ab0499d0
12 changed files with 325 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
Bancos/PopUpBuscarIE.aspx.vb
View File

@@ -67,23 +67,29 @@ Partial Class Bancos_PopUpBuscarIE
Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
Dim ObjBancosIE As New ClsBancos
Dim Folio As String = "-1" Dim Folio As String = "-1"
If TxtFolio.Text <> "" Then Folio = String.Format("%{0}%", TxtFolio.Text.Trim) If TxtFolio.Text <> "" Then Folio = String.Format("%{0}%", TxtFolio.Text.Trim)
If ObjBancosIE.GetBancosIE(-1, DdlBanco.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, "-1", -1, Folio, "-1", -1, -1, -1, -1, -1, txtFechaI.Text.ToDate, MaxFecha.ToShortDateString.ToDate, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then If ValidarFiltrosSeleccionado() Then
DtDatos = ObjBancosIE.DtResultados 'If(TxtFolio.Text <> "", ObjBancosIE.DtResultados.FiltraParametros(String.Format("Folio Like '{0}'", TxtFolio.Text)), ObjBancosIE.DtResultados)
Dim ObjBancosIE As New ClsBancos
If ObjBancosIE.GetBancosIE(-1, DdlBanco.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, "-1", -1, Folio, "-1", -1, -1, -1, -1, -1, txtFechaI.Text.ToDate,
MaxFecha.ToShortDateString.ToDate, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
DtDatos = ObjBancosIE.DtResultados 'If(TxtFolio.Text <> "", ObjBancosIE.DtResultados.FiltraParametros(String.Format("Folio Like '{0}'", TxtFolio.Text)), ObjBancosIE.DtResultados)
Else
Alert("Ocurrió un error al consultar los Anticipos", TipoMensaje.MsgError)
DtDatos = Nothing
End If
ObjBancosIE.Dispose()
If DtDatos IsNot Nothing Then
GvDatos.DataSource = DtDatos
GvDatos.DataBind()
UpDatos.Update()
End If
Else Else
Alert("Ocurrió un error al consultar los Anticipos", TipoMensaje.MsgError) Alert("Asigne un valor a cualquiera de los filtros", TipoMensaje.MsgAdvertencia)
DtDatos = Nothing
End If
ObjBancosIE.Dispose()
If DtDatos IsNot Nothing Then
GvDatos.DataSource = DtDatos
GvDatos.DataBind()
UpDatos.Update()
End If End If
End Sub End Sub
@@ -103,4 +109,11 @@ Partial Class Bancos_PopUpBuscarIE
End If End If
End Sub End Sub
Private Function ValidarFiltrosSeleccionado() As Boolean
If DdlBanco.SelectedValue.ToEntero > 0 Then Return True
If DdlCuenta.SelectedValue.ToEntero > 0 Then Return True
If TxtFolio.Text.Length > 0 Then Return True
Return False
End Function
End Class End Class

45
CGame/PopUpBuscarEmpaque.aspx.cs
View File

@@ -26,27 +26,32 @@ public partial class CGame_PopUpBuscarProduccion :ClsPaginas
ClsCGame ObjCort = new ClsCGame(); ClsCGame ObjCort = new ClsCGame();
if (ObjCort.GetHuerta(UsuarioActual.CveEmpresa)) if (ObjCort.GetHuerta(UsuarioActual.CveEmpresa))
{ {
DdlHuerta.DataSource = ObjCort.DtResultados; DdlHuerta.DataSource = ObjCort.DtResultados;
DdlHuerta.Items.Insert(0, new ListItem("Todos", "-1"));
DdlHuerta.DataBind();
}
DdlHuerta.Items.Insert(0, new ListItem("Todos", "-1")); DdlHuerta.Items.Insert(0, new ListItem("Todos", "-1"));
UPDatos.Update(); DdlHuerta.DataBind();
} }
ObjCort.Dispose();
protected void Consultar_Click(object sender, EventArgs e) UPDatos.Update();
} }
String Folio;
if (TxtFolio.Text != "") { Folio = TxtFolio.Text; } else { Folio = "-1"; } protected void Consultar_Click(object sender, EventArgs e)
ClsCGame ObjCGame = new ClsCGame(); {
if (ObjCGame.GetProduccion(UsuarioActual.CveEmpresa, Folio, -1, DdlHuerta.SelectedValue.ToEntero(), TxtFechaEntregaI.Text.ToDate(), TxtFechaEntregaF.Text.ToDate())) if (ValidarFiltrosSeleccionados())
{ {
String Folio;
if (TxtFolio.Text != "") { Folio = TxtFolio.Text; } else { Folio = "-1"; }
ClsCGame ObjCGame = new ClsCGame();
if (ObjCGame.GetProduccion(UsuarioActual.CveEmpresa, Folio, -1, DdlHuerta.SelectedValue.ToEntero(), TxtFechaEntregaI.Text.ToDate(), TxtFechaEntregaF.Text.ToDate()))
{
GvDatos.DataSource = ObjCGame.DtResultados;
GvDatos.DataBind(); GvDatos.DataBind();
LtlTotalRegistros.Text = ObjCGame.DtResultados.Rows.Count.ToString();
if (ObjCGame.DtResultados.Rows.Count < 1)
{
Alert("No se encontraron resultados con los filtros seleccionados", TipoMensaje.MsgAdvertencia);
}
else else
LtlTotalRegistros.Text = ObjCGame.DtResultados.Rows.Count.ToString();
if (ObjCGame.DtResultados.Rows.Count < 1)
{ {
Alert("No se encontraron resultados con los filtros seleccionados", TipoMensaje.MsgAdvertencia);
TblBusqueda.Visible = true; TblBusqueda.Visible = true;
} }
} }
@@ -60,4 +65,12 @@ public partial class CGame_PopUpBuscarProduccion :ClsPaginas
} }
#region GridView #region GridView
protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e)
{
if (e.Row.RowType == DataControlRowType.DataRow)
{
e.Row.FCLabel("LblFolio").Text = String.Format("<div class='truncate' style='width:200px;'>{0}{1}</a></div>", "<a href='javascript:Ir("+"" + e.Row.DBCampo("CveProduccion") + ""+");'>", e.Row.DBCampo("Folio"));
}
}
#endregion #endregion

35
CGame/PopUpBuscarOrdenProduccion.aspx.vb
View File

@@ -37,19 +37,23 @@ Partial Class CGame_PopUpBuscarOrdenProduccion
Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
Dim Folio As String Dim Folio As String
If TxtFolio.Text.Trim <> "" Then Folio = TxtFolio.Text Else Folio = "-1" If TxtFolio.Text.Trim <> "" Then Folio = TxtFolio.Text Else Folio = "-1"
Dim ObjOP As New ClsCGame If ValidarFiltrosSeleccionado() Then
If ObjOP.GetOrdenProduccion(-1, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero, Folio, TxtFechaEntregaI.Text.ToDate, TxtFechaEntregaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero) Then Dim ObjOP As New ClsCGame
GvOP.DataSource = ObjOP.DtResultados If ObjOP.GetOrdenProduccion(-1, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero, Folio, TxtFechaEntregaI.Text.ToDate, TxtFechaEntregaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero) Then
GvOP.DataBind() GvOP.DataSource = ObjOP.DtResultados
LtlTotalRegistros.Text = ObjOP.DtResultados.Rows.Count.ToString GvOP.DataBind()
If Not ObjOP.DtResultados.Rows.Count > 0 Then LtlTotalRegistros.Text = ObjOP.DtResultados.Rows.Count.ToString
Alert("No se encontraron resultados con los filtros seleccionados", TipoMensaje.MsgAdvertencia) If Not ObjOP.DtResultados.Rows.Count > 0 Then
Else Alert("No se encontraron resultados con los filtros seleccionados", TipoMensaje.MsgAdvertencia)
TblBusqueda.Visible = True Else
TblBusqueda.Visible = True
End If
End If End If
ObjOP.Dispose()
UPDatos.Update()
Else
Alert("Seleccione un criterio de busqueda", TipoMensaje.MsgAdvertencia)
End If End If
ObjOP.Dispose()
UPDatos.Update()
End Sub End Sub
Private Sub GvOP_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOP.RowDataBound Private Sub GvOP_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOP.RowDataBound
@@ -57,4 +61,13 @@ Partial Class CGame_PopUpBuscarOrdenProduccion
e.Row.FCLabel("LblFolio").Text = String.Format("<div class='truncate' style='width:200px;'>{0}{1}</a></div>", "<a href='javascript:Ir(""" & e.Row.DBCampo("CveOrdenProduccion") & """);'>", e.Row.DBCampo("Folio")) e.Row.FCLabel("LblFolio").Text = String.Format("<div class='truncate' style='width:200px;'>{0}{1}</a></div>", "<a href='javascript:Ir(""" & e.Row.DBCampo("CveOrdenProduccion") & """);'>", e.Row.DBCampo("Folio"))
End If End If
End Sub End Sub
Private Function ValidarFiltrosSeleccionado() As Boolean
If DdlEstatus.SelectedValue.ToEntero > 0 Then Return True
If TxtFolio.Text.Length > 0 Then Return True
If TxtFechaEntregaI.Text.Length > 0 Then Return True
If TxtFechaEntregaF.Text.Length > 0 Then Return True
If DdlCliente.SelectedValue.ToEntero > 0 Then Return True
Return False
End Function
End Class End Class

42
CRM/PopUpBuscarAcercamiento.aspx.cs
View File

@@ -164,21 +164,41 @@ public partial class CRM_PopUpBuscarAcercamiento : ClsPaginas
string FechaCierre = TxtFechaCierre.Text == "" ? "-1" : TxtFechaCierre.Text; string FechaCierre = TxtFechaCierre.Text == "" ? "-1" : TxtFechaCierre.Text;
string NombreAcercamiento = TxtAcercamiento.Text == "" ? "-1" : TxtAcercamiento.Text; string NombreAcercamiento = TxtAcercamiento.Text == "" ? "-1" : TxtAcercamiento.Text;
ClsCRM ObjCRM = new ClsCRM(); if (ValidarFiltrosSeleccionados())
if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM, -1, CveTipoProceso, CveVendedor, "-1", "-1", NombreAcercamiento, CveMedioCaptacion, CveRechazoMotivo, CveProbabilidad, FechaApertura, FechaCierre))
{ {
GVDatos.DataSource = ObjCRM.DtResultados; ClsCRM ObjCRM = new ClsCRM();
GVDatos.DataBind(); if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM, -1, CveTipoProceso, CveVendedor, "-1", "-1", NombreAcercamiento, CveMedioCaptacion, CveRechazoMotivo, CveProbabilidad, FechaApertura, FechaCierre))
{
GVDatos.DataSource = ObjCRM.DtResultados;
GVDatos.DataBind();
LtlTotalRegistros.Text = ObjCRM.DtResultados.Rows.Count.ToString(); LtlTotalRegistros.Text = ObjCRM.DtResultados.Rows.Count.ToString();
if (ObjCRM.DtResultados.Rows.Count > 0) if (ObjCRM.DtResultados.Rows.Count > 0)
DivBusqueda.Visible = true; DivBusqueda.Visible = true;
else else
DivBusqueda.Visible = false; DivBusqueda.Visible = false;
}
ObjCRM.Dispose();
UPDatos.Update();
}else
{
Alert("Seleccione un criterio de busqueda",ModExtensiones.TipoMensaje.MsgAdvertencia);
} }
}
ObjCRM.Dispose(); private bool ValidarFiltrosSeleccionados()
UPDatos.Update(); {
if (DdlTipoProceso.SelectedValue.ToEntero() > 0) return true;
if (DdlEmpresaCRM.SelectedValue.ToEntero() > 0) return true;
if (DdlVendedor.SelectedValue.ToEntero() > 0) return true;
if (DdlMedioCaptacion.SelectedValue.ToEntero() > 0) return true;
if (DdlRechazoMotivo.SelectedValue.ToEntero() > 0) return true;
if (DdlProbabilidad.SelectedValue.ToEntero() > 0) return true;
if (TxtFechaApertura.Text != "") return true;
if (TxtFechaCierre.Text != "") return true;
if (TxtAcercamiento.Text != "") return true;
return false;
} }
#endregion #endregion
} }

34
Compras/PopUpBuscarProveedor.aspx.vb
View File

@@ -60,15 +60,19 @@ Partial Class Compras_PopUpBuscarProveedor
If TxtTelefono.Text.Trim <> String.Empty Then Telefono = TxtTelefono.Text.Trim If TxtTelefono.Text.Trim <> String.Empty Then Telefono = TxtTelefono.Text.Trim
CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, Codigo, RazonSocial, NombreComercial, NombreCorto, RFC, Contacto, Telefono, -1, UsuarioActual.CveEmpresa, CveTipoProveedor:=CveTipoProveedor) Then If ValidarUnFiltroSeleccionado() Then
If ObjProveedor.DtResultados.Rows.Count > 0 Then If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, Codigo, RazonSocial, NombreComercial, NombreCorto, RFC, Contacto, Telefono, -1, UsuarioActual.CveEmpresa, CveTipoProveedor:=CveTipoProveedor) Then
LtlTotalRegistros.Text = ObjProveedor.DtResultados.Rows.Count.ToString.FormatoNumero(0) If ObjProveedor.DtResultados.Rows.Count > 0 Then
GV.DataSource = ObjProveedor.DtResultados LtlTotalRegistros.Text = ObjProveedor.DtResultados.Rows.Count.ToString.FormatoNumero(0)
Else GV.DataSource = ObjProveedor.DtResultados
LtlTotalRegistros.Text = "0" Else
GV.DataSource = Nothing LtlTotalRegistros.Text = "0"
Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia) GV.DataSource = Nothing
Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
End If
End If End If
Else
Alert("Seleccione un criterio de búsqueda", TipoMensaje.MsgAdvertencia)
End If End If
ObjProveedor.Dispose() ObjProveedor.Dispose()
@@ -106,7 +110,7 @@ Partial Class Compras_PopUpBuscarProveedor
Case Else Case Else
Liga = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>", e.Row.DBCampo("CveProveedor")) Liga = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>", e.Row.DBCampo("CveProveedor"))
End Select End Select
e.Row.FCLiteral("LtlCodigo").Text = String.Format("<div class='truncate' style='width:55px'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Codigo")) e.Row.FCLiteral("LtlCodigo").Text = String.Format("<div class='truncate' style='width:55px'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Codigo"))
e.Row.FCLiteral("LtlRazonSocial").Text = String.Format("<div class='truncate' style='width:165px'>{0}{1}</a></div>", Liga, e.Row.DBCampo("RazonSocial")) e.Row.FCLiteral("LtlRazonSocial").Text = String.Format("<div class='truncate' style='width:165px'>{0}{1}</a></div>", Liga, e.Row.DBCampo("RazonSocial"))
e.Row.FCLiteral("LtlNombreComercial").Text = String.Format("<div class='truncate' style='width:165px'>{0}{1}</a></div>", Liga, e.Row.DBCampo("NombreComercial")) e.Row.FCLiteral("LtlNombreComercial").Text = String.Format("<div class='truncate' style='width:165px'>{0}{1}</a></div>", Liga, e.Row.DBCampo("NombreComercial"))
@@ -115,4 +119,16 @@ Partial Class Compras_PopUpBuscarProveedor
e.Row.FCLiteral("LtlContacto").Text = String.Format("<div class='truncate' style='width:65px'>{0}{1}</a></div>", Liga, e.Row.DBCampo("ContactoNombre")) e.Row.FCLiteral("LtlContacto").Text = String.Format("<div class='truncate' style='width:65px'>{0}{1}</a></div>", Liga, e.Row.DBCampo("ContactoNombre"))
End If End If
End Sub End Sub
Private Function ValidarUnFiltroSeleccionado() As Boolean
If TxtCodigo.Text.Trim <> String.Empty Then Return True
If TxtRazonSocial.Text.Trim <> String.Empty Then Return True
If TxtNombreComercial.Text.Trim <> String.Empty Then Return True
If TxtNombreCorto.Text.Trim <> String.Empty Then Return True
If TxtRFC.Text.Trim <> String.Empty Then Return True
If TxtContacto.Text.Trim <> String.Empty Then Return True
If TxtTelefono.Text.Trim <> String.Empty Then Return True
If DdlTipoProveedor.SelectedValue.ToEntero > 0 Then Return True
Return False
End Function
End Class End Class

46
Contratos/PopUpBuscarContrato.aspx.vb
View File

@@ -125,7 +125,7 @@ Partial Class Contratos_PopUpBuscarContrato
End Sub End Sub
Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs) Handles BtnBuscar.Click Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs) Handles BtnBuscar.Click
Dim objContratos As New ClsContratos
Dim NumeroContrato As String = "-1" Dim NumeroContrato As String = "-1"
Dim Estatus As Integer = 1 Dim Estatus As Integer = 1
@@ -141,20 +141,27 @@ Partial Class Contratos_PopUpBuscarContrato
If TxtResponsable.Text.Trim.Length > 0 Then Responsable = TxtResponsable.Text If TxtResponsable.Text.Trim.Length > 0 Then Responsable = TxtResponsable.Text
If TxtNumeroContrato.Text.Trim.Length > 0 Then NumeroContrato = TxtNumeroContrato.Text If TxtNumeroContrato.Text.Trim.Length > 0 Then NumeroContrato = TxtNumeroContrato.Text
If (objContratos.GetContratosBusquedaRep(DdlTipo.SelectedValue.ToEntero, DdlTipoContrato.SelectedValue.ToEntero, NumeroContrato, Descripcion, If ValidarUnFiltroSeleccionado() Then
Ubicacion, Responsable, Estatus, DdlProyecto.SelectedValue.ToEntero, DdlSubProtecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, DdlCliente.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero)) Then Dim objContratos As New ClsContratos
GV.DataSource = objContratos.DtResultados If (objContratos.GetContratosBusquedaRep(DdlTipo.SelectedValue.ToEntero, DdlTipoContrato.SelectedValue.ToEntero, NumeroContrato, Descripcion, Ubicacion, Responsable, Estatus,
LtlTotalRegistros.Text = objContratos.DtResultados.Rows.Count.ToString DdlProyecto.SelectedValue.ToEntero, DdlSubProtecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, DdlCliente.SelectedValue.ToEntero,
DdlProveedor.SelectedValue.ToEntero)) Then
GV.DataSource = objContratos.DtResultados
LtlTotalRegistros.Text = objContratos.DtResultados.Rows.Count.ToString
Else
GV.DataSource = Nothing
LtlTotalRegistros.Text = "0"
End If
objContratos.Dispose()
GV.DataBind()
UPDatos.Update()
Else Else
GV.DataSource = Nothing Alert("Seleccione un criterio de busqueda", TipoMensaje.MsgAdvertencia)
LtlTotalRegistros.Text = "0"
End If End If
objContratos.Dispose()
GV.DataBind()
UPDatos.Update()
End Sub End Sub
Private Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound Private Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
@@ -173,6 +180,19 @@ Partial Class Contratos_PopUpBuscarContrato
End If End If
End Sub End Sub
Private Function ValidarUnFiltroSeleccionado() As Boolean
If TxtDescripcion.Text.Trim.Length > 0 Then Return True
If TxtUbicacion.Text.Trim.Length > 0 Then Return True
If TxtResponsable.Text.Trim.Length > 0 Then Return True
If TxtNumeroContrato.Text.Trim.Length > 0 Then Return True
'If DdlTipo.SelectedValue.ToEntero > 0 Then Return True
If DdlTipoContrato.SelectedValue.ToEntero > 0 Then Return True
If DdlProyecto.SelectedValue.ToEntero > 0 Then Return True
If DdlSubProtecto.SelectedValue.ToEntero > 0 Then Return True
If DdlCliente.SelectedValue.ToEntero > 0 Then Return True
If DdlProveedor.SelectedValue.ToEntero > 0 Then Return True
Return False
End Function
End Class End Class

43
Inventarios/PopUpBuscarMovto.aspx.vb
View File

@@ -49,27 +49,38 @@ Partial Class PopUpBuscarFolio
CargaDatos() CargaDatos()
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
Dim Reporte As New ClsInventarios If ValidarFiltrosSeleccionados() Then
Dim Reporte As New ClsInventarios
Dim FechaInicial = If(TxtFechaI.Text.Trim <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text.ToDate, MinFecha) Dim FechaInicial = If(TxtFechaI.Text.Trim <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text.ToDate, MinFecha)
Dim FechaFinal = If(TxtFechaF.Text.Trim <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text.ToDate, MaxFecha) Dim FechaFinal = If(TxtFechaF.Text.Trim <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text.ToDate, MaxFecha)
Dim FechaIngI = If(TxtFechaIngInicio.Text.Trim <> "" AndAlso TxtFechaIngInicio.Text <> "__/__/____", TxtFechaIngInicio.Text.ToDate, MinFecha) Dim FechaIngI = If(TxtFechaIngInicio.Text.Trim <> "" AndAlso TxtFechaIngInicio.Text <> "__/__/____", TxtFechaIngInicio.Text.ToDate, MinFecha)
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, FechaIngI, FechaIngF, FechaInicial, FechaFinal, -1, UsuarioActual.CveEmpresa) Then If Reporte.GetMovimientosRep(DdlAlmacen.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, If(TxtFolio.Text = "", "-1", TxtFolio.Text.Trim).ToEntero,
GvM.DataSource = Reporte.DtResultados FechaIngI, FechaIngF, FechaInicial, FechaFinal, -1, UsuarioActual.CveEmpresa) Then
LtlTotalRegistros.Text = Reporte.DtResultados.Rows.Count.ToString.FormatoNumero(0) GvM.DataSource = Reporte.DtResultados
LtlTotalRegistros.Text = Reporte.DtResultados.Rows.Count.ToString.FormatoNumero(0)
Else
GvM.DataSource = Nothing
End If
GvM.DataBind()
UPDatos.Update()
TblBusqueda.Visible = True
Reporte.Dispose()
Else Else
GvM.DataSource = Nothing Alert("Seleccione un criterio de busqueda", TipoMensaje.MsgAdvertencia)
End If End If
GvM.DataBind()
UPDatos.Update()
TblBusqueda.Visible = True
Reporte.Dispose()
End Sub End Sub
Private Function ValidarFiltrosSeleccionados() As Boolean
If DdlAlmacen.SelectedValue.ToEntero > 0 Then Return True
If DdlTipoMovimiento.SelectedValue.ToEntero > 0 Then Return True
If TxtFolio.Text.Length > 0 Then Return True
Return False
End Function
#End Region #End Region
End Class End Class

121
Inventarios/PopUpExistenciasAlmacen.aspx.vb
View File

@@ -94,72 +94,77 @@ Partial Class Inventarios_Default
End If End If
End Sub End Sub
Private Sub CargaDatos(CvePS As Integer, Tipo As Integer) Private Sub CargaDatos(CvePS As Integer, Tipo As Integer)
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
Dim dr As Data.DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
If dr IsNot Nothing Then If ValidarFiltrosSeleccionados() Then
LtPs.Text = $"Producto: <b>{dr("PSCodigo").ToString}</b>" Dim ObjInventarios As New ClsInventarios()
Dim CvePrecioLista As Integer = -1 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 Not UsuarioActual.Empresa.Funcionalidad(404).ToString = "1" Then 'sino manneja precios de lista Dim dr As Data.DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
CvePrecioLista = -2
End If
Dim ObjVta As New ClsVentas If dr IsNot Nothing Then
Dim objPS As New ClsProductosServicios LtPs.Text = $"Producto: <b>{dr("PSCodigo").ToString}</b>"
If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then Dim CvePrecioLista As Integer = -1
If ObjVta.DtResultados.Rows.Count > 0 Then If Not UsuarioActual.Empresa.Funcionalidad(404).ToString = "1" Then 'sino manneja precios de lista
If CvePrecioLista = -1 Then CvePrecioLista = ObjVta.DtResultados.Rows(0)("CvePrecioLista").ToString.ToEntero CvePrecioLista = -2
If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioLista, -1, DDlPS.SelectedValue.ToEntero) Then End If
If objPS.DtResultados.Rows.Count > 0 Then
LtPrecioPS.Text = $"Precio de venta: <b>$: {objPS.DtResultados.Rows(0)("PrecioLista").ToString.FormatoNumero} {dr("Abreviatura").ToString}</b>" Dim ObjVta As New ClsVentas
Dim objPS As New ClsProductosServicios
If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
If ObjVta.DtResultados.Rows.Count > 0 Then
If CvePrecioLista = -1 Then CvePrecioLista = ObjVta.DtResultados.Rows(0)("CvePrecioLista").ToString.ToEntero
If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioLista, -1, DDlPS.SelectedValue.ToEntero) Then
If objPS.DtResultados.Rows.Count > 0 Then
LtPrecioPS.Text = $"Precio de venta: <b>$: {objPS.DtResultados.Rows(0)("PrecioLista").ToString.FormatoNumero} {dr("Abreviatura").ToString}</b>"
End If
End If End If
End If End If
End If End If
ObjVta.Dispose()
objPS.Dispose()
If UsuarioActual.CveEmpresa = 119 Then
If CBool(dr("AplicaIEPS")) Then
LtlIEPS.Visible = True
LtlIEPSPorcentaje.Visible = True
LtlIEPSPorcentaje.Text = $"<b>% {(dr("IEPSPorcentaje").ToString.ToDouble * 100).FormatoNumero}</b>"
Else
LtlIEPS.Visible = False
LtlIEPSPorcentaje.Visible = False
End If
If dr("IVA").ToString = "-1" OrElse dr("IVA").ToString.ToDecimal > 0 Then
LtlIVA.Visible = True
LtlIVAPorcentaje.Visible = True
LtlIVAPorcentaje.Text = $"<b>Si</b>"
Else
LtlIVA.Visible = False
LtlIVAPorcentaje.Visible = False
End If
End If
End If End If
ObjVta.Dispose()
objPS.Dispose() If UsuarioActual.CveUsuario = 100 Then
If UsuarioActual.CveEmpresa = 119 Then HlPendiente.Visible = True
If CBool(dr("AplicaIEPS")) Then HlPendiente.NavigateUrl = String.Format("/Inventarios/RepVentasXSurtir.aspx?CvePS={0}", CvePS)
LtlIEPS.Visible = True End If
LtlIEPSPorcentaje.Visible = True
LtlIEPSPorcentaje.Text = $"<b>% {(dr("IEPSPorcentaje").ToString.ToDouble * 100).FormatoNumero}</b>" If ObjInventarios.DtResultados.Rows.Count > 0 Then
Else GV.DataSource = ObjInventarios.DtResultados
LtlIEPS.Visible = False Else
LtlIEPSPorcentaje.Visible = False GV.DataSource = Nothing
End If Dim Js = If(Tipo = 1, "", "window.setTimeout(Focus,200);")
If dr("IVA").ToString = "-1" OrElse dr("IVA").ToString.ToDecimal > 0 Then Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
LtlIVA.Visible = True
LtlIVAPorcentaje.Visible = True
LtlIVAPorcentaje.Text = $"<b>Si</b>"
Else
LtlIVA.Visible = False
LtlIVAPorcentaje.Visible = False
End If
End If End If
End If End If
If UsuarioActual.CveUsuario = 100 Then ObjInventarios.Dispose()
HlPendiente.Visible = True GV.DataBind()
HlPendiente.NavigateUrl = String.Format("/Inventarios/RepVentasXSurtir.aspx?CvePS={0}", CvePS)
End If
If ObjInventarios.DtResultados.Rows.Count > 0 Then
GV.DataSource = ObjInventarios.DtResultados
Else UPDatos.Update()
GV.DataSource = Nothing TblBusqueda.Visible = True
Dim Js = If(Tipo = 1, "", "window.setTimeout(Focus,200);") Else
Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia) Alert("Seleccione un producto o servicio", TipoMensaje.MsgAdvertencia)
End If
End If End If
ObjInventarios.Dispose()
GV.DataBind()
UPDatos.Update()
TblBusqueda.Visible = True
End Sub End Sub
Private Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound Private Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
@@ -227,6 +232,7 @@ Partial Class Inventarios_Default
End Sub End Sub
Private Sub CargarDatosMedRin() Private Sub CargarDatosMedRin()
Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
If ObjInventarios.GetExistenciasMedRin(DDlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlRin.SelectedValue.ToEntero, DdlMedidas.SelectedValue.ToEntero) Then If ObjInventarios.GetExistenciasMedRin(DDlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlRin.SelectedValue.ToEntero, DdlMedidas.SelectedValue.ToEntero) Then
GvMedRin.DataSource = ObjInventarios.DtResultados GvMedRin.DataSource = ObjInventarios.DtResultados
@@ -236,4 +242,9 @@ Partial Class Inventarios_Default
UPDatos.Update() UPDatos.Update()
End Sub End Sub
Private Function ValidarFiltrosSeleccionados() As Boolean
If DDlPS.SelectedValue.ToEntero > 0 Then Return True
Return False
End Function
End Class End Class

37
OC/PopUpBuscarReq.aspx.vb
View File

@@ -168,17 +168,23 @@ Partial Class OC_PopUpBuscarReq
Dim FI As Date = If(txtFechaI.Text.Trim = "", MinFecha, txtFechaI.Text.Trim.ToDate) Dim FI As Date = If(txtFechaI.Text.Trim = "", MinFecha, txtFechaI.Text.Trim.ToDate)
Dim guia As String = If(TxtGuia.Text.Trim = "", "-1", TxtGuia.Text) Dim guia As String = If(TxtGuia.Text.Trim = "", "-1", TxtGuia.Text)
'Cargar Datos 'Cargar Datos
Dim ObjOC As New ClsOC
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,
SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False))
Dim DtOC = ObjOC.DtResultados ' tipotermino, esattus inicial
ObjOC.Dispose()
GV.DataSource = DtOC If ValidarFiltrosSeleccionado() Then
GV.DataBind() Dim ObjOC As New ClsOC
LtlTotalRegistros.Text = GV.Rows.Count.ToString ObjOC.GetOrdenesCompraRep(DdlTipo.SelectedValue, CveProyecto, CveSubProyecto, -1, DdlEstatus.SelectedValue.ToEntero, FI, MaxFecha, -1, DdlProveedor.SelectedValue.ToEntero,
LblTotalRegistros.Text = "Número de registros: " If(TxtFolio.Text.ToEntero <= 0, -1, TxtFolio.Text.ToEntero), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Guia:=guia,
UPDatos.Update() SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False))
Dim DtOC = ObjOC.DtResultados ' tipotermino, esattus inicial
ObjOC.Dispose()
GV.DataSource = DtOC
GV.DataBind()
LtlTotalRegistros.Text = GV.Rows.Count.ToString
LblTotalRegistros.Text = "Número de registros: "
UPDatos.Update()
Else
Alert("Asigne un valor a cualquiera de los filtros", TipoMensaje.MsgAdvertencia)
End If
End Sub End Sub
Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
@@ -245,6 +251,17 @@ Partial Class OC_PopUpBuscarReq
End If End If
End Sub End Sub
Private Function ValidarFiltrosSeleccionado() As Boolean
If DdlTipo.SelectedValue.ToEntero > 0 Then Return True
If DdlEstatus.SelectedValue.ToEntero > 0 Then Return True
If DdlProveedor.SelectedValue.ToEntero > 0 Then Return True
If TxtFolio.Text.ToEntero > 0 Then Return True
If DdlSubProyectos.SelectedValue.ToEntero > 0 Then Return True
If DdlProyectos.SelectedValue.ToEntero > 0 Then Return True
Return False
End Function
#End Region #End Region
#Region " VINCULA CON COMPRAS " #Region " VINCULA CON COMPRAS "

30
OS/PopUpBuscarOS.aspx.vb
View File

@@ -35,16 +35,19 @@ Partial Class OS_PopUpBuscarOS
'If TxtFechaRecibido.Text.Trim <> String.Empty Then FechaRecibido.ToString() 'If TxtFechaRecibido.Text.Trim <> String.Empty Then FechaRecibido.ToString()
If DdlEstatusOrdenServicio.SelectedValue <> String.Empty Then CveEstatusOrdenServicio = DdlEstatusOrdenServicio.SelectedValue.ToEntero If DdlEstatusOrdenServicio.SelectedValue <> String.Empty Then CveEstatusOrdenServicio = DdlEstatusOrdenServicio.SelectedValue.ToEntero
If ValidarUnFiltroSeleccionado() Then
If ObjOS.GetOrdenesServicios(-1, CveCliente, Folio, CveUsuarioRecibio, CveEstatusOrdenServicio, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then If ObjOS.GetOrdenesServicios(-1, CveCliente, Folio, CveUsuarioRecibio, CveEstatusOrdenServicio, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
If ObjOS.DtResultados.Rows.Count > 0 Then If ObjOS.DtResultados.Rows.Count > 0 Then
LtlTotalRegistros.Text = ObjOS.DtResultados.Rows.Count.ToString.FormatoNumero(0) LtlTotalRegistros.Text = ObjOS.DtResultados.Rows.Count.ToString.FormatoNumero(0)
GV.DataSource = ObjOS.DtResultados GV.DataSource = ObjOS.DtResultados
Else Else
LtlTotalRegistros.Text = "0" LtlTotalRegistros.Text = "0"
GV.DataSource = Nothing GV.DataSource = Nothing
Alert("No se encontraron registros con losparámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia) Alert("No se encontraron registros con losparámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
End If
End If End If
Else
Alert("Seleccione un criterio de búsqueda", TipoMensaje.MsgAdvertencia)
End If End If
ObjOS.Dispose() ObjOS.Dispose()
@@ -108,4 +111,13 @@ Partial Class OS_PopUpBuscarOS
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
Private Function ValidarUnFiltroSeleccionado() As Boolean
If TxtFolio.Text.Trim <> String.Empty Then Return True
If DdlCliente.SelectedValue.ToEntero > 0 Then Return True
If DdlUsuarioRecibio.SelectedValue.ToEntero > 0 Then Return True
'If TxtFechaRecibido.Text.Trim <> String.Empty Then FechaRecibido.ToString()
If DdlEstatusOrdenServicio.SelectedValue.ToEntero > 0 Then Return True
Return False
End Function
End Class End Class

10
RH/PopUpBuscarPersonal.aspx.vb
View File

@@ -383,4 +383,14 @@ Partial Class RH_PopUpBuscarPersonal
End If End If
End Sub End Sub
Private Function ValidarFiltrosSeleccionado() As Boolean
If TxtCodigo.Text.Trim = String.Empty Then Return True
If TxtNombre.Text.Trim = String.Empty Then Return True
If TxtNSS.Text.Trim = String.Empty Then Return True
If TxtRFC.Text.Trim = String.Empty Then Return True
If TxtHorarioDe.Text.Trim = String.Empty Then Return True
Return False
End Function
End Class End Class

6
Ventas/PopUpBuscarPs.aspx.vb
View File

@@ -91,6 +91,12 @@ Partial Class PopUpBuscarPs
End Sub End Sub
#End Region #End Region
Private Function ValidarUnFiltroSeleccionado() As Boolean
If TxtCodigo.Text.Trim <> String.Empty Then Return True
If TxtCodigoBarras.Text.Trim <> String.Empty Then Return True
If TxtNombre.Text.Trim <> String.Empty Then Return True
Return False
End Function
End Class End Class