/* Copyright (c) 1988 by the Oracle Corporation */ SQL*FORMS_VERSION = 03.00.16.12.07 TERSE = ON DEFINE FORM NAME = HPSE9999 TITLE = HPSE9999 DEFAULT_MENU_APPLICATION = DEFAULT 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-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('SYSCOMF',no_hide); if :global.do = 'Y' then commit; 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-EXIT TRIGGER_TYPE = V3 TEXT = <<< exit_form(no_commit); >>> ENDDEFINE TRIGGER DEFINE BLOCK NAME = cb ROWS_DISPLAYED = 1 BASE_LINE = 1 LINES_PER_ROW = 0 ARRAY_SIZE = 0 DEFINE TRIGGER NAME = KEY-LISTVAL TRIGGER_TYPE = V3 TEXT = <<< list_values; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-STARTUP TRIGGER_TYPE = V3 TEXT = <<< :wk_jiso := :global.jiso_code; >>> ENDDEFINE TRIGGER DEFINE FIELD NAME = old_kcode_name DATATYPE = CHAR LENGTH = 40 DISPLAY_LENGTH = 26 QUERY_LENGTH = 40 BASE_TABLE = OFF PAGE = 1 LINE = 4 COLUMN = 53 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = wk_maker_name DATATYPE = CHAR LENGTH = 40 DISPLAY_LENGTH = 16 QUERY_LENGTH = 40 BASE_TABLE = OFF PAGE = 1 LINE = 5 COLUMN = 63 INPUT = OFF UPDATE = OFF QUERY = OFF AUTOHELP = ON ENDDEFINE FIELD DEFINE FIELD NAME = wk_jiso_name DATATYPE = CHAR LENGTH = 20 DISPLAY_LENGTH = 14 QUERY_LENGTH = 20 BASE_TABLE = OFF PAGE = 1 LINE = 4 COLUMN = 19 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = wk_kcode_nm DATATYPE = CHAR LENGTH = 40 DISPLAY_LENGTH = 14 QUERY_LENGTH = 40 BASE_TABLE = OFF PAGE = 1 LINE = 5 COLUMN = 27 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = wk_jiso DATATYPE = CHAR LENGTH = 5 DISPLAY_LENGTH = 5 QUERY_LENGTH = 5 BASE_TABLE = OFF PAGE = 1 LINE = 4 COLUMN = 13 HELP = 사무소코드 LOV_TEXT = <<< select jiso_code, jiso_name into :wk_jiso, wk_jiso_name from hcm040 order by jiso_code >>> LOV_X = 60 LOV_Y = 9 QUERY = OFF AUTOHELP = ON DEFINE TRIGGER NAME = POST-CHANGE TRIGGER_TYPE = V3 TEXT = <<< begin select jiso_name into :cb.wk_jiso_name from hcm040 where jiso_code = :cb.wk_jiso; exception when others then message('등록된 사무소가 존재하지 않습니다. 확인하십시요!'); :cb.wk_jiso := ''; :cb.wk_jiso_name := ''; bell; end; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-nxtfld TRIGGER_TYPE = V3 TEXT = <<< if :wk_jiso is null then message('사무소코드를 입력하십시요!'); previous_field; else next_field; end if; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = old_kcode DATATYPE = CHAR LENGTH = 8 DISPLAY_LENGTH = 8 QUERY_LENGTH = 8 BASE_TABLE = OFF PAGE = 1 LINE = 4 COLUMN = 44 LOV_TEXT = <<< select substr(hcm010.sangho,1,8), hcm010.kcode, gm_georae.sil_no, substr(gm_georae.sangho,1,8), to_char(from_date,'yyyy/mm/dd') into :cb.old_kcode_name, :cb.old_kcode, :cb.wk_kcode, :cb.wk_kcode_nm from hcm010, hps007, gm_georae where hps007.kcode = hcm010.kcode and gm_georae.old_kcode = hcm010.kcode and gm_georae.jiso_code = hps007.jiso_code and hps007.jiso_code = :wk_jiso and from_date = (select max(a.from_date) from hps007 a where a.kcode = hps007.kcode) group by hcm010.kcode, hcm010.sangho, gm_georae.sil_no, gm_georae.sangho, to_char(from_date,'yyyy/mm/dd') order by hcm010.sangho >>> LOV_X = 60 LOV_Y = 9 AUTOHELP = ON UPPERCASE = ON DEFINE TRIGGER NAME = POST-CHANGE TRIGGER_TYPE = V3 TEXT = <<< begin select hcm010.sangho, gm_georae.sil_no, gm_georae.sangho into :old_kcode_name, :wk_kcode, :wk_kcode_nm from hcm010, hps007, gm_georae where hcm010.kcode = hps007.kcode and gm_georae.old_kcode = hps007.kcode and hps007.jiso_code = gm_georae.jiso_code and hps007.kcode = :old_kcode and gm_georae.jiso_code = :wk_jiso group by hps007.kcode, hcm010.sangho, gm_georae.sil_no, gm_georae.sangho; exception when others then NULL; /* :old_kcode := ''; :old_kcode_name := ''; message('등록된 거래처코드가 존재하지 않습니다!'); raise form_trigger_failure; */ end; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-nxtfld TRIGGER_TYPE = V3 TEXT = <<< if :old_kcode is null then message('거래처코드를 입력하십시요!'); raise form_trigger_failure; bell; end if; next_field; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = wk_kcode DATATYPE = CHAR LENGTH = 13 DISPLAY_LENGTH = 13 QUERY_LENGTH = 13 BASE_TABLE = OFF PAGE = 1 LINE = 5 COLUMN = 13 HELP = 신규로등록한 거래처코드 LOV_TEXT = <<< select sil_no, sangho into :cb.wk_kcode, :cb.wk_kcode_nm from gm_georae where jiso_code = :cb.wk_jiso order by sangho >>> LOV_X = 60 LOV_Y = 9 INPUT = OFF UPDATE = OFF QUERY = OFF AUTOHELP = ON DEFINE TRIGGER NAME = POST-CHANGE TRIGGER_TYPE = V3 TEXT = <<< begin select distinct sangho into :cb.wk_kcode_nm from gm_georae where jiso_code = :cb.wk_jiso and sil_no = :cb.wk_kcode; exception when others then message('등록된 신규거래처코드가 없습니다. 확인하십시요!!!'); raise form_trigger_failure; :cb.wk_kcode := ''; :cb.wk_kcode_nm := ''; end; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-nxtfld TRIGGER_TYPE = V3 TEXT = <<< if :cb.wk_kcode is null then message('거래처코드를 입력하십시요!'); raise form_trigger_failure; bell; end if; next_field; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = wk_maker_cd DATATYPE = CHAR LENGTH = 13 DISPLAY_LENGTH = 13 QUERY_LENGTH = 13 BASE_TABLE = OFF PAGE = 1 LINE = 5 COLUMN = 49 HELP = 제조사료공장 LOV_TEXT = <<< select sangho, maker_cd into :cb.wk_maker_name, :cb.wk_maker_cd from pumcode group by maker_cd, sangho order by sangho >>> LOV_X = 60 LOV_Y = 9 QUERY = OFF AUTOHELP = ON UPPERCASE = ON DEFINE TRIGGER NAME = POST-CHANGE TRIGGER_TYPE = V3 TEXT = <<< begin select sangho into :wk_maker_name from pumcode where maker_cd = :cb.wk_maker_cd group by maker_cd, sangho; exception when others then :cb.wk_maker_cd := ''; :cb.wk_maker_name := ''; message('등록된 거래처코드가 존재하지 않습니다!'); raise form_trigger_failure; bell; end; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-nxtfld TRIGGER_TYPE = V3 TEXT = <<< if :wk_maker_cd is null then message('제조처코드를 등록하십시요!'); :wk_maker_cd := ''; :wk_maker_name := ''; previous_field; end if; :system.message_level := 25; go_block('qb11'); execute_query; :system.message_level := 0; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD ENDDEFINE BLOCK DEFINE BLOCK NAME = qb11 TABLE = gm_pumcode ROWS_DISPLAYED = 13 ROWS_BUFFERED = 13 BASE_LINE = 9 LINES_PER_ROW = 1 ARRAY_SIZE = 0 ORDERING = <<< where kcode = :cb.wk_kcode and old_kcode = :cb.old_kcode and maker_cd = :cb.wk_maker_cd order by kcode >>> DEFINE TRIGGER NAME = ON-INSERT TRIGGER_TYPE = V3 TEXT = <<< begin insert into gm_pumcode (jiso_code,kcode, maker_cd, jcode, pum_name, dae, jung, so, se, std, unit, old_kcode, old_jcode, vat_gbn) values (:cb.wk_jiso, :cb.wk_kcode, :cb.wk_maker_cd, :qb11.jcode, :qb11.pum_name, :qb11.dae, :qb11.jung, :qb11.so, :qb11.se, :qb11.std, :qb11.unit, :cb.old_kcode, :qb11.old_jcode, :qb11.vat_gbn); exception when others then message('품목코드 등록 오류!!! 등록된 자료를 확인하십시요!'); raise form_trigger_failure; bell; end; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-CREREC TRIGGER_TYPE = V3 TEXT = <<< create_record; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-DELREC TRIGGER_TYPE = V3 TEXT = <<< delete_record; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-exit TRIGGER_TYPE = V3 TEXT = <<< clear_block(no_commit); go_block('cb'); >>> 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 FIELD NAME = jcode DATATYPE = CHAR LENGTH = 7 DISPLAY_LENGTH = 7 QUERY_LENGTH = 7 PAGE = 1 LINE = 1 COLUMN = 3 LOV_TEXT = <<< select pum_name, jcode, dae, jung, so, se, std, unit into :qb11.pum_name, :qb11.jcode, :qb11.dae, :qb11.jung, :qb11.so, :qb11.se, :qb11.std, :qb11.unit from pumcode where maker_cd = :cb.wk_maker_cd order by pum_name >>> LOV_X = 60 LOV_Y = 9 QUERY = OFF AUTOHELP = ON UPPERCASE = ON DEFINE TRIGGER NAME = POST-CHANGE TRIGGER_TYPE = V3 TEXT = <<< begin select pum_name, dae, jung, std, unit into :qb11.pum_name, :qb11.dae, :qb11.jung, :qb11.std, :qb11.unit from pumcode where jcode = :qb11.jcode and maker_cd = :cb.wk_maker_cd; exception when others then :qb11.pum_name := ''; :qb11.jcode := ''; :qb11.dae := ''; :qb11.jung := ''; :qb11.std := ''; :qb11.unit := ''; message('등록된 품목코드를 확인하십시요!'); raise form_trigger_failure; bell; end; >>> 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-nxtfld TRIGGER_TYPE = V3 TEXT = <<< if :qb11.jcode is null then message('품목코드를입력하십시요!'); raise form_trigger_failure; bell; else next_field; end if; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-up TRIGGER_TYPE = V3 TEXT = <<< if :system.cursor_record = 'TRUE' then last_record; else up; end if; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = pum_name DATATYPE = CHAR LENGTH = 30 DISPLAY_LENGTH = 18 QUERY_LENGTH = 30 BASE_TABLE = OFF PAGE = 1 LINE = 1 COLUMN = 11 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = dae DATATYPE = CHAR LENGTH = 2 DISPLAY_LENGTH = 2 QUERY_LENGTH = 2 PAGE = 1 LINE = 1 COLUMN = 30 HELP = 대분류 LOV_TEXT = <<< select dae, name from comm where dae <> '00' and jung = '00' and so = '00' and se = '00' group by dae, name >>> LOV_X = 60 LOV_Y = 9 AUTOHELP = ON ENDDEFINE FIELD DEFINE FIELD NAME = jung DATATYPE = CHAR LENGTH = 2 DISPLAY_LENGTH = 2 QUERY_LENGTH = 2 PAGE = 1 LINE = 1 COLUMN = 33 UPDATE = OFF AUTOHELP = ON ENDDEFINE FIELD DEFINE FIELD NAME = so DATATYPE = CHAR LENGTH = 2 DISPLAY_LENGTH = 2 QUERY_LENGTH = 2 PAGE = 1 LINE = 1 COLUMN = 36 HELP = 소분류 LOV_TEXT = <<< select so, name into :qb11.so from comm where dae = :qb11.dae and jung = :qb11.jung and so <> '00' group by so, name >>> LOV_X = 60 LOV_Y = 9 AUTOHELP = ON ENDDEFINE FIELD DEFINE FIELD NAME = se DATATYPE = CHAR LENGTH = 2 DISPLAY_LENGTH = 2 QUERY_LENGTH = 2 PAGE = 1 LINE = 1 COLUMN = 39 HELP = 세분류 LOV_TEXT = <<< select se, name into :qb11.se from comm where dae = :qb11.dae and jung = :qb11.jung and so = :qb11.so and se <> '00' group by se, name >>> LOV_X = 60 LOV_Y = 9 AUTOHELP = ON ENDDEFINE FIELD DEFINE FIELD NAME = std DATATYPE = CHAR LENGTH = 8 DISPLAY_LENGTH = 4 QUERY_LENGTH = 8 PAGE = 1 LINE = 1 COLUMN = 42 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = unit DATATYPE = CHAR LENGTH = 2 DISPLAY_LENGTH = 2 QUERY_LENGTH = 2 PAGE = 1 LINE = 1 COLUMN = 47 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = old_jcode DATATYPE = CHAR LENGTH = 8 DISPLAY_LENGTH = 8 QUERY_LENGTH = 8 PAGE = 1 LINE = 1 COLUMN = 50 LOV_TEXT = <<< select pum_name, jcode, unit, qty into :qb11.old_pum_name, :qb11.old_jcode from hcm030 where jcode in (select jcode from hps024 where kcode = :cb.old_kcode) order by pum_name >>> LOV_X = 60 LOV_Y = 9 QUERY = OFF AUTOHELP = ON UPPERCASE = ON DEFINE TRIGGER NAME = POST-CHANGE TRIGGER_TYPE = V3 TEXT = <<< begin select pum_name into :qb11.old_pum_name from hcm030 where jcode = :old_jcode and jcode in (select jcode from hps024 where kcode = :cb.old_kcode); exception when others then :old_jcode := ''; :old_pum_name := ''; message('품목코드를 확인하십시요!'); raise form_trigger_failure; bell; end; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-nxtfld TRIGGER_TYPE = V3 TEXT = <<< if :old_jcode is null then message('품목코드를 등록하십시요!'); raise form_trigger_failure; end if; next_field; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = old_pum_name DATATYPE = CHAR LENGTH = 30 DISPLAY_LENGTH = 18 QUERY_LENGTH = 30 BASE_TABLE = OFF PAGE = 1 LINE = 1 COLUMN = 59 INPUT = OFF UPDATE = OFF QUERY = OFF ENDDEFINE FIELD DEFINE FIELD NAME = vat_gbn DATATYPE = CHAR LENGTH = 1 DISPLAY_LENGTH = 1 QUERY_LENGTH = 1 PAGE = 1 LINE = 1 COLUMN = 78 HELP = 1:과세 2:면세 3:영세 QUERY = OFF AUTOHELP = ON DEFINE TRIGGER NAME = key-nxtfld TRIGGER_TYPE = V3 TEXT = <<< if :vat_gbn is null then message('과세구분코드를 입력하십시요!'); previous_field; :vat_gbn := ''; elsif :vat_gbn not in ('1','2','3') then message('코드범위를 벗어났습니다. 확인하십시요!'); raise form_trigger_failure; end if; next_record; >>> ENDDEFINE TRIGGER 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 = <<< 신규품목코드 대 중 소 세 중량 포/BK 구품목코드 세무구분 >>> MODE = BOX LINE = 6 BOILER = <<< p----------------------------------------------------------------------------q | | b----------------------------------------------------------------------------d >>> ENDDEFINE PAGE ENDDEFINE SCREEN ENDDEFINE FORM