한국 델파이 개발자 모임 - 저장시 update... 고수님들 좀 봐주세염...

저장시 update... 고수님들 좀 봐주세염...

저장 버튼을 눌렀을 경우 조회시 ORDR13MT라는 테이블에 INSERT되어있는 데이타들을 확인하고(SProc2-스토프로시저에서) 필요하지 않는 테이타들은 DELETE(Hist_Del쿼리에서)시켜 업데이트 시키려구 합니다...

아래에 첨부한것이 그 소스인데요~

프로그램이 계속 돌지않구 멈춰 있어염~

아무래두 UPDATE하는 부분에서 뭔가 이상이 있는것이 아닐까 싶은데...

COMMIT 이나 UPDATE에 대해 잘 알지 못해 이렇게 헤메고 있어염,,,

고수님들 제발좀 도와주세염...

감사감사~ (참고.. 스토어프로시저도 참고로 맨~ 아래에 첨부합니다.. )

procedure TForm1.BtnPostClick(Sender: TObject);

begin

If BtnPost.Enabled <> True Then Exit;

ORDR13MT.Edit;

ORDR13MT.Post;

ORDR13MT.CommitUpdates;

With SProc2 do begin

ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;

ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;

ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;

Execproc;

End;

With Hist_Del do begin

ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;

ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;

ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;

Execsql;

End;

// Close Open 해도 원위치 찾기

With MQuery do begin

DisableControls;

Close;

Open;

EnableControls;

end;

User_Handle(Panel4.Enabled);

DBGrid1.SetFocus;

ORDR13MT.Refresh;

end;

***스토어프로시저** (SProc2)

create or replace procedure ordrpr17(p_no_buyer in varchar2,

p_no_year in varchar2,

p_no_seq in number)

is

g_read_cnt number(01); /* Read Count */

g_order_qty number(7,2); /* Order 수량 */

Cursor C1 is Select order_no_buyer, order_no_year, order_no_seq,

pattern_1, pattern_2, comb_no,

fabric_code, sum(nvl(ship_qty,0)) ship_qty

From ordr12mt

Where order_no_buyer = p_no_buyer

And order_no_year = p_no_year

And order_no_seq = p_no_seq

Group by order_no_buyer, order_no_year, order_no_seq,

pattern_1, pattern_2, comb_no,

fabric_code;

C1_Rec c1%rowtype;

begin

Open C1;

Loop

Fetch C1 into C1_Rec.order_no_buyer, C1_Rec.order_no_year, C1_Rec.order_no_seq,

C1_Rec.pattern_1, C1_Rec.pattern_2, C1_Rec.comb_no,

C1_Rec.fabric_code, C1_Rec.ship_qty;

Exit When C1%NotFound;

g_read_cnt := 0;

begin

select nvl(order_qty,0)

into g_order_qty

from ordr13mt

Where order_no_buyer = C1_Rec.order_no_buyer

And order_no_year = C1_Rec.order_no_year

And order_no_seq = C1_Rec.order_no_seq

And pattern_1 = C1_Rec.pattern_1

And pattern_2 = C1_Rec.pattern_2

And comb_no = C1_Rec.comb_no

And fabric_code = C1_Rec.fabric_code;

Exception

When others then

g_order_qty := 0;

end;

begin

select count(*)

into g_read_cnt

from ordr13mt

Where order_no_buyer = C1_Rec.order_no_buyer

And order_no_year = C1_Rec.order_no_year

And order_no_seq = C1_Rec.order_no_seq

And pattern_1 = C1_Rec.pattern_1

And pattern_2 = C1_Rec.pattern_2

And comb_no = C1_Rec.comb_no

And fabric_code = C1_Rec.fabric_code;

Exception

When others then

g_read_cnt := 0;

end;

if g_read_cnt > 0 then

begin

Update Ordr13mt

set ship_tot_qty = C1_Rec.ship_qty,

ship_jan_qty = nvl(g_order_qty,0) - C1_Rec.ship_qty

Where order_no_buyer = C1_Rec.order_no_buyer

and order_no_year = C1_Rec.order_no_year

and order_no_seq = C1_Rec.order_no_seq

and pattern_1 = C1_Rec.pattern_1

and pattern_2 = C1_Rec.pattern_2

and comb_no = C1_Rec.comb_No

and fabric_code = C1_Rec.fabric_code;

Exception

When Others then Null;

end;

end if;

End Loop;

Close C1;

Commit;

end;

이 게시물을

1 COMMENTS

최혜룡 • 2001.05.22 09:08

고생많네요

걸리는 부분이 있긴 한데..

한번 Test나 해보시죠

방법은

ORDR13MT.Close; <-- 추가

With SProc2 do begin

ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;

ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;

ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;

Execproc;

End;

ORDR13MT.Open; <-- 추가

그리고 Del_His 실행부분을 주석처리하세요 (실행하지 못하게)

다음에는 DEL_HIS안의 DELETE문을

PL/SQL Procedure에 추가하세요

Close C1;

Commit;

..... <--- 요기에 DELETE 추가

.....

Commit; <--- 추가

짱아 wrote:

> 저장 버튼을 눌렀을 경우 조회시 ORDR13MT라는 테이블에 INSERT되어있는 데이타들을 확인하고(SProc2-스토프로시저에서) 필요하지 않는 테이타들은 DELETE(Hist_Del쿼리에서)시켜 업데이트 시키려구 합니다...

> 아래에 첨부한것이 그 소스인데요~

> 프로그램이 계속 돌지않구 멈춰 있어염~

> 아무래두 UPDATE하는 부분에서 뭔가 이상이 있는것이 아닐까 싶은데...

> COMMIT 이나 UPDATE에 대해 잘 알지 못해 이렇게 헤메고 있어염,,,

> 고수님들 제발좀 도와주세염...

> 감사감사~ (참고.. 스토어프로시저도 참고로 맨~ 아래에 첨부합니다.. )

>

> procedure TForm1.BtnPostClick(Sender: TObject);

> begin

> If BtnPost.Enabled <> True Then Exit;

>

> ORDR13MT.Edit;

> ORDR13MT.Post;

> ORDR13MT.CommitUpdates;

>

>

> With SProc2 do begin

> ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;

> ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;

> ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;

> Execproc;

> End;

>

> With Hist_Del do begin

> ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;

> ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;

> ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;

> Execsql;

> End;

>

> // Close Open 해도 원위치 찾기

> With MQuery do begin

> DisableControls;

> Close;

> Open;

> EnableControls;

> end;

>

> User_Handle(Panel4.Enabled);

> DBGrid1.SetFocus;

> ORDR13MT.Refresh;

> end;

>

>

>

> ***스토어프로시저** (SProc2)

> create or replace procedure ordrpr17(p_no_buyer in varchar2,

> p_no_year in varchar2,

> p_no_seq in number)

> is

>

> g_read_cnt number(01); /* Read Count */

> g_order_qty number(7,2); /* Order 수량 */

>

>

> Cursor C1 is Select order_no_buyer, order_no_year, order_no_seq,

> pattern_1, pattern_2, comb_no,

> fabric_code, sum(nvl(ship_qty,0)) ship_qty

> From ordr12mt

> Where order_no_buyer = p_no_buyer

> And order_no_year = p_no_year

> And order_no_seq = p_no_seq

> Group by order_no_buyer, order_no_year, order_no_seq,

> pattern_1, pattern_2, comb_no,

> fabric_code;

>

> C1_Rec c1%rowtype;

> begin

>

> Open C1;

> Loop

>

> Fetch C1 into C1_Rec.order_no_buyer, C1_Rec.order_no_year, C1_Rec.order_no_seq,

> C1_Rec.pattern_1, C1_Rec.pattern_2, C1_Rec.comb_no,

> C1_Rec.fabric_code, C1_Rec.ship_qty;

> Exit When C1%NotFound;

>

>

> g_read_cnt := 0;

>

> begin

> select nvl(order_qty,0)

> into g_order_qty

> from ordr13mt

> Where order_no_buyer = C1_Rec.order_no_buyer

> And order_no_year = C1_Rec.order_no_year

> And order_no_seq = C1_Rec.order_no_seq

> And pattern_1 = C1_Rec.pattern_1

> And pattern_2 = C1_Rec.pattern_2

> And comb_no = C1_Rec.comb_no

> And fabric_code = C1_Rec.fabric_code;

> Exception

> When others then

> g_order_qty := 0;

> end;

>

>

> begin

> select count(*)

> into g_read_cnt

> from ordr13mt

> Where order_no_buyer = C1_Rec.order_no_buyer

> And order_no_year = C1_Rec.order_no_year

> And order_no_seq = C1_Rec.order_no_seq

> And pattern_1 = C1_Rec.pattern_1

> And pattern_2 = C1_Rec.pattern_2

> And comb_no = C1_Rec.comb_no

> And fabric_code = C1_Rec.fabric_code;

> Exception

> When others then

> g_read_cnt := 0;

> end;

>

> if g_read_cnt > 0 then

> begin

> Update Ordr13mt

> set ship_tot_qty = C1_Rec.ship_qty,

> ship_jan_qty = nvl(g_order_qty,0) - C1_Rec.ship_qty

> Where order_no_buyer = C1_Rec.order_no_buyer

> and order_no_year = C1_Rec.order_no_year

> and order_no_seq = C1_Rec.order_no_seq

> and pattern_1 = C1_Rec.pattern_1

> and pattern_2 = C1_Rec.pattern_2

> and comb_no = C1_Rec.comb_No

> and fabric_code = C1_Rec.fabric_code;

> Exception

> When Others then Null;

> end;

> end if;

>

> End Loop;

> Close C1;

>

> Commit;

>

> end;

>
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- tweni
- 2001.05.22 06:53
- 0 COMMENTS
- /
- 0 LIKES
Master-Detail관계에서..Master가 empty일때..
- 박영근
- •
- 2001.05.22 05:50
- 2 COMMENTS
- /
- 0 LIKES
최용일님..저밑에 scanline답변해주신거..
- 최용일
  
  •
  
  2001.05.22 07:04
  
  안녕하세요. 최용일입니다... 그래픽에 관한것은 웹에 자료가 무궁무진합니다. 직접 찾아보세요... ...
- 박영근
  
  •
  
  2001.05.22 20:18
  
  헐..등잔밑이 어둡다더니..ㅜㅜ; 용일님 감사합니당.. 최용일 wrote: > 안녕하세요. 최용일입니다...
- 박찬현
- •
- 2001.05.22 05:41
- 1 COMMENTS
- /
- 0 LIKES
TMediaplayer에서 해상도 변경 방법좀 갈켜주세요?
- 바다를향해
  
  •
  
  2001.05.23 02:09
  
  DisplayRect 라는 메소드를 사용해보세요... 박찬현 wrote: > 화일이 640*480으로 작성되어 있어서 화...
- 힘든하루
- 2001.05.22 04:59
- 0 COMMENTS
- /
- 0 LIKES
StringAlignGrid에서 Fixed Row의 칼럼 합칠 수 있나요??
- 델초보
- 2001.05.22 04:47
- 0 COMMENTS
- /
- 0 LIKES
NMFTP를 사용해서 이어받기를...
- hsk
- 2001.05.22 04:13
- 0 COMMENTS
- /
- 0 LIKES
디렉토리내 파일과 서브디렉토리 복사기능
- 양필규
- 2001.05.22 03:58
- 0 COMMENTS
- /
- 0 LIKES
tedit와 tbutton에서의 keydown, keypress가 틀린가요?
- 새까만넘
- •
- 2001.05.22 03:52
- 1 COMMENTS
- /
- 0 LIKES
조건식이 두개 합쳐진 경우... 잘 안되네요...
- .
  
  •
  
  2001.05.22 04:53
  
  새까만넘 wrote: > 안녕하세요? > if 문에서요 조건두개를 만족해야만 할때요 잘 안되거든요... > > ...
- 짱아
- •
- 2001.05.22 03:51
- 1 COMMENTS
- /
- 0 LIKES
저장시 update... 고수님들 좀 봐주세염...

저장 버튼을 눌렀을 경우 조회시 ORDR13MT라는 테이블에 INSERT되어있는 데이타들을 확인하고(SProc2-스토프로시저에서) 필요하지 않는 테이타들은 DELETE(Hist_Del쿼리에서)시켜 업데이트 시키려구 합니다... 아래에 첨부한것이 그 소스...
- 최혜룡
  
  •
  
  2001.05.22 09:08
  
  고생많네요 걸리는 부분이 있긴 한데.. 한번 Test나 해보시죠 방법은 ORDR13MT.Close; 아무...
- 초보델
- •
- 2001.05.22 03:49
- 1 COMMENTS
- /
- 0 LIKES
DB 연결이 좀..
- 최혜룡
  
  •
  
  2001.05.22 08:39
  
  저도 경험한 에러인데 해결방법이 가물가물... BDE를 제거 하시고 새로 설치해보세요.. 초보델 wrote...
- 허접초보
- •
- 2001.05.22 03:33
- 1 COMMENTS
- /
- 0 LIKES
[질문:DB]조인시키는건데 꼭 봐주시고 답변 부탁드립니다. (__)
- 최혜룡
  
  •
  
  2001.05.22 08:37
  
  -> EDatabaseError with message 'Qry_Coord:Field 'si_name' not found. 이에러의 원인은 -> e...
- 우리들
- 2001.05.22 03:14
- 0 COMMENTS
- /
- 0 LIKES
DBGrid위의DBLookupComboBox에대해서
- 초짜
- •
- 2001.05.22 03:12
- 1 COMMENTS
- /
- 0 LIKES
델파이에서 텍스트문서를 엑셀로 바꾸고 싶은데 가르쳐 주세요!!
- .
  
  •
  
  2001.05.22 04:57
  
  초짜 wrote: > 텍스트 문서를 엑셀로 바꾸고 싶거든요.. > 물론 엑셀에서 가능하지만 델파이에서 바꾸고 ...
- 궁그미
- •
- 2001.05.22 03:02
- 1 COMMENTS
- /
- 0 LIKES
질문제목과 분류를 꼭 해주시길 부탁드립니다.
- 최혜룡
  
  •
  
  2001.05.22 08:44
  
  --> Database1->StartTransaction; > with Query1 do > begin > close; > SQL.Add...
- 궁금이
- 2001.05.22 02:56
- 0 COMMENTS
- /
- 0 LIKES
query-->excel로 보낼때, 엑셀을 정렬시킬 수 있습니까?
- 궁그미
- •
- 2001.05.22 02:52
- 1 COMMENTS
- /
- 0 LIKES
insert 한 결과가 적용되지 않습니다.
- 방문현
  
  •
  
  2001.05.22 04:18
  
  궁그미 wrote: > 안녕하시와요... > 오늘 질문은 Query 컴포넌트를 이용해서 insert를 하였습니다. > 그...
- 백승환
- •
- 2001.05.22 02:51
- 1 COMMENTS
- /
- 0 LIKES
질문있어요..
- 최용일
  
  •
  
  2001.05.22 04:48
  
  안녕하세요. 최용일입니다. ShowMessage(buf); 위부분이 문제가 있을거 같군요... 이진 데이터...
- 짱아
- •
- 2001.05.22 02:51
- 1 COMMENTS
- /
- 0 LIKES
단순한 설명좀 부탁드립니다.... 고수님들 수거염...
- Warlord
  
  •
  
  2001.05.23 00:18
  
  짱아 wrote: > TTable을 사용해 어떤 테이블에 자료들을 저장하고 업데이트하려고 합니다... > 이때 Com...
- 왕초보
- •
- 2001.05.22 02:27
- 1 COMMENTS
- /
- 0 LIKES
선그리기
- 최용일
  
  •
  
  2001.05.22 04:58
  
  안녕하세요. 최용일입니다. 판넬과 같은 경우는 캔버스에 그려진 내용을 저장하는 기능이 없습니다. 그...
- 한원희
- 2001.05.22 02:20
- 0 COMMENTS
- /
- 0 LIKES
Re: [ 질문 ] 도와 주세요.. (인터넷 관련)

짱아
2001/05/22 03:51
Views270

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

1770 1771 1772 1773 1774 1775 1776 1777 1778 1779

Last Page→