6 Rep Remisiones ajustes

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

Empresas/189/Formatos/OC.rdlc

@@ -1829,7 +1829,7 @@
                       </Style>
                     </TextRun>
                     <TextRun>
-                      <Value>=Parameters!PlazoPago.Value</Value>
+                      <Value>=Parameters!DiasCreditoOC.Value</Value>
                       <Style>
                         <FontFamily>calibri</FontFamily>
                         <FontSize>9pt</FontSize>
@@ -2860,6 +2860,12 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="DiasCreditoOC">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo">