From e87ec999b3856ba9cf500e0177ebab9f7e9f85d0 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 29 Nov 2024 07:11:16 -0700 Subject: [PATCH 01/17] =?UTF-8?q?--=20visualizaci=C3=B3n=20de=20cantidad?= =?UTF-8?q?=20solicitdada=20y=20recibida?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/TrasladoSolicitud.aspx | 13 +++++++------ Inventarios/TrasladoSolicitud.aspx.vb | 2 +- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index de1de47b9..8966a44b3 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -108,24 +108,25 @@ + DataKeyNames="CveTraspasoSolicitud,Folio,Fecha,CveUsuario,CveAlmacenOrigen,CveAlmacenDestino,CveTrasladoEstatus,PermisoOrigen,PermisoDestino,TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre,CveMovimientoAlmacen,FolioMovimiento,CveMovimientoTransitorio,CveAlmacenTransitorio,CveMovientoEntrada,CveMovimientoRelacionado" > - - + + - + - + + Target="_blank" HeaderText="Movimiento" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Center" DataTextField="FolioMovimiento" /> + <%--
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index 9d284a14f..1a2450b4c 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -758,7 +758,7 @@ Partial Class Inventarios_TrasladoSolicitud Dim CveMovimientoTransitorio As Integer = e.Row.DataKey("CveMovimientoTransitorio").ToEntero Dim CveAlmacenTransitorio As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero - Dim CveMomientoEntrada As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero ' Este es el movmiento de recepcion de traspaso + 'Dim CveMovimientoEntrada As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero ' Este es el movmiento de recepcion de traspaso e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = True From bb293cdeffc33c78cdf999acb73dc23d55ef7ff0 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 29 Nov 2024 07:11:28 -0700 Subject: [PATCH 02/17] -- parametro empresa --- Proveedores/PortalProveedor.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Proveedores/PortalProveedor.aspx.vb b/Proveedores/PortalProveedor.aspx.vb index 48f866941..f38214abf 100644 --- a/Proveedores/PortalProveedor.aspx.vb +++ b/Proveedores/PortalProveedor.aspx.vb @@ -124,7 +124,7 @@ Partial Class Portal_PortalProveedor #Region "C A R G A - D A T O S" Protected Sub CargaDatos() - GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimero($"CveProveedor = {CveProveedor}") + Dim ObjProveedor As New ClsCompProveedores() If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", 1, UsuarioActual.CveEmpresa) Then If ObjProveedor.DtResultados.Rows.Count > 0 Then @@ -259,7 +259,7 @@ Partial Class Portal_PortalProveedor Private Sub CargaBancos(SerieSucursal As String, SelectTop As Integer) Dim ObjMovtos As New ClsMovimientos() 'CxC Activas - If ObjMovtos.GetProveedorBancos(CveProveedor, CveProveedorSucursal:=-1, SelectTop:=SelectTop) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then + If ObjMovtos.GetProveedorBancos(CveProveedor, UsuarioActual.CveEmpresa, CveProveedorSucursal:=-1, SelectTop:=SelectTop) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then GvBancos.DataSource = ObjMovtos.DtResultados BtnVerMasBancos.Visible = ObjMovtos.DtResultados.Rows.Count > 19 DtBancos = ObjMovtos.DtResultados From 6d0ee4bcb8a1db061bdc04888e536a9aa09a09b3 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 29 Nov 2024 18:25:20 -0700 Subject: [PATCH 03/17] 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--%> -