From d202765b3d7ff247f169c4ebe8ca588cf7b63f44 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 18 Dec 2024 11:40:03 -0700 Subject: [PATCH 1/7] OC no perder subproeycto al actualizar --- OC/OC.aspx | 6 ++++++ OC/OC.aspx.vb | 15 ++++++++++++--- 2 files changed, 18 insertions(+), 3 deletions(-) diff --git a/OC/OC.aspx b/OC/OC.aspx index 43cf81b0b..fb4310c97 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -227,6 +227,12 @@ OnSelectedIndexChanged="DdlSubProyectoGral_SelectedIndexChanged" AutoPostBack="true"> + + + + + diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index bc28ee13c..6c0f04f57 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -3200,7 +3200,16 @@ Partial Class OC_OC End If - If OC.UpdateOrdenCompra(-1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim), + Dim tCveSubProyectoVal As Integer = -1 + If ModalidadSubProyectoGeneral Then + tCveSubProyectoVal = DdlSubProyectoGral.SelectedValue.ToEntero + If tCveSubProyectoVal <= 0 Then + tCveSubProyectoVal = GetCveSubProyectoDetalles() + End If + End If + + + If OC.UpdateOrdenCompra(tCveSubProyectoVal, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim), LugarEntrega, DdlMoneda.SelectedValue.ToEntero, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.txtValue.Value.ToEntero, DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveProveedorContacto:=CveProveedorContacto, @@ -9969,9 +9978,9 @@ Partial Class OC_OC If Respuesta Then If Recargar Then - Alert($"Movimiento Guardado Correctamente Folio:{FolioMto} CveMovmiento: {CveMovimiento}", TipoMensaje.MsgInformacion, "window.location.reload();") + Alert($"Movimiento Guardado Correctamente Folio:{FolioMto}", TipoMensaje.MsgInformacion, "window.location.reload();") Else - Alert($"Movimiento Guardado Correctamente Folio:{FolioMto} CveMovmiento: {CveMovimiento}", TipoMensaje.MsgInformacion) + Alert($"Movimiento Guardado Correctamente Folio:{FolioMto}", TipoMensaje.MsgInformacion) End If End If From c07455ff9e301a3e2cc786d3d1e109ec3bffaed6 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 18 Dec 2024 15:35:23 -0700 Subject: [PATCH 2/7] Ventas Correcion formato apra customvalidator de .## a 0.## --- OC/OC.aspx.vb | 29 +++++++++++++++++++++++++++-- Ventas/Ventas.aspx.vb | 4 ++-- 2 files changed, 29 insertions(+), 4 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 6c0f04f57..2d2a45530 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -2441,6 +2441,12 @@ Partial Class OC_OC #Region " AGREGAR " Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click + + If ModalidadSubProyectoGeneral And DdlSubProyectoGral.SelectedValue.ToEntero <= 0 Then + Alert("Debe seleccionar una Sucursal", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + 'VALIDA CVEPS If DdlP2.SelectedValue().ToEntero <= 0 Then Alert("El campo 'Producto/Servicio' es necesario, por favor seleccione uno.", TipoMensaje.MsgAdvertencia) @@ -2507,6 +2513,16 @@ Partial Class OC_OC Dim CveOrdenCompraDetalle As Integer = DtDetalle.MAX("CveOrdenCompraDetalle").ToEntero + 100 Dim CantidadVentaMinima As Decimal = DrPS("VentaMinima").ToString.ToDecimal + Dim CveSubProyectoVal As Integer = DdlSubProyecto.SelectedValue.ToString.ToEntero + + If ModalidadSubProyectoGeneral Then + CveSubProyectoVal = DdlSubProyectoGral.SelectedValue.ToEntero + SubProyecto = DdlSubProyectoGral.SelectedItem.Text + End If + + + + If CantidadVentaMinima > 0 AndAlso TxtCant.Text.ToDecimal > 0 Then If TxtCant.Text.ToDecimal Mod CantidadVentaMinima <> 0 Then Alert(String.Format("El producto se vende solo en cantidades de {0:####.####}", CantidadVentaMinima)) @@ -2525,9 +2541,11 @@ Partial Class OC_OC End If End If + + AddPS(TxtCant.Text.ToDecimal, DdlP2.SelectedValue.ToEntero, DdlP2.SelectedText, TxtObsPS.Text, ImportePS, TxtDescuentoAdd.Text.ToDecimal, TotalPS, CboUnidadMedida.SelectedValue.ToEntero, IvaPS, IEPSPS, IEPSPSIVA, DdlClasificacion.SelectedValue.ToEntero, CboUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedItem.Text, DdlProyecto.SelectedValue.ToEntero, Proyecto, - DdlSubProyecto.SelectedValue.ToEntero, SubProyecto, LblCodigo.Text, HdnCveActivoFijo.Value.ToEntero, 0, CveOrdenCompraDetalle, CveOrdenCompra, IdCuentaPorEjercer, + CveSubProyectoVal, SubProyecto, LblCodigo.Text, HdnCveActivoFijo.Value.ToEntero, 0, CveOrdenCompraDetalle, CveOrdenCompra, IdCuentaPorEjercer, IdCuentaComprometido, DdlACGeneral1.SelectedValue.ToEntero, DdlACGeneral2.SelectedValue.ToEntero, DdlACGeneral3.SelectedValue.ToEntero, DdlACGeneral4.SelectedValue.ToEntero, DdlACGeneral5.SelectedValue.ToEntero, RetIVA, RetISR, CveCultivoCuadroDetalle:=DdlCultivosCuadro.SelectedValue.ToEntero, Cuadro:=DdlCultivosCuadro.SelectedItem.Text) @@ -2965,9 +2983,16 @@ Partial Class OC_OC TieneError = True End If + Dim tCveSubProyecto As Integer = UsuarioActual.CveSubProyecto + If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero + + If tCveSubProyecto <= 0 Then + tCveSubProyecto = GetCveSubProyectoDetalles() + End If + If Not TieneError Then ' AGREGAR REQUISICION - If OC.AddOrdenCompra("REQ", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CboE.SelectedValue.ToEntero, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim), + If OC.AddOrdenCompra("REQ", tCveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CboE.SelectedValue.ToEntero, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim), LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal, RequiereCotizacion:=ChkCotizacion.Checked, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index bbc70e76d..1132fee58 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -18459,7 +18459,7 @@ Partial Class Ventas If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido - TxtPrecio.Text = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere + TxtPrecio.Text = PrecioSugerido.ToString("#,##0.####") ' que muestre hasta los 4 digitos si lo requiere If IsNumeric(TxtCantidad.Text.Trim) Then LblTotalPS.Text = (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.ToDouble).ToString().FormatoNumero(2) @@ -18715,7 +18715,7 @@ Partial Class Ventas If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido - GvRow.FCTextBox("TxtPrecio").Text = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere + GvRow.FCTextBox("TxtPrecio").Text = PrecioSugerido.ToString("#,##0.####") ' que muestre hasta los 4 digitos si lo requiere End If End If From 0932e4d9f107623f117a35b2edd176d763415aff Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 18 Dec 2024 17:13:12 -0700 Subject: [PATCH 3/7] =?UTF-8?q?Bloque=20Fechas=20IE=20y=20Almacenes=20Grup?= =?UTF-8?q?o=20D=C3=ADaz?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/IE.aspx.vb | 7 +++++++ Bancos/PopIECompras.aspx.vb | 8 ++++++++ Bancos/PopIEVentas.aspx.vb | 8 ++++++++ Bancos/ProveedoresAbonar.aspx.vb | 8 ++++++++ Inventarios/EntradasSalidas.aspx.vb | 4 ++-- Inventarios/EntregaAlmacen.aspx.vb | 2 +- Inventarios/RecepcionAlmacen.aspx.vb | 2 +- Inventarios/TraspasoAlmacen.aspx.vb | 2 +- Ventas/ClientesAbonar.aspx.vb | 6 ++++++ 9 files changed, 42 insertions(+), 5 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 961d521e5..4be15dbe9 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -788,6 +788,13 @@ Partial Class Bancos_IE TRImporteDeduccionesPago.Visible = True End If + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + If Not UsuarioActual.TienePermisoProceso(404) Then + TxtFechaDocumento.Enabled = False + ImgCalendario.Visible = False + End If + End If + End If End Sub diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 5d3eb3332..8e54d2bb1 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -351,6 +351,14 @@ Partial Class Bancos_PopIECompras TxtTipoCambio.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4) End If UpDatos.Update() + + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + If Not UsuarioActual.TienePermisoProceso(404) Then + TxtFechaDocumento.Enabled = False + ImgCalendario.Visible = False + End If + End If + End If End Sub diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 2019215db..1a8c0f482 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -358,6 +358,14 @@ Partial Class Bancos_PopIEVentas ChkPagarDolares.Visible = True TxtTCDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) End If + + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + If Not UsuarioActual.TienePermisoProceso(404) Then + TxtFechaDocumento.Enabled = False + ImgCalendario.Visible = False + End If + End If + End If End Sub diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 1227b7197..d27e7066e 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -326,6 +326,14 @@ Partial Class Bancos_ProveedoresAbonar chkaplicaDescuento.Visible = True End If + + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + If Not UsuarioActual.TienePermisoProceso(404) Then + TxtFechaDocumento.Enabled = False + ImgCalendario.Visible = False + End If + End If + End If End Sub diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 4f0d0d4c4..c286f04ca 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -497,7 +497,7 @@ Partial Class Inventarios_EntradasSalidas End If - If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then + If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then TxtFecha.Enabled = False 'ImgFecha.Visible = False @@ -1221,7 +1221,7 @@ Partial Class Inventarios_EntradasSalidas End If - If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then + If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then TxtFecha.Enabled = False 'ImgFecha.Visible = False diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index ead541bd9..13307a503 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -363,7 +363,7 @@ Partial Class Inventarios_EntregaAlmacen CargaParametrosAD() If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 146, 119, 186) Then DdlAlmacen.AutoPostBack = True - If UsuarioActual.Empresa.Funcionalidad(281).ToEntero() = 1 Then + If UsuarioActual.Empresa.Funcionalidad(281).ToEntero() = 1 Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then TxtFecha.Enabled = False ImgFecha.Visible = False End If diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 854da5a4d..216ace50e 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -489,7 +489,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim PermisoEspecialCambioFecha As Boolean = False If UsuarioActual.CveUsuario.Contiene(100, 1937) Then PermisoEspecialCambioFecha = True - If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 AndAlso Not PermisoEspecialCambioFecha Then + If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 AndAlso Not PermisoEspecialCambioFecha Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then TxtFecha.Enabled = False ImgFecha.Visible = False diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 0f6103c6a..cefa814b5 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -229,7 +229,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim PermisoEspecialCambioFecha As Boolean = False If UsuarioActual.CveUsuario.Contiene(100, 1937) Then PermisoEspecialCambioFecha = True - If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 And Not PermisoEspecialCambioFecha Then + If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 And Not PermisoEspecialCambioFecha Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then TxtFecha.Enabled = False ImgFecha.Visible = False TxtFechaRecepcion.Enabled = False diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 88ed5969c..0090577c5 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -240,6 +240,12 @@ Partial Class Ventas_ClientesAbonar DVImporteDeduccionesPago.Visible = True End If + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + If Not UsuarioActual.TienePermisoProceso(404) Then + TxtFechaDocumento.Enabled = False + ImgCalendario.Visible = False + End If + End If End If From 03ee32ff8753c01788a63387626da1d3a7e61fda Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 19 Dec 2024 08:47:34 -0700 Subject: [PATCH 4/7] PV Cobranza GV Agregar Nombre Cliente --- Ventas/PVCobranza.aspx | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index 955d39ca5..333b2d576 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -330,7 +330,13 @@ CssClass="ScrollAD table table-striped table-hover Widthall mysmallbtn" data-heighterror="320" data-freezecols="0" data-freezerows="0" GridLines="None" DataKeyNames="CveVenta,TipoDocto,Saldo,AtencionA,CveFormaPago33,SerieFolio,CondicionesPago"> - + <%----%> + + +
+ + + From 99326ca7b3955bfd9713e924c3c246de412f9b30 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 19 Dec 2024 11:20:07 -0700 Subject: [PATCH 5/7] =?UTF-8?q?Entradas=20Salidas=20opci=C3=B3n=20inventar?= =?UTF-8?q?io=20fisico=20carga=20Excel=20ajuste=20se=20=20valida=20y=20lis?= =?UTF-8?q?ta=20c=C3=B3digos=20no=20encontrados?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntradasSalidas.aspx.vb | 28 +++++++++++++++++++++++----- 1 file changed, 23 insertions(+), 5 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index c286f04ca..17b2bd1b1 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -6089,21 +6089,36 @@ Partial Class Inventarios_EntradasSalidas dt.TableName = "Datos" Dim TieneError As Boolean = False + Dim TieneErrorCodigos As Boolean = False Try If DdlAlmacenInventarioFisico.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgAdvertencia) : RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") : DdlPS.SelectedText = "" : Exit Sub + Dim sbNoencontrados As New StringBuilder + For Each row As DataRow In dt.Rows Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, Codigo:=row("Codigo").ToString(), Estatus:=-1).FiltroPrimero("") - Dim CvePS As Integer = DrPS("CvePS").ToString().ToEntero() - If row("EntradaSalida").ToString() = "1" Then - AddPSEntrada(CvePS, row("Diferencia").ToString().ToDecimal(), row("Costo").ToString().ToDecimal(), Sonido:=False, CargaGV:=False) + If DrPS IsNot Nothing Then + Dim CvePS As Integer = DrPS("CvePS").ToString().ToEntero() + + If row("EntradaSalida").ToString() = "1" Then + AddPSEntrada(CvePS, row("Diferencia").ToString().ToDecimal(), row("Costo").ToString().ToDecimal(), Sonido:=False, CargaGV:=False) + Else + AddPSSalida(CvePS, row("Diferencia").ToString().ToDecimal(), Sonido:=False, CargaGV:=False) + End If Else - AddPSSalida(CvePS, row("Diferencia").ToString().ToDecimal(), Sonido:=False, CargaGV:=False) + TieneError = True + TieneErrorCodigos = True + sbNoencontrados.Append($"{row("Codigo").ToString}
") End If Next + If sbNoencontrados.Length > 0 Then + Alert($"No se encontraron los siguientes códigos.
{sbNoencontrados.ToString}", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + CargaGvSalidas(DtMovimientosSalidaInvFisico) CargaGvEntradas(DtMovimientosEntradaInvFisico) Catch ex As Exception @@ -6122,7 +6137,10 @@ Partial Class Inventarios_EntradasSalidas CargaGvSalidas(DtMovimientosSalidaInvFisico) CargaGvEntradas(DtMovimientosEntradaInvFisico) - Alert("Ocurrió un error al cargar los datos", TipoMensaje.MsgError) + If Not TieneErrorCodigos Then + Alert("Ocurrió un error al cargar los datos", TipoMensaje.MsgError) + End If + Else If DtMovimientosEntradaInvFisico.Rows.Count <> dt.FiltraParametros("EntradaSalida = 1").Rows.Count Then Alert("No se cargaron todas las entradas.", TipoMensaje.MsgAdvertencia) From a83decc28bdfd577841b329ee237f3535e554e6b Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 19 Dec 2024 12:03:24 -0700 Subject: [PATCH 6/7] Entradas Salidas descarga formato ajuste inventario --- Inventarios/EntradasSalidas.aspx | 8 ++++++-- Inventarios/EntradasSalidas.aspx.vb | 23 +++++++++++++++++++++++ 2 files changed, 29 insertions(+), 2 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 8f60930cd..e03021944 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -1165,8 +1165,8 @@ - -
+
+
@@ -1866,12 +1866,16 @@
+ Descargar Formato
+ + + diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 17b2bd1b1..78e5be90f 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -6071,6 +6071,27 @@ Partial Class Inventarios_EntradasSalidas End If End Sub + Protected Sub LnkDescargaFormato_Click(sender As Object, e As EventArgs) + + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoAjusteInventario.xlsx" + + + Dim Archivo As New IO.FileInfo(Directorio) + If Archivo.Exists Then + Response.Clear() + Response.ClearHeaders() + Response.ClearContent() + Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name) + Response.AddHeader("Content-Length", Archivo.Length.ToString()) + Response.ContentType = "text/plain" + Response.Flush() + Response.TransmitFile(Archivo.FullName) + Response.End() + End If + + + End Sub + Private Sub CargarArchivo(Ruta As String, FileName As String) SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) Dim Tipo As String = "EXCEL" @@ -6162,4 +6183,6 @@ Partial Class Inventarios_EntradasSalidas UpModalAjuste.Update() End Sub + + End Class From 84af70041770f3d3ef132fd3ade676d3e4599a2f Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 20 Dec 2024 19:35:28 -0700 Subject: [PATCH 7/7] =?UTF-8?q?Energ=C3=ADa=20El=C3=A9ctrica=202024-12-20?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/CuentasBancariasDetalle.aspx | 14 +- Bancos/CuentasBancariasDetalle.aspx.vb | 8 +- Bancos/DepositosCaja.aspx | 174 +++++++++++------- .../SaldosIniciales/FormatoClientes.xlsx | Bin 9527 -> 9582 bytes General/SaldosIniciales.aspx.vb | 68 ++++++- Ventas/Clientes.aspx.vb | 4 +- 6 files changed, 188 insertions(+), 80 deletions(-) diff --git a/Bancos/CuentasBancariasDetalle.aspx b/Bancos/CuentasBancariasDetalle.aspx index 7c2bb543c..2f73ed70c 100644 --- a/Bancos/CuentasBancariasDetalle.aspx +++ b/Bancos/CuentasBancariasDetalle.aspx @@ -383,7 +383,7 @@
- +
@@ -398,12 +398,16 @@
Usuarios con acceso a la cuenta
- + + + + + () + + - - <%----%> + - diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb index b8a934923..5aee71c2e 100644 --- a/Bancos/CuentasBancariasDetalle.aspx.vb +++ b/Bancos/CuentasBancariasDetalle.aspx.vb @@ -478,8 +478,12 @@ Partial Class Bancos_CuentasBancariasDetalle For Each row As DataRow In DTUsuarios.Rows sUsuarios = $"{sUsuarios} {row("CveUsuario").ToString}," Next - If sUsuarios <> "" Then - DdlUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre") + If sUsuarios <> "" Then + + ' Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", DistinctColumns:={"CveUsuario", "Nombre", "Usuario"}) + Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre") + DdlUsuarios.DataSource = CargarDdlUsuarios(tablaUsuariosAux) + 'DdlUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre") DdlUsuarios.DataBind() End If End Sub diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 0b3a38715..3bebf5677 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -219,111 +219,147 @@ -
+ +
-