귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
吏덈Ц怨 떟蹂 吏덈Ц怨 떟蹂 입니다.
글내용 - 吏덈Ц怨 떟蹂
 [吏덈Ц] 쑀땲겕븳 媛믪쓣 諛쒖깮 떆궗 諛⑸쾿씠 엳쓣源뚯슂???
옖뱶留덊겕
(떊긽以)
2019-03-15 삤쟾 9:42:12
112회 조회


등록된 파일이 없습니다.
1. 媛쒕컻/떎뻾 뵆옯뤌 
  (1) OS : 
  (2) 媛쒕컻댋 : delphi 6
  (3) 궗슜 Database : 

2. 媛쒕컻 以묒씤 봽濡쒓렇옩 

3. 吏덈Ц 궡슜 

븞뀞븯꽭슂 
沅곴툑븳 궗빆씠 엳뼱 씠젃寃 삱젮 쓽寃ъ쓣 援ы븯怨좎옄 빀땲떎.
蹂댁떆怨 쓽寃ъ쓣 뙎湲濡 떖븘 二쇱뀲쑝硫 빀땲떎.
븘옒 媛숈씠 odac뿉 PLSQL瑜 옉꽦븯뿬 max媛믪쓣 媛졇샃땲떎.
씠寃껋 以묐났맂 媛믪쓣 媛졇삤吏 븡怨 쑀땲겕븳 媛믩쭔 媛졇삤寃 븯젮怨 옉꽦븳 嫄대뜲
媛꾪샊媛떎媛 VNUM뿉 以묐났맂 媛믪씠 諛쒖깮빀땲떎.
샊떆 뿬윭궗슜옄媛 룞떆 궗슜븯뜑씪룄 쑀땲겕븳 媛(VNUM)쓣 媛졇삱닔 엳뒗 諛⑸쾿씠 엳쓣源뚯슂???


--- 븘옒뒗 odac뿉 옉꽦맂 PLSQL 엯땲떎.
DECLARE
  pVNUM  VARCHAR2(8);

  CURSOR cVNUM IS      --> cursor瑜 궗슜븳 씠쑀뒗 temp100 뀒씠釉붿뿉 lock瑜 嫄멸린 쐞빐꽌
  SELECT VNUM
    FROM temp100
   WHERE VDATE = :VDATE
   ORDER BY VNUM DESC
   FOR UPDATE;

BEGIN

IF :VDATE > ' ' THEN

   IF NVL(:VNUM,0) = 0 THEN
      
      OPEN cVNUM;
      FETCH cVNUM INTO pVNUM;

      IF cVNUM%ROWCOUNT > 0 THEN
        --> 媛옣 겙媛믪뿉 +1 留뚰븯怨 exit 臾몄옣쓣 留뚮굹 猷⑦봽瑜 鍮좎졇 굹媛꾨떎. 떒 븳踰덈쭔 떎뻾
         WHILE cVNUM%FOUND LOOP   
            SELECT pVNUM + 1
              INTO :VNUM
              FROM DUAL;

            EXIT;
            FETCH cVNUM INTO pVNUM;
          END LOOP;
          CLOSE cVNUM;

       ELSE
          :VNUM := 1;
          CLOSE cVNUM;
       END IF;
       
   END IF;

END IF;

UPDATE temp100
SET
  PPDATE = :PPDATE,
  DEPTNO = :DEPTNO,
  PPNO = :PPNO,
  KIND = :KIND,
  DESCRIPTION = :DESCRIPTION,
  PPEMP = :PPEMP,
  BUNO = :BUNO,
  ADDDATE = :ADDDATE,
  ADDEMP = :ADDEMP,
  DELDATE = :DELDATE,
  DELEMP = :DELEMP,
  CK1DATE = :CK1DATE,
  CK1EMP = :CK1EMP,
  CK2DATE = :CK2DATE,
  CK2EMP = :CK2EMP,
  CK3DATE = :CK3DATE,
  CK3EMP = :CK3EMP,
  VDATE = :VDATE,
  VNUM = :VNUM,
  CFDATE = :CFDATE,
  CFEMP = :CFEMP,
  RVDATE = :RVDATE,
  RVEMP = :RVEMP,
  AP1DATE = :AP1DATE,
  AP1EMP = :AP1EMP,
  AP2DATE = :AP2DATE,
  AP2EMP = :AP2EMP,
  AP3DATE = :AP3DATE,
  AP3EMP = :AP3EMP,
  AP4DATE = :AP4DATE,
  AP4EMP = :AP4EMP,
  AP5DATE = :AP5DATE,
  AP5EMP = :AP5EMP,
  AP6DATE = :AP6DATE,
  AP6EMP = :AP6EMP,
  AP7DATE = :AP7DATE,
  AP7EMP = :AP7EMP,
  CP  = :CP,
  TP  = :TP,
  S01 = :S01,
  S02 = :S02,
  S03 = :S03,
  N01 = :N01,
  N02 = :N02,
  N03 = :N03
WHERE
  PPDATE = :OLD_PPDATE and
  DEPTNO = :OLD_DEPTNO and
  PPNO = :OLD_PPNO
RETURNING
  PPDATE, DEPTNO, PPNO, KIND, DESCRIPTION, PPEMP, BUNO, ADDDATE, ADDEMP, DELDATE, DELEMP, CK1DATE, CK1EMP, CK2DATE, CK2EMP, CK3DATE, CK3EMP, VDATE, VNUM, CFDATE, CFEMP, RVDATE, RVEMP, AP1DATE, AP1EMP, AP2DATE, AP2EMP, AP3DATE, AP3EMP, AP4DATE, AP4EMP, AP5DATE, AP5EMP, AP6DATE, AP6EMP, AP7DATE, AP7EMP, CP, TP, S01, S02, S03, N01, N02, N03
INTO
  :PPDATE, :DEPTNO, :PPNO, :KIND, :DESCRIPTION, :PPEMP, :BUNO, :ADDDATE, :ADDEMP, :DELDATE, :DELEMP, :CK1DATE, :CK1EMP, :CK2DATE, :CK2EMP, :CK3DATE, :CK3EMP, :VDATE, :VNUM, :CFDATE, :CFEMP, :RVDATE, :RVEMP, :AP1DATE, :AP1EMP, :AP2DATE, :AP2EMP, :AP3DATE, :AP3EMP, :AP4DATE, :AP4EMP, :AP5DATE, :AP5EMP, :AP6DATE, :AP6EMP, :AP7DATE, :AP7EMP, :CP, :TP, :S01, :S02, :S03, :N01, :N02, :N03;

END;