****** DEB51.PRG
         else
            if upper(setname) = 'CARE' .and. (mctrl = 'W' .or. (mqci = 'C' .and. mdate = '31/12/9999')) .and. mdisplay $ 'YNWSL
'
               select runtrans
****** F:DEB51.PRG
         else
            if upper(setname) = 'CARE' .and. mctrl = 'W' .and. mdisplay $ 'YNWSL'
               select runtrans
******

****** DEB51.PRG
                  seek mcinvno
                  if mctrl = 'W'
                     replace number with setinvno
                     store setinvno to minvno2
                     store setinvno+1 to setinvno
                  else
                     replace number with setcons
                     store setcons to minvno2
                     store setcons+1 to setinvno
                  endif
                  save all like set*
****** F:DEB51.PRG
                  seek mcinvno
                  replace number with setinvno
                  store setinvno to minvno2
                  store setinvno+1 to setinvno
                  save all like set*
******

****** DEB51.PRG
                  ? replicate('_',112)
                  if mqci # 'C'
                     ? space(50)+'Total Value (nett of GST)'+str(mtotaln,10,2)
                  endif
                  ? savconoff
****** F:DEB51.PRG
                  ? replicate('_',112)
                  ? space(50)+'Total Value (nett of GST)'+str(mtotaln,10,2)
                  ? savconoff
******

****** DEB51.PRG
         else
            if upper(setname) = 'CARE' .and. (mctrl = 'W' .or. (mqci = 'C' .and. mdate = '31/12/9999')) .and. mdisplay $ 'YNW'
*            if upper(setname) = 'CARE' .and. mctrl = 'W' .and. mdisplay $ 'YNW'
               select runtrans
****** F:DEB51.PRG
         else

            if upper(setname) = 'CARE' .and. mctrl = 'W' .and. mdisplay $ 'YNW'
               select runtrans
******


Comparing files DEBDVY.PRG and F:DEBDVY.PRG
****** DEBDVY.PRG
         set relation to str(number,5) into temprun
         copy to &tempf1 for action $ 'IC' .and. a->number # 0 .and. product # 'GST ' .and. product # 'FREIGHT ' .and. upper(re
f) # 'CONSIGNED'
*         sum amount to ma for action $ 'IC' .and. a->number # 0 .and. product # 'GST ' .and. product # 'FREIGHT ' .and. upper(
ref) # 'CONSIGNED'
         use stkmonth
****** F:DEBDVY.PRG
         set relation to str(number,5) into temprun
         copy to &tempf1 for action = 'I' .and. a->number # 0 .and. product # 'GST ' .and. product # 'FREIGHT '
*         sum amount to ma for action = 'I' .and. a->number # 0 .and. product # 'GST ' .and. product # 'FREIGHT '
         use stkmonth
******

****** DEBDVY.PRG
         set relation to str(number,5) into temprun
         copy to &tempf2 for action $ 'IC' .and. a->number # 0 .and. product # 'GST ' .and. product # 'FREIGHT ' .and. upper(re
f) # 'CONSIGNED'
*         sum amount to ma2 for action $ 'IC' .and. a->number # 0 .and. product # 'GST ' .and. product # 'FREIGHT ' .and. upper
(ref) # 'CONSIGNED'
         use &tempf1
****** F:DEBDVY.PRG
         set relation to str(number,5) into temprun
         copy to &tempf2 for action = 'I' .and. a->number # 0 .and. product # 'GST ' .and. product # 'FREIGHT '
*         sum amount to ma2 for action = 'I' .and. a->number # 0 .and. product # 'GST ' .and. product # 'FREIGHT '
         use &tempf1
******

****** DEBDVY.PRG
   store 'Y' to mfound
   store iif(status='C','C','I')+mkey to minkey
   select runtrans
****** F:DEBDVY.PRG
   store 'Y' to mfound
   store 'I'+mkey to minkey
   select runtrans
******


