From 75a272c3a0f49a4897b87708b36ce0b8f2c62089 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 13 Dec 2021 10:25:45 -0700 Subject: [PATCH 01/18] Logo Carta Porte in timbrar --- Empresas/Grales/Formatos/CartaPorte.rdlc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Empresas/Grales/Formatos/CartaPorte.rdlc b/Empresas/Grales/Formatos/CartaPorte.rdlc index 5870d72ed..c05f3e8c2 100644 --- a/Empresas/Grales/Formatos/CartaPorte.rdlc +++ b/Empresas/Grales/Formatos/CartaPorte.rdlc @@ -1602,8 +1602,8 @@ - Database - =System.Convert.FromBase64String(Parameters!LogoPath.Value ) + External + =Parameters!LogoPath.Value image/png FitProportional 0.46171in From acad2e54bba02e2683ecd0f8bd8be4ea099947ee Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 13 Dec 2021 18:18:30 -0700 Subject: [PATCH 02/18] Promociones no se visualiza nombre de cliente --- Ventas/Promociones.aspx.vb | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 8a9295822..beffb6cab 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -257,7 +257,24 @@ Partial Class Ventas_Promociones DdlSubProyecto.SelectedValue = Dr("CveSubProyecto").ToString DdlMarca.SelectedValue = Dr("CveMarca").ToString If Dr("CveVendedor").ToString.ToEntero > 0 Then DdlVendedor.SelectedValue = Dr("CveVendedor").ToString - If Dr("CveCliente").ToString.ToEntero > 0 Then DdlClientes.SelectedValue = Dr("CveCliente").ToString + + If Dr("CveCliente").ToString.ToEntero > 0 Then + + If DdlClientes.UsaWebService Then + + DdlClientes.txtText.Value = Dr("NombreComercial").ToString + DdlClientes.txtValue.Value = Dr("CveCliente").ToString + + Else + DdlClientes.SelectedValue = Dr("CveCliente").ToString + End If + + + + + + End If + ChkEstatus.Checked = If(Dr("Estatus").ToString = "True", True, False) DdlMoneda.SelectedValueExist(Dr("CveMoneda").ToString) DdlMarca.SelectedValueExist(Dr("CveMarca").ToString) From 90df822e7df60b5c49c73bd5fe9ed2de4875c94e Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 14 Dec 2021 11:21:19 -0700 Subject: [PATCH 03/18] 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() From a376d8723280b600a22bd4d1b0839e95a4676427 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 14 Dec 2021 11:54:12 -0700 Subject: [PATCH 04/18] cambios de soporte --- Compras/Compras.aspx.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 7a895576b..4384944a1 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4618,7 +4618,7 @@ Partial Class Compras_Compras 'End If 'METODO DE PREPOLIZA DE ALMACEN - If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 152, 153, 154, 159, 160, 161, 162, 163) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then + If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 159, 160, 161, 162, 163) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal If ImporteAlmacen > 0 Then If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then @@ -6078,7 +6078,7 @@ Partial Class Compras_Compras End If 'si aplica NC sobre mov de almacen, el impuesto lo toma de la Factura.para la consideracion de mcia en tránsito - If ChkNCInvNC.Checked And CveMoneda <> 1 AndAlso importeMovimiento > 0 Then + If ChkNCInvNC.Checked And CveMoneda > 1 AndAlso importeMovimiento > 0 Then Dim diferenciaTransito As Decimal = 0 For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows @@ -10392,7 +10392,8 @@ Partial Class Compras_Compras (row1("CveTipoGasto").ToString.ToEntero <> row2("CveTipoGasto").ToString.ToEntero) Or (row1("Total").ToString.ToDouble <> row2("Total").ToString.ToDouble) Or (row1("NoDeducible").ToString <> row2("NoDeducible").ToString) Or - (row1("CveActivoFijo").ToString.ToEntero <> row2("CveActivoFijo").ToString.ToEntero) Or + (row1("CveActivoFijo").ToString.ToEntero <> row2("CveActivoFijo").ToString.ToEntero) Or + (row1("AFMedida").ToString.ToEntero <> row2("AFMedida").ToString.ToEntero) Or (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Then Return False End If From 825e5175167d5a953aa1134344a9bdd43f66dfcb Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 14 Dec 2021 11:54:25 -0700 Subject: [PATCH 05/18] =?UTF-8?q?mejoras=20de=20visualizaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/CatUnidades.aspx | 48 ++++++++++++++---------------------- 1 file changed, 19 insertions(+), 29 deletions(-) diff --git a/Inventarios/CatUnidades.aspx b/Inventarios/CatUnidades.aspx index b0680b5a0..73281e77f 100644 --- a/Inventarios/CatUnidades.aspx +++ b/Inventarios/CatUnidades.aspx @@ -36,18 +36,18 @@ - - - + + + - - - + + + - + - + @@ -57,13 +57,7 @@ - - - - - - - +