From c5e97bb891955bee51ca4f66e1d33092d1980551 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Feb 2023 10:38:49 -0700 Subject: [PATCH 1/7] =?UTF-8?q?--=20optmizaci=C3=B3n=20para=20sacar=20info?= =?UTF-8?q?=20de=20ps?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntregaAlmacen.aspx.vb | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 6564616f1..c53d15091 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -1156,8 +1156,9 @@ Partial Class Inventarios_EntregaAlmacen If Not CargaMasivo Then RegistraScript("$('#DivSerie').modal('show')", "show") Dim AplicaCaducidad = False - If GlobalDTPS(UsuarioActual.CveEmpresa, ).FiltraParametros("").Rows(0) IsNot Nothing Then - AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0)("AplicaCaducidad").ToString() = "True", True, False) + Dim dttt As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie) + If dttt IsNot Nothing AndAlso dttt.Rows.Count > 0 Then + AplicaCaducidad = If(dttt.FiltraParametros("").Rows(0)("AplicaCaducidad").ToString() = "True", True, False) End If GvSerie.Columns(1).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) @@ -1177,7 +1178,7 @@ Partial Class Inventarios_EntregaAlmacen 'SERIE LOTE RECOMENDADO Dim DtSerie As New DataTable - If TipoMovimiento = 1 Then + If TipoMovimiento = 1 AndAlso Not CargaMasivo Then Dim ObjInventarios As New ClsInventarios If ObjInventarios.SerieRecomendadoGet(CvePSSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), CveSubProyecto:=CveSubProyecto, CveCliente:=CveCliente, CveVendedor:=CveVendedor) Then DtSerie = ObjInventarios.DtResultados @@ -1254,7 +1255,7 @@ Partial Class Inventarios_EntregaAlmacen ArraySeries = Series.Trim.Split(","c) For i As Integer = 0 To ArraySeries.Length - 1 - If ArraySeries(i).Trim.Length > 1 Then AgregaSerie(ArraySeries(i).Trim, 1) + If ArraySeries(i).Trim.Length > 1 Then AgregaSerie(ArraySeries(i).Trim, 1, True) Next Else AgregaSerie(TxtSerie.Text.Trim, 1) From ca24caa0eb2b31a78d91a547f51b86892ab81699 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Feb 2023 10:48:26 -0700 Subject: [PATCH 2/7] -- mejora carga masiva *Series* --- Inventarios/EntregaAlmacen.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index c53d15091..29e17c875 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -1188,7 +1188,7 @@ Partial Class Inventarios_EntregaAlmacen DtSerie = DtExistencias.FiltraParametros("Serie <> ''") End If 'SERIE LOTE RECOMENDADO - QUITA YA COMPLETADOS EN EL CLIENTE - If DtSerie.Rows.Count > 0 Then + If DtSerie IsNot Nothing AndAlso DtSerie.Rows.Count > 0 Then 'CALCULA YA COMPLETADOS Dim DrsRemove As New List(Of DataRow) DtSerie.Columns.Add("CantidadSeleccionada", GetType(Integer)) From 438abc98cf7b4acd275807de8271f0c689048cc2 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Feb 2023 10:55:08 -0700 Subject: [PATCH 3/7] -- mejora de control de error --- Inventarios/EntregaAlmacen.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 29e17c875..f52220856 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -1317,7 +1317,7 @@ Partial Class Inventarios_EntregaAlmacen DtDatosDetalle.Rows.Add(Row) ActualizaBitacora() - RegistraScript("playsonidito('beep-07.wav')", "Sonidito") + If Not CargaMasivo Then RegistraScript("playsonidito('beep-07.wav')", "Sonidito") If Tipo = 1 Then TxtSerie.Text = "" From 8465bda0485b8f60f773b4a04c896d309ee6a0eb Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Feb 2023 10:55:36 -0700 Subject: [PATCH 4/7] -- cambios en manejo de GlobalDTs --- Compras/RepComprasG.aspx.vb | 2 +- Compras/RepComprasPeriodo.aspx.vb | 2 +- Compras/RepCxP.aspx.vb | 4 +-- Compras/RepCxPDetalle.aspx.vb | 2 +- Compras/RepCxPPeriodo.aspx.cs | 2 +- Compras/RepProductosServiciosPeriodo.aspx.cs | 2 +- Contabilidad/FisImpuestos.aspx.vb | 6 ++-- Contabilidad/PlantillasPolizasDetalle.aspx.vb | 10 +++--- Contabilidad/RegPrePoliza1.aspx.vb | 2 +- GPS/UsuariosRastreo.aspx.vb | 15 ++++---- General/SaldosIniciales.aspx.vb | 2 +- Nomina/CargaArchivosNomina.aspx.cs | 5 ++- Sistemas/CatSesiones.aspx.vb | 36 ++++++++++--------- Sistemas/PopUpAddUsuario.aspx.vb | 14 ++++---- Sistemas/PopUpPerfil.aspx.vb | 11 +++--- Sistemas/UsuarioDetalle.aspx.vb | 16 +++++---- 16 files changed, 68 insertions(+), 63 deletions(-) diff --git a/Compras/RepComprasG.aspx.vb b/Compras/RepComprasG.aspx.vb index 59578db83..29e787bee 100644 --- a/Compras/RepComprasG.aspx.vb +++ b/Compras/RepComprasG.aspx.vb @@ -30,7 +30,7 @@ Partial Class Compras_RepComprasG 'TxtFechaICaptura.Text = Now.AddMonths(-1).FirstDayOfMonth.ToShortDateString 'TxtFechaFCaptura.Text = Now.ToShortDateString - DDlUsuarioCaptura.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DDlUsuarioCaptura.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) DDlUsuarioCaptura.DataBind() DdlEstatusCompra.DataSource = GlobalDTCompEstatusFactura.FiltraParametros("CveEstatusFactura IN (1,2)") diff --git a/Compras/RepComprasPeriodo.aspx.vb b/Compras/RepComprasPeriodo.aspx.vb index 7b86e0ed1..6a1d06779 100644 --- a/Compras/RepComprasPeriodo.aspx.vb +++ b/Compras/RepComprasPeriodo.aspx.vb @@ -111,7 +111,7 @@ Partial Class Compras_RepComprasPeriodo DdlTipoGasto.DataBind() 'Carga Usuarios Responsable - DdlUsuario.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlUsuario.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) DdlUsuario.DataBind() 'Carga Usuarios Captura diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index c6aa07c91..ccfa889b5 100644 --- a/Compras/RepCxP.aspx.vb +++ b/Compras/RepCxP.aspx.vb @@ -124,9 +124,7 @@ Partial Class Compras_RepCxP DdlProveedor.ddl.Items.Insert(0, New ListItem("Todos", "-1")) End If - - - DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("ProveedoresResponsables > 0") + DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) DdlUsuarioResponsable.DataBind() 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index 10ad64961..c7243644b 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -245,7 +245,7 @@ Partial Class RepCxPDetalle 'CargaUsuarios Dim UsuarioResponsable As Integer = IfNull(Request("CveUsuarioResponsable"), -1).ToString.ToEntero - DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("ProveedoresResponsables > 0") + DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) DdlUsuarioResponsable.DataBind() DdlUsuarioResponsable.SelectedValueExist(UsuarioResponsable) diff --git a/Compras/RepCxPPeriodo.aspx.cs b/Compras/RepCxPPeriodo.aspx.cs index 27b498718..95766a42b 100644 --- a/Compras/RepCxPPeriodo.aspx.cs +++ b/Compras/RepCxPPeriodo.aspx.cs @@ -67,7 +67,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas - DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}").FiltraParametros("ProveedoresResponsables > 0"); + DdlUsuarioResponsable.DataSource = get_GlobalDTUsuarioResponsable ( UsuarioActual.CveEmpresa ); DdlUsuarioResponsable.DataBind(); DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1); diff --git a/Compras/RepProductosServiciosPeriodo.aspx.cs b/Compras/RepProductosServiciosPeriodo.aspx.cs index 75d4bcdbe..c14c5b578 100644 --- a/Compras/RepProductosServiciosPeriodo.aspx.cs +++ b/Compras/RepProductosServiciosPeriodo.aspx.cs @@ -129,7 +129,7 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas DdlTipoGasto.DataBind(); //Carga Usuarios Responsable - DdlUsuario.DataSource = GlobalDTUsuarioResponsable.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}"); + DdlUsuario.DataSource = get_GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa); DdlUsuario.DataBind(); //Carga Usuarios Captura diff --git a/Contabilidad/FisImpuestos.aspx.vb b/Contabilidad/FisImpuestos.aspx.vb index 24a0db316..cd147c712 100644 --- a/Contabilidad/FisImpuestos.aspx.vb +++ b/Contabilidad/FisImpuestos.aspx.vb @@ -167,7 +167,7 @@ Partial Class Contabilidad_FisImpuestos Dim objConta As New ClsContabilidad Dim DtTemp As New DataTable Dim _CvePrePoliza As Integer = 0 - Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(62).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") + Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden") Dim DtTempDetalle As New DataTable With DtTempDetalle.Columns @@ -247,7 +247,7 @@ Partial Class Contabilidad_FisImpuestos Private Sub CargaDetallesPlantilla() - Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(62).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") + Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden") Dim Cuenta As String = "" Dim IdCuenta As Integer = 0 Dim CodigoCuenta As String = "" @@ -343,7 +343,7 @@ Partial Class Contabilidad_FisImpuestos Protected Sub GvMov_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMov.RowDataBound - Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(62).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") + Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden") If e.Row.RowType = DataControlRowType.DataRow Then diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb index 3d9238f6f..e9a5d17dd 100644 --- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb +++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb @@ -242,14 +242,14 @@ Partial Class Contabilidad_PlantillasPolizasDetalle Public Sub updatatos() Dim ObjPlantillaPolizaDetalle As New ClsContabilidad - If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, -1) Then + If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, UsuarioActual.CveEmpresa) Then ViewState("DTPlantillaPolizaDetalle") = ObjPlantillaPolizaDetalle.DtResultados.FiltraParametros(String.Format(" CvePlantillaPoliza={0} AND CveEmpresa = {1}", CvePlantillaPoliza, UsuarioActual.CveEmpresa)) - GlobalDTContaPlantillasPolizasDetalle(CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados - End If - If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizas(-1, -1) Then - GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = ObjPlantillaPolizaDetalle.DtResultados + ' GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados End If + + GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = Nothing + ObjPlantillaPolizaDetalle.Dispose() End Sub Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click diff --git a/Contabilidad/RegPrePoliza1.aspx.vb b/Contabilidad/RegPrePoliza1.aspx.vb index 2dbc8e945..44afac00d 100644 --- a/Contabilidad/RegPrePoliza1.aspx.vb +++ b/Contabilidad/RegPrePoliza1.aspx.vb @@ -636,7 +636,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero - Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") + Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden") Dim Cuenta As String = "" Dim IdCuenta As Integer = 0 Dim CodigoCuenta As String = "" diff --git a/GPS/UsuariosRastreo.aspx.vb b/GPS/UsuariosRastreo.aspx.vb index 00453084b..88bfd564b 100644 --- a/GPS/UsuariosRastreo.aspx.vb +++ b/GPS/UsuariosRastreo.aspx.vb @@ -51,13 +51,14 @@ Partial Class GPS_UsuariosRastreo End Sub Public Sub CargaGlobal() - Dim ObjUsuarios As New ClsSisUsuarios - If ObjUsuarios.GetUsuariosEmpresas(-1) Then - GlobalDTUsuarios(-1) = ObjUsuarios.DtResultados - Else - GlobalDTUsuarios() = Nothing - End If - ObjUsuarios.Dispose() + GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing + 'Dim ObjUsuarios As New ClsSisUsuarios + 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then + ' GlobalDTUsuarios(-1) = ObjUsuarios.DtResultados + 'Else + ' GlobalDTUsuarios() = Nothing + 'End If + 'ObjUsuarios.Dispose() End Sub Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index f26103631..114626dde 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1408,7 +1408,7 @@ Partial Class General_SaldosIniciales If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString(), "", Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1, "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", Codigo, LimiteCredito, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado, - BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago33:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado, CveAdminTrayecto:=0) Then + BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado, CveAdminTrayecto:=0) Then ErrorClientes = True RFC.GuardaLog diff --git a/Nomina/CargaArchivosNomina.aspx.cs b/Nomina/CargaArchivosNomina.aspx.cs index eb5c45c67..9065835c4 100644 --- a/Nomina/CargaArchivosNomina.aspx.cs +++ b/Nomina/CargaArchivosNomina.aspx.cs @@ -63,8 +63,7 @@ public partial class Nomina_CargaArchivosNomina : System.Web.UI.Page URLFile = fileItem.FileUrl; } using (var workbook = new XLWorkbook(URLFile)) - { - int position = 1; + { foreach (IXLWorksheet wokitem in workbook.Worksheets) { workname = wokitem.Name; @@ -112,7 +111,7 @@ public partial class Nomina_CargaArchivosNomina : System.Web.UI.Page { if (objbase.ExcelToBD(xml)) { - Alert("Información capturada", ModExtensiones.TipoMensaje.MsgInformacion); + this.Alert("Información capturada", ModExtensiones.TipoMensaje.MsgInformacion); } } GVDatos.DataSource = dt; diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index a554bcc80..a8b3bda14 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -300,30 +300,32 @@ Partial Class Sistemas_CatSesiones 'Generales Private Sub CargaUsuarios() 'Carga Usuarios - Dim ObjUsuarios As New ClsSisUsuarios - If ObjUsuarios.GetUsuariosEmpresas(-1) Then - Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados - Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados - Else - Application("GlobalDTUsuarios") = Nothing - End If + 'Dim ObjUsuarios As New ClsSisUsuarios + 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then + ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados + ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados + 'Else + ' Application("GlobalDTUsuarios") = Nothing + 'End If + GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing 'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing - ObjUsuarios.Dispose() + 'ObjUsuarios.Dispose() 'Fin Carga Usuarios End Sub Private Sub CargaUsuariosResponsable() 'Carga Usuarios - Dim ObjUsuarios As New ClsSisUsuarios - If ObjUsuarios.GetUsuariosEmpresas(-1) Then - Alert(ObjUsuarios.DtResultados.Rows.Count.ToString) - Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados - Else - Application("GlobalDTUsuarioResponsable") = Nothing - End If - ObjUsuarios.Dispose() - 'Fin Carga Usuarios + GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing + 'Dim ObjUsuarios As New ClsSisUsuarios + 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then + ' Alert(ObjUsuarios.DtResultados.Rows.Count.ToString) + ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados + 'Else + ' Application("GlobalDTUsuarioResponsable") = Nothing + 'End If + 'ObjUsuarios.Dispose() + ''Fin Carga Usuarios End Sub diff --git a/Sistemas/PopUpAddUsuario.aspx.vb b/Sistemas/PopUpAddUsuario.aspx.vb index 3e75ae980..64fc0dce6 100644 --- a/Sistemas/PopUpAddUsuario.aspx.vb +++ b/Sistemas/PopUpAddUsuario.aspx.vb @@ -563,12 +563,14 @@ Partial Class Sistemas_PopUpAddUsuario GPS.Dispose() End Sub Private Sub RecargarGlobalUsuarios() - Dim ObjUsuarios As New ClsSisUsuarios - If ObjUsuarios.GetUsuariosEmpresas(-1) Then - Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados - Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") - End If - ObjUsuarios.Dispose() + GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing + GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing + 'Dim ObjUsuarios As New ClsSisUsuarios + 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then + ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados + ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") + 'End If + 'ObjUsuarios.Dispose() End Sub #Region "MANDAR CORREOS" diff --git a/Sistemas/PopUpPerfil.aspx.vb b/Sistemas/PopUpPerfil.aspx.vb index 59ae31f2b..d5219c042 100644 --- a/Sistemas/PopUpPerfil.aspx.vb +++ b/Sistemas/PopUpPerfil.aspx.vb @@ -126,10 +126,11 @@ Partial Class Sistemas_PopUpPerfil CargaGlobal() End Sub Private Sub CargaGlobal() - Dim ObjUsuarios As New ClsSisUsuarios - If ObjUsuarios.GetUsuariosEmpresas(-1) Then - Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados - End If - ObjUsuarios.Dispose() + GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing + 'Dim ObjUsuarios As New ClsSisUsuarios + 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then + ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados + 'End If + 'ObjUsuarios.Dispose() End Sub End Class diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 10c2f7692..9d31e213c 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -1383,13 +1383,15 @@ Partial Class Sistemas_UsuarioDetalle 'RECARGA GLOBAL ALMACEN 'If ObjUsuarios.GetAlmacen(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing - GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing - - 'RECARGA GLOBAL EMPRESAS USUARIOS - If ObjUsuarios.GetUsuariosEmpresas(-1) Then - Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados - Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") - End If + GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing + + 'RECARGA GLOBAL EMPRESAS USUARIOS + GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing + GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing + 'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then + ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados + ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") + 'End If End Sub Private Sub EnviaCorreo() From 9e560ac63683a7775f2b663018625a6e34f7af36 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Feb 2023 10:55:46 -0700 Subject: [PATCH 5/7] -- cambio de metodo/forma pago --- Ventas/PV.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index dece79162..8a9ee6476 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -2715,7 +2715,7 @@ Partial Class PV End If If CveVenta <= 0 Then - CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString.ToEntero + CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString.ToEntero DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI.ToString) 'DdlMetodoPago.SelectedValueExist(ObjCliente.CveMetodoPago.ToString) DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33.ToString) From b1330fe4107ab099a2496f6207719c0fa6bab579 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Feb 2023 10:55:57 -0700 Subject: [PATCH 6/7] =?UTF-8?q?--=20limpieza=20de=20un=20m=C3=B3dulo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 1 - 1 file changed, 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 93713d476..71f9a5e21 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5813,7 +5813,6 @@ Public Class ClsPaginas PaginaDict.Add("/Ventas/RepVentasUtilidadPadre.aspx".ToUpper(), 590) PaginaDict.Add("/Ventas/RepVentasUtilidad.aspx".ToUpper(), 590) PaginaDict.Add("/Ventas/RepVentasUtilidadDetalle.aspx".ToUpper(), 590) - PaginaDict.Add("/Ventas/eFacturas.aspx".ToUpper(), 413) PaginaDict.Add("/Ventas/PV.aspx".ToUpper(), 163) PaginaDict.Add("/Ventas/PVRene.aspx".ToUpper(), 163) PaginaDict.Add("/Ventas/Corporativo.aspx".ToUpper(), 807) From 1c2d564f8fbeb9d4fb76bf5af3e2f6d675aced82 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Feb 2023 10:56:11 -0700 Subject: [PATCH 7/7] =?UTF-8?q?-=20limpieza=20de=20m=C3=B3dulo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/eFacturas.aspx | 279 ---------------------- Ventas/eFacturas.aspx.vb | 495 --------------------------------------- 2 files changed, 774 deletions(-) delete mode 100644 Ventas/eFacturas.aspx delete mode 100644 Ventas/eFacturas.aspx.vb diff --git a/Ventas/eFacturas.aspx b/Ventas/eFacturas.aspx deleted file mode 100644 index 5f48a07bf..000000000 --- a/Ventas/eFacturas.aspx +++ /dev/null @@ -1,279 +0,0 @@ -<%@ Page Title="Ventas - eFacturas" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="eFacturas.aspx.vb" Inherits="Ventas_eFacturas" %> - - - - - - - - - Reporte de Facturas de Ventas - - -
  • - Genera PDF -
    • -
  • - Genera Excel -
    • -
  • - - - <%----%> - Descarga Facturas SAT - - -
    • - - - -     - - - - -
    -
    -
    -
      -
    • Folio: - -
      • -
    • Receptor: - -
      • -
    • Fecha I.: -
      - - - - -
      - - - - - - -
      • -
    • Fecha F.: -
      - - - - -
      - - - - - - -
      • - -
    -
    -
    - - - -
    - -
    - -
    -     -     - - - - - - - -
    - - No Recibidas
    -     -     - - -<%--
    -
    -
    --%> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <%----%> - - - - - - - - - - - - - - <%----%> - - - - - - -
    - <%----%> - - - -
    -     - -     - - -
    - <%----%> - - - -
    -     - -     -     - -     - - - - - - - - - - - diff --git a/Ventas/eFacturas.aspx.vb b/Ventas/eFacturas.aspx.vb deleted file mode 100644 index 4ece942df..000000000 --- a/Ventas/eFacturas.aspx.vb +++ /dev/null @@ -1,495 +0,0 @@ -Option Strict On -Option Explicit On - -Imports System.Data -Imports Extensiones -Imports System.Diagnostics -Imports System.IO -Imports Microsoft.Reporting.WebForms -Imports System.Globalization - -Partial Class Ventas_eFacturas - Inherits ClsPaginas - - Private Property Destino As String - Set(value As String) - ViewState("Destino") = value - End Set - Get - Return ViewState("Destino").ToString - End Get - End Property - - Private Property Ejecutable As String - Set(value As String) - ViewState("Ejecutable") = value - End Set - Get - Return ViewState("Ejecutable").ToString - End Get - End Property - - Private Property ChecandoCorreo As Boolean - Set(value As Boolean) - ViewState("ChecandoCorreo") = value - End Set - Get - Return CType(ViewState("ChecandoCorreo"), Boolean) - End Get - End Property - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - ChecandoCorreo = False - ViewState("Orden") = String.Empty - - txtFechaI.Text = Now.AddMonths(-1).FirstDayOfMonth().ToShortDateString ' String.Format("01/01/{0}", If(Now.Month > 6, Now.Year, Now.Year - 1)) - ' If UsuarioActual.CveEmpresa = 66 Then txtFechaI.Text = Now.AddDays(-7).ToShortDateString - - txtFechaF.Text = Now.ToShortDateString 'txtFechaI.Text.ToDate.AddMonths(1).AddDays(-1).ToShortDateString - - Destino = String.Format("{0}Ventas\", UsuarioActual.Empresa.Ruta) - Ejecutable = String.Format("{0}\Utilerias\eeeFacturas.exe", AppDomain.CurrentDomain.BaseDirectory) - Form.DefaultButton = BtnConsultar.UniqueID - - DdlResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) - DdlResponsable.DataBind() - DdlResponsable.Items.Insert(0, New ListItem("Todos", "-1")) - TxtFolio.Focus() - - If UsuarioActual.Sesion("eFact-Proveedor").ToString <> "" Then TxtReceptor.Text = UsuarioActual.Sesion("eFact-Proveedor").ToString.Trim - If UsuarioActual.Sesion("eFact-FI").ToString <> "" Then txtFechaI.Text = UsuarioActual.Sesion("eFact-FI").ToString.Trim - If UsuarioActual.Sesion("eFact-FF").ToString <> "" Then txtFechaF.Text = UsuarioActual.Sesion("eFact-FF").ToString.Trim - - 'If Session("Folio") IsNot Nothing Then TxtFolio.Text = Session("Folio").ToString.Trim - 'If Session("Proveedor") IsNot Nothing Then TxtProveedor.Text = Session("Proveedor").ToString.Trim - - ' RegistraScript("$(document).ready(function() { var table = $('#GvDatos').DataTable({""paging"": false, ""info"": false, ""searching"": false, ""order"": [[ 1, ""desc"" ]]} ); new $.fn.dataTable.FixedHeader( table, { bottom: false } ); } );") - - If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(9).Visible = True : GvD.Columns(10).Visible = True - - CargaDatos() - OrdenaDatos() - End If - End Sub - - Protected Sub GvDatos_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvD.RowCommand - - - If e.CommandName = "ValidarCFDi" Then - Dim a = e.CommandSource - - Dim ImgBtn As LinkButton = DirectCast(e.CommandSource, LinkButton) - Dim gvr As GridViewRow = DirectCast(ImgBtn.BindingContainer, GridViewRow) - - - Dim Valida As New ClsValidaCFDi(gvr.DataKey("UUID"), gvr.DataKey("RFCDe"), gvr.DataKey("RFCPara")) - If Valida.EsValida > 0 Then - Dim ObjDatos As New ClsCompras - - If Valida.EsValida = 2 Then - Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion) - End If - - If ObjDatos.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then - BtnConsultar_Click(sender, e) - End If - ObjDatos.Dispose() - Else - Alert("La Factura no se pudo validar.", TipoMensaje.MsgAdvertencia) - End If - Valida.Dispose() - ElseIf e.CommandName = "ValidarCFD" Then - - Dim a = e.CommandSource - - Dim ImgBtn As LinkButton = DirectCast(e.CommandSource, LinkButton) - Dim gvr As GridViewRow = DirectCast(ImgBtn.BindingContainer, GridViewRow) - - Dim ObjDatos As New ClsCompras - - If ObjDatos.UpdateEstatus(1, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then - BtnConsultar_Click(sender, e) - End If - ObjDatos.Dispose() - - ElseIf e.CommandName = "Omitir" Then - - Dim a = e.CommandSource - - 'Dim ImgBtn As ImageButton = DirectCast(e.CommandSource, ImageButton) - 'Dim gvr As GridViewRow = DirectCast(ImgBtn.BindingContainer, GridViewRow) - Dim LnkBtn As LinkButton = DirectCast(e.CommandSource, LinkButton) - Dim gvr As GridViewRow = DirectCast(LnkBtn.BindingContainer, GridViewRow) - - Dim ObjDatos As New ClsCompras - - If ObjDatos.UpdateEstatus(3, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then - BtnConsultar_Click(sender, e) - End If - ObjDatos.Dispose() - - End If - - End Sub - - - - Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click - CargaDatos() - 'OrdenaDatos() - End Sub - - Private Sub CargaDatos() - Dim Folio, RFC, Proveedor As String - Folio = If(TxtFolio.Text.Trim.Length > 0, String.Format("%{0}%", TxtFolio.Text.Trim.ToUpper), "-1") - RFC = "-1" 'If(TxtRFC.Text.Trim.Length > 0, TxtRFC.Text.Trim, "-1") - Proveedor = If(TxtReceptor.Text.Trim.Length > 0, String.Format("%{0}%", TxtReceptor.Text.Trim.ToUpper.Replace(" ", "%")), "-1") - Dim FechaI, FechaF As Date - 'UsuarioActual.Sesion("Folio") = TxtFolio.Text.Trim - UsuarioActual.Sesion("eFact-Proveedor") = TxtReceptor.Text.Trim - UsuarioActual.Sesion("eFact-FI") = txtFechaI.Text - UsuarioActual.Sesion("eFact-FF") = txtFechaF.Text - If txtFechaI.Text.Trim = "" Then FechaI = MinFecha - If txtFechaF.Text.Trim = "" Then FechaF = MaxFecha - Dim ObjDatos As New ClsVentas - If ObjDatos.GetFacturas(-1, Folio, MinFecha, MaxFecha, RFC, Proveedor, 1, DdlResponsable.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - If ObjDatos.DtResultados.Rows.Count > 0 Then - GvD.DataSource = ObjDatos.DtResultados '.AsEnumerable().Take(100).CopyToDataTable() - - Else - GvD.DataSource = Nothing - - End If - End If - LblRegistros.Text = String.Format("{0} Registros", ObjDatos.DtResultados.Rows.Count.ToString("N0")) - ObjDatos.Dispose() - - GvD.DataBind() - - If (GvD.Rows.Count > 0) Then - GvD.UseAccessibleHeader = True - GvD.HeaderRow.TableSection = TableRowSection.TableHeader - RegistraScript("OrdenarGV();") - End If - - If GvD.Rows.Count = 0 Then - Alert("No se encontraron Registros con el filtro actual", TipoMensaje.MsgAdvertencia) - End If - - UpDatos.Update() - UPRegistros.Update() - End Sub - - Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click - GvD.Columns(4).Visible = False - GvD.Columns(5).Visible = False - GvD.Columns(6).Visible = False - GvD.Columns(8).Visible = False - GvD.Columns(9).Visible = False - ' GvD.DataSource = ViewState("DTCompleta") - ' GvD.DataBind() - - GvD.ExportToExcel("RepFacturas_" & Now.ToShortDateString()) - - ' GvD.DataSource = ViewState("DT") - 'GvD.DataBind() - GvD.Columns(4).Visible = False - GvD.Columns(5).Visible = False - GvD.Columns(6).Visible = True - GvD.Columns(8).Visible = True - GvD.Columns(9).Visible = True - End Sub - - - - - -#Region "G V D A T O S" - Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - 'e.Row.Cells(0).Width = 100 - 'e.Row.Cells(1).Width = 80 - 'e.Row.Cells(2).Width = 400 - 'e.Row.Cells(3).Width = 80 - 'e.Row.Cells(4).Width = 40 - 'e.Row.Cells(5).Width = 40 - - If e.Row.RowIndex = 0 Then - - 'e.Row.Cells(1).ColumnSpan = 8 - 'e.Row.Cells(2).Visible = False : e.Row.Cells(3).Visible = False : e.Row.Cells(4).Visible = False : e.Row.Cells(5).Visible = False - 'e.Row.Cells(6).Visible = False : e.Row.Cells(7).Visible = False : e.Row.Cells(8).Visible = False - 'e.Row.Font.Bold = True - 'e.Row.FCLiteral("LtlFolio").Text &= " Registros" - - End If - - e.Row.Cells(1).Attributes.Add("data-order", e.Row.DBCampo("FechaFactura").ToDate.Ticks.ToString) - - If File.Exists(String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCPara"), e.Row.DBCampo("XML"))) Then - e.Row.FCLiteral("LtlXML").Text = String.Format("Ver", HttpUtility.UrlEncode(e.Row.DBCampo("RFCDe")), HttpUtility.UrlEncode(e.Row.DBCampo("XML"))) - Else - e.Row.FCLiteral("LtlXML").Text = "N/D" - End If - - If File.Exists(String.Format("{0}{1}/{2}", Destino, e.Row.DBCampo("RFCPara"), e.Row.DBCampo("PDF"))) Then - e.Row.FCLiteral("LtlPDF").Text = String.Format("Ver", HttpUtility.UrlEncode(e.Row.DBCampo("RFCDe")), HttpUtility.UrlEncode(e.Row.DBCampo("PDF"))) - Else - e.Row.FCLiteral("LtlPDF").Text = "N/D" - End If - - If e.Row.DBCampo("FueValidado").Contiene("1", "2", "3") Then - e.Row.FCLinkButton("ImgValidarCFDi").Visible = False - e.Row.FCLiteral("LtlValidado").Visible = True - If e.Row.DBCampo("FueValidado") = "2" Then - e.Row.FCLiteral("LtlValidado").Text = "Cancelada" - e.Row.ForeColor = Drawing.Color.Red - e.Row.FCHyperLink("HplProveedor").ForeColor = Drawing.Color.Red - ElseIf e.Row.DBCampo("FueValidado") = "3" Then - e.Row.FCLiteral("LtlValidado").Text = "Omitida" - e.Row.ForeColor = Drawing.Color.Gray - e.Row.FCHyperLink("HplProveedor").ForeColor = Drawing.Color.Gray - End If - Else - If e.Row.DBCampo("TipoFactura") = "CFD" Then - e.Row.FCLinkButton("ImgValidarCFDi").CommandName = "ValidarCFD" - e.Row.FCLinkButton("ImgValidarCFDi").OnClientClick = "return confirm('La factura se validó en el sitio del SAT de comprobantes fiscales?');" - End If - e.Row.FCLinkButton("ImgValidarCFDi").Visible = True - e.Row.FCLiteral("LtlValidado").Visible = False - - End If - If e.Row.DBCampo("CveVenta") <> "" Then - e.Row.FCLiteral("LtlFolio").Text = String.Format("{1}", e.Row.DBCampo("CveVenta"), e.Row.DBCampo("SerieFolio")) '1\Compras\GAPC480413QL3\A-69.xml - End If - - If e.Row.DBCampo("CveCliente") = "" Then - 'liga para guardar el proveedor - 'e.Row.FCLiteral("LtlProv").Text = String.Format("Agregar Proveedor", e.Row.DBCampo("CveFactura")) '1\Compras\GAPC480413QL3\A-69.xml - e.Row.FCHyperLink("HplProv").Visible = True - e.Row.FCHyperLink("HplProv").NavigateUrl = String.Format("/Ventas/Clientes.aspx?CveFactura={0}", e.Row.DBCampo("CveFactura")) - ' e.Row.FCLiteral("LtlAgregar").Text = "" - Else - - - e.Row.FCHyperLink("HplProveedor").NavigateUrl = String.Format("/Ventas/Clientes.aspx?CveCliente={0}", e.Row.DBCampo("CveCliente")) - - If e.Row.DBCampo("CveVenta") = "" AndAlso (e.Row.DBCampo("FueValidado") = "1") AndAlso e.Row.DBCampo("CveCliente") <> "" Then ' OrElse UsuarioActual.CveEmpresa = 66 - 'e.Row.FCImage("ImgAgregar").Attributes.Add("onclick", String.Format("window.open('/Compras/Compras.aspx?CveFactura={0}&RFC={1}','_newtab')", e.Row.DBCampo("CveFactura"), e.Row.DBCampo("RFCDe"))) - e.Row.FCHyperLink("HplAgregar").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveFactura={0}&RFC={1}&CVECLIENTE={2}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo("RFCPara"), e.Row.DBCampo("CveCliente")) - Else - 'si ya tiene cvecompra es que ya está validada - 'e.Row.FCImage("ImgAgregar").Visible = False - e.Row.FCHyperLink("HplAgregar").Visible = False - End If - - End If - - - If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then - End If - - End If - End Sub - - Protected Sub GvDatos_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvD.RowUpdating - Dim ObjDatos As New ClsCompras - Dim FueValidado As Integer = 0 - If GvD.Rows(e.RowIndex).FCCheckBox("ChkFueValidado").Checked Then FueValidado = 1 - If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then - GvD.EditIndex = -1 - BtnConsultar_Click(sender, e) - End If - ObjDatos.Dispose() - - 'If ViewState("Orden").ToString() <> String.Empty Then - 'CargaGrid(ViewState("Orden").ToString()) - 'Else - CargaDatos() - OrdenaDatos() - 'End If - End Sub - - Protected Sub GvDatos_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvD.RowCancelingEdit - GvD.EditIndex = -1 - 'If ViewState("Orden").ToString() <> String.Empty Then - ' CargaGrid(ViewState("Orden").ToString()) - 'Else - CargaDatos() - OrdenaDatos() - 'End If - End Sub - - Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvD.RowDeleting - Dim Fact As New ClsCompras - If Fact.DeleteFactura(e.Keys("CveFactura").ToString.ToEntero, UsuarioActual.CveEmpresa) Then - GvD.EditIndex = -1 - Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion) - CargaDatos() - OrdenaDatos() - End If - - Fact.Dispose() - - 'If ViewState("Orden").ToString() <> String.Empty Then - ' CargaGrid(ViewState("Orden").ToString()) - 'Else - - 'End If - End Sub - - Protected Sub GvDatos_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvD.RowEditing - GvD.EditIndex = e.NewEditIndex - 'If ViewState("Orden").ToString() <> String.Empty Then - ' CargaGrid(ViewState("Orden").ToString()) - 'Else - CargaDatos() - OrdenaDatos() - 'End If - End Sub -#End Region - - - - Protected Sub LnkNoRecibidas_Click(sender As Object, e As EventArgs) Handles LnkNoRecibias.Click - Dim dt As New DataTable - Dim Ruta As String = String.Format("{0}Compras\NoRecibidas-{1}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveEmpresa) - Dim Str As New StringBuilder - If IO.File.Exists(Ruta) Then - dt.ReadXml(Ruta) - - Dim conta As Integer = 1 - Str.Append("Se encontraron las siguientes facturas con problema:
    ") - - For Each dr As DataRow In dt.FiltraParametros("", "Fecha DESC").Rows - - Str.AppendFormat("", If(conta Mod 2 = 0, "TextoAlterno", "Texto")) - - Str.AppendFormat("", dr("Serie")) - Str.AppendFormat("", dr("Folio")) - Str.AppendFormat("", If(dr("Fecha").ToString <> "", dr("Fecha").ToString.ToDate.ToShortDateString, "")) - Str.AppendFormat("", dr("Proveedor")) - Str.AppendFormat("", dr("Importe").ToString.ToDouble.FormatoNumero) - Str.AppendFormat("", dr("Motivo")) - Str.AppendFormat("", If(dr("Correo").ToString.Length > 20, dr("Correo").ToString.Substring(0, 20), dr("Correo").ToString())) - Str.AppendFormat("", dr("FechaRecepcion").ToString.ToDate.ToShortDateString) - - Str.Append("") - conta += 1 - Next - Str.Append("
    SerieFolioFechaProveedorImporteMotivoCorreoF. Recepción
    {0}{0}{0}{0}{0}{0}{0}{0}
    ") - Else - Str.Append("No se encontraron facturas pendientes de recibir.") - End If - - Alert(Str.ToString, TipoMensaje.MsgInformacion) - CargaDatos() - OrdenaDatos() - End Sub - - -#Region "G E N E R A P D F " - Private Sub GenerarPDF() - 'Dim ObjDatos As New ClsCompras - 'Dim FechaI As String = txtFechaI.Text - 'Dim FechaF As String = txtFechaF.Text - 'If txtFechaI.Text = "" Then FechaI = "-1" - 'If txtFechaF.Text = "" Then FechaF = "-1" - 'Dim Folio = If(TxtFolio.Text.Trim.Length > 0, String.Format("%{0}%", TxtFolio.Text.Trim.ToUpper), "-1") - 'Dim Proveedor = If(TxtProveedor.Text.Trim.Length > 0, String.Format("%{0}%", TxtProveedor.Text.Trim.ToUpper.Replace(" ", "%")), "-1") - 'If ObjDatos.GetFacturas(-1, Folio, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, "-1", Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - ' Dim dt As DataTable = ObjDatos.DtResultados - ' Dim params As New List(Of ReportParameter) - ' params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - ' params.Add(New ReportParameter("FechaInicio", FechaI)) - ' params.Add(New ReportParameter("FechaFin", FechaF)) - ' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - ' params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - ' If Imagen.Exists Then - ' params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - ' Else - ' params.Add(New ReportParameter("LogoPath", "")) - ' End If - ' ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", dt, params, "ReporteCxC") - 'Else - ' Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) - 'End If - - End Sub - Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click - GenerarPDF() - End Sub -#End Region - -#Region "O R D E N A M I E N T O" - Private Sub OrdenaDatos() - If (GvD.Rows.Count > 0) Then - GvD.UseAccessibleHeader = True - GvD.HeaderRow.TableSection = TableRowSection.TableHeader - RegistraScript("OrdenarGV();") - End If - End Sub -#End Region - -#Region "descargar factura " - Protected Sub lbDescargar_Click(sender As Object, e As EventArgs) Handles lbDescargar.Click - Dim Retorno As Boolean = False - - 'Dim ObjProcess As Process = Nothing - 'Dim Mensajes As String = "" - 'Dim EjecutableUtilerias = Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Utilerias\UtileriasAD.exe") - 'Dim Folder = Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas\") - 'Dim error1 As Boolean = False - 'Dim en As New CultureInfo("en-US") - 'Dim fechai = txtFechaI.Text.Trim.ToDate.ToString("d", en) - 'Dim fechaf = txtFechaF.Text.Trim.ToDate.ToString("d", en) - 'Try - ' ObjProcess = New Process() - ' ObjProcess.StartInfo.RedirectStandardOutput = True - ' ObjProcess.StartInfo.FileName = EjecutableUtilerias - ' ObjProcess.StartInfo.Verb = "runas" - ' ObjProcess.StartInfo.Arguments = $"{UsuarioActual.CveEmpresa} {Folder} 2 {fechai} {fechaf}" - ' ObjProcess.StartInfo.UseShellExecute = False - ' ObjProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal - ' ObjProcess.Start() - ' ObjProcess.WaitForExit() - ' ObjProcess.Close() - 'Catch ex As Exception - ' error1 = True - ' OnError("Ocurrió un error al ejecutar el actualizador.", ex) - 'End Try - Dim ObjProcess As Process = Nothing - Dim Mensajes As String = "" - Dim EjecutableUtilerias = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Utilerias\ADSUtilerias.exe") - Dim Folder = UsuarioActual.Empresa.Ruta.Replace($"{UsuarioActual.CveEmpresa.ToString()}\", "") 'Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas\") - Dim error1 As Boolean = False - Dim en As New CultureInfo("en-US") - Dim fechai = txtFechaI.Text.Trim.ToDate.ToString("d", en) - Dim fechaf = txtFechaF.Text.Trim.ToDate.ToString("d", en) - Try - ObjProcess = New Process() - ObjProcess.StartInfo.RedirectStandardOutput = True - ObjProcess.StartInfo.FileName = EjecutableUtilerias - ObjProcess.StartInfo.Verb = "runas" - ObjProcess.StartInfo.Arguments = $"--mod dsat --e {UsuarioActual.CveEmpresa} --op 2 --fd {Folder} --fi {fechai} --ff {fechaf}" - ObjProcess.StartInfo.UseShellExecute = False - ObjProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal - ObjProcess.Start() - ObjProcess.WaitForExit() - ObjProcess.Close() - Catch ex As Exception - error1 = True - OnError("Ocurrió un error al ejecutar el actualizador.", ex) - End Try - - End Sub -#End Region - - - - - -End Class