From 90df822e7df60b5c49c73bd5fe9ed2de4875c94e Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 14 Dec 2021 11:21:19 -0700 Subject: [PATCH] mejoras por carta porte --- Inventarios/TraspasoAlmacen.aspx | 50 ++++++++++++++--------------- Inventarios/TraspasoAlmacen.aspx.vb | 49 +++++++++++++--------------- Planeacion/CatSubProyectos.aspx.vb | 10 +++--- Sistemas/CatSesiones.aspx | 1 + Sistemas/CatSesiones.aspx.vb | 29 ++++++++++++----- 5 files changed, 74 insertions(+), 65 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index 4a082e289..62ecdfc35 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -112,13 +112,12 @@ - - - - + + +
-
+
@@ -146,15 +145,12 @@
- + diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index b19bf109d..eba6867e5 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -178,14 +178,8 @@ Partial Class Inventarios_TraspasoAlmacen divGastoIndirecto.Visible = False LblGastoIndirecto.Visible = False divResponsable.Visible = False - LblResponsable.Visible = False End If - If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then - divFechaEnvio.Visible = True - End If - - CargaCombos() CreaDT() AlmacenTransitorioDefaults() @@ -200,7 +194,8 @@ Partial Class Inventarios_TraspasoAlmacen DivCodigoSeriePS.Visible = False End If If ChkTransitorio.Checked Then - RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);") + RegistraScript(" $('#DivGastoIndirecto').show(0); ") + DivResponsable.Visible = True DivTransitorio2.Visible = True End If @@ -217,16 +212,10 @@ Partial Class Inventarios_TraspasoAlmacen ChkEmitirCartaPorte.Visible = True - Dim HabilitarValidators As Boolean = UsuarioActual.CveEmpresa.Contiene(119) - RfvDdlChofer.Enabled = HabilitarValidators - RfvDdlUnidadCamion.Enabled = HabilitarValidators - End If CantidadTotal = 0 - CvePS = 0 - TipoSeccionAlmacen = 0 If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then @@ -241,7 +230,8 @@ Partial Class Inventarios_TraspasoAlmacen Else If ChkTransitorio.Checked Then - RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);") + RegistraScript(" $('#DivGastoIndirecto').show(0); ") + DivResponsable.Visible = True DivTransitorio2.Visible = True End If End If @@ -741,16 +731,12 @@ Partial Class Inventarios_TraspasoAlmacen #Region " GUARDAR " Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click - - If ChkEmitirTimbrado.Checked Then If DdlChofer.SelectedValue.ToEntero <= 0 Then Alert("Debe de seleccionar un chofer") Exit Sub End If - - If DdlUnidadCamion.SelectedValue.ToEntero <= 0 Then Alert("Debe de seleccionar una unidad") Exit Sub @@ -770,21 +756,21 @@ Partial Class Inventarios_TraspasoAlmacen If TxtResponsable.Text.Trim = "" And Not UsuarioActual.CveEmpresa.Contiene(119) Then Alert("Debe seleccionar un responsable para el traspaso transitorio.", TipoMensaje.MsgAdvertencia) 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 End If If DdlAlmacenTransitorio.SelectedValue.ToEntero <= 0 Then Alert("Debe seleccionar un almacen transitorio.", TipoMensaje.MsgAdvertencia) 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 End If If DdlChofer.SelectedValue.ToEntero <= 0 And UsuarioActual.CveEmpresa.Contiene(119) Then Alert("Debe seleccionar un Chofer", TipoMensaje.MsgAdvertencia) 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 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) RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'');", "SonidoError") 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 End If End If @@ -850,7 +836,7 @@ Partial Class Inventarios_TraspasoAlmacen For Each dr As DataRow In DtMovimientos.Rows If dr("EstatusExistencia").ToString = "-1" Then 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 End If Next @@ -1197,7 +1183,7 @@ Partial Class Inventarios_TraspasoAlmacen MensajeAlert.AppendFormat("
Folio de Salida: {0}", FolioSalida, CveMovimientoSalida) MensajeAlert.AppendFormat("
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida))) - If CveMovimientoVirtualSalida > 0 Then MensajeAlert.AppendFormat("
Folio Virtual: {2} 
Imprimir Salida Virtual", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualSalida)), CveMovimientoVirtualSalida, FolioVirtualSalida) + If CveMovimientoVirtualSalida > 0 Then MensajeAlert.AppendFormat("
Folio Virtual: {2} 
Imprimir Salida Virtual", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualSalida)), CveMovimientoVirtualSalida, FolioVirtualSalida) If Not ChkTransitorio.Checked Then MensajeAlert.AppendFormat("

Folio de Entrada: {0}", FolioEntrada, CveMovimientoEntrada) @@ -1652,12 +1638,21 @@ Partial Class Inventarios_TraspasoAlmacen 'DdlResponsable.SelectedValue = "-1" TxtResponsable.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 + If UsuarioActual.CveEmpresa.Contiene(119) Then + ChkEmitirTimbrado.Checked = True + End If Else - RegistraScript("$('#DivTransitorio').hide(500);$('#DivGastoIndirecto').hide(500);$('#DivDocChofer').hide(500);") + RegistraScript(" $('#DivGastoIndirecto').hide(500);") + DivResponsable.Visible = False DivTransitorio2.Visible = True + DivEmitirTransitorio.Visible = False + ChkEmitirTimbrado.Checked = False End If + UpEmitirTransitorio.Update() CargaAlmacenDestino() SiguienteFolio(If(ChkTransitorio.Checked, 9, 8)) @@ -2258,7 +2253,7 @@ Partial Class Inventarios_TraspasoAlmacen CargaRecepcion() Else 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 Sub diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb index 6b1be4d73..c9ceb11f6 100644 --- a/Planeacion/CatSubProyectos.aspx.vb +++ b/Planeacion/CatSubProyectos.aspx.vb @@ -870,14 +870,14 @@ Partial Class CatSubProyectos Protected Sub DdlPais_SelectedIndexChanged(sender As Object, e As EventArgs) CargaEstado() - CargaMunicipio() - CargaColonia() - CargaLocalidad() + CargaMunicipio() + ' CargaColonia() + ' CargaLocalidad() End Sub Protected Sub DdlEstado_SelectedIndexChanged(sender As Object, e As EventArgs) CargaMunicipio() - CargaColonia() - CargaLocalidad() + 'CargaColonia() + 'CargaLocalidad() End Sub Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs) diff --git a/Sistemas/CatSesiones.aspx b/Sistemas/CatSesiones.aspx index 4f55c1a69..663e54e63 100644 --- a/Sistemas/CatSesiones.aspx +++ b/Sistemas/CatSesiones.aspx @@ -30,6 +30,7 @@ + diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index 4bdb52791..219ec8aed 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -35,7 +35,9 @@ Partial Class Sistemas_CatSesiones ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralPaises" Then CargaPaises() ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralEstados" Then - CargaEstados() + CargaEstados() + ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralColonias" Then + CargaColonias() ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralMunicipios" Then CargaMunicipios() ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralPoblaciones" Then @@ -400,22 +402,33 @@ Partial Class Sistemas_CatSesiones Private Sub CargaPaises() 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 Gral.Dispose() End Sub Private Sub CargaEstados() - Dim Gral As New ClsGenerales - If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing - Gral.Dispose() + GlobalDTGralEstados("") = Nothing + 'Dim Gral As New ClsGenerales + 'If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing + 'Gral.Dispose() 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() - Dim Gral As New ClsGenerales - If Gral.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = Gral.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing - Gral.Dispose() + GlobalDTGralMunicipios("") = Nothing + 'Dim Gral As New ClsGenerales + 'If Gral.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = Gral.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing + 'Gral.Dispose() End Sub Private Sub CargaPoblaciones()