/* Copyright (c) 1988 by the Oracle Corporation */ SQL*FORMS_VERSION = 03.00.16.12.07 TERSE = ON DEFINE FORM COMMENT = <<< 99/07/11 kgc y2k sk-eg paid_date key 99/05/22 kgc >>> NAME = HPSE1420 TITLE = HPSE1420 DEFAULT_MENU_APPLICATION = DEFAULT DEFINE PROCEDURE NAME = cancel_rtn DEFINITION = <<< /* 이자계산한각각의미수금원장update 2단계 */ procedure cancel_rtn is eof_record char(01); wk_deal_date hps004.deal_date%type; wk_paid_date hps004.paid_date%type; wk_calcu_from hps004.calcu_from%type; wk_calcu_to hps004.calcu_to%type; wk_sun_amt hps004.sun_amt%type; begin first_record; loop begin select deal_date, calcu_from, calcu_to into wk_deal_date, wk_calcu_from, wk_calcu_to from hps004 where member_no = :qb11.member_code and deal_date = :deal_date and paid_date = :paid_date and slip_no = :slip_no and kcode = :kcode and j_div = :j_div and jiso_code = :wk_jiso and sale_dir1 = :sale_dir1 and calcu_dir = '1'; exception when others then message('dd:'||to_char(:deal_date,'yyyy/mm/dd')|| 'sn:'||to_char(:slip_no,'9999')|| 'sd:'||:sale_dir1|| 'Kc:'||:kcode|| 'j_:'||:j_div); raise form_trigger_failure; end; if :inst_div = '1' then begin update hps004 set exch_amt = nvl(exch_amt,0) - nvl(:real_amt,0), balan_amt = nvl(balan_amt,0) + nvl(:real_amt,0), end_dir = 'Z' where member_no = :qb11.member_code and deal_date = :deal_date and paid_date = :paid_date and slip_no = :slip_no and kcode = :kcode and j_div = :j_div and jiso_code = :wk_jiso and sale_dir1 = :sale_dir1 and calcu_dir = '1'; exception when others then message('미수금원장 update 실패!!!'); raise form_trigger_failure; end; end if; if :inst_div in ('2','3','4') then if nvl(wk_calcu_to,wk_deal_date) >= :calcu_from then wk_calcu_to := :calcu_from - 1; if wk_calcu_to < wk_deal_date or wk_calcu_to < wk_calcu_from then wk_calcu_from := null; end if; if wk_calcu_from > wk_calcu_to then wk_calcu_from := null; end if; begin update hps004 set calcu_from = wk_calcu_from, calcu_to = wk_calcu_to, end_dir = 'Z' where member_no = :qb11.member_code and deal_date = :deal_date and paid_date = :paid_date and slip_no = :slip_no and kcode = :kcode and j_div = :j_div and jiso_code = :wk_jiso and sale_dir1 = :sale_dir1 and calcu_dir = '1'; exception when others then message('미수금원장 update 실패!!!'); raise form_trigger_failure; end; end if; end if; if :inst_div in ('2','3') then if nvl(:inst_amt,0) != nvl(:real_amt,0) then begin update hps004 set calcu_from = wk_calcu_from, sun_amt = nvl(sun_amt,0) - nvl(:inst_amt,0) + nvl(:real_amt,0) where member_no = :qb11.member_code and deal_date = :deal_date and paid_date = :paid_date and slip_no = :slip_no and kcode = :kcode and j_div = :j_div and jiso_code = :wk_jiso and sale_dir1 = :sale_dir1 and calcu_dir = '1'; exception when others then message('미수금원장 update 실패!!!'); raise form_trigger_failure; end; end if; end if; if :inst_div = '4' then begin update hps004 set sun_amt = nvl(sun_amt,0) + nvl(:real_amt,0) where member_no = :qb11.member_code and deal_date = :deal_date and paid_date = :paid_date and slip_no = :slip_no and kcode = :kcode and j_div = :j_div and jiso_code = :wk_jiso and sale_dir1 = :sale_dir1 and calcu_dir = '1'; exception when others then message('미수금원장 update 실패!!!'); raise form_trigger_failure; end; end if; if :system.last_record = 'TRUE' then eof_record := 'Y'; end if; delete_record; if eof_record = 'Y' then exit; end if; end loop; /* 미수금원장의 전거래내역 삭제 */ begin delete hps004 where member_no = :cb1.member_code and deal_date = :wk_calcu_date and paid_date = :wk_ch_date and slip_no = :wk_cnt_cnt and jiso_code = :wk_jiso and calcu_dir = '9'; exception when others then message('미수금원장 delete error!!!'); raise form_trigger_failure; end; /* 이자 처리 내역 삭제 */ begin delete hps002 where jiso_code = :wk_jiso and member_code = :cb1.member_code and list_date = :wk_ch_date and slip_no1 = :wk_cnt_cnt; exception when others then message('과태료 내역 delete error!!!'); raise form_trigger_failure; end; chit_no; begin select slip_no into :wk_cnt_cnt1 from hps010 where jiso_code = :wk_jiso and paid_date = :wk_ch_date and deal_date = :wk_calcu_date and slip_id = '4' and slip_check = '0' and member_code = :cb1.member_code group by slip_no having ( sum(nvl(item_amt,0)) + sum(nvl(invest_amt,0)) = :tot_tot_amt ); exception when others then :wk_cnt_cnt1 := :wk_cnt_cnt; end; /* 전표 table 의 전 거래전표 update */ /* 96/07/09 */ begin update hps010 set slip_check = '4' where jiso_code = :wk_jiso and paid_date = :wk_ch_date and deal_date = :wk_calcu_date and slip_id = '4' and slip_no = :wk_cnt_cnt1; exception when others then message('전표 4 table update error!!!'); raise form_trigger_failure; end; end; >>> ENDDEFINE PROCEDURE DEFINE PROCEDURE NAME = cancel_rtn1 DEFINITION = <<< /* 이자계산한각각의미수금원장update 3단계 */ procedure cancel_rtn1 is eof_record char(01); wk_deal_date hps004.deal_date%type; wk_paid_date hps004.paid_date%type; wk_calcu_from hps004.calcu_from%type; wk_calcu_to hps004.calcu_to%type; wk_sun_amt hps004.sun_amt%type; begin first_record; loop begin select deal_date, calcu_from, calcu_to into wk_deal_date, wk_calcu_from, wk_calcu_to from hps004 where member_no = :qb11.member_code and deal_date = :deal_date and paid_date = :paid_date and slip_no = :slip_no and kcode = :kcode and j_div = :j_div and jiso_code = :wk_jiso and sale_dir1 = :sale_dir1 and calcu_dir = '1'; exception when others then message('dd:'||to_char(:deal_date,'yyyy/mm/dd')|| 'sn:'||to_char(:slip_no,'9999')|| 'sd:'||:sale_dir1|| 'Kc:'||:kcode|| 'j_:'||:j_div); raise form_trigger_failure; end; if :inst_div = '1' then begin update hps004 set exch_amt = nvl(exch_amt,0) - nvl(:real_amt,0), balan_amt = nvl(balan_amt,0) + nvl(:real_amt,0), end_dir = 'Z' where member_no = :qb11.member_code and deal_date = :deal_date and paid_date = :paid_date and slip_no = :slip_no and kcode = :kcode and j_div = :j_div and jiso_code = :wk_jiso and sale_dir1 = :sale_dir1 and calcu_dir = '1'; exception when others then message('미수금원장 update 실패!!!'); raise form_trigger_failure; end; end if; if :inst_div in ('2','3','4') then if nvl(wk_calcu_to,wk_deal_date) >= :calcu_from then wk_calcu_to := :calcu_from - 1; if wk_calcu_to < wk_deal_date or wk_calcu_to < wk_calcu_from then wk_calcu_from := null; end if; if wk_calcu_from > wk_calcu_to then wk_calcu_from := null; end if; begin update hps004 set calcu_from = wk_calcu_from, calcu_to = wk_calcu_to, end_dir = 'Z' where member_no = :qb11.member_code and deal_date = :deal_date and paid_date = :paid_date and slip_no = :slip_no and kcode = :kcode and j_div = :j_div and jiso_code = :wk_jiso and sale_dir1 = :sale_dir1 and calcu_dir = '1'; exception when others then message('미수금원장 update 실패!!!'); raise form_trigger_failure; end; end if; end if; if :inst_div in ('2','3','4') then if nvl(:inst_amt,0) != nvl(:real_amt,0) then begin update hps004 set calcu_from = wk_calcu_from, sun_amt = nvl(sun_amt,0) - nvl(:inst_amt,0) + nvl(:real_amt,0) where member_no = :qb11.member_code and deal_date = :deal_date and paid_date = :paid_date and slip_no = :slip_no and kcode = :kcode and j_div = :j_div and jiso_code = :wk_jiso and sale_dir1 = :sale_dir1 and calcu_dir = '1'; exception when others then message('미수금원장 update 실패!!!'); raise form_trigger_failure; end; end if; end if; if :inst_div = '5' then begin update hps004 set sun_amt = nvl(sun_amt,0) + nvl(:real_amt,0) where member_no = :qb11.member_code and deal_date = :deal_date and paid_date = :paid_date and slip_no = :slip_no and kcode = :kcode and j_div = :j_div and jiso_code = :wk_jiso and sale_dir1 = :sale_dir1 and calcu_dir = '1'; exception when others then message('미수금원장 update 실패!!!'); raise form_trigger_failure; end; end if; if :system.last_record = 'TRUE' then eof_record := 'Y'; end if; delete_record; if eof_record = 'Y' then exit; end if; end loop; /* 미수금원장의 전거래내역 삭제 */ begin delete hps004 where member_no = :cb1.member_code and deal_date = :wk_calcu_date and paid_date = :wk_ch_date and slip_no = :wk_cnt_cnt and jiso_code = :wk_jiso and calcu_dir = '9'; exception when others then message('미수금원장 delete error!!!'); raise form_trigger_failure; end; /* 이자 처리 내역 삭제 */ begin delete hps002 where jiso_code = :wk_jiso and member_code = :cb1.member_code and list_date = :wk_ch_date and slip_no1 = :wk_cnt_cnt; exception when others then message('과태료 내역 delete error!!!'); raise form_trigger_failure; end; chit_no; begin select slip_no into :wk_cnt_cnt1 from hps010 where jiso_code = :wk_jiso and paid_date = :wk_ch_date and deal_date = :wk_calcu_date and slip_id = '4' and slip_check = '0' and member_code = :cb1.member_code group by slip_no having ( sum(nvl(item_amt,0)) + sum(nvl(invest_amt,0)) = :tot_tot_amt ); exception when others then :wk_cnt_cnt1 := :wk_cnt_cnt; end; /* 전표 table 의 전 거래전표 update */ /* 96/07/09 */ begin update hps010 set slip_check = '4' where jiso_code = :wk_jiso and paid_date = :wk_ch_date and deal_date = :wk_calcu_date and slip_id = '4' and slip_no = :wk_cnt_cnt1; exception when others then message('전표 4 table update error!!!'); raise form_trigger_failure; end; end; >>> ENDDEFINE PROCEDURE DEFINE PROCEDURE NAME = chit_no DEFINITION = <<< /** 전표번호 생성 */ procedure chit_no is begin begin select nvl(max(slip_no),0)+1 into :real_cnt_cnt from hps020 where item_code = 'HPS' and item_sql = 10 and jiso_code = :wk_jiso and trunc(paid_date) = :wk_calcu_date and slip_id = '4'; exception when no_data_found then :real_cnt_cnt := null; end; if :real_cnt_cnt is null then :real_cnt_cnt := 1; end if; begin insert into hps020 (item_code,item_sql,jiso_code,paid_date, slip_id,slip_no,dcode) values ('HPS',10,:wk_jiso,:wk_calcu_date,'4', :real_cnt_cnt ,:global.dcode ); exception when dup_val_on_index then update hps020 set slip_no = :real_cnt_cnt, dcode = :global.dcode where item_code = 'HPS' and item_sql = 10 and jiso_code = :wk_jiso and trunc(paid_date) = :wk_calcu_date and slip_id = '4'; end; end; >>> ENDDEFINE PROCEDURE DEFINE PROCEDURE NAME = delete_hps035 DEFINITION = <<< procedure delete_hps035 is begin delete hps035 where s1_jiso_code = :wk_jiso and s1_member_code = :cb1.member_code and s1_list_date = :cb1.wk_ch_date; exception when others then null; end; >>> ENDDEFINE PROCEDURE DEFINE TRIGGER NAME = PRE-COMMIT TRIGGER_TYPE = V3 TEXT = <<< :global.commit := 1; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = POST-COMMIT TRIGGER_TYPE = V3 TEXT = <<< if :global.commit = 1 then :global.commit := 2; end if; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-exit TRIGGER_TYPE = V3 TEXT = <<< go_block('qb11'); clear_block(no_commit); go_block('cb1'); clear_block(no_commit); exit_form(no_commit); >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-f1 TRIGGER_TYPE = V3 TEXT = <<< call('/COSMOS/PS/HPSE1421',no_hide); >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-listval TRIGGER_TYPE = V3 TEXT = <<< list_values; if form_success then do_key('next_field'); end if; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-NXTBLK TRIGGER_TYPE = V3 TEXT = <<< next_block; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-nxtfld TRIGGER_TYPE = V3 TEXT = <<< next_field; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-others TRIGGER_TYPE = V3 TEXT = <<< null; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-prvfld TRIGGER_TYPE = V3 TEXT = <<< previous_field; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-startup TRIGGER_TYPE = V3 TEXT = <<< :wk_jiso := :global.jiso_code; >>> ENDDEFINE TRIGGER DEFINE BLOCK NAME = cb1 ROWS_DISPLAYED = 1 BASE_LINE = 1 LINES_PER_ROW = 0 ARRAY_SIZE = 0 DEFINE TRIGGER NAME = key-up TRIGGER_TYPE = V3 TEXT = <<< previous_field; >>> ENDDEFINE TRIGGER DEFINE FIELD NAME = wk_jiso DATATYPE = CHAR LENGTH = 5 DISPLAY_LENGTH = 5 QUERY_LENGTH = 5 BASE_TABLE = OFF PAGE = 1 LINE = 5 COLUMN = 44 HELP = 99/07/12 이전 자료 취소가 안될경우 ESC + F2 -> HPSE1421 LOV_TEXT = <<< select jiso_code,jiso_name into :wk_jiso from hcm040 order by jiso_code >>> LOV_TITLE = << 작업 지소 >> LOV_X = 60 LOV_Y = 9 INPUT = OFF UPDATE = OFF QUERY = OFF DEFINE TRIGGER NAME = KEY-NXTFLD TRIGGER_TYPE = V3 TEXT = <<< if :wk_jiso is null then previous_field; end if; next_field; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = member_code DATATYPE = CHAR LENGTH = 6 DISPLAY_LENGTH = 6 QUERY_LENGTH = 6 BASE_TABLE = OFF PAGE = 1 LINE = 3 COLUMN = 18 HELP = 99/07/12 이전 자료 취소가 안될경우 ESC + F1 -> HPSE1421 LOV_TEXT = <<< select name,member_code into :member_code_mnk,:cb1.member_code from hps009 where jiso_code = :wk_jiso order by name >>> LOV_TITLE = [ 조합원 성명 조회 ] LOV_X = 60 LOV_Y = 8 QUERY = OFF AUTOHELP = ON DEFINE TRIGGER NAME = KEY-NXTBLK TRIGGER_TYPE = V3 TEXT = <<< null; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-nxtfld TRIGGER_TYPE = V3 TEXT = <<< begin next_field; if :cb1.member_code is null then bell; message('조합원코드를 입력하십시요!!!'); raise form_trigger_failure; end if; begin select name into :member_code_mnk from hps009 where jiso_code = :wk_jiso and member_code = :cb1.member_code; exception when others then message('조합원등록이 되어있지 않습니다!!!'); raise form_trigger_failure; bell; end; begin select house_addr1, house_addr2 into :wk_addr1_mnk, :wk_addr2_mnk from hco030 where member_code = :cb1.member_code; exception when no_data_found then :wk_addr1_mnk := null; :wk_addr2_mnk := null; end; begin select max(paid_date) into :wk_ch_date from hps004 where jiso_code = :wk_jiso and member_no = :cb1.member_code and calcu_dir = '9'; exception when others then message('최종기표일자가 없습니다!!!'); raise form_trigger_failure; end; begin select deal_date into :wk_calcu_date from hps004 where paid_date = :wk_ch_date and calcu_dir = '9' and jiso_code = :wk_jiso and member_no = :cb1.member_code; exception when others then null; -- message('최종정리일자가 없습니다!!!'); -- raise form_trigger_failure; end; begin select max(slip_no) into :wk_cnt_cnt from hps004 where jiso_code = :wk_jiso and member_no = :cb1.member_code and deal_date = :wk_calcu_date and paid_date = :wk_ch_date and calcu_dir = '9'; exception when others then message('최종전표번호가 없습니다!!!'); raise form_trigger_failure; end; begin select count(member_code) into :tot_cnt from hps002 where jiso_code = :wk_jiso and member_code = :cb1.member_code and list_date = :wk_ch_date and slip_no1 = :wk_cnt_cnt; exception when others then :tot_cnt := 0; message('거래내역 이상 등록!!!'); raise form_trigger_failure; end; if nvl(:tot_cnt,0) = 0 then message('거래내역 이상 등록!!!'); raise form_trigger_failure; end if; begin select sum(nvl(real_amt,0)) into :sum_int_amt from hps002 where jiso_code = :wk_jiso and member_code = :cb1.member_code and list_date = :wk_ch_date and slip_no1 = :wk_cnt_cnt and inst_div in ('2','3','4'); exception when others then :sum_int_amt := 0; end; if :sum_int_amt is null then :sum_int_amt := 0; end if; begin select sum(nvl(real_amt,0)) into :sum_won_amt from hps002 where jiso_code = :wk_jiso and member_code = :cb1.member_code and list_date = :wk_ch_date and slip_no1 = :wk_cnt_cnt and inst_div = '1'; exception when others then :sum_won_amt := 0; end; if :sum_won_amt is null then :sum_won_amt := 0; end if; :tot_tot_amt := nvl(:sum_int_amt,0) + nvl(:sum_won_amt,0); go_block('qb11'); :system.message_level := 25; execute_query(no_commit); end; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-prvfld TRIGGER_TYPE = V3 TEXT = <<< null; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-UP TRIGGER_TYPE = V3 TEXT = <<< null; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = wk_ch_date DATATYPE = DATE LENGTH = 10 DISPLAY_LENGTH = 10 QUERY_LENGTH = 10 BASE_TABLE = OFF PAGE = 1 LINE = 4 COLUMN = 18 INPUT_MASK = yyyy/mm/dd OUTPUT_MASK = yyyy/mm/dd DEFAULT = $$date$$ ENDDEFINE FIELD DEFINE FIELD NAME = wk_calcu_date DATATYPE = DATE LENGTH = 10 DISPLAY_LENGTH = 10 QUERY_LENGTH = 10 BASE_TABLE = OFF PAGE = 1 LINE = 5 COLUMN = 18 INPUT_MASK = yyyy/mm/dd OUTPUT_MASK = yyyy/mm/dd DEFAULT = $$date$$ AUTOHELP = ON DEFINE TRIGGER NAME = key-nxtfld TRIGGER_TYPE = V3 TEXT = <<< if :wk_calcu_date is null then message('일자를 입력해 주십시요!!!'); raise form_trigger_failure; end if; next_field; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = member_code_mnk DATATYPE = CHAR LENGTH = 10 DISPLAY_LENGTH = 10 QUERY_LENGTH = 10 BASE_TABLE = OFF PAGE = 1 LINE = 3 COLUMN = 25 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = wk_addr1_mnk DATATYPE = CHAR LENGTH = 40 DISPLAY_LENGTH = 30 QUERY_LENGTH = 40 PAGE = 1 LINE = 3 COLUMN = 44 ENDDEFINE FIELD DEFINE FIELD NAME = wk_addr2_mnk DATATYPE = CHAR LENGTH = 30 DISPLAY_LENGTH = 30 QUERY_LENGTH = 30 BASE_TABLE = OFF PAGE = 1 LINE = 4 COLUMN = 44 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = wk_cnt_cnt DATATYPE = NUMBER LENGTH = 5 DISPLAY_LENGTH = 5 QUERY_LENGTH = 5 BASE_TABLE = OFF PAGE = 1 LINE = 4 COLUMN = 30 INPUT_MASK = 99999 OUTPUT_MASK = 99999 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = real_cnt_cnt DATATYPE = NUMBER LENGTH = 5 DISPLAY_LENGTH = 5 QUERY_LENGTH = 5 BASE_TABLE = OFF PAGE = 1 LINE = 5 COLUMN = 30 INPUT_MASK = 99990 OUTPUT_MASK = 99990 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = wk_cnt_cnt1 DATATYPE = NUMBER LENGTH = 5 DISPLAY_LENGTH = 5 QUERY_LENGTH = 5 BASE_TABLE = OFF DISPLAYED = OFF PAGE = 0 LINE = 0 COLUMN = 0 ECHO = OFF INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = tot_cnt DATATYPE = NUMBER LENGTH = 7 DISPLAY_LENGTH = 7 QUERY_LENGTH = 7 BASE_TABLE = OFF PAGE = 1 LINE = 22 COLUMN = 7 INPUT_MASK = 999,990 OUTPUT_MASK = 999,990 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = sum_won_amt DATATYPE = NUMBER LENGTH = 13 DISPLAY_LENGTH = 13 QUERY_LENGTH = 13 BASE_TABLE = OFF PAGE = 1 LINE = 22 COLUMN = 30 INPUT_MASK = 9,999,999,990 OUTPUT_MASK = 9,999,999,990 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = sum_int_amt DATATYPE = NUMBER LENGTH = 13 DISPLAY_LENGTH = 13 QUERY_LENGTH = 13 BASE_TABLE = OFF PAGE = 1 LINE = 22 COLUMN = 50 INPUT_MASK = 9,999,999,990 OUTPUT_MASK = 9,999,999,990 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = tot_tot_amt DATATYPE = NUMBER LENGTH = 13 DISPLAY_LENGTH = 13 QUERY_LENGTH = 13 BASE_TABLE = OFF PAGE = 1 LINE = 22 COLUMN = 67 INPUT_MASK = 9,999,999,990 OUTPUT_MASK = 9,999,999,990 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD ENDDEFINE BLOCK DEFINE BLOCK NAME = qb11 DESCRIPTION = qb11 TABLE = hps002 ROWS_DISPLAYED = 6 BASE_LINE = 9 LINES_PER_ROW = 2 ARRAY_SIZE = 0 ORDERING = <<< where jiso_code = :wk_jiso and member_code = :cb1.member_code and list_date = :wk_ch_date and slip_no1 = :wk_cnt_cnt order by deal_date, inst_div >>> DEFINE TRIGGER NAME = PRE-RECORD TRIGGER_TYPE = V3 TEXT = <<< :wk_sign := '=>'; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = POST-RECORD TRIGGER_TYPE = V3 TEXT = <<< :wk_sign := null; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-COMMIT TRIGGER_TYPE = V3 TEXT = <<< :system.message_level := 25; :global.commit := '3'; if :global.commit in('1','3') then :global.do := 'N'; :global.msgid := '화면의내용을 취소하시겠습니까?'; call('/COSMOS/cosmos/SYSCOMF',no_hide); if :global.do = 'Y' then go_block('qb11'); cancel_rtn; delete_hps035; commit; go_block('cb1'); end if; if :global.commit = '2' then message('==> 자료가 등록되었습니다 !!!'); elsif :global.commit = '1' then message('==> 자료등록 실패 !!!'); else message('==> 변경된 자료가 없습니다 !!!'); end if; end if; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-down TRIGGER_TYPE = V3 TEXT = <<< if :system.last_record = 'TRUE' then first_record; else down; end if; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-exit TRIGGER_TYPE = V3 TEXT = <<< go_block('cb1'); go_field('wk_calcu_date'); >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-others TRIGGER_TYPE = V3 TEXT = <<< null; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-SCRDOWN TRIGGER_TYPE = V3 TEXT = <<< scroll_down; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-SCRUP TRIGGER_TYPE = V3 TEXT = <<< scroll_up; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-up TRIGGER_TYPE = V3 TEXT = <<< if :system.cursor_record = '1' then last_record; else up; end if; >>> ENDDEFINE TRIGGER DEFINE FIELD NAME = INST_DIV DATATYPE = CHAR LENGTH = 1 DISPLAY_LENGTH = 1 QUERY_LENGTH = 1 PAGE = 2 LINE = 1 COLUMN = 1 HELP = INST_DIV 에 대한 값을 입력하십시오.: INPUT = OFF UPDATE = OFF DEFINE TRIGGER NAME = POST-CHANGE TRIGGER_TYPE = V3 TEXT = <<< if :inst_div = '1' then :inst_div_mnk := '원 금'; elsif :inst_div = '2' then :inst_div_mnk := '정상이자'; elsif :inst_div = '3' then :inst_div_mnk := '정상이자'; elsif :inst_div = '4' then :inst_div_mnk := '연체이자'; end if; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = MEMBER_CODE DATATYPE = CHAR LENGTH = 6 DISPLAY_LENGTH = 1 QUERY_LENGTH = 6 PAGE = 2 LINE = 1 COLUMN = 3 HELP = MEMBER_CODE 에 대한 값을 입력하십시오.: INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = LIST_DATE DATATYPE = DATE LENGTH = 8 DISPLAY_LENGTH = 1 QUERY_LENGTH = 8 PAGE = 2 LINE = 1 COLUMN = 5 HELP = LIST_DATE 에 대한 값을 입력하십시오.: INPUT_MASK = yyyymmdd OUTPUT_MASK = yyyymmdd INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = SALE_DIR1 DATATYPE = CHAR LENGTH = 1 DISPLAY_LENGTH = 1 QUERY_LENGTH = 1 PAGE = 2 LINE = 1 COLUMN = 7 HELP = SALE_DIR1 에 대한 값을 입력하십시오.: INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = SLIP_NO DATATYPE = NUMBER LENGTH = 5 DISPLAY_LENGTH = 1 QUERY_LENGTH = 5 PAGE = 2 LINE = 1 COLUMN = 9 HELP = SLIP_NO 에 대한 값을 입력하십시오.: INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = KCODE DATATYPE = CHAR LENGTH = 8 DISPLAY_LENGTH = 1 QUERY_LENGTH = 8 PAGE = 2 LINE = 1 COLUMN = 11 HELP = KCODE 에 대한 값을 입력하십시오.: INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = SLIP_NO1 DATATYPE = NUMBER LENGTH = 5 DISPLAY_LENGTH = 1 QUERY_LENGTH = 5 PAGE = 2 LINE = 1 COLUMN = 13 HELP = SLIP_NO1 에 대한 값을 입력하십시오.: INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = J_DIV DATATYPE = CHAR LENGTH = 1 DISPLAY_LENGTH = 1 QUERY_LENGTH = 1 PAGE = 2 LINE = 1 COLUMN = 15 HELP = J_DIV 에 대한 값을 입력하십시오.: INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = INST_SERIAL DATATYPE = NUMBER LENGTH = 4 DISPLAY_LENGTH = 1 QUERY_LENGTH = 4 PAGE = 2 LINE = 1 COLUMN = 17 HELP = INST_SERIAL 에 대한 값을 입력하십시오.: INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = wk_sign DATATYPE = CHAR LENGTH = 2 DISPLAY_LENGTH = 2 QUERY_LENGTH = 2 BASE_TABLE = OFF PAGE = 1 LINE = 1 COLUMN = 3 UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = DEAL_DATE DATATYPE = DATE LENGTH = 8 DISPLAY_LENGTH = 8 QUERY_LENGTH = 8 PAGE = 1 LINE = 1 COLUMN = 6 HELP = DEAL_DATE 에 대한 값을 입력하십시오.: INPUT_MASK = yyyymmdd OUTPUT_MASK = yyyymmdd INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = inst_div_mnk DATATYPE = CHAR LENGTH = 8 DISPLAY_LENGTH = 8 QUERY_LENGTH = 8 BASE_TABLE = OFF PAGE = 1 LINE = 1 COLUMN = 15 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = CALCU_AMT DATATYPE = NUMBER LENGTH = 11 DISPLAY_LENGTH = 11 QUERY_LENGTH = 11 PAGE = 1 LINE = 1 COLUMN = 24 HELP = CALCU_AMT 에 대한 값을 입력하십시오.: INPUT_MASK = 999,999,990 OUTPUT_MASK = 999,999,990 INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = CALCU_FROM DATATYPE = DATE LENGTH = 8 DISPLAY_LENGTH = 8 QUERY_LENGTH = 8 PAGE = 1 LINE = 1 COLUMN = 36 HELP = CALCU_FROM 에 대한 값을 입력하십시오.: INPUT_MASK = yyyymmdd OUTPUT_MASK = yyyymmdd INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = CALCU_TO DATATYPE = DATE LENGTH = 8 DISPLAY_LENGTH = 8 QUERY_LENGTH = 8 PAGE = 1 LINE = 1 COLUMN = 45 HELP = CALCU_TO 에 대한 값을 입력하십시오.: INPUT_MASK = yyyymmdd OUTPUT_MASK = yyyymmdd INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = INST_CNT DATATYPE = NUMBER LENGTH = 5 DISPLAY_LENGTH = 5 QUERY_LENGTH = 5 PAGE = 1 LINE = 1 COLUMN = 54 HELP = INST_CNT 에 대한 값을 입력하십시오.: INPUT_MASK = 99990 OUTPUT_MASK = 99990 INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = INST_RATE DATATYPE = NUMBER LENGTH = 6 DISPLAY_LENGTH = 6 QUERY_LENGTH = 6 PAGE = 1 LINE = 1 COLUMN = 60 HELP = INST_RATE 에 대한 값을 입력하십시오.: INPUT_MASK = 99.999 OUTPUT_MASK = 99.999 INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = REAL_AMT DATATYPE = NUMBER LENGTH = 11 DISPLAY_LENGTH = 11 QUERY_LENGTH = 11 PAGE = 1 LINE = 1 COLUMN = 67 HELP = INST_AMT 에 대한 값을 입력하십시오.: INPUT_MASK = 999,999,990 OUTPUT_MASK = 999,999,990 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = inst_amt DATATYPE = NUMBER LENGTH = 11 DISPLAY_LENGTH = 11 QUERY_LENGTH = 11 PAGE = 1 LINE = 2 COLUMN = 67 INPUT_MASK = 999,999,999 OUTPUT_MASK = 999,999,999 INPUT = OFF UPDATE = OFF ENDDEFINE FIELD DEFINE FIELD NAME = paid_date DATATYPE = DATE LENGTH = 10 DISPLAY_LENGTH = 10 QUERY_LENGTH = 10 DISPLAYED = OFF PAGE = 0 LINE = 248 COLUMN = 0 INPUT_MASK = yyyy/mm/dd OUTPUT_MASK = yyyy/mm/dd ECHO = OFF INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD ENDDEFINE BLOCK DEFINE SCREEN DEFINE PAGE PAGE = 1 POPUP = ON PAGE_XS = 80 PAGE_YS = 22 PAGE_PX0 = 1 PAGE_PY0 = 3 PAGE_PXS = 80 PAGE_PYS = 20 PAGE_SX0 = 1 PAGE_SY0 = 3 MODE = TEXT LINE = 3 BOILER = <<< 조합원번호 :[ | ] 주소 :[ ] 기표 일자 :[ ][ ] [ ] 취소 일자 :[ ][ ] 지소 :[ ] >>> LINE = 7 BOILER = <<< 구매일자 적 요 대상 금액 계 산 기 간 일 수 이 율 계산금액 >>> LINE = 22 BOILER = <<< [총계] 건 [합계] 원금: 이자: 계: >>> MODE = BOX LINE = 6 BOILER = <<< p------------------------------------------------------------------------------q | | (------------------------------------------------------------------------------) | | | | | | | | | | | | | | | | | | | | | | | | b------------------------------------------------------------------------------d >>> ENDDEFINE PAGE DEFINE PAGE PAGE = 2 PAGE_XS = 0 PAGE_YS = 0 PAGE_PX0 = 0 PAGE_PY0 = 0 PAGE_PXS = 0 PAGE_PYS = 0 PAGE_SX0 = 0 PAGE_SY0 = 0 ENDDEFINE PAGE DEFINE PAGE PAGE = 3 PAGE_XS = 0 PAGE_YS = 0 PAGE_PX0 = 0 PAGE_PY0 = 0 PAGE_PXS = 0 PAGE_PYS = 0 PAGE_SX0 = 0 PAGE_SY0 = 0 MODE = TEXT LINE = 2 BOILER = <<< ======== QB11 ======== >>> ENDDEFINE PAGE ENDDEFINE SCREEN ENDDEFINE FORM