nuevo parametro al reporte de oc para la 13 y 83

App_Code/ClsPaginas.vb

@@ -7247,6 +7247,19 @@ Public Class ClsPaginas
                     params.Add(New ReportParameter("Comprador", ObjOC.UsuarioAsignado))
                 End If
 
+                If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                    Dim ObjCuentasBancos As New ClsGenerales()
+                    If ObjCuentasBancos.GetCuentasDepositos(ObjOC.CveProveedor) Then
+                        Dim CuentasActivas As DataTable = ObjCuentasBancos.DtResultados.FiltraParametros("EstatusTexto = 'Activo'")
+                        Dim CuentasStr As New StringBuilder("")
+                        For Each CuentasBancarios As DataRow In CuentasActivas.Rows
+                            Dim infoCuenta As String = String.Format("{0}-{1}-{2}-{3}-{4}", CuentasBancarios.Item("BancoNombre").ToString, CuentasBancarios.Item("Sucursal").ToString, CuentasBancarios.Item("Cuenta").ToString, CuentasBancarios.Item("CLABE").ToString, CuentasBancarios.Item("Referencia").ToString)
+                            CuentasStr.AppendFormat(infoCuenta)
+                        Next
+                        params.Add(New ReportParameter("Cuentas", CuentasStr.ToString))
+                    End If
+                    ObjCuentasBancos.Dispose()
+                End If
                 'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString))
                 Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol)
                 Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={0}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol))