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

mejoras por carta porte

Browse Source
This commit is contained in:
rrene
2021-12-14 11:21:19 -07:00
parent 3c8b5bcc05
commit 90df822e7d
5 changed files with 74 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
Inventarios/TraspasoAlmacen.aspx
View File

@@ -112,13 +112,12 @@
<asp:RangeValidator ID="RVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" Type="Date" MinimumValue="01/01/2000" MaximumValue="01/01/2000" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no puede ser mayor al dia actual. Por favor verifcar." ValidationGroup="GrpGuardar"></asp:RangeValidator> <asp:RangeValidator ID="RVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" Type="Date" MinimumValue="01/01/2000" MaximumValue="01/01/2000" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no puede ser mayor al dia actual. Por favor verifcar." ValidationGroup="GrpGuardar"></asp:RangeValidator>
<ajax:ValidatorCalloutExtender ID="VCOFecha3" runat="server" HighlightCssClass="vco" TargetControlID="RVFecha" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCOFecha3" runat="server" HighlightCssClass="vco" TargetControlID="RVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div>
</div> <label class="col-md-2">Transitorio:</label>
<label class="col-md-2">Transitorio:</label>
<div class="col-md-1" style="padding-left: 7px;"> <div class="col-md-1" style="padding-left: 7px;">
<asp:CheckBox ID="ChkTransitorio" AutoPostBack="true" OnCheckedChanged="ChkTransitorio_CheckedChanged" CssClass="md-checksd" runat="server" /> <asp:CheckBox ID="ChkTransitorio" AutoPostBack="true" OnCheckedChanged="ChkTransitorio_CheckedChanged" CssClass="md-checksd" runat="server" />
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<label class="col-md-2">Almacén Origen:</label> <label class="col-md-2">Almacén Origen:</label>
@@ -146,15 +145,12 @@
</div> </div>
<div id="DivTransitorio" style="display: none;"> <div id="DivResponsable" runat="server" visible="false">
<div class="row"> <div class="row">
<label class="col-md-2">Responsable:</label>
<asp:Label AssociatedControlID="TxtResponsable" ID="LblResponsable" runat="server" Text="Responsable:" CssClass="col-md-2"></asp:Label> <div class="col-md-2" id="div1" >
<asp:Panel CssClass="col-md-2" ID="divResponsable" runat="server">
<asp:TextBox runat="server" Text="" CssClass="form-control input-sm" ID="TxtResponsable" /> <asp:TextBox runat="server" Text="" CssClass="form-control input-sm" ID="TxtResponsable" />
</asp:Panel> </div>
</div> </div>
</div> </div>
@@ -175,14 +171,11 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<asp:UpdatePanel ID="UpEmitirTransitorio" runat="server" UpdateMode="Conditional">
<div id="DivDocChofer" class="col-md-4 " style="display: none;" >
<asp:UpdatePanel ID="UpDocChofer" runat="server">
<ContentTemplate> <ContentTemplate>
<div id="DivEmitirTransitorio" class="col-md-4 " runat="server" visible="false" >
<div class="portlet light xspadding traspasorow bordered"> <div class="portlet light xspadding traspasorow bordered">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
@@ -225,7 +218,7 @@
<ajax:ValidatorCalloutExtender ID="VceDdlChofer" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlChofer" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VceDdlChofer" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlChofer" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="row" class="rowpadding"> <div class="row rowpadding">
<label class="col-md-3">Unidad:</label> <label class="col-md-3">Unidad:</label>
<div class="col-md-9"> <div class="col-md-9">
<asp:DropDownList runat="server" ID="DdlUnidadCamion" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="CamionPlaca"></asp:DropDownList> <asp:DropDownList runat="server" ID="DdlUnidadCamion" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="CamionPlaca"></asp:DropDownList>
@@ -247,10 +240,10 @@
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
</div> </div>
<div class="row rowpadding" runat="server" id="divFechaEnvio" visible="false"> <div class="row rowpadding" runat="server" id="divFechaLlegada" >
<label class="col-md-3">F. Llegada:</label> <label class="col-md-3">F. Llegada:</label>
<div class="col-md-9" style="padding-top: 0px;" > <div class="col-md-4" style="padding-top: 0px;" >
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 125px !important;"> <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 125px !important;">
<asp:TextBox ID="TxtFechaLlegada" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="80px" ClientIDMode="Static"></asp:TextBox> <asp:TextBox ID="TxtFechaLlegada" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="80px" ClientIDMode="Static"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
@@ -262,13 +255,20 @@
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator2" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator2" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<label class="col-md-1">Dist:</label>
<div class="col-md-3">
<asp:TextBox ID="TxtDistancia" runat="server" CssClass="form-control input-sm" Width="100%" Text="1"></asp:TextBox>
<ajax:TextBoxWatermarkExtender ID="TBWEDistancia" runat="server" TargetControlID="TxtDistancia" WatermarkText="Distancia" WatermarkCssClass="watermarked" />
</div>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
</ContentTemplate>
</div>
</ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div>
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpMov"> <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpMov">
<ContentTemplate> <ContentTemplate>

49
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -178,14 +178,8 @@ Partial Class Inventarios_TraspasoAlmacen
divGastoIndirecto.Visible = False divGastoIndirecto.Visible = False
LblGastoIndirecto.Visible = False LblGastoIndirecto.Visible = False
divResponsable.Visible = False divResponsable.Visible = False
LblResponsable.Visible = False
End If End If
If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
divFechaEnvio.Visible = True
End If
CargaCombos() CargaCombos()
CreaDT() CreaDT()
AlmacenTransitorioDefaults() AlmacenTransitorioDefaults()
@@ -200,7 +194,8 @@ Partial Class Inventarios_TraspasoAlmacen
DivCodigoSeriePS.Visible = False DivCodigoSeriePS.Visible = False
End If End If
If ChkTransitorio.Checked Then If ChkTransitorio.Checked Then
RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);") RegistraScript(" $('#DivGastoIndirecto').show(0); ")
DivResponsable.Visible = True
DivTransitorio2.Visible = True DivTransitorio2.Visible = True
End If End If
@@ -217,16 +212,10 @@ Partial Class Inventarios_TraspasoAlmacen
ChkEmitirCartaPorte.Visible = True ChkEmitirCartaPorte.Visible = True
Dim HabilitarValidators As Boolean = UsuarioActual.CveEmpresa.Contiene(119)
RfvDdlChofer.Enabled = HabilitarValidators
RfvDdlUnidadCamion.Enabled = HabilitarValidators
End If End If
CantidadTotal = 0 CantidadTotal = 0
CvePS = 0 CvePS = 0
TipoSeccionAlmacen = 0 TipoSeccionAlmacen = 0
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
@@ -241,7 +230,8 @@ Partial Class Inventarios_TraspasoAlmacen
Else Else
If ChkTransitorio.Checked Then If ChkTransitorio.Checked Then
RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);") RegistraScript(" $('#DivGastoIndirecto').show(0); ")
DivResponsable.Visible = True
DivTransitorio2.Visible = True DivTransitorio2.Visible = True
End If End If
End If End If
@@ -741,16 +731,12 @@ Partial Class Inventarios_TraspasoAlmacen
#Region " GUARDAR " #Region " GUARDAR "
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
If ChkEmitirTimbrado.Checked Then If ChkEmitirTimbrado.Checked Then
If DdlChofer.SelectedValue.ToEntero <= 0 Then If DdlChofer.SelectedValue.ToEntero <= 0 Then
Alert("Debe de seleccionar un chofer") Alert("Debe de seleccionar un chofer")
Exit Sub Exit Sub
End If End If
If DdlUnidadCamion.SelectedValue.ToEntero <= 0 Then If DdlUnidadCamion.SelectedValue.ToEntero <= 0 Then
Alert("Debe de seleccionar una unidad") Alert("Debe de seleccionar una unidad")
Exit Sub Exit Sub
@@ -770,21 +756,21 @@ Partial Class Inventarios_TraspasoAlmacen
If TxtResponsable.Text.Trim = "" And Not UsuarioActual.CveEmpresa.Contiene(119) Then If TxtResponsable.Text.Trim = "" And Not UsuarioActual.CveEmpresa.Contiene(119) Then
Alert("Debe seleccionar un responsable para el traspaso transitorio.", TipoMensaje.MsgAdvertencia) Alert("Debe seleccionar un responsable para el traspaso transitorio.", TipoMensaje.MsgAdvertencia)
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')") RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True If ChkTransitorio.Checked Then DivResponsable.Visible = True : DivTransitorio2.Visible = True
Exit Sub Exit Sub
End If End If
If DdlAlmacenTransitorio.SelectedValue.ToEntero <= 0 Then If DdlAlmacenTransitorio.SelectedValue.ToEntero <= 0 Then
Alert("Debe seleccionar un almacen transitorio.", TipoMensaje.MsgAdvertencia) Alert("Debe seleccionar un almacen transitorio.", TipoMensaje.MsgAdvertencia)
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')") RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True If ChkTransitorio.Checked Then DivResponsable.Visible = True : DivTransitorio2.Visible = True
Exit Sub Exit Sub
End If End If
If DdlChofer.SelectedValue.ToEntero <= 0 And UsuarioActual.CveEmpresa.Contiene(119) Then If DdlChofer.SelectedValue.ToEntero <= 0 And UsuarioActual.CveEmpresa.Contiene(119) Then
Alert("Debe seleccionar un Chofer", TipoMensaje.MsgAdvertencia) Alert("Debe seleccionar un Chofer", TipoMensaje.MsgAdvertencia)
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')") RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True If ChkTransitorio.Checked Then DivResponsable.Visible = True : DivTransitorio2.Visible = True
Exit Sub Exit Sub
End If End If
End If End If
@@ -832,7 +818,7 @@ Partial Class Inventarios_TraspasoAlmacen
Alert("Por ser un traspaso entre sucursales es necesario indicar que el traspaso es transitorio.", TipoMensaje.MsgAdvertencia) Alert("Por ser un traspaso entre sucursales es necesario indicar que el traspaso es transitorio.", TipoMensaje.MsgAdvertencia)
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'');", "SonidoError") RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'');", "SonidoError")
ChkTransitorio.Checked = True ChkTransitorio.Checked = True
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);", "MuestraDivTransitorio") : DivTransitorio2.Visible = True If ChkTransitorio.Checked Then DivResponsable.Visible = True : DivTransitorio2.Visible = True
Exit Sub Exit Sub
End If End If
End If End If
@@ -850,7 +836,7 @@ Partial Class Inventarios_TraspasoAlmacen
For Each dr As DataRow In DtMovimientos.Rows For Each dr As DataRow In DtMovimientos.Rows
If dr("EstatusExistencia").ToString = "-1" Then If dr("EstatusExistencia").ToString = "-1" Then
Alert("Tiene que rectificar los movimientos con error.", TipoMensaje.MsgError) Alert("Tiene que rectificar los movimientos con error.", TipoMensaje.MsgError)
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True If ChkTransitorio.Checked Then DivResponsable.Visible = True : DivTransitorio2.Visible = True
Exit Sub Exit Sub
End If End If
Next Next
@@ -1197,7 +1183,7 @@ Partial Class Inventarios_TraspasoAlmacen
MensajeAlert.AppendFormat("<br/> Folio de Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", FolioSalida, CveMovimientoSalida) MensajeAlert.AppendFormat("<br/> Folio de Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", FolioSalida, CveMovimientoSalida)
MensajeAlert.AppendFormat("<br/><a target='_blank' class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida))) MensajeAlert.AppendFormat("<br/><a target='_blank' class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
If CveMovimientoVirtualSalida > 0 Then MensajeAlert.AppendFormat("<br/>Folio Virtual: <b><a class='Texto' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Salida Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualSalida)), CveMovimientoVirtualSalida, FolioVirtualSalida) If CveMovimientoVirtualSalida > 0 Then MensajeAlert.AppendFormat("<br/>Folio Virtual: <b><a class='Texto' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a class='Texto' target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Salida Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualSalida)), CveMovimientoVirtualSalida, FolioVirtualSalida)
If Not ChkTransitorio.Checked Then If Not ChkTransitorio.Checked Then
MensajeAlert.AppendFormat("<br/><br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", FolioEntrada, CveMovimientoEntrada) MensajeAlert.AppendFormat("<br/><br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", FolioEntrada, CveMovimientoEntrada)
@@ -1652,12 +1638,21 @@ Partial Class Inventarios_TraspasoAlmacen
'DdlResponsable.SelectedValue = "-1" 'DdlResponsable.SelectedValue = "-1"
TxtResponsable.Text = "" TxtResponsable.Text = ""
TxtGastoIndirecto.Text = "" TxtGastoIndirecto.Text = ""
RegistraScript("$('#DivTransitorio').show(200);$('#DivGastoIndirecto').show(100);$('#DivDocChofer').show(100);") DivEmitirTransitorio.Visible = True
RegistraScript(" $('#DivGastoIndirecto').show(100);")
DivResponsable.Visible = True
DivTransitorio2.Visible = True DivTransitorio2.Visible = True
If UsuarioActual.CveEmpresa.Contiene(119) Then
ChkEmitirTimbrado.Checked = True
End If
Else Else
RegistraScript("$('#DivTransitorio').hide(500);$('#DivGastoIndirecto').hide(500);$('#DivDocChofer').hide(500);") RegistraScript(" $('#DivGastoIndirecto').hide(500);")
DivResponsable.Visible = False
DivTransitorio2.Visible = True DivTransitorio2.Visible = True
DivEmitirTransitorio.Visible = False
ChkEmitirTimbrado.Checked = False
End If End If
UpEmitirTransitorio.Update()
CargaAlmacenDestino() CargaAlmacenDestino()
SiguienteFolio(If(ChkTransitorio.Checked, 9, 8)) SiguienteFolio(If(ChkTransitorio.Checked, 9, 8))
@@ -2258,7 +2253,7 @@ Partial Class Inventarios_TraspasoAlmacen
CargaRecepcion() CargaRecepcion()
Else Else
Alert("No hay movimientos para el traspaso", TipoMensaje.MsgAdvertencia) Alert("No hay movimientos para el traspaso", TipoMensaje.MsgAdvertencia)
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True If ChkTransitorio.Checked Then DivResponsable.Visible = True : DivTransitorio2.Visible = True
End If End If
End Sub End Sub

10
Planeacion/CatSubProyectos.aspx.vb
View File

@@ -870,14 +870,14 @@ Partial Class CatSubProyectos
Protected Sub DdlPais_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlPais_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaEstado() CargaEstado()
CargaMunicipio() CargaMunicipio()
CargaColonia() ' CargaColonia()
CargaLocalidad() ' CargaLocalidad()
End Sub End Sub
Protected Sub DdlEstado_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlEstado_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaMunicipio() CargaMunicipio()
CargaColonia() 'CargaColonia()
CargaLocalidad() 'CargaLocalidad()
End Sub End Sub
Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)

1
Sistemas/CatSesiones.aspx
View File

@@ -30,6 +30,7 @@
<asp:ListItem Text="Estados" Value="GlobalDTGralEstados"></asp:ListItem> <asp:ListItem Text="Estados" Value="GlobalDTGralEstados"></asp:ListItem>
<asp:ListItem Text="Municipios" Value="GlobalDTGralMunicipios"></asp:ListItem> <asp:ListItem Text="Municipios" Value="GlobalDTGralMunicipios"></asp:ListItem>
<asp:ListItem Text="Poblaciones" Value="GlobalDTGralPoblaciones"></asp:ListItem> <asp:ListItem Text="Poblaciones" Value="GlobalDTGralPoblaciones"></asp:ListItem>
<asp:ListItem Text="Colonias" Value="GlobalDTGralColonias"></asp:ListItem>
<asp:ListItem Text="Escolaridades" Value="GlobalDTGralEscolaridades"></asp:ListItem> <asp:ListItem Text="Escolaridades" Value="GlobalDTGralEscolaridades"></asp:ListItem>
<asp:ListItem Text="Almacen" Value="GlobalDTAlmacen"></asp:ListItem> <asp:ListItem Text="Almacen" Value="GlobalDTAlmacen"></asp:ListItem>
<asp:ListItem Text="Impuestos Locales" Value="GlobalDTImpuestosLocales"></asp:ListItem> <asp:ListItem Text="Impuestos Locales" Value="GlobalDTImpuestosLocales"></asp:ListItem>

29
Sistemas/CatSesiones.aspx.vb
View File

@@ -35,7 +35,9 @@ Partial Class Sistemas_CatSesiones
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralPaises" Then ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralPaises" Then
CargaPaises() CargaPaises()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralEstados" Then ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralEstados" Then
CargaEstados() CargaEstados()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralColonias" Then
CargaColonias()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralMunicipios" Then ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralMunicipios" Then
CargaMunicipios() CargaMunicipios()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralPoblaciones" Then ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralPoblaciones" Then
@@ -400,22 +402,33 @@ Partial Class Sistemas_CatSesiones
Private Sub CargaPaises() Private Sub CargaPaises()
Dim Gral As New ClsGenerales Dim Gral As New ClsGenerales
If Gral.GetGralPaises Then Application("GlobalDTGralPaises") = Gral.DtResultados Else Application("GlobalDTGralPaises") = Nothing GlobalDTGralPaises = Nothing
'If Gral.GetGralPaises Then Application("GlobalDTGralPaises") = Gral.DtResultados Else Application("GlobalDTGralPaises") = Nothing
If Gral.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = Gral.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing If Gral.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = Gral.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
Gral.Dispose() Gral.Dispose()
End Sub End Sub
Private Sub CargaEstados() Private Sub CargaEstados()
Dim Gral As New ClsGenerales GlobalDTGralEstados("") = Nothing
If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing 'Dim Gral As New ClsGenerales
Gral.Dispose() 'If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing
'Gral.Dispose()
End Sub End Sub
Private Sub CargaColonias()
GlobalDTGralColonias("", "", "") = Nothing
'Dim Gral As New ClsGenerales
'If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing
'Gral.Dispose()
End Sub
Private Sub CargaMunicipios() Private Sub CargaMunicipios()
Dim Gral As New ClsGenerales GlobalDTGralMunicipios("") = Nothing
If Gral.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = Gral.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing 'Dim Gral As New ClsGenerales
Gral.Dispose() 'If Gral.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = Gral.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
'Gral.Dispose()
End Sub End Sub
Private Sub CargaPoblaciones() Private Sub CargaPoblaciones()