method DeleteComment

Parameters

icDomain	input	character
iiIndex	input	integer
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BMfgComment.MaintainDataForCountry

program code (program1/bmfgcomment.p)

vcFreeForm = 'for each cmt_det where cmt_domain=~'':U + vcMfgDomain + '~' and cmt_indx=':U + string(t_sMfgCommentCountry.ctry_cmtindx).
<M-2 run DataLoad (input  '' (icRowids), 
               input  '' (icPkeys), 
               input  '' (icObjectIds), 
               input  vcFreeForm (icFreeform), 
               input  true (ilKeepPrevious), 
               output viFcReturnSuper (oiReturnStatus)) in BMfgComment>
 if(viFcReturnSuper >= 0) then do:
      for each tcmt_det where cmt_domain=vcMfgDomain and cmt_indx=t_sMfgCommentCountry.ctry_cmtindx:
          tcmt_det.tc_status='D':U.
      end.
 end.
oiReturnStatus = 0.