コード例 #1
0
logical sODC_Project :: GetProjectPath ( )
{
  PropertyHandle   *ph   = GetPropertyHandle();
  NString           nstring;
  logical           term = NO;
BEGINSEQ
  SetResult("");   
  
  if ( !ph->IsSelected() )                           ERROR
  if ( !ph->IsPositioned() )
    if ( !ph->Get().GetData() )                      ERROR

  pc_ODC_Project    project_pc(ph);
  SetResult(project_pc.GetProjectPath(nstring,Parm(1)));
RECOVER
  term = YES;
ENDSEQ
  return(term);
}
コード例 #2
0
int8 cLanguageDependend :: DoBeforeFillData ( )
{
  CTX_Control     *ctx_lang = GetControlContext("language");
  PropertyHandle  *prophdl  = GetPropertyHandle();
  char             language[33];
BEGINSEQ
  if ( !ctx_lang )                                   LEAVESEQ
  
//  if ( prophdl->Exist() )
  if ( prophdl->IsSelected() )
    strcpy(language,prophdl->GPH("language")->GetString());
  else
    strcpy(language,"undefined");  
    
  ctx_lang->SearchKey(language);

ENDSEQ
  return(NO);
}
コード例 #3
0
logical sODC_Project :: InitializeExternalResources ( )
{
  PropertyHandle   *ph         = GetPropertyHandle();
  char             *folder_opt = Parm(1);
  NString           nstring;
  logical           term       = NO;
BEGINSEQ
  if ( !ph->IsServer() )                             LEAVESEQ

  SetResult("");

  if ( !ph->IsSelected() )                           ERROR
  if ( !ph->IsPositioned() )
    if ( !ph->Get().GetData() )                      ERROR
    
  pc_ODC_Project    project_pc(ph);
  project_pc.InitializeExternalResources(&nstring,folder_opt && *folder_opt == 'Y' ? YES : NO);
  SetResult(nstring);

RECOVER
  term = YES;
ENDSEQ
  return(term);
}