20050521_ERP_NOTE

shysnake

1.Q1:----&p_whare understand.
function AfterPForm return boolean is
begin
  if   nvl(:p_trace,'x') = 'Y'  then
       SRW.DO_SQL('ALTER SESSION SET SQL_TRACE = TRUE');
  end if;
  SELECT  ORGANIZATION_CODE
    INTO  :P_ORG_CODE
   FROM   MTL_PARAMETERS
   WHERE  ORGANIZATION_ID  = :P_ORG_ID ;
------------
  if   (:p_type  'NOR') and (:p_type  'COPY') then
       srw.message(1, 'type not in NOR/COPY');
       return(false);      
  end if;
------------------------------------------------------------------------------
  if   :p_type = 'NOR'  then  ---------タ盽锣郎
       :p_where := ' AND   1 = 1 ' ;
  ELSE      
-------------------------------------------------
      IF   :P_VERSION_FM IS  NULL  THEN
           srw.message(1, 'VERSION FM  ぃ?NULL');
           return(false);      
      end if;
      IF   :P_VERSION_TO IS  NULL  THEN
           srw.message(1, 'VERSION TO  ぃ?NULL');
           return(false);      
      end if;         
---------------check  process -------------------------------------------------------------
      if  :P_pc_fm is null and :p_pc_to is not null then
          srw.message(1, 'process fm   ぃ?null');
          return(false);      
      end if;
      if  :P_pc_to is null and :p_pc_fm is not null then
          srw.message(1, 'process to   ぃ?null');
          return(false);      
      end if;
------------- check  prod type ----------------------------------
      if  :P_prod_fm is null and  :p_prod_to is not null then
          srw.message(1, 'prod fm   ぃ?null');
          return(false);      
      end if;
      if  :P_prod_to is null and  :p_prod_fm is not null then
          srw.message(1, 'prod to   ぃ?null');
          return(false);      
      end if;
-------------------------------------------------------
      if   (:P_VERSION_FM       = :P_VERSION_TO)  and           ----check all
           (nvl(:p_pc_fm,'x')   = nvl(:p_pc_to,'x')) and
           (nvl(:p_prod_fm,'x') = nvl(:p_prod_to,'x'))   then
            srw.message(1, 'VERSION/玻珇?/籹祘  ぃ?all??');
            return(false);      
      end if;
      if  :p_prod_fm is null and  :p_prod_to  is null  then  -----------chekc copy pc
          if   (:P_VERSION_FM       = :P_VERSION_TO)    and
               nvl(:p_pc_fm,'x')   = nvl(:p_pc_to,'x')  then
               srw.message(1, 'VERSION/籹祘  ぃ?all??');
               return(false);      
          end if;
      end if;
      if  :p_pc_fm is null and  :p_pc_to  is null  then  -----------copy prod
          if   (:P_VERSION_FM        = :P_VERSION_TO)    and
               nvl(:p_prod_fm,'x')   = nvl(:p_prod_to,'x')  then
               srw.message(1, 'VERSION/玻珇?  ぃ?all??');
               return(false);      
          end if;
      end if;
---------------------------------------------------------------
     :P_where := ' AND   1 = 2 ' ;      ----copy by PC or PROD_TYPE
     copy_all;       ---------copy
  end if;      
  return (TRUE);
exception
  when   others   then
         return(false);
end;
2.report
1. Report Properties : 設定 Report的寬與高(横式:11 * 8.5;直式: 8.5 * 11)
2.charater mode: 一定要勾選「Use Character Units in Designer」
3.tools-----data mode Editor--key sql
4.tools----default parameter form
5.以後要做細部修改，至「Tools」à「Parameter Form Editor」
6.選擇該User Parameters的「Properties…」à「Data/Selection」à選「SELECT Statement」
    à在「Enter Query」寫SQL指令
7.Restict list to prodetermined values
8.勾選「Restrict List to Predetermined Values」且又有設default值時，default值須為
  實值列表內容之一。EX:實值列表內容為89~93，但default值設為88.
9.選擇該User Parameters的「Properties…」à「General」     
  「Input Mask」為輸入格式設定。「Initial Value」為default值設定
10.「View」à「View Options」à「Rulers…」
11.「Centimeters」：有格線。「Character Cells」：無格線。「Grid Spacing」：選擇格線間距大小。
12.至「Data Model」，新增一個Formula Column，點選「Edit」後，將SQL指令寫入
13.srw.message(1, ‘此站別v_seq為:’ || to_char(v_seq));


本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/3305/showart_27029.html