return values of occurrences

Author: dylan.huart@gmail.com (Dylan)

Good afternoon, I try to return different values of my database, Thus :   in data base : num_folder : 001 001 002 003 name_pdf :   pdf1 pdf2 pdf3 pdf4   the folder 001 contain pdf1 and pdf2 the folder 002 contain pdf3 and the folder 003 contain pdf4   Thus I try to return e.g. the pdf of the folder 001         clear/e "entity_of_pdf"         NUM_FOLDER.entity_of_pdf/init = NUM_FOLDER         NAME_PDF.entity_of_pdf/init = NAME_PDF         retrieve/e "entity_of_pdf"             $occ_num$ = 1 While ($occ_num$ > $curocc(NUM_FOLDER.entity_of_pdf))    setocc "CINOMPJ", $occ_num$      if($status <0)            $occ_num$ = -1     EndIf         if($occ_num$ != -1)     Putitem $lst_pdf$,-1,NAME_PDF.entity_of_pdf    $occ_num$ = $occ_num$ + 1     EndIf EndWhile But $occ_num$ is always more big than $curocc(NUM_FOLDER.entity_of_pdf) idea ? Confused

4 Comments

  1. Great ! Many Thanks


    Author: Dylan (dylan.huart@gmail.com)
  2. Hi Dylan, There is a simpler way of doing this. The statement putlistitems can fill a list with all values of a certain field from all occurrences:   clear/e "entity_of_pdf" NUM_FOLDER.entity_of_pdf/init = NUM_FOLDER NAME_PDF.entity_of_pdf/init = NAME_PDF retrieve/e "entity_of_pdf" putlistitems/id $lst_pdf$, NAME_PDF.entity_of_pdf   Good luck, Theo


    Author: Theo Neeskens (tneeskens@itblockz.nl)
  3. Hi Theo and Thank you for your response ! I dont know use in totality Uniface, and putlistitems is very easy to use ! many Thanks ! In my list of pdf there is the sign "=" : $lst_pdf$ = "test2.pdf=·;test3.pdf=" It's normal ?   Thanks, Dylan


    Author: Dylan (dylan.huart@gmail.com)
  4. That happens when I do not test my own advice... I did not want that = sign in the list. Please change into: putlistitems $lst_pdf$, NAME_PDF.entity_of_pdf So just remove the /id option


    Author: Theo Neeskens (tneeskens@itblockz.nl)