hongji.li
2023-11-07 1a1ba3ad5ed9e4380185aa1ccad20204a0e5f115
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Quintiq file version 2.0
#parent: #root
Method PTF_SetSharedRepositoryExistStatus () id:Method_LibPTF_pnlTestController_PTF_SetSharedRepositoryExistStatus
{
  #keys: '[104342.0.755841202]'
  Body:
  [*
    // Checks if the shared repository path specified has the required subfolders
    sharedrepo := edtSharedRepository.Text().TrimBoth();
    
    if( sharedrepo.Length() > 0
        and sharedrepo.RestString( sharedrepo.Length() - 1 ) <> "\" )
    {
      sharedrepo := sharedrepo + "\";
    }
    
    vhSharedRepositoryExist.Value( [String]( OS::IsDirectory( sharedrepo + "Installation" )
                                            and OS::IsDirectory( sharedrepo + "Logs" )
                                            and OS::IsDirectory( sharedrepo + "Scripts") )
                                          );
  *]
}