From 4fcbc0b6c3112282d49c6efc375685c20baf3bab Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 30 Jan 2025 11:59:35 -0700 Subject: [PATCH] 6 Rep Remisiones ajustes --- App_Code/ClsPaginas.vb | 4 ++++ Empresas/189/Formatos/OC.rdlc | 8 +++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 7b51ad4dd..b29275701 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -8019,6 +8019,10 @@ Public Class ClsPaginas params.Add(New ReportParameter("Comprador", ObjOC.UsuarioAsignado)) End If + If UsuarioActual.CveEmpresa.Contiene(189) Then + params.Add(New ReportParameter("DiasCreditoOC", dtOC(0)("DiasCreditoOC").ToString)) + End If + If UsuarioActual.CveEmpresa.Contiene(13, 83) Then 'Dim ObjCuentasBancos As New ClsGenerales() 'If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=ObjOC.CveProveedor) Then diff --git a/Empresas/189/Formatos/OC.rdlc b/Empresas/189/Formatos/OC.rdlc index 17d77e4e4..ff2f78372 100644 --- a/Empresas/189/Formatos/OC.rdlc +++ b/Empresas/189/Formatos/OC.rdlc @@ -1829,7 +1829,7 @@ - =Parameters!PlazoPago.Value + =Parameters!DiasCreditoOC.Value