From e423a11d2a5fa420374135a7d6f61f08b2f4d6ee Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Mar 2023 12:24:15 -0700 Subject: [PATCH 01/14] -- mejora visual --- Acumuladores/CatFoliosGarantia.aspx | 27 ++++++++++----------------- 1 file changed, 10 insertions(+), 17 deletions(-) diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index 9d44d0e67..3089b032b 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -138,29 +138,29 @@   - +   - +   - +   - - + +   - + @@ -170,23 +170,16 @@ - + - + - - - - - + - - - - + From 6354b51dccaae2addf9efac9e29bbe560c75221d Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Mar 2023 12:30:44 -0700 Subject: [PATCH 02/14] =?UTF-8?q?--=20correcci=C3=B3n=20en=20pagos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/PagoAcreedor.aspx.cs | 72 +++++++++++++++++++------------------ Compras/Compras.aspx | 2 +- Compras/Compras.aspx.vb | 2 ++ 3 files changed, 41 insertions(+), 35 deletions(-) diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index 958844dd5..a486cae6a 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -306,7 +306,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas { decimal ImporteBanco = TxtImporte.Text.ToDecimal(); decimal ImporteMNBanco = ImporteBanco; - decimal ImporteComplementaria = 0; + decimal ImporteComplementaria = 0; decimal TCPago = TxtTCPago.Text.ToDecimal(); string Conc = TxtObservaciones.Text == "" ? TxtFolio.Text : TxtObservaciones.Text; string Ref = TxtObservaciones.Text == "" ? TxtFolio.Text : TxtObservaciones.Text; @@ -328,6 +328,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas decimal ImporteComision; decimal ImporteComisionMN; decimal AcumImporteMN = 0; + decimal ImportePago, ImporteAcreedor; bool TipoMovtoComision = false; int IdCtaContableOtrosGastos = 0; int CveConceptoDiferenciaCambiaria = 0; @@ -338,8 +339,9 @@ public partial class Bancos_PagoAcreedor : ClsPaginas Importe = gvr.FCTextBox("TxtAbonar").Text.ToDecimal(); ImporteComision = gvr.FCTextBox("TxtComision").Text.ToDecimal(); ImporteMN = Importe; + ImporteAcreedor = Importe; ImportePago = Importe; ImporteComisionMN = ImporteComision; - ImporteComplementaria = 0; + ImporteComplementaria = 0; if (gvr.FCTextBox("TxtComision").Text.ToDecimal() < 0) { @@ -352,7 +354,6 @@ public partial class Bancos_PagoAcreedor : ClsPaginas { TipoMovtoComision = false; IdCtaContableOtrosGastos = UsuarioActual.Empresa.Funcionalidad(266).ToEntero(); - } Decimal TC = gvr.DataKey("TipoCambio").ToDecimal(); @@ -364,24 +365,26 @@ public partial class Bancos_PagoAcreedor : ClsPaginas if (gvr.FCCheckBox("Chk").Checked) { - int tCveMoneda = gvr.DataKey("CveMoneda").ToEntero(); + int tCveMoneda = gvr.DataKey("CveMoneda").ToEntero(); if (CveMonedaPago == 1 && tCveMoneda == 1) { ImporteMN = Importe; ImporteComisionMN = ImporteComision; + ImportePago = Importe; } else if (CveMonedaPago == 1 && tCveMoneda == 2) { ImporteComisionMN = ImporteComision; + ImportePago = (Importe * TCPago).RoundSQL(); if (UsaComplementaria) { ImporteMN = Importe; - ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); + ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); } else { ImporteMN = Importe * TC; - ImporteComplementaria = 0; + ImporteComplementaria = 0; } } else if (CveMonedaPago == 2 && tCveMoneda == 1) @@ -389,6 +392,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas ImporteMN = Importe; ImporteComisionMN = ImporteComision; + ImporteComplementaria = 0; } else if (CveMonedaPago == 2 && tCveMoneda == 2) { @@ -422,37 +426,37 @@ public partial class Bancos_PagoAcreedor : ClsPaginas break; } - if (UsaComplementaria) + if (UsaComplementaria && tCveMoneda > 1 && MsgError == "") { if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContablePrestamoComplementario, Conc, DateTime.Now, IDCtaContableAcreedorComplementaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) MsgError = "No se pudo insertar concepto de acreedor complementaria"; } - if (TCPago != TC) - { - bool TipoMovto = false; - int IdCtaContableDiferenciaCambiaria = 0; - if (TCPago > TC) - { - CveConceptoDiferenciaCambiaria = 65; - IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria; - TipoMovto = false; - Importe = (Importe * TCPago) - (Importe * TC); - } - else if (TCPago < TC) - { - CveConceptoDiferenciaCambiaria = 64; - IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaGananciaCambiaria; - TipoMovto = true; - Importe = (Importe * TC) - (Importe * TCPago); - } - ImporteMN = Importe; - - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Ref, CveConceptoDiferenciaCambiaria, Conc, DateTime.Now, IdCtaContableDiferenciaCambiaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) - MsgError = "No se pudo insertar concepto de diferencia cambiaria"; + if (ImportePago != ImporteAcreedor && MsgError == "") + { + bool TipoMovto = false; + int IdCtaContableDiferenciaCambiaria = 0; + if (TCPago > TC) + { + CveConceptoDiferenciaCambiaria = 65; + IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria; + TipoMovto = false; + Importe = (Importe * TCPago) - (Importe * TC); } + else if (TCPago < TC) + { + CveConceptoDiferenciaCambiaria = 64; + IdCtaContableDiferenciaCambiaria = UsuarioActual.Empresa.IdCuentaGananciaCambiaria; + TipoMovto = true; + Importe = (Importe * TC) - (Importe * TCPago); + } + ImporteMN = Importe; + + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Ref, CveConceptoDiferenciaCambiaria, Conc, DateTime.Now, IdCtaContableDiferenciaCambiaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) + MsgError = "No se pudo insertar concepto de diferencia cambiaria"; + } - if (ImporteComisionMN > 0) + if (ImporteComisionMN > 0 && MsgError == "") { if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoComision, ImporteComision, Ref, 255, Conc, DateTime.Now, IdCtaContableOtrosGastos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComisionMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { @@ -477,10 +481,10 @@ public partial class Bancos_PagoAcreedor : ClsPaginas } } - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, 30, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMNBanco, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) MsgError = "No se pudo insertar concepto de bancos"; + if (MsgError == "" && !ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, 30, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMNBanco, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) MsgError = "No se pudo insertar concepto de bancos"; //movimiento de ajuste por sino se aplicó en el proceso anterior - if (CveMonedaPago != 1 && UsaComplementaria ) + if (MsgError == "" && CveMonedaPago != 1 && UsaComplementaria ) { if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, 204, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) MsgError = "No se pudo insertar concepto de bancos complementaria"; @@ -499,7 +503,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas tCveConceptoOtIngresos = 64; TipoMovtoOt = true; } - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOt, Dif.Abs(), Ref, tCveConceptoOtIngresos, Conc, DateTime.Now, 0, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Dif.Abs(), ImporteME: Dif.Abs(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) + if (MsgError == "" && !ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOt, Dif.Abs(), Ref, tCveConceptoOtIngresos, Conc, DateTime.Now, 0, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Dif.Abs(), ImporteME: Dif.Abs(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de ajuste en redondeo"; } @@ -517,7 +521,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas } //VALIDA QUE CUADRE LA PREPOLIZA - if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5)) + if (MsgError == "" && ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5)) { if (ObjMov.ValorPolizaDescuadre > 0) { diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index d3d5c0112..61cb8d5fe 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -2864,7 +2864,7 @@
- + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 9a557b9a8..2a087fbb5 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -8736,6 +8736,7 @@ Partial Class Compras_Compras Pago.OtroGastoIngreso = ImporComisionAnticipo Pago.CveMonedaPago = CveMonedaAnticipo Pago.TCPago = TipoCambioAnt + Pago.CveProveedor = gvr.DataKey("CveProveedor").ToEntero Select Case gvr.DataKey("TipoDocto") Case "NC", "DEV" @@ -8750,6 +8751,7 @@ Partial Class Compras_Compras CveConceptoCompraComplementaria = 266 IdCtaContable = If(CveMonedaAnticipo = 1, CtaProveedorAnticipos, CtaProveedorAnticiposExtranjera) IdCtaContableComp = CtaProveedorAnticiposComplementaria + 'vinculo la compra actual, y no la compra como si fuera nota de credito CveCompraNC = -1 CveIE = gvr.DataKey("CveIE").ToEntero From 642eb5f0d4b22652f6737df81858f7fba2a993f4 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Mar 2023 12:31:06 -0700 Subject: [PATCH 03/14] parametro contabilizable en registro de prepolzas --- Inventarios/EntradasSalidas.aspx.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 2c538f4b3..18e714c79 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -3941,12 +3941,12 @@ Partial Class Inventarios_EntradasSalidas IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto) Then - ErrorMovInv = True - Exit For - End If + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto, Contabilizable:=Contabilizable) Then + ErrorMovInv = True + Exit For + End If - Next + Next End If End If End If From ef271d5b8a3e307fe9e00e7a5fba7cf18ad1ef2c Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Mar 2023 12:31:24 -0700 Subject: [PATCH 04/14] -- mejorar el mensaje del ddlgrupo de subproyecto --- Ventas/RepVentas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index afec7c32d..5fd05be8a 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -135,7 +135,7 @@ Partial Class Ventas_RepVentas DdlGrupo.Items.Insert(2, New ListItem("Año/Mes", "3")) DdlGrupo.Items.Insert(3, New ListItem("Fecha", "4")) DdlGrupo.Items.Insert(4, New ListItem("Cliente", "5")) - DdlGrupo.Items.Insert(4, New ListItem("SubProyecto", "6")) + DdlGrupo.Items.Insert(4, New ListItem(LblSubProyecto.Text, "6")) DdlGrupo.Items.Insert(5, New ListItem("Corte", "16")) DdlGrupo.Items.Insert(6, New ListItem("Vendedor", "7")) DdlGrupo.Items.Insert(7, New ListItem("Usuario", "8")) From 1334502dc743f6192198f5bd334660c56409c152 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Mar 2023 13:15:10 -0700 Subject: [PATCH 05/14] =?UTF-8?q?--acomodo=20de=20lector=20de=20c=C3=B3dig?= =?UTF-8?q?o?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionAlmacen.aspx | 44 ++++++++++++---------------- Inventarios/RecepcionAlmacen.aspx.vb | 2 +- 2 files changed, 20 insertions(+), 26 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx index 35fdb222e..7bdbdd133 100644 --- a/Inventarios/RecepcionAlmacen.aspx +++ b/Inventarios/RecepcionAlmacen.aspx @@ -461,25 +461,12 @@
-
-
-
- -
- -
- - - + -
-
- - - <%-- --%> +
+
- -
+ -
@@ -494,15 +481,22 @@
-
+
- +
+ +
+ +
+ +
+ + - + @@ -513,17 +507,17 @@ - + - + - - + + diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index b1237c243..e9ddbbfe0 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -1478,7 +1478,7 @@ Partial Class Inventarios_RecepcionAlmacen e.Row.FCCheckBox("cbInv").Enabled = True If UsuarioActual.TienePermisoProceso(345) Then 'carga la cantidad con el rol AD - e.Row.FCTextBox("TbCantidadF").Text = e.Row.DBCampo("CantidadF").FormatoNumero + e.Row.FCTextBox("TbCantidadF").Text = e.Row.DBCampo("CantidadF").ToDecimal().ToString("{#,###.##}") End If End If End If From be7d50c7e93699c18fddbf0f00ff211f70a4710b Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Wed, 1 Mar 2023 16:27:20 -0700 Subject: [PATCH 06/14] OC ajuest etiqueta % de IVA en partidas --- App_Code/modExtensiones.vb | 26 ++++++++++++++++++++------ Compras/eFacturas.aspx.vb | 3 ++- CxC/RepCxCDetalle.aspx.vb | 2 +- OC/OC.aspx | 3 ++- 4 files changed, 25 insertions(+), 9 deletions(-) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index ed867167f..c9901fe10 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -2405,21 +2405,35 @@ Namespace Extensiones Dim indexRowGV As Integer = 0 Dim cssClassRow As String = "" + Dim CountRowFiltros As Integer = -1 + If DatosFiltros.Trim.Length > 0 Then + CountRowFiltros = 0 + End If + For indexRow = 8 To worksheet.Rows.Count - 4 Try cssClassRow = GridView.Rows(indexRowGV).CssClass.Trim() Select Case cssClassRow + + Case "Totales" + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#67809f")) + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#ddd") + Exit Select Case "SubTotales2" - worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#c0c0c0")) - worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 - worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#000077") + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#c0c0c0")) + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#000077") + Exit Select Case "SubTotales" - worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#dddddd")) - worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 - worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#67809F") + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#dddddd")) + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#67809F") + Exit Select Case Else + Exit Select End Select Catch ex As Exception diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 8aa6f6ece..6f4633835 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -4276,11 +4276,12 @@ Partial Class Compras_eFacturas Alert($"PDF Error se genero nulo", TipoMensaje.MsgAdvertencia) End If + CargaDatos() + Catch ex As Exception Alert($"PDF Error {ex.Message} -- > {ex.StackTrace}", TipoMensaje.MsgAdvertencia) End Try - Alert("PDF Finaliza", TipoMensaje.MsgAdvertencia) diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index a62db7b56..c598ec10f 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -922,7 +922,7 @@ Partial Class RepCxCDetalle Dim Filtro As String = $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{ClasificacionCli}{CorteA}" - ExportToExcelGembox(GvDatos, "ReporteCxCDetalle", UsuarioActual, "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE", DatoTituloExtra:=$"", DatosFiltros:=Filtro) + GvDatos.ExportToExcelGembox("ReporteCxCDetalle", UsuarioActual, "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE", DatoTituloExtra:=$"", DatosFiltros:=Filtro) 'GvDatos.ExportToExcelG("ReporteCxCDetalle", "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE", UsuarioActual, Filtro) 'SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet()) diff --git a/OC/OC.aspx b/OC/OC.aspx index 4b0f83c28..437fa1ea0 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -1029,7 +1029,8 @@ <%-- 8 --%> - + <%----%> + From cd8d19967ad82d8676355de8545b6de32cb985e0 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 1 Mar 2023 22:50:21 -0700 Subject: [PATCH 07/14] SIG. Carga de inventario dinamica en ventas. solo cuando se utilice --- App_Code/ClsVentas.vb | 2 +- Ventas/Ventas.aspx | 17 ++- Ventas/Ventas.aspx.vb | 276 +++++++++++++++++++++++++++--------------- 3 files changed, 194 insertions(+), 101 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index c64f9bbda..89c998026 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -161,7 +161,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetVenta(CveVenta As Integer, CveEmpresa As Integer, Optional VerificaAlmacen As Boolean = True) As Boolean + Public Function GetVenta(CveVenta As Integer, CveEmpresa As Integer, Optional VerificaAlmacen As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasGet") diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 9df8b7f41..d17da5c8e 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -242,8 +242,8 @@ OnClick="LnkAplicarRNCDevolucion_Click" />
  • - +
    • <%--TERMINA: CANCELAR - NC - DEVOLUCION [NEW]--%> @@ -1675,7 +1675,12 @@     - + + + + Almacen + + <%-- @@ -1719,6 +1724,7 @@ +