From 6fae25ffbad80c263d16478b34d88543e60b9f77 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 29 Nov 2024 17:50:59 -0700 Subject: [PATCH 1/5] --FIX generacion de nc por pronto pago --- Ventas/ClientesAbonar.aspx.vb | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index a28a9f9f2..88ed5969c 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -1529,7 +1529,11 @@ Partial Class Ventas_ClientesAbonar ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion, ListaVentasGenerarNC) Try - Dim Resp As Modelos.Factura.MMensajeFactura = ObjFacturaDevolucion.EmitirFactura(False, Transac:=SqlTransaccion) + If ListaVentasGenerarNC.Count > 0 Then + ObjFacturaDevolucion.Observaciones = String.Format("Descuento por pronto pago. Factura: {0}", ListaVentasGenerarNC(0).SerieFolio) + End If + + Dim Resp As Modelos.Factura.MMensajeFactura = ObjFacturaDevolucion.EmitirFactura(False, Transac:=SqlTransaccion, Modulo:="Clientes/Abonar") Retorno.Respuesta = Resp Catch ex As Exception OnError("Ocurrió un error al guardar la NC de pronto pago", ex) @@ -2819,8 +2823,8 @@ Partial Class Ventas_ClientesAbonar UpDatos.Update() Else - If SBPagoMAyorASaldo.ToString.Length > 0 Then - Alert($"Facturas con pagos mayores a saldo:
{SBPagoMAyorASaldo.ToString}", TipoMensaje.MsgAdvertencia) + If SBPagoMayorASaldo.ToString.Length > 0 Then + Alert($"Facturas con pagos mayores a saldo:
{SBPagoMayorASaldo.ToString}", TipoMensaje.MsgAdvertencia) End If End If From 6d0ee4bcb8a1db061bdc04888e536a9aa09a09b3 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 29 Nov 2024 18:25:20 -0700 Subject: [PATCH 2/5] CatRutas Remaquetado, Rep Conrtatos detalles, RecepcionAalmacenes correcicion redondeo Importe MN Concepto 229 --- Empresas/Grales/Formatos/Salida.rdlc | 37 +- Inventarios/RecepcionAlmacen.aspx.vb | 26 +- Transportes/CatRutas.aspx | 381 +++++++++------------ Transportes/CatRutas.aspx.vb | 6 +- Transportes/RepContratoDetalle.aspx.vb | 2 +- Transportes/RepContratosCalendario.aspx.vb | 32 ++ Ventas/ActualizarPrecios.aspx.vb | 8 +- 7 files changed, 247 insertions(+), 245 deletions(-) diff --git a/Empresas/Grales/Formatos/Salida.rdlc b/Empresas/Grales/Formatos/Salida.rdlc index b657e998b..eb306ae32 100644 --- a/Empresas/Grales/Formatos/Salida.rdlc +++ b/Empresas/Grales/Formatos/Salida.rdlc @@ -364,7 +364,6 @@ =IIf(RowNumber(Nothing)=1,"1pt","0pt") - true @@ -563,7 +562,7 @@ 0.78472in - Textbox4 - 3.09701cm - 13.28924cm + 3.25576cm + 12.01924cm 0.59999cm 1.80326cm 9 @@ -900,10 +901,10 @@ Textbox6 - 2.34505cm - 15.0925cm - 0.6cm - 5.9022cm + 2.40855cm + 13.8225cm + 0.53649cm + 7.8072cm 10 - Textbox3 2.34505cm - 13.28924cm + 12.01924cm 0.59999cm 1.80326cm 12 diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 5326a077e..854da5a4d 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -3408,12 +3408,17 @@ Partial Class Inventarios_RecepcionAlmacen For Each Dr As DataRow In DtCostos.Rows TotalCostoDetalle = (Dr("Total").ToString.ToDecimal) TotalCostoExtranjero = Dr("TotalExtranjero").ToString.ToDecimal - TotalCostoAcumulado += TotalCostoDetalle.RoundSQL + TotalCostoAcumulado += TotalCostoDetalle 'si es el último movimiento verifica los importes que sean igual - If cont = DtCostos.Rows.Count AndAlso (TotalCosto.RoundSQL <> TotalCostoAcumulado.RoundSQL) Then - TotalCostoDetalle = TotalCostoDetalle + (TotalCosto.RoundSQL(3) - TotalCostoAcumulado.RoundSQL(3)) - TotalCostoExtranjero = TotalCostoExtranjero + (TotalCosto.RoundSQL(3) - TotalCostoAcumulado.RoundSQL(3)) + If cont = DtCostos.Rows.Count Then + + TotalCostoAcumulado = TotalCostoAcumulado.RoundSQL + + If TotalCosto.RoundSQL <> TotalCostoAcumulado.RoundSQL Then + TotalCostoDetalle = TotalCostoDetalle + (TotalCosto.RoundSQL(3) - TotalCostoAcumulado.RoundSQL(3)) + TotalCostoExtranjero = TotalCostoExtranjero + (TotalCosto.RoundSQL(3) - TotalCostoAcumulado.RoundSQL(3)) + End If End If If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then @@ -3730,12 +3735,17 @@ Partial Class Inventarios_RecepcionAlmacen Msg.Append(MensajeContabilidad) Alert(Msg.ToString, TipoMensaje.MsgInformacion) - If ObjInventario.RecepcionAlmacenGet(CveCompraSurtir, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then - CreaDTInv(ObjInventario.DtResultados) - CargaGVInv() - BtnGuardar.Visible = True + If CveCompraSurtir > 0 Then + If ObjInventario.RecepcionAlmacenGet(CveCompraSurtir, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + CreaDTInv(ObjInventario.DtResultados) + CargaGVInv() + BtnGuardar.Visible = True + End If End If + + Limpia() + Else ObjInventario.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() diff --git a/Transportes/CatRutas.aspx b/Transportes/CatRutas.aspx index 98263e62e..b0ebd7c68 100644 --- a/Transportes/CatRutas.aspx +++ b/Transportes/CatRutas.aspx @@ -10,9 +10,7 @@ margin-block: 1rem; } - .my-1 { - margin-block: 1rem; - } + @@ -48,20 +46,12 @@ <%--Destinos Tab--%> - -
-
-
-
- - -
-
+
-
-
+ +
" style="display: inline-block; margin-right: -10px; width: 150px;" /> " @@ -90,7 +80,7 @@ - + @@ -117,12 +107,10 @@ <%--Importes Tab--%> -