
Line Colors Procedure

PROCEDURE LineColors IS
BEGIN
  if (:LineNo mod 2=0) then
    	srw.set_text_color('blue');
  else 
    srw.set_text_color('black');
  	end if; 
END; 


Line Colors Procedure with fill color of alternating rows as red and blue

PROCEDURE LineColors IS
BEGIN
  if (:LineNo mod 2=0)
   then
     srw.set_foreground_fill_color('blue');
     srw.set_fill_pattern('solid');
  else
   srw.set_foreground_fill_color('red');
   srw.set_fill_pattern('solid');
  end if;
END; 


Format Trigger Code

begin
LineColors;
return (TRUE);
end;

Group Filter Code

function G_WAREHOUSE_ID1GroupFilter return boolean is
begin
  if :quantity_on_hand < :P_maxqty then
     return (TRUE);
  else
  	 return (false);
  end if;
end;