From 6d0ee4bcb8a1db061bdc04888e536a9aa09a09b3 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 29 Nov 2024 18:25:20 -0700 Subject: [PATCH] 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--%> -
+ +
- -
- + - + +
<%-- Ruta --%> -
- -
- - - - -
+ +
+ + + + +
-
- -
- - - - - - - - -
-
+
+ + + + + + + + + + +
+ <%-- Destino --%> -
- -
- - - - -
-
- -
- -
- - - - - - - - -
-
- -
- -
- - - - - - - - -
-
- - -
- -
- - <%-- - - --%> -
+
+ + + + + +
+ +
+ + + + + + + + + + +
+ +
+ + + + + + + + + + +
+ +
+ + + + + + +
+ +
+ + +
+ + <%--
+ + +
--%> + + + + + + <%-- Importes --%> -
- -
- - - - - +
+ + + + + +
+ +
+ + + + + +
+ +
+ + + + + +
+ + + +
+
+
+ + + + +
+
+
+
+ + + + +
+
+
+
+ + + +
-
- -
- -
- - - - -
-
- -
- - - - - -
-
+ -
- -
- - - - -
-
+ -
- -
- - - - -
-
- - -
- -
- - - - -
-
diff --git a/Transportes/CatRutas.aspx.vb b/Transportes/CatRutas.aspx.vb index 9f2409264..f82ace18d 100644 --- a/Transportes/CatRutas.aspx.vb +++ b/Transportes/CatRutas.aspx.vb @@ -132,9 +132,9 @@ Partial Class CatRutas DdlRutas.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) DdlOrigen.SelectedValueExist(GvRow.DataKey("CveDestinoOrigen")) DdlFinal.SelectedValueExist(GvRow.DataKey("CveDestinoFinal")) - TxtImporte.Text = GvRow.DataKey("Importe") - TxtImporteNov.Text = GvRow.DataKey("ImporteNov") - TxtImporteDic.Text = GvRow.DataKey("ImporteDic") + TxtImporte.Text = GvRow.DataKey("Importe").ToDecimal.ToString("###,###,###.00") + TxtImporteNov.Text = GvRow.DataKey("ImporteNov").ToDecimal.ToString("###,###,###.00") + TxtImporteDic.Text = GvRow.DataKey("ImporteDic").ToDecimal.ToString("###,###,###.00") PnImporte.Visible = True BtnAddImporte.Visible = True BtnAddImporte.Text = "Editar" diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index fac5e7782..ed57c2205 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -315,7 +315,7 @@ Partial Class RepContratoDetalle DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1")) For i As Integer = DdlVendedor.Items.Count - 1 To 0 Step -1 - If DdlVendedor.Items(i).Text = "Sin Asignar" Then + If DdlVendedor.Items(i).Text = "Sin asignar" Or DdlVendedor.Items(i).Value = "0" Then DdlVendedor.Items.RemoveAt(i) End If Next diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index b332f97dc..431afcfd1 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -609,6 +609,23 @@ Partial Class RepContratosCalendario DdlTipoAF.SelectedValueExist(DRow("CveTipoAF").ToString) DdlTipoAF_SelectedIndexChanged(Nothing, Nothing) + + If DRow("CveAF").ToString.ToEntero > 0 Then + Dim ExisteItem As Boolean = False + For Each item As ListItem In DdlAF.Items + If item.Value = DRow("CveAF").ToString Then + ExisteItem = True + Exit For + End If + Next + + If Not ExisteItem Then + Dim TmpItemText As String = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CodDesc", $" EstadoActivoFijo= 'Activo' AND CveActivoFijo = {DRow("CveAF").ToString}") + DdlAF.Items.Add(New ListItem(TmpItemText, $"{DRow("CveAF").ToString}")) + End If + End If + + DdlAF.SelectedValueExist(DRow("CveAF").ToString) HidCveAF.Value = "-1" @@ -741,6 +758,21 @@ Partial Class RepContratosCalendario DdlTipoAF.SelectedValueExist(GvRow.DataKey("CveTipoAF")) DdlTipoAF_SelectedIndexChanged(Nothing, Nothing) + If GvRow.DataKey("CveAF").ToEntero > 0 Then + Dim ExisteItem As Boolean = False + For Each item As ListItem In DdlAF.Items + If item.Value = GvRow.DataKey("CveAF") Then + ExisteItem = True + Exit For + End If + Next + + If Not ExisteItem Then + Dim TmpItemText As String = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CodDesc", $" EstadoActivoFijo= 'Activo' AND CveActivoFijo = {GvRow.DataKey("CveAF")}") + DdlAF.Items.Add(New ListItem(TmpItemText, $"{GvRow.DataKey("CveAF")}")) + End If + End If + DdlAF.SelectedValueExist(GvRow.DataKey("CveAF")) HidCveAF.Value = "-1" diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index f333636f3..ec5373adf 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -493,14 +493,16 @@ Partial Class Ventas_ActualizarPrecios DtExcel.Columns("PS").ColumnName = "Producto / Servicio" DtExcel.Columns("NumeroParte").ColumnName = "Número de parte" - If UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'Empresa Acumuladores + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Or UsuarioActual.Empresa.Funcionalidad(531) = "1" Or UsuarioActual.Empresa.Funcionalidad(382) = "1" Then ' If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DtExcel.Columns("Número de parte").ColumnName = "Código CPK" End If Else DtExcel.Columns.Remove("Número de parte") - End If - + End If + + + SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) Dim FileExcel As New ExcelFile()