project QadFinancials > class BDomain > method ValidateDuplicatePath

function returns logical

Description

Validates the propath for any duplicate entries of the same directory

Parameters


icPathinputcharacter

Internal usage


QadFinancials
method BDomain.ValidateComponent

program code (program1/bdomain.p)

do viCount1 = 1 to num-entries(icPath) :

      FILE-INFO:FILE-NAME = entry(viCount1, icPath).

      do viCount2 = viCount1 to num-entries(icpath):
      
         /* We want to skip the same entry */ 
         if viCount2 = viCount1 then next. 

         if entry(viCount1,icPath) = entry(viCount2,icPath) then
             return false.
         
      end. 
      
   end. 
   
   return true.