Code:
              Send Request_Read of oHISTTRAN_DD FIRST_RECORD HISTTRAN.File_Number 5
              While (Found)      
                     Move (HISTTRAN.TOTD   + tData[iRow][1]) to tData[iRow][1]
                     Move (HISTTRAN.PPGD   + tData[iRow][2]) to tData[iRow][2]
                     Move (HISTTRAN.QTYDEL + tData[iRow][3]) to tData[iRow][3]
                Send Locate_Next of oHISTTRAN_DD
              Loop
Does not work.

This is required:

Code:
              Send Request_Read of oHISTTRAN_DD FIRST_RECORD HISTTRAN.File_Number 5              While (Found)      
                     Move (Number(HISTTRAN.TOTD)   + (Number(tData[iRow][1]))) to tData[iRow][1]
                     Move (Number(HISTTRAN.PPGD)   + (Number(tData[iRow][2]))) to tData[iRow][2]
                     Move (Number(HISTTRAN.QTYDEL) + (Number(tData[iRow][3]))) to tData[iRow][3]
                Send Locate_Next of oHISTTRAN_DD
Also one needs to initialize the array cell by moving 0.0 to it before using it in a formula.

Code:
              Move 0.0 to tData[iRow][1]               Move 0.0 to tData[iRow][2]
              Move 0.0 to tData[iRow][3]