From 90bf9346af20e093facea32766643c65b4cc01fd Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 30 Nov 2021 20:54:17 -0700 Subject: [PATCH 1/4] =?UTF-8?q?exporta=20excel,=20formateo=20numerico=20de?= =?UTF-8?q?=20c=C3=B3digo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RepAnomalias.aspx | 6 +++--- Inventarios/RepAnomalias.aspx.vb | 23 +++++++++++++---------- 2 files changed, 16 insertions(+), 13 deletions(-) diff --git a/Inventarios/RepAnomalias.aspx b/Inventarios/RepAnomalias.aspx index d28d09550..4a0e1d04e 100644 --- a/Inventarios/RepAnomalias.aspx +++ b/Inventarios/RepAnomalias.aspx @@ -271,7 +271,7 @@ - + @@ -478,9 +478,9 @@ - + - + diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index 861028c31..587c9d385 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/Inventarios/RepAnomalias.aspx.vb @@ -87,13 +87,17 @@ Partial Class Inventarios_RepAnomalias If UsuarioActual.CveEmpresa.Contiene(119, 158) Then - GvF.Columns(2).Visible = True 'proveedor - GvS.Columns(2).Visible = True 'proveedor - GvC.Columns(2).Visible = True 'proveedor + GvF.Columns(2).Visible = True 'clasificación + GvS.Columns(2).Visible = True 'clasificación + GvC.Columns(2).Visible = True 'clasificación + GvF.Columns(3).Visible = True 'proveedor + GvS.Columns(3).Visible = True 'proveedor + GvC.Columns(3).Visible = True 'proveedor GvF.Columns(16).Visible = UsuarioActual.Procesos(201) 'costo GvS.Columns(16).Visible = UsuarioActual.Procesos(201) 'costo GvC.Columns(16).Visible = UsuarioActual.Procesos(201) 'costo - GvGrupos.Columns(1).Visible = True 'proveedor + GvGrupos.Columns(1).Visible = True 'clasificación + GvGrupos.Columns(2).Visible = True 'proveedor GvGrupos.Columns(15).Visible = UsuarioActual.Procesos(201) 'costo End If @@ -223,13 +227,13 @@ Partial Class Inventarios_RepAnomalias If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvF.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvC.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) - GvS.DataSource = dt.FiltraParametros("Diferencia < 0") - Dim DtS As DataTable = dt.FiltraParametros("Diferencia < 0") + GvS.DataSource = dt.FiltraParametros("Diferencia > 0") + Dim DtS As DataTable = dt.FiltraParametros("Diferencia > 0") BanderaSerieLoteCad(GvS, DtS) GvS.DataBind() - GvF.DataSource = dt.FiltraParametros("Diferencia > 0") - Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0") + GvF.DataSource = dt.FiltraParametros("Diferencia < 0") + Dim DtF As DataTable = dt.FiltraParametros("Diferencia < 0") BanderaSerieLoteCad(GvF, DtF) GvF.DataBind() @@ -862,7 +866,7 @@ Partial Class Inventarios_RepAnomalias RangoDatosFiltro.Merged = True RangoDatosFiltro.Style.WrapText = True RangoDatosFiltro.Value = TextoFiltro - RangoDatosFiltro.Style.Font.Size = 12 * 20 + RangoDatosFiltro.Style.Font.Size = 11 * 20 RangoDatosFiltro.Style.Font.Name = "Calibri Light" RangoDatosFiltro.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left RangoDatosFiltro.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center @@ -920,7 +924,6 @@ Partial Class Inventarios_RepAnomalias 'Else ' worksheet.Columns(I + 1).Style.NumberFormat = "#,##" 'End If - worksheet.Columns(I + 1).Style.NumberFormat = "@" Try From f2e3b8f5106df7cf390de0c1754ff3eccc48f555 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 1 Dec 2021 16:41:58 -0700 Subject: [PATCH 2/4] Validacion de registro de compra proveniente de OC --- Ventas/Ventas.aspx.vb | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 02ce47bf7..9bc1a43b5 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -21854,7 +21854,7 @@ Partial Class Ventas Dim tDT As DataTable = Nothing Dim ObjOC As New ClsOC If ObjOC.GetOCFacturacion(CveOC, UsuarioActual.CveEmpresa) Then - tDT = ObjOC.DtResultados + tDT = ObjOC.DtResultados.Copy() 'tTmpDT.Columns.Add("TipoDocto", GetType(String)) 'tTmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) 'tTmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal)) @@ -21867,10 +21867,14 @@ Partial Class Ventas If tDT IsNot Nothing AndAlso tDT.Rows.Count > 0 Then - ViewState("CveCliente") = ObjOC.DtResultados.Rows(0)("CveCliente") + ViewState("CveCliente") = tDT.Rows(0)("CveCliente") HdnCveCliente.Value = CveCliente.ToString() CargaCliente(CveCliente) + If (DdlTipoComprobante.Items.FindByValue("Rem") IsNot Nothing) Then + DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem")) + End If + For Each Dr As DataRow In tDT.Rows AgregarProductoServicio(Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("UM").ToString(), Dr("CveClasificacion").ToString().ToEntero(), Dr("Clasificacion").ToString(), From 2b630cb18314704e2852bcc7e675d13e0535672b Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 2 Dec 2021 09:36:41 -0700 Subject: [PATCH 3/4] =?UTF-8?q?--=20concepto=20de=20cancelaci=C3=B3n=20con?= =?UTF-8?q?=20devoluci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/IE.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 5d88ea8c2..b80c8ad5a 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -4690,7 +4690,7 @@ Partial Class Bancos_IE 'genera nuevo IE contrario If Not ErrorCancelar Then - If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2) <= 0 Then + If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then ErrorCancelar = True End If End If From 395ba8478670713cb90ef4bb9599df6348d28450 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 2 Dec 2021 09:37:15 -0700 Subject: [PATCH 4/4] campo telefono carta porte --- Compras/PopUpVerFactura.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 435be40ab..b940dc9aa 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -951,7 +951,7 @@ Partial Class PopUpVerFactura Dim Dr As DataRow = ObjInv.DtResultados.Rows(0) If Dr IsNot Nothing Then SerieFolio = Dr("SerieFolio").ToString - Telefono = Dr("ChrTelefono").ToString + Telefono = Dr("Telefono").ToString End If End If End If