diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 57b8483c9..e5cd3194c 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -443,7 +443,7 @@ Public Class ClsContPAQi End If ' no puede ser menor el subtotal al IVA, para evitar numeros negativos, excepto VSH - If Not CveEmpresa.Contiene(4, 7, 11, 12, 122) Then + If Not CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then If Math.Abs(SubTotal) < Math.Abs(IVA) Then Return False End If diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb index cd955ec5c..126a82d29 100644 --- a/Compras/RepNotasCredito.aspx.vb +++ b/Compras/RepNotasCredito.aspx.vb @@ -169,7 +169,7 @@ Partial Class Compras_RepNotasCredito MsgError = "Ocurrio un Error al saldar el movimiento" End If - If TC <> TCCompra AndAlso CveMoneda > 1 AndAlso UsaComplementaria Then + If TC <> TCCompra AndAlso CveMoneda > 1 Then Dim difFluctuacion As Decimal = TC - TCCompra Dim CveConceptoFluctua As Integer = 64 '64.ganacia, 65.perdida Dim TipoMovtoFluctua As Boolean = True diff --git a/Empresas/Grales/Formatos/Ajuste.rdlc b/Empresas/Grales/Formatos/Ajuste.rdlc index 15c7410b4..8ffdfc413 100644 --- a/Empresas/Grales/Formatos/Ajuste.rdlc +++ b/Empresas/Grales/Formatos/Ajuste.rdlc @@ -419,7 +419,7 @@ - =Year(Parameters!Fecha.Value) + =Year(Parameters!FechaInst.Value) @@ -463,7 +463,7 @@ - =Day(Parameters!Fecha.Value) + =Day(Parameters!FechaInst.Value) @@ -502,7 +502,7 @@ - = MonthName(Month(Parameters!Fecha.Value)) + = MonthName(Month(Parameters!FechaInst.Value)) @@ -577,7 +577,11 @@ - Año: + Año: + + + + = Year(Parameters!Fecha.Value) @@ -617,7 +621,11 @@ - Día: + Día: + + + + =Day(Parameters!Fecha.Value) @@ -652,7 +660,11 @@ - Mes: + Mes: + + + + = MonthName(Month(Parameters!Fecha.Value)) @@ -1725,6 +1737,40 @@ 2pt + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox46 + 5.70014in + 0.70708in + 0.25in + 3.03125in + 46 + + + 2pt + 2pt + 2pt + 2pt + + 6.57167in @@ -1769,7 +1815,7 @@ true ReportParameter1 - + DateTime true ReportParameter1 @@ -1816,7 +1862,13 @@ true ReportParameter1 + + DateTime + true + ReportParameter1 + + Es-MX Inch 32a58a02-ed5a-499c-85e0-a4eefc333287 \ No newline at end of file diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 4c2765223..1656bb36f 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2821,7 +2821,9 @@ - <%----%> + + + <%----% <%----%> Cod.Ensamble: @@ -2868,6 +2870,7 @@ + <%----%> <%----%> Cod. Inspección: diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 19b37d41b..01b9213d0 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -5670,7 +5670,8 @@ Partial Class PV params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text))) 'Informacion de Garantia o ajuste - params.Add(New ReportParameter("Fecha", TxtFechaAjuste.Text.Trim)) + params.Add(New ReportParameter("FechaInst", TxtFechaAjuste.Text.Trim)) + params.Add(New ReportParameter("Fecha", Now.ToShortDateString)) params.Add(New ReportParameter("Defecto", If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text))) params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text.Trim)) params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.Text.Trim))