diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 1314f0721..c71570431 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -1675,7 +1675,7 @@ Public Class ClsOC CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveActivoFijo As Integer = -1, Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1, Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveMoneda As Integer = -1, - Optional MetodoPago As Integer = -1, Optional Serie As String = "-1") As Boolean + Optional MetodoPago As Integer = -1, Optional Serie As String = "-1", Optional TieneAnticipo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraRep") @@ -1707,6 +1707,7 @@ Public Class ClsOC .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@TieneAnticipo", SqlDbType.Int).Value = TieneAnticipo End With diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index e1f8ef44c..8d05fb8a3 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4253,7 +4253,18 @@ Partial Class Compras_Compras '------------------ INICIA VALIDACIONES ------------------ - If Not ValidaPresupuesto(2) Then + If UsuarioActual.CveEmpresa.Contiene(13, 83) Then + + + Dim AnioFactura As Integer = TxtFecha.Text.ToDate.Year + Dim Fecha28Dic As Date = New Date(2024, 12, 28) + If NowADS() >= Fecha28Dic Then + Alert("A partir del 28 de diciembre de 2024 no se pueden registrar facturas de 2024.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + + If Not ValidaPresupuesto(2) Then Exit Sub End If diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 31b9be8c5..ea00e848c 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3058,7 +3058,7 @@ Partial Class PopUpVerFactura If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL" 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH - If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193) Then + If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189) Then params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", ConceptoFormato)) params.Add(New ReportParameter("Almacen", Almacen)) @@ -3080,7 +3080,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Observaciones", Observaciones)) - If UsuarioActual.CveEmpresa.Contiene(186) Then + If UsuarioActual.CveEmpresa.Contiene(186, 189, 193) Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) End If diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index c95928cab..8ce9fe9ff 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -408,7 +408,7 @@
- diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 85d60f4d8..7e5c2cd3a 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -24,10 +24,8 @@ Imports ADS.eFacturas Imports SharpCompress.Archive.Rar Imports SharpCompress.Common Imports SharpCompress.Reader -Imports System.Drawing -Imports Microsoft.Owin.Security.Provider Imports Telerik.Web.UI -Imports Stimulsoft.Base.StiDbType + 'Imports Telerik.Web.UI @@ -1121,9 +1119,18 @@ Partial Class Compras_eFacturas If Not e.Row.DataKey("CveProveedor").ToEntero > 0 Then - e.Row.FCCheckBox("chkRegistraFactura").Visible = False + End If + If UsuarioActual.CveEmpresa.Contiene(13, 83) Then + + Dim FechaFactura As Date = e.Row.DataKey("FechaFactura").ToDate + Dim AnioFactura As Integer = FechaFactura.Year + + Dim Fecha28Dic As Date = New Date(2024, 12, 28) + If NowADS() >= Fecha28Dic Then + e.Row.FCHyperLink("HplAgregar").Visible = False + End If End If End If diff --git a/Empresas/189/Formatos/Entradas.rdlc b/Empresas/189/Formatos/Entradas.rdlc index 641d5e05f..8e71cbee5 100644 --- a/Empresas/189/Formatos/Entradas.rdlc +++ b/Empresas/189/Formatos/Entradas.rdlc @@ -994,21 +994,6 @@ 2pt - - Embedded - Logo - FitProportional - 0.16887cm - 0.0579in - 0.91907in - 1.74231in - 1 - - - - true true @@ -1136,7 +1121,7 @@ 0.18166cm 2.14341cm 10.47411cm - 2 + 1 =Parameters!CveTipoAlmacen.Value="19" @@ -1259,7 +1244,7 @@ 4.57254cm 1.86797cm 14.64707cm - 3 + 2 @@ -1270,6 +1255,21 @@ 2pt + + Embedded + Logo2 + FitProportional + 0.20415cm + 0.05091in + 0.91907in + 1.74231in + 3 + + + + - 2.45738cm + 2.58967cm true true @@ -1350,7 +1350,7 @@ 1.22061cm 1.49125cm 0.44125cm - 5.21516cm + 6.09106cm 2 @@ -1226,7 +1227,7 @@ OCIndicadorEdit Fit 23.16373cm - 2.70849cm + 2.1091cm 10.24265cm 3 @@ -1309,10 +1310,6 @@ - 2pt - 2pt - 2pt - 2pt @@ -1348,10 +1345,6 @@ - 2pt - 2pt - 2pt - 2pt @@ -1387,10 +1380,6 @@ - 2pt - 2pt - 2pt - 2pt @@ -1426,10 +1415,6 @@ - 2pt - 2pt - 2pt - 2pt @@ -1440,7 +1425,7 @@ Cantidad - 2pt - 2pt - 2pt - 2pt @@ -1479,7 +1460,7 @@ Total @@ -1493,7 +1474,7 @@ Textbox29 0.75cm 28.64175cm - 0.4cm + 0.35271cm 4.3566cm 10 @@ -1503,10 +1484,6 @@ - 2pt - 2pt - 2pt - 2pt @@ -1517,7 +1494,7 @@ Pesos @@ -1531,17 +1508,13 @@ Textbox29 1.50271cm 25.09362cm - 0.4cm + 0.3cm 3.33647cm 11 - 2pt - 2pt - 2pt - 2pt @@ -1552,7 +1525,7 @@ Dolares @@ -1566,7 +1539,7 @@ Textbox29 1.50271cm 28.60648cm - 0.4cm + 0.3cm 4.39187cm 12 @@ -1576,10 +1549,6 @@ - 2pt - 2pt - 2pt - 2pt diff --git a/Empresas/Grales/Formatos/Traslado.rdlc b/Empresas/Grales/Formatos/Traslado.rdlc index 891ee3351..2c51a13d9 100644 --- a/Empresas/Grales/Formatos/Traslado.rdlc +++ b/Empresas/Grales/Formatos/Traslado.rdlc @@ -75,13 +75,13 @@ 1.09771cm - 3.27787cm + 2.48746cm - 1.5514cm + 2.35965cm - 10.76955cm + 10.68821cm 1.41521cm @@ -105,6 +105,7 @@ Cant. @@ -145,8 +146,9 @@ - Código + U.M. @@ -187,8 +189,9 @@ - U.M. + Código @@ -231,6 +234,7 @@ Descripción @@ -273,6 +277,7 @@ Costo @@ -315,6 +320,7 @@ Valor @@ -362,7 +368,8 @@ =Fields!Cantidad.Value @@ -395,9 +402,10 @@ - =Fields!Codigo.Value + =Fields!UnidadMedida.Value @@ -428,9 +436,17 @@ - =Fields!UnidadMedida.Value + + + + =Fields!Codigo.Value + @@ -464,7 +480,8 @@ =Fields!PS.Value @@ -497,7 +514,8 @@ =Fields!PU.Value @@ -531,7 +549,8 @@ =Fields!Total.Value @@ -552,7 +571,6 @@ =IIf(rownumber(nothing) = 1, "2pt", "0pt") - true @@ -571,7 +589,8 @@ =Sum(Fields!Cantidad.Value) @@ -607,7 +626,8 @@ Total Productos @@ -641,7 +661,7 @@ @@ -674,7 +694,7 @@ @@ -707,7 +727,7 @@ @@ -741,7 +761,7 @@ @@ -798,7 +818,7 @@ 0.07056cm 0.00711cm 1.17559cm - 19.56807cm + 19.50457cm @@ -809,10 +829,10 @@ 0.68252in @@ -835,9 +856,9 @@ Textbox2 0.03803cm - 4.37423cm + 4.42715cm 2.04667cm - 12.32941cm + 11.72087cm @@ -857,6 +878,8 @@ =Parameters!Fecha.Value @@ -867,8 +890,8 @@ Textbox4 - 4.48094cm - 17.3888cm + 3.24568cm + 17.73805cm 0.6cm 1.76305cm 1 @@ -889,6 +912,7 @@ Fecha: @@ -899,8 +923,8 @@ Textbox5 - 4.48092cm - 16.27404cm + 3.24566cm + 16.62329cm 0.6cm 1.11476cm 2 @@ -921,6 +945,7 @@ =Parameters!Folio.Value @@ -930,10 +955,10 @@ Textbox4 - 0.63803cm - 16.88003cm + 0.03803cm + 17.54343cm 0.6cm - 2.27182cm + 1.96825cm 3 @@ -1016,6 +1044,7 @@ =Parameters!SubProyecto.Value @@ -1040,86 +1069,6 @@ 2pt - - true - true - - - - - Origen: - - - - =Parameters!Origen.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Destino: - - - - =Parameters!Destino.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - External =Parameters!LogoPath.Value @@ -1128,7 +1077,7 @@ 0.1121cm 2.53711cm 4.08574cm - 9 + 7 @@ -1143,7 +1092,7 @@ - 6.45758cm + 6.19829cm true true @@ -1155,7 +1104,10 @@ =Parameters!NombreEntrego.Value - @@ -1416,7 +1381,7 @@ Textbox22 1.41167cm - 2.54795cm + 0.64295cm 0.6cm 5.78664cm 8 @@ -1442,6 +1407,8 @@ =Parameters!Accion.Value @@ -1453,7 +1420,7 @@ Textbox22 1.37639cm - 11.26191cm + 13.16691cm 0.6cm 5.78664cm 9 @@ -1477,8 +1444,11 @@ - =IIF(Parameters!NombreAccion.Value=-1,"",Parameters!NombreAccion.Value) - @@ -1571,7 +1547,7 @@ Textbox22 1.37583cm - 6.89741cm + 6.96091cm 0.6cm 5.78664cm 12 @@ -1613,8 +1589,8 @@ Textbox29 - 5.90548cm - 0.00711cm + 5.77848cm + 0.06076cm 0.41981cm 5.78083cm 13 @@ -1635,28 +1611,23 @@ - Fecha Impresión: - - - - =Parameters!FechaImpresion.Value + = "Fecha Impresión: " & Format(Globals!ExecutionTime, "dd/MM/yyyy HH:mm:ss") - Textbox31 - 5.90548cm - 7.42772cm + 5.75203cm + 5.9827cm 0.41981cm - 6.04844cm + 8.76488cm 14