ROS.60050 `r    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~8000L8000M8000N8000O8000P8000Q8000R8000S8000T8000U8000V8000W8000X8000Y8000Z8000[8000\8000]8000^8000_8000`8000a8000b8000c8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000v8000w8000x8000y8000z8000{8000|8000}8000~800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000@(r008 x"* .`08r100r0g888p0840808N 000808 . 02SL 0888b88 08 x" , 0 08r100r75gb8008408P08N 00`08p08 . 02@08g88b8808 x"+ .08r100r0g8!1008408"08N #0008$ 08 . 02CO&00888b100(@08 x" ,) 0P08r100r75g*b1p08408,08N -0008/08 0 24 (008g88b10010808 2 *08Nr1003st08248080_C508608x" * , .7N 08custom7800808 9 *P08Nr100:stp080;808.=08 ?08 * ,.A0812GGGD08x" ( * ,G08gray8H08 x" (K , 08r100grayL00808 N*@08Nr100Og1P083P8`081 Q p080@R08x" , .0Ssg08r50g100bV0808 Y ,08N r100\5g083^8081_ p080a08x" , .0d**08r100g100g0808 h+08N r100ig1084m8 082ban 00850@o@08x" , . 0psyP08r50g100bq`0808 r ,08N r100s5g0848882po  8850088x" . 0 2io@88r100g1000P88208`88N 00p88la'00 x%N Nr0g0b88*00 x (x" , . 0AN r25g25b880g*00 x (08 hN r50g50b88 .08 x" ,4N r100r50g75b88,08 x"*Nr100r0g88b884 iN r100r100g100b75')208 x"+ , .0RMN r100r0g100b88408 x" , . 02v_N r100r25g100b88@408 x" , . 02 N r100r50g100b88408 x" , . 02sgN r100r75g100b88408 x" , . 02; N r100r88g100b88608 x" . 0 24= N r100r100g100b88; 408 x", . 02; N r100r0g100b100608 x" . 0 24v_N r100r25g100b100@ 608 x" . 0 24mtN r100r50g100b100_r608 x" . 0 24 lN r100r75g100b100or608 x" . 0 24N r100r88g100b100608 x" . 0 24,N r100r100g100b100*:BF( (((( SQL*Forms`FORM50":message""!%&(,0  PN0/ ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H 00+Tics" |4GIL8 $!d$LMESSAGEmessageblue $ /+ N(N80Nle_amt; :qb2.cost := v_cost; :qb2.amt := v_amt; :qb2.vat_amt := v_vat_amt; /* if substr(:qb2.item_cd,6,1) = '1' and :car_div = '5' then :item_gu := 'Y'; elsif substr(:qb2.item_cd,6,1) = '2' and :car_div = '5' then :item_gu := 'N'; end if; */ synchronize; next_record; END LOOP; CLOSE lfsgt302_cursor; previous_record; END;ERY begin select nvl(remarks,0) into :vat_rat from lfcmt120 where lcd = 'TAX' and dcd = :vat_div; exception when no_data_found then :vat_rat := 0; end;  END; WHEN-VALIDATE-ITEM (QB1.VAT_DIV)۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000@r<hh:*FRM50_BUFFER table contains user's buffer.hh,NROSATTRIBSclass attributes+hh) 0ROSLFDESCros lf descrip)hh'ROSOBJMAPros name->id75g+hh)ROSSTRINGStk2 uiStrings*hh(ROSSTRUCTSstruct types@*hh(8bROSTK2RESVtk2 reserved+PhhN00TOOL_MODULEtable contains information about different module$pp"8VG_COLORVG_COLOR+pp $&'()VG_COLORITEMIDr@0+pp $&'()VG_COLORCELLIDr@-pp &()*+VG_COLORNAME_SET@ 8/pp (*+,-VG_COLORNAME_LENGTH /pp (*+,-VG_COLORCOLOR_NAMEx&'pp "#$%VG_COLORRED t)pp "$%&'VG_COLORGREEN N)pp "$%&'VG_COLORBLUE 00808HD R;<Y1  $ NP0_26_APR_200423_59_02BEGIN D/*********************************************************/ /* α׷ ۼ : */ /* ۼ : 2001.10.17 */ /* ۾ ̺ : lfsgt320,lfsgt321 */ /* ̺ : lfcmt120,lfsgt100,LFSGT810 */ /* α׷ ǥ ϴ α׷ Դϴ. */ /*********************************************************/ :system.message_level := 25; :usrid := :global.usrid; :usrnm := :global.usrnm; :pgmid := :global.pgmid; :sysdt := :global.sysdt; :slip_dt_c := substr(:sysdt,1,4)||substr(:sysdt,6,2)||substr(:sysdt,9,2); :coop_c := :global.coop; if populate_group('rg_io_slip') = 0 then populate_list('io_slip_c' ,'rg_io_slip'); populate_list('cb3.io_slip','rg_io_slip'); end if; if populate_group('rg_vat') = 0 then populate_list('vat_div','rg_vat'); end if; if populate_group('rg_style') = 0 then populate_list('sale_style','rg_style'); end if; if populate_group('rg_car_div') = 0 then populate_list('car_div','rg_car_div'); end if; :message := msg_dsp('20001');  END;WHEN-NEW-FORM-INSTANCE (Form)408 x" , . 02v_N r100r25g100b88@408 x" , . 02 N r100r50g100b88408 x" , . 02sgN r100r75g100b88408 x" , . 02; N r100r88g100b88608 x" . 0 24= N r100r100g100b88; 408 x", . 02; N r100r0g100b100608 x" . 0 24v_N r100r25g100b100@ 608 x" . 0 24mtN r100r50g100b100_r608 x" . 0 24 lN r100r75g100b100or608 x" . 0 24N r100r88g100b100608 x" . 0 24,N r100r100g100b100*:BF( (((( SQL*Forms`FORM50"X"Y":system.mouse_item":help""J!$(.15;?@BFLPQSW[_      N N` ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H Oics" <;004 49 1G I88 $888 G ILL $8L``G Extt $8(tG E| $8(.TA.`AlG I $lG E<G I $lG E<G I $ lG E<G I $!$BB1%BUTTONhelpY AAA4(8(L(t0(8A@A`D(` Ez   1PopO N$N8(NT0`4l8N vgiddnp"L-NqV vgianoq vgiaenq vgiastq vgiameq vgiamtq vgiabop7L-Nq4Uq5Uq6Uq7Up2L-Nq$Vq%q&q'q(p-pOPlQRS-p$-p5-p OP[QRS-pOP]QRS-pOP[QRS-pOP]QRS-p0L-NpOPgQRSpOPgQRStttt-- LN+OPrQRSYOPtQRS(LNPOPkQ`r0808HD1 $"NP3_26_APR_200423_59_02BEGIN :global.commit := '1';  END;PRE-COMMIT (Form)@BͫͫͫͫͫͫͫwSYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 &"PKG INIT"":global.commit""!%&(,0  N ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"i $!L<1   N23_59_02BEGIN do_key('clear_block');  END;WHEN-BUTTON-PRESSED (BB1.CLEAR)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"R $!<,clear_block NND;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000pra0808_IIHD1 $"1NP4_26_APR_200423_59_02BEGIN @if :global.commit = '1' then :global.commit := '2'; end if;  END;POST-FORMS-COMMIT (Form)rBͫͫͫͫͫͫͫwSYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 &"PKG INIT"":global.commit""!%&(,0  N0/ ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H 008ics" ( !X@12  #/ N$N /*0800 Pt100,LFSGT810 */ /* α׷ ǥ ϴ α׷ Դϴ. */ /*********************************************************/ :system.message_level := 25; :usrid := :global.usrid; :usrnm := :global.usrnm; :pgmid := :global.pgmid; :sysdt := :global.sysdt; :slip_dt_c := substr(:sysdt,1,4)||substr(:sysdt,6,2)||substr(:sysdt,9,2); :coop_c := :global.coop; if populate_group('rg_io_slip') = 0 then populate_list('io_slip_c' ,'rg_io_slip'); populate_list('cb3.io_slip','rg_io_slip'); end if; if populate_group('rg_vat') = 0 then populate_list('vat_div','rg_vat'); end if; if populate_group('rg_style') = 0 then populate_list('sale_style','rg_style'); end if; if populate_group('rg_car_div') = 0 then populate_list('car_div','rg_car_div'); end if; :message := msg_dsp('20001');  END;WHEN-NEW-FORM-INSTANCE (Form) order_no = :qb1.order_no order by item_div,item_cd ; BEGIN go_block('qb2'); OPEN lfsgt302_cursor; LOOP FETCH lfsgt302_cursor INTO v_item_div,v_item_cd,v_qty,v_sale_amt,v_cost, v_amt,v_vat_amt; EXIT WHEN lfsgt302_cursor%NOTFOUND; :qb2.item_div := v_item_div; :qb2.item_cd := v_item_cd; :qb2.item_cd_d := readitem(v_item_div,v_item_cd); :qb2.qty := v_qty; :qb2.sale_amt:= v_sale_amt; :qb2.cost := v_cost; :qb2.amt := v_amt; :qb2.vat_amt := v_vat_amt; synchronize; next_record; END LOOP; CLOSE lfsgt302_cursor; previous_record; END; ijk@lm,n 8808H: 1  $&NORDER_LFSGT310_UPT*PROCEDURE order_lfsgt310_upt IS BEGIN if :normal = '10' then begin update lfsgt310 set complete_ask = '2' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; elsif :normal = '19' then begin update lfsgt310 set complete_ask = '1' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; end if; END;  800080008000800080008000800080008000800080008000800080008000#lHDg;<Y 1 $" 5NP7_26_APR_200423_59_02BEGIN :put_check := '1'; if :system.cursor_block = 'CB1' then go_block('qb2'); clear_block(no_validate); go_block('qb1'); clear_block(no_validate); go_block('cb1'); clear_block(no_validate); :slip_dt_c := substr(:sysdt,1,4)||substr(:sysdt,6,2)||substr(:sysdt,9,2); :coop_c := :global.coop; :normal_i := :normal; elsif :system.cursor_block in ('QB1','QB2') then go_block('qb2'); clear_block(no_validate); go_block('qb1'); clear_block(no_validate); go_block('cb1'); elsif :system.cursor_block in ('CB2') then clear_block(no_validate); elsif :system.cursor_block in ('CB3') then clear_block(no_validate); go_block('cb2'); end if;  END;KEY-CLRBLK (Form) mͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS FORMS4C $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 ==p"PKG INIT"":put_check":system.cursor_block":sysdt":slip_dt_c":global.coop":coop_c":normal":normal_i""!%&(,2679=CGHJNTXY[_eijlpvz{}<4Ng 5 N 6 N7 N;8 NY#9%$&N"< ):+*,N(  /;102N.(D !'-3 "(.,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H Tics" \g(( 8$:G E($T$:G E($p$:G E($DD XXDD ll;Xl@DD ;@<<;Y< (( (M C8$:G E($T$:G E($p$:u(($ G E($D((/ $G E($8$:!$1CB1qb2qb1cb1 QB1QB2CB2CB3cb2m(X,(l4(<(gD((D;DD (`<DX(|Dp /9EO[e q   - Zdpz N$N8(NT,Np0N48<@DHNLNPNTN8XNg;<Y    ,',     '   ,', !! '   -(- ! (  ,,*    PrL0808J44HD1 $  NP5_26_APR_200423_59_02BEGIN next_item;  END;KEY-NEXT-ITEM (Form)>ͫͫͫͫͫͫͫFORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $r!0  ͫͫͫͫͫͫͫ H ..8ics" $8 $!hPQB1.CUST_CDlist_valuesD #- N, N+ N, N88 N6_26_APR_200423_59_02BEGIN Lif :system.cursor_item = 'QB1.CAR_NO' then do_key('list_values'); end if; END;"WHEN-BUTTON-PRESSED (QB1.CAR_NO_B)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 +"PKG INIT"":system.cursor_item""!%&(,0  N.- ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $8 $!hPQB1.CAR_NOlist_valuesD #- N, N0808;HD ~1  $ NP13_07_JUN_200711_17_06BEGIN - go_block('qb2'); clear_block(no_validate); :qb1.vat := 0; :qb1.amt := 0; :qb1.qty_t1 := 0; :qb1.qty_t2 := 0; :qb1.s_amt := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000lHD 1 $" GNP11_26_APR_200423_59_02BEGIN ]if :system.trigger_item in ('QB1.ORDER_DT', 'QB1.ORDER_NO', 'QB1.CUST_CD', 'QB1.CAR_NO', 'QB2.ITEM_CD') and :normal = '11' then raise form_trigger_failure; end if; if show_lov(get_item_property(:system.trigger_item,lov_name)) then if :system.trigger_item = 'CB1.SLIP_DT_C' then next_item;next_item; elsif :system.trigger_item in ('QB1.ORDER_DT','QB1.ORDER_NO') then go_item('qb1.cust_cd');do_key('next_item');next_item; end if; do_key('next_item'); end if;  END;KEY-LISTVAL (Form)hͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS FORMS4W FORMS40 FORMS4C $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I 4"PKG INIT"":system.trigger_item":normal""!%&(,2679=AE N  N  M(ML  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H MMics"u  F 68 &T p3 ) (( hGI,<< $8<P$MP  $r$rST 0 &$F$$r$!$4QB1.ORDER_DTQB1.ORDER_NOQB1.CUST_CDQB1.CAR_NOQB2.ITEM_CD11CB1.SLIP_DT_Cqb1.cust_cdnext_item+(<deurtboxjhdeutw_p4box_] deumn_edittypemenu.,deupw_modifiedstring97deulw_enablestring%#4`p0800 F0800 L 0800 ro0808mWWHD1 $"?NP6_26_APR_200423_59_02BEGIN Hif :system.current_item != 'ORDER_DT_C' then previous_item; end if;  END;KEY-PREV-ITEM (Form)|WͫͫͫͫͫͫͫwSYSSTANDARD FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 ,"PKG INIT"":system.current_item""!%&(,0  N)( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" ,  ${!\DORDER_DT_CD #( Na0800 i0808 HD1  $ NP8_26_APR_200423_59_02BEGIN wdeclare cur_item VARCHAR2(20); begin if :system.cursor_block in ('QB2','QB3','SB2') then if :system.cursor_record = '1' then bell; :message := msg_dsp('20011'); else cur_item := :system.cursor_item; previous_record; go_item(cur_item); end if; else do_key('previous_item'); end if; end;  END; KEY-UP (Form)FGHIJ')+K!=LMN 0800cZͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000lHD"$A:? Ycd!=LMgo]1  $ ENP14_26_APR_200423_59_02BEGIN if :system.current_block = 'QB2' then if :system.last_record = 'TRUE' then previous_record; end if; next_item; if FORM_SUCCESS then previous_item; end if; if :item_cd is not null and :item_cd_d is null then bell; :message := ' ǰڵ带 Ȯϼ...ܢܢ'; raise form_trigger_failure; end if; if :item_cd is null then bell; :message := ' ǰ Էϼ...ܢܢ'; raise form_trigger_failure; end if; if :item_cd is not null and nvl(:qty,0) = 0 then bell; :message := ' Էϼ...ܢܢ'; raise form_trigger_failure; end if; if :item_cd is not null and nvl(:cost,0) = 0 then bell; :message := ' ϵ ʾҽϴ...ܢܢ'; raise form_trigger_failure; end if; if :item_div_c = '3' and :item_cd is not null and nvl(:sale_amt,0) = 0 then bell; :message := ' ܰ Էϼ...ܢܢ'; raise form_trigger_failure; end if; end if; /*****************************************************/ /* ǰüũ */ /*****************************************************/ if :normal = '11' then declare v_amt_t number(12); v_amt_s number(12); begin if :jung_ban_chk = '1' then -- ߾ȸ տ ǰ ϰ begin select amt into v_amt_t from lfsgt320 where coop = :global.coop and normal = '10' and baesong_dt = :global.baesong_dt and baesong_no = :global.baesong_no ; exception when no_data_found then v_amt_t := 0; end; else begin select amt into v_amt_t from lfsgt320 where coop = :relat_no1 and slip_dt = :relat_no2 and io_slip = :relat_no3 and slip_no = :relat_no4 and normal = '10' ; exception when no_data_found then v_amt_t := 0; end; end if; begin select nvl(abs(sum(amt)),0) + nvl(abs(:qb1.amt),0) into v_amt_s from lfsgt320 where relat_no1 = :relat_no1 and relat_no2 = :relat_no2 and relat_no3 = :relat_no3 and relat_no4 = :relat_no4 and normal = '11' ; exception when no_data_found then v_amt_s := 0; end; if nvl(v_amt_s,0) > nvl(v_amt_t,0) then bell; :message := ' ǰ ʰǾϴ....ܢܢ'; raise form_trigger_failure; end if; end; end if; -- ȯݾüũ ins_chk2; -- ,̼üũ if :normal = '10' then ins_chk1; end if; if :system.current_block != 'CB1' then :global.commit :=3; set_alert_property('NOTE',alert_message_text,msg_dsp('10001')); if show_alert('NOTE') = alert_button1 then null_chk; if :chk = '1' then bell; raise form_trigger_failure; end if; -- 2006.11.10 ߰ start if baesong_chk(:qb1.cust_cd) = '0' then :put_check := '1'; end if; -- ߰ end if :qb1.normal != '19' and nvl(:put_check,'1') ='2' then -- a if :qb1.normal = '11' then put_save; lfsgt301_19; else put_update; end if; if nvl(:save_service_chk,'N') ='N' then bell; :message := ' ߾ȸ 忡 ־ óҰմϴ ....ܢܢ'; start_message_timer('timer',5000); raise form_trigger_failure; else commit; end if; else commit; -- ҽ ǰ end if; -- a if :global.commit = '2' then go_block('cb1'); :message := msg_dsp('20002'); synchronize; if :nolrmal != '19' then do_key('print'); end if; elsif :global.commit = '3' then :message := msg_dsp('20003'); elsif :global.commit = '1' then -- ߾ȸ Ƿ start if :qb1.normal != '19' and nvl(:put_check,'1') = '2' then if :qb1.normal = '11' then put_save2; lfsgt301_10; else put_update2; end if; end if; -- ߾ȸ Ƿ end set_item_property('message',visual_attribute,'red'); :message := msg_dsp('20004'); end if; end if; end if; END;KEY-COMMIT (Form),0*518Pas&te Arguments.0, 518Ta&ble Elements...$0"18518Re&fresh$0"18518&Program$0"518&Compile(0&5 18&Incremental 0518&All$0"518&Resolve301518&Program Unit Editor...200518PL/SQL &Interpreter...:0818518&Stored Program Unit Editor...18705518Database &Trigger Editor...20018518Conversion &Options....0, E5 18Synta&x Palette...A0?sh5!%18&Find and Replace in Program Units...200185"18&Java Name Resolver..."0 5#18&Debug%0#5$ 18&Break...'0%5% 18&Trigger...8$0".5&18&Edit...$0" &5'18&Step...0'5(18&Goo"0 r.5)18&Reset301ta5*18&Attach to Cartridge...200185+18&Detach from Cartridge$0"185,18Co&mpile"0 o5-18&ApplyJKo MNo Q  PRo 0U 0TVoDXYo E\ E[]o F` F_ao Hd Hceo Ih Igio Jl Jkmo1q-por/tytts?ryyv*yyyyxvw}|N~N N! "#N$%&N' ()N*+,N- ./012345N678N9:;<=>?'$!@ABC!P_;DSEFUG HWI JYK L[M N]O  $%,.35>,.$%tz@qCFILOSWZ^bfjnu &QU\`dhl35>tddhl Q&U`\,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H FFics"0 lq{t$www0wDwXwltBC0DXDlBC00DDXXEE0lDlE0DFDEX\H\E`dIdEhlJlk!L8|r0808 HD1  $ NP9_26_APR_200423_59_02BEGIN ddeclare cur_item VARCHAR2(20); begin if :system.cursor_block in ('QB2','QB3','SB2') then if :system.last_record = 'TRUE' then :message := msg_dsp('20012');bell; else cur_item := :system.cursor_item; next_record; go_item(cur_item); end if; else do_key('next_item'); end if; end;  END;KEY-DOWN (Form)0800 cL0808J 44HD1 $  NP13_26_APR_200423_59_02BEGIN scroll_down; END;KEY-SCRDOWN (Form)?ͫͫͫͫͫͫͫSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $`!0  f :system.cursor_record = '1' then bell; :message := msg_dsp('20011'); else cur_item := :system.cursor_item; previous_record; go_item(cur_item); end if; else do_key('previous_item'); end if; end;  END; KEY-UP (Form)FGHIJ')+K!=LMN 0800cZͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000 lHD;PQCE)1 $" NP15_26_APR_200423_59_02BEGIN n:global.slip_dt := :slip_dt_c; :global.io_slip := :io_slip_c; :global.slip_no := :slip_no_c; :global.cust_div := :cust_div; -- if :qb1.cust_cd = '31000026' then :global.cust_cd := :qb1.cust_cd; :global.sale_style := :qb1.sale_style; end if; :global.draw := :draw_ask; :global.qty := :qty_t2; call_form('LSGR1021',no_hide,no_replace); END;KEY-PRINT (Form) BͫͫͫͫͫͫͫwSYSSTANDARD FORMS4C SQLFORMS FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8oog("PKG INIT"":slip_dt_c":global.slip_dt":io_slip_c":global.io_slip":slip_no_c":global.slip_no":cust_div":global.cust_div":qb1.cust_cd":global.cust_cd":qb1.sale_style":global.sale_style":draw_ask":global.draw":qty_t2":global.qty""!%&(,2679=CGHJNTXY[_ehlrvwy} #'+/37;?CGKOSW[_c  n^ N; _ N `NPaNbQ c"!#N &d(')N%C ,e.-/N+ 2f435 N1 8 g:9;N7 > h@?AN=D iFEGNCJ jLKMNIEP kRQSNOVlU)Ym[Z\NX,@Th  4L $*06<BHNTW] %+17=CIOUX,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H 8ics"* H 0;,,P@@TTQhhllC6 ,E    )4488LLGEGE G E,GE4$ !0, 31000026LSGR1021(l*88 (,tD` (TD@|(Ah(DD ((D* D *L@ A 4 2J]t  N(N;PQCE)(! deupwv4"$%&' #$%&'#(! deupwv5"$%&' #$%&'#(! deupwv6"$%&' #$%&'#("$%&'#$%&'#$%&'#$%&'#( ! deupwv7! deupwv8"#$%&'#$%&' (! Dr0808 HD1  $ wNP10_26_APR_200423_59_02BEGIN if :system.current_block in ('CB2','CB3') then clear_block(no_validate); go_item('act_dt'); hide_view ('CAN2'); elsif :system.current_block in ('SB1','SB2') then go_item('qb1.act_dt'); elsif :system.current_block = 'QB3' then next_item; if FORM_SUCCESS then previous_item; end if; if :system.last_record = 'TRUE' then previous_record; end if; if :global.cur_item is null then go_block('qb2'); else go_item(:global.cur_item); end if; erase('global.cur_item'); hide_view ('CAN3'); else set_alert_property('STOP',alert_message_text,msg_dsp('10002')); if show_alert('STOP') = alert_button1 then exit_form(no_validate); end if; end if; END;KEY-EXIT (Form)I 08000800 H0808F00HD1 $ NP12_26_APR_200423_59_02BEGIN scroll_up; END;KEY-SCRUP (Form)?ͫͫͫͫͫͫͫSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $a!0  0800cZͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r0808}}HD1 $ iNP16_26_APR_200423_59_02BEGIN do_key('next_item');  END;WHEN-LIST-CHANGED (Form)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"R $!<,next_item NEY-EXIT (Form)I 08000800 H0808F00HD1 $ NP12_26_APR_200423_59_02BEGIN scroll_up; END;KEY-SCRUP (Form)?ͫͫͫͫͫͫͫSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $a!0  0800cZͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000 $r0808HD1 $ NP17_26_APR_200423_59_02BEGIN 5set_window_property('win_1020',window_size,761,502);  END;WHEN-WINDOW-RESIZED (Form)FlͫͫͫͫͫͫͫwSYSSTANDARD FORMS4C FORMS4W $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b2,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H 33%4ics" \0.. GI $A!X$Hwin_1020AA< 2%  $(N$ NP19_26_APR_200423_59_02BEGIN null; END;KEY-OTHERS (Form))ͫͫͫͫͫͫͫ$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"< !0  p8000q8000r8000s8000t8000u8000v8000w8000x8000y8000z8000{8000|8000}8000~8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080000r0808HD1 $ NP18_26_APR_200423_59_02BEGIN *call_form('lfcmi900',no_hide,no_replace);  END;KEY-HELP (Form) ͫͫͫͫͫͫͫwSYSSTANDARD FORMS4C SQLFORMS FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b-,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..ics"j GEGE G E,GE4$ !8,(lfcmi900- N,0808*HD1 $ NP19_26_APR_200423_59_02BEGIN null; END;KEY-OTHERS (Form))ͫͫͫͫͫͫͫ$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"< !0  p8000q8000r8000s8000t8000u8000v8000w8000x8000y8000z8000{8000|8000}8000~800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000@lHD ;PQg:F< 1  $ ANP22_26_APR_200423_59_02BEGIN if :slip_dt_c is null then bell; go_item('slip_dt_c'); :message := ' Ǹڸ Էϼ...ܢܢ'; raise form_trigger_failure; elsif :io_slip_c is null then bell; go_item('io_slip_c'); :message := ' ⱸ Էϼ...ܢܢ'; raise form_trigger_failure; elsif :slip_no_c is null then bell; go_item('slip_no_c'); :message := ' ǥȣ Էϼ...ܢܢ'; raise form_trigger_failure; end if; go_block('qb1'); clear_block(no_validate); :put_check := '1'; begin select chk into :item_div_c from lfcmt120 where lcd = 'IOSLIP' and dcd = :io_slip_c; exception when no_data_found then :item_div_c := null; end; if :system.current_block = 'QB1' then execute_query; if :SYSTEM.BLOCK_STATUS = 'QUERY' and nvl(:trns_coop,'000000') != '888888' then clear_block(no_validate); go_block('cb1'); raise form_trigger_failure; end if; go_block('qb2'); execute_query(all_records); go_block('qb1'); if :io_slip_c = '22' then set_item_property('sale_amt',navigable,property_false); set_item_property('sale_amt',insert_allowed,property_false); set_item_property('sale_amt',update_allowed,property_false); else set_item_property('sale_amt',navigable,property_true); set_item_property('sale_amt',insert_allowed,property_true); set_item_property('sale_amt',update_allowed,property_true); end if; if :SYSTEM.BLOCK_STATUS in ('NEW','INSERT') then block_insert; seq_chk; :message := msg_dsp('20005'); else declare cnt number; begin begin select nvl(count(*),0) into cnt from lfcmt200 where coop = :coop_c and pg_id = 'LSGB2030' and close_dt = :act_dt and act_ask = 'Y'; exception when no_data_found then cnt := 0; end; if cnt != 0 then block_query; elsif :normal = '11' then item_query; elsif :normal = '19' then block_query; else block_insert; end if; end; end if; end if; :normal_i := :normal; next_item; END;KEY-NEXT-ITEM (CB1.SLIP_NO_C)A0 08QCP 08QD 08QE 08QF 08|nG. 08I 08J 08QL| 08. M` 08Q.N.p 08|QO. 08nnR 08n.V.|n.|n.|n... b<<>nnnH|n.WW<<|n.Q.|Q. Wn b<>nnH|.M O|n.nnWnnW<Q.|Q.. Q.|Q..WnnWn|n...|n.|n.|n... b<Q.|Q.|Q..Z.nnW<<OcQcQcQcQcQcQcQQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQc`QcQcQcQcQcQcQcQcQcQcQcQcQcQc &&&&&&&&&&&&&&&((((((((((((((((()))))))))))))***++++++,,,,--P<r.0808,HD1  $ NP20_26_APR_200423_59_02BEGIN if date_chk(:system.current_value) = 'NO' then bell; :message := msg_dsp('20006'); raise form_trigger_failure; end if;  END;"WHEN-VALIDATE-ITEM (CB1.SLIP_DT_C)li0808HDP1 $"NP21_26_APR_200423_59_02BEGIN _if :io_slip_c is null then copy(get_list_element_value('io_slip_c',1),'io_slip_c'); end if;  END;&WHEN-NEW-ITEM-INSTANCE (CB1.IO_SLIP_C)mͫͫͫͫͫͫͫwSYSSTANDARD FORMS4W SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 ""PKG INIT"":io_slip_c""!%&(,0  NPLK ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H LL(ics" p0P8.$ $(( $Y( $!l$Tio_slip_c!A$H (hD< K  $ NP0800 @_cd = :qb1.cust_cd and cust_div < '8'; exception when no_data_found then :cust_cd_d := null; :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000`r0808HD;PQ<1  $ NP23_26_APR_200423_59_02BEGIN =if :slip_dt_c is not null and :io_slip_c is not null then begin select nvl(max(slip_no),0) + 1 into :slip_no_c from lfcmt320 where coop = :coop_c and slip_dt = :slip_dt_c and io_slip = :io_slip_c ; exception when no_data_found then :slip_no_c := 1; end; end if;  END;&WHEN-NEW-ITEM-INSTANCE (CB1.SLIP_NO_C))0808HD1 $"xNP24_26_APR_200423_59_02BEGIN Oif :system.cursor_item = 'CB1.SLIP_DT_C' then do_key('list_values'); end if; END;#WHEN-BUTTON-PRESSED (CB1.SLIP_DT_B)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 +"PKG INIT"":system.cursor_item""!%&(,0  N.- ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $< $!lTCB1.SLIP_DT_Clist_valuesD #- N0 N :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000pr0808HD1 $"rNP25_26_APR_200423_59_02BEGIN Mif :system.cursor_item = 'QB2.ITEM_CD' then do_key('list_values'); end if; END;#WHEN-BUTTON-PRESSED (CB1.ITEM_CD_B)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 +"PKG INIT"":system.cursor_item""!%&(,0  N.- ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $8 $!hPQB2.ITEM_CDlist_valuesD #- N, NN.- ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $< $!lTCB1.SLIP_DT_Clist_valuesD #- N0 N :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000lHD UFQTRZ[B V1  $ NP28_26_APR_200423_59_02BEGIN -- Է¼ :ins_chk := 'I'; -- ǰǸŴ :trns_coop := '888888'; /***********************************************************/ /* Է½ ǥȣ,Ϸùȣο */ /***********************************************************/ slip_no1; -- ο ǥȣ ٲ :qb1.slip_no := :slip_no_c; -- ڹȣ,¥ο :usr_id := :usrid; :hand_dt := sysdate; if :qb1.normal = '10' and :qb1.baesong_dt is not null and :qb1.baesong_no is not null then lfsgt301_upt; end if; -- ݴüԱ --if :normal = '10' and :sale_style in ('2','3') and nvl(:sun_amt,0) != 0 then -- lfsgt340_341_420_insert; --end if; /***********************************************************/ /* ֹ TABLE UPDATE */ /***********************************************************/ /*************************************************/ /* Ա / ǥȣο */ /* Ǵ ܰ ΰ */ /*************************************************/ if :sale_style = '4' or :normal = '11' then slip_no2; end if; /*************************************************/ /* /ǥTABLE INSERT */ /*************************************************/ if :normal = '10' then :slip_no_m_i := nvl(:slip_no_m,0); if :sale_style = '4' then lfsgt340_ins10; :slip_no_m_i := nvl(:slip_no_m_i,0) + 1; end if; elsif :normal = '11' then :slip_no_m_i := nvl(:slip_no_m,0); if :sale_style in ('1','4') then lfsgt340_ins11; :slip_no_m_i := nvl(:slip_no_m_i,0) + 1; end if; end if; -- ΰԷ --if :vat_div in ('1','4') then lfsgt630_ins; --end if; -- ()̼ INSERT if :sale_style in ('2','3') then if :normal = '10' then lfsgt410_ins10; elsif :normal = '11' then lfsgt410_ins11; end if; end if; END;PRE-INSERT (QB1)8Y A[\]N_a`bN^Yefx,hjikNg{npoqNm|tvuwNs}z{$(j}~NNp Nrs NN~ !" N# N$ %!N&"N'#,N($N)% L*&+' rN,( NL(Pl<X\p~Z|clrx) %+06<BHNQW^dgmsy$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 82JKCdAeedAeedAeedAeedAeedAeeAdAeedAeedAeedAeedAeeAdAee> AAee> AAeee> AAee>AAe+  w8e!"e+ EAEAEAue+  lHDUTR Z[<;PQVB1  $ NP29_26_APR_200423_59_02BEGIN B-- Է¼ :ins_chk := 'U'; /***********************************************************/ /* ֹ TABLE UPDATE */ /***********************************************************/ :usr_id := :usrid; :hand_dt := sysdate; if :qb1.normal = '10' and :qb1.baesong_dt is not null and :qb1.baesong_no is not null then lfsgt301_upt; end if; /* ߾ȸ 10.28 ҽ ٽù */ if :normal = '19' and :cb1.put_check ='1' and :qb1.baesong_dt is not null and :qb1.baesong_no is not null then lfsgt301_reupt ; put_update2; /* ߾ȸ 11.01 ǰҽ ǥ (2) */ elsif :normal = '19' and nvl(:qb1.amt,0) < 0 and :qb1.baesong_dt is not null and :qb1.baesong_no is not null then put_save2; end if; if :normal = '19' then /***********************************************************/ /* Ա/ǥ TABLE */ /***********************************************************/ begin update lfsgt340 set normal = '19' where pre_coop = :coop_c and pre_slip_dt = :slip_dt_c and pre_io_slip = :io_slip_c and pre_slip_no = :slip_no_c; exception when others then raise form_trigger_failure; end; else /***********************************************************/ /* Ա/ǥ TABLE */ /***********************************************************/ begin delete from lfsgt340 where pre_coop = :coop_c and pre_slip_dt = :slip_dt_c and pre_io_slip = :io_slip_c and pre_slip_no = :slip_no_c; exception when others then raise form_trigger_failure; end; end if; /*************************************************/ /* /ǥTABLE INSERT */ /*************************************************/ :slip_no_m_i := nvl(:slip_no_m,0); if :sale_style = '4' and :normal = '10' then lfsgt340_ins10; :slip_no_m_i := nvl(:slip_no_m_i,0) + 1; end if; --if :vat_div in ('1','4') or :car_vat_div in ('1','4') then if :normal = '19' then /***********************************************************/ /* ΰ TABLE */ /***********************************************************/ begin update lfsgt630 set normal = '19' where coop = :coop_c and slip_dt = :slip_dt_c and item_cd1 = :io_slip_c and slip_no = :slip_no_c; exception when others then raise form_trigger_failure; end; else /***********************************************************/ /* ΰ */ /***********************************************************/ begin delete from lfsgt630 where coop = :coop_c and slip_dt = :slip_dt_c and item_cd1 = :io_slip_c and slip_no = :slip_no_c; exception when others then raise form_trigger_failure; end; lfsgt630_ins; end if; --end if; -- ()̼ INSERT if :sale_style in ('2','3') then if :normal = '10' then lfsgt410_ins10; elsif :normal = '19' then lfsgt410_ins19; end if; end if; END;PRE-UPDATE (QB1)S<kq{tLll<l;lvll llClOll 8vl l El <l ;lQlPlRlStl hk!lLFSGT340_INS11245654461I19DpD| h lD,D@"lHD 1 $" fNP30_26_APR_200423_59_02BEGIN _if :system.record_status = 'INSERT' then if :normal = '19' then bell; :normal := :normal_i; :message := ' űԷڷ ҷ Է Ҽϴ...ܢܢ'; raise form_trigger_failure; end if; else if :normal != '19' then bell; :normal := :normal_i; :message := ' ҷθ Ҽ ֽϴ...ܢܢ'; raise form_trigger_failure; end if; end if; :normal_i := :normal; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' and :normal = '11' then show_view ('CAN2'); go_block('cb2'); else do_key('next_item'); end if; END;WHEN-RADIO-CHANGED (QB1.NORMAL)`mͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS FORMS4W $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8((^"PKG INIT"":system.record_status":normal":normal_i":message":system.current_block""!%&(,2679=CGHJNTXY[_eijlptx| '"N # N  $N%PN& N&&0&D&X&% ! ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H &&ics" V L 9 /$00 8DDhF 9 /$00 TDDh 00XXpX NA 7 *  $F$:$!d$INSERT19 űԷڷ ҷ Է Ҽϴ...ܢܢ ҷθ Ҽ ֽϴ...ܢܢQB111CAN2cb2next_item8Dl(t (0(DDX #:?R^i  % N(N8,3NT`&NpNNNN N q vgidnq vgidsdq vgidddq vgidlpq vgiddnp"L-NqV vgianoq vgiaenq vgiastq vgiameq vgiamtq vgiabop7L-Nq4Uq5Uq6Uq7Up2L-Nq$Vq%q&q'q(p-pOPlQRS-p$-p5-p OP[QRS-pOP]QRS-pOP[QRS-pOP]QRS-p0L-NpOPgQRSpOPgQRStr0808HD1 $ yNP26_26_APR_200423_59_02BEGIN do_key('exit_form');  END;#WHEN-BUTTON-PRESSED (CB1.EXIT_CAN3)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"R $!<,exit_form N $8 $!hPQB2.ITEM_CDlist_valuesD #- N, NN.- ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $< $!lTCB1.SLIP_DT_Clist_valuesD #- N0 N :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000lr`0808^HHHD1 $ 4NP0_13_JUN_200714_42_03BEGIN cash_call; END;!WHEN-BUTTON-PRESSED (CB1.CACH_BB)Gͫͫͫͫͫͫͫ/NSPC1/CASH_CALL$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $!0  0808HD1  $ wNP27_26_APR_200423_59_02BEGIN post_query_chk; END;POST-QUERY (QB1):080030800 0800  :vat := null; :ass := null; :app := null; :vat_div := null; :draw_ask := null; :trns_coop := null; :order_no := null; :pallet_cnt := null; :house_cnt := null; :qty_t1 := null; :qty_t2 := null; :s_amt := null; :seq_no11 := null; end; -- ǰ񱸺м if :car_div in ('1','2','3') then :item4 := '1'; else :item4 := null; end if; END;BC048DEFGHIJ')+K!=LMN 0800cZͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r0808!HD 1 $"NP31_26_APR_200423_59_02BEGIN Eif :system.current_block != 'QB1' then :normal := :normal; end if; END;WHEN-MOUSE-CLICK (QB1.NORMAL)BͫͫͫͫͫͫͫwSYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I 5"PKG INIT"":system.current_block":normal""!%&(,2679=AE N  N  221  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H 22ics" @$   !\DQB1D,(4  #1 N  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $< $!lTCB1.SLIP_DT_Clist_valuesD #- N0 N :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000HrA0808?"))HD 1 $" NP32_26_APR_200423_59_02BEGIN if :system.current_block = 'QB1' and :system.record_status = 'INSERT' and :normal = '11' then show_view ('CAN2'); go_block('cb2'); end if;  END;#WHEN-MOUSE-DOUBLECLICK (QB1.NORMAL)mͫͫͫͫͫͫͫwSYSSTANDARD FORMS4W SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8^K"PKG INIT"":system.current_block":system.record_status":normal""D!%&(,2679=CGHJNRVZ N  N N ff0fe  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ffGics" `8R H; 1 008$ T$Fp$:!$`QB1INSERT11CAN2cb2%DDDLD0T Q[eG N$N8,NT0Np4N  #- N0 N :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000lHD  CefODB1  $ NP35_26_APR_200423_59_02BEGIN Iif :normal in ('10','19') then begin select cust_div,cust_nm,vat_div,sale_style,area,credit_cust,agr_part into :cust_div,:cust_cd_d,:qb1.vat_div,:qb1.sale_style,:area_c,:credit_cust,:cb1.agr_part from lfsgt100 where cust_cd = :qb1.cust_cd and cust_div < '8' and member < '9'; exception when no_data_found then :cust_div := null; :cust_cd_d := null; :vat_div := null; :sale_style := null; :area_c := null; :credit_cust := null; :cb1.agr_part := null; end; else begin select cust_nm,area,credit_cust,agr_part into :cust_cd_d,:area_c,:credit_cust,:cb1.agr_part from lfsgt100 where cust_cd = :qb1.cust_cd and cust_div < '8'; exception when no_data_found then :cust_cd_d := null; :area_c := null; :credit_cust := null; end; end if; if :qb1.cust_cd is not null and :cust_cd_d is null then bell; :message := msg_dsp('20010'); raise form_trigger_failure; end if; declare -- cnt_c number(1); v_admin_ask lfsgt100.admin_ask%TYPE; v_break_ask lfsgt100.break_ask%TYPE; begin if :normal = '10' then --and :cust_div = '1' then -- begin -- select count(*) into cnt_c from lfsgt140 -- where cust_cd = :qb1.cust_cd and cattle_div = '2'; -- exception when no_data_found then -- cnt_c := 0; -- end; -- if nvl(cnt_c,0) != 0 then -- bell; -- :message := ' ڿԴ ǸŰ Ұմϴ....ܢܢ'; -- start_message_timer('timer',5000); -- raise form_trigger_failure; -- end if; begin select admin_ask,break_ask into v_admin_ask,v_break_ask from lfsgt100 where cust_cd = :qb1.cust_cd; exception when no_data_found then v_admin_ask := null; v_break_ask := null; end; if nvl(v_admin_ask,0) = '1' then bell; :message := ' ƯڿԴ ǸŰ Ұմϴ....ܢܢ'; raise form_trigger_failure; end if; if nvl(v_break_ask,0) = '1' then bell; :message := ' ŷߴڿԴ ǸŰ Ұմϴ....ܢܢ'; raise form_trigger_failure; end if; end if; end; if :credit_cust is null then :credit_cust := :qb1.cust_cd; end if; /* begin select dcd into :cb1.v_agr from lfcmt120 where lcd = 'AGRIC' and dcd = :cb1.agr_part and dcd != '00000000'; exception when no_data_found then :cb1.v_agr := null; end; if :cb1.agr_part = :cb1.v_agr then :house_cnt := 1; else :house_cnt := null; end if; */ END; WHEN-VALIDATE-ITEM (QB1.CUST_CD)P("+   3 pushb#'P("+   4 pushb#'P("+   5 pushb#'P("+   6 pushb#'P("+  r0808#HD<1  $ NP33_26_APR_200423_59_02BEGIN +if date_chk(:system.current_value) = 'NO' then bell; :message := msg_dsp('20006'); raise form_trigger_failure; end if; declare cnt number; begin begin select nvl(count(*),0) into cnt from lfcmt200 where coop = :coop_c and pg_id = 'LSGB2030' and close_dt = :act_dt and act_ask = 'Y'; exception when no_data_found then cnt := 0; end; if cnt != 0 then bell; :message := ' ȸ踶 ¥Դϴ....ܢܢ'; raise form_trigger_failure; end if; end; END;WHEN-VALIDATE-ITEM (QB1.ACT_DT) N  N N ff0fe  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ffGics" `8R H; 1 008$ T$Fp$:!$`QB1INSERT11CAN2cb2%DDDLD0T Q[eG N$N8,NT0Np4N  #- N0 N :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r0808$HD;1 $"oNP34_26_APR_200423_59_02BEGIN :if :act_dt is null then :act_dt := :slip_dt_c; end if;  END;#WHEN-NEW-ITEM-INSTANCE (QB1.ACT_DT)BͫͫͫͫͫͫͫwSYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I *"PKG INIT"":act_dt":slip_dt_c""!%&(,2679=AE  N   N ;00/  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H 00ics" T ;!X@ ,D@  /;0800%  `8R H; 1 008$ T$Fp$:!$`QB1INSERT11CAN2cb2%DDDLD0T Q[eG N$N8,NT0Np4N  #- N0 N :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000 rX0808V&@@HDe1  $  NP36_26_APR_200423_59_02BEGIN /* next_item; if FORM_SUCCESS then next_item; next_item; end if; */ if :qb1.cust_cd is null then bell; :message := ' ŷóڵ带 Ͻÿ....ܢܢ'; raise form_trigger_failure; else :cust_cd_d := readcust(:qb1.cust_cd); if :cust_cd_d is null then if show_lov('CUST_CD') then next_item; else raise form_trigger_failure; end if; else next_item; end if; end if; END;KEY-NEXT-ITEM (QB1.CUST_CD).0808,'HD1  $ NP37_26_APR_200423_59_02BEGIN if date_chk(:system.current_value) = 'NO' then bell; :message := msg_dsp('20006'); raise form_trigger_failure; end if;  END;!WHEN-VALIDATE-ITEM (QB1.ORDER_DT)H 00ics" T ;!X@ ,D@  /;0800%  `8R H; 1 008$ T$Fp$:!$`QB1INSERT11CAN2cb2%DDDLD0T Q[eG N$N8,NT0Np4N  #- N0 N :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)80008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080000r0808(ooHDG 1  $ ONP38_26_APR_200423_59_02BEGIN /* if :system.record_status in ('NEW','INSERT') and :order_dt is not null and :normal = '10' then begin select sale_style,vat_div into :sale_style,:vat_div from lfsgt310 where coop like substr(:coop_c,1,5)||'%' and order_dt = :order_dt and order_no = :order_no and cust_cd = :qb1.cust_cd and complete_ask = '1'; exception when no_data_found then :sale_style := null; :vat_div := null; end; if :sale_style is null then bell; :message := ' ŷó شǴ ֹ ϴ...ܢܢ'; end if; end if; */ if :system.record_status in ('NEW','INSERT') and :order_dt is not null and :normal = '10' then order_lfsgt310; end if; END;!WHEN-VALIDATE-ITEM (QB1.ORDER_NO)H 00ics" T ;!X@ ,D@  /;0800%  `8R H; 1 008$ T$Fp$:!$`QB1INSERT11CAN2cb2%DDDLD0T Q[eG N$N8,NT0Np4N  #- N0 N :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000@r0808)nnHD 1  $ FNP39_26_APR_200423_59_02BEGIN declare v_cont_amt lfsgt100.cont_amt%TYPE; v_rem_amt lfsgt410.rem_amt%TYPE; v_slip_dt lfsgt410.slip_dt%TYPE; begin if :normal = '10' then if :qb1.cust_div in ('1','2','3','4') and :qb1.sale_style = '3' then begin select cont_amt into v_cont_amt from lfsgt100 -- where cust_cd = :qb1.cust_cd; where cust_cd = :cb1.credit_cust; exception when no_data_found then v_cont_amt := null; end; -- begin -- select sum(rem_amt) into v_rem_amt -- from lfsgt410 -- where cust_cd = :qb1.credit_cust and -- end_div = '1' and -- io_slip in('22','32'); -- exception when no_data_found then -- :message := '1'; -- v_rem_amt := null; -- v_slip_dt := null; -- end; -- if nvl(v_cont_amt,0) <= nvl(v_rem_amt,0) then -- bell; -- :message := ' ̰ų ݾʰ Դϴ.Ȯϼ!!!'; -- start_message_timer('timer',5000); -- --raise form_trigger_failure; -- end if; if nvl(v_cont_amt,0) = 0 then bell; :message := ' @^_^@ Դϴ.Ȯ!!!'; raise form_trigger_failure; end if; end if; end if; end; END;#WHEN-VALIDATE-ITEM (QB1.SALE_STYLE)DDDLD0T Q[eG N$N8,NT0Np4N  #- N0 N :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000P4r0808*HDD1 $"NP40_26_APR_200423_59_02BEGIN if :vat_div is null then declare vat_cnt number; begin vat_cnt := get_list_element_count('vat_div'); copy(get_list_element_value('vat_div',vat_cnt-1),'vat_div'); end; end if;  END;$WHEN-NEW-ITEM-INSTANCE (QB1.VAT_DIV)?mͫͫͫͫͫͫͫwSYSSTANDARD FORMS4W SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8A ("PKG INIT"":vat_div"VAT_CNT""!%&(,259=  ND  $ qrq  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H rr(ics" ,D^$(($Z(($.@B$@<<DD $YD$!$`vat_div1A$d (A":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000`lHDPN1 $"NP44_26_APR_200423_59_02BEGIN if :io_slip_c = '22' then if :car_div in ('1','2','3') then :item4 := '1'; else :item4 := null; end if; else :item4 := null; end if; :car_no := null; :car_no_d := null; do_key('next_item');  END;WHEN-LIST-CHANGED (QB1.CAR_DIV)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8((D"PKG INIT"":io_slip_c":car_div":item4":car_no":car_no_d""!%&(,2679=CGHJNTXY[_eijlptx| '"NP # N $NN% N& N 4 ! ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H Gics" D<Pr h   & 8  T# 4N4H4N4\4N4pp$! 22123next_itemSH\pDD  4N(( #`rs G N$N8(NT,Np0 NPN&'#$%&'#$%&' ( ! deugsv5"#$%&' #$%&' #$%&' (! deugsv6"#$%&' #$%&' #$%&' (! deugsv7"#$%&'#$%&' (! deugsv8"#$%&'#$%&' #$%&' ("$%&'#$%&'#$%&'#$%&'#( ! deugsv12"#$%&' #$%&'#$%&'(! deugsv13"#$%&' #$%&'#$%&'(! deugsv14"#$%&' #$%&'#$%&'(! deugsv15"#$%&' #$%&'#$%&' (  ! deugsv9"#$%&'(! deugsv10"#$%&'#$%&' #$%&'(! deugsv11"#$%&'#$%&' #$%&' #$pprj0808h,RRHD1 $ >NP42_26_APR_200423_59_02BEGIN next_item; next_item; END;KEY-NEXT-ITEM (QB1.VAT_DIV)>ͫͫͫͫͫͫͫFORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"N $r$r!8  GI $A!X$Hwin_1020AA< 2%  $(N$ NP19_26_APR_200423_59_02BEGIN null; END;KEY-OTHERS (Form))ͫͫͫͫͫͫͫ$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"< !0  p8000q8000r8000s8000t8000u8000v8000w8000x8000y8000z8000{8000|8000}8000~800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r0808-HD1 $ uNP43_26_APR_200423_59_02BEGIN do_key('next_item');  END;$WHEN-CHECKBOX-CHANGED (QB1.DRAW_ASK)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"R $!<,next_item N0800.`AA< 2%  $(N$ NP19_26_APR_200423_59_02BEGIN null; END;KEY-OTHERS (Form))ͫͫͫͫͫͫͫ$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"< !0  p8000q8000r8000s8000t8000u8000v8000w8000x8000y8000z8000{8000|8000}8000~800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000 r0808/HDB1 $"NP45_26_APR_200423_59_02BEGIN if :car_div in ('1','3','4') then if :sale_style = '1' then go_item('pallet_cnt'); else go_item('remarks'); end if; else next_item; end if;  END;KEY-NEXT-ITEM (QB1.CAR_DIV)WͫͫͫͫͫͫͫwSYSSTANDARD FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I ,"PKG INIT"":car_div":sale_style""!%&(,2679=AE N  N B    ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H Uics"# LD   &   8H >B  T p$F$F $r!`1341pallet_cntremarksD 4D @ I`p U N$N8(NT,Np0 N<NBnls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"< !0  p8000q8000r8000s8000t8000u8000v8000w8000x8000y8000z8000{8000|8000}8000~800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r08080HDPN1 $"NP46_26_APR_200423_59_02BEGIN if :car_div is null then if :io_slip_c = '22' then copy(get_list_element_value('car_div',1),'car_div'); :item4 := '1'; else copy(get_list_element_value('car_div',1),'car_div'); :item4 := null; end if; end if;  END;$WHEN-NEW-ITEM-INSTANCE (QB1.CAR_DIV)3mͫͫͫͫͫͫͫwSYSSTANDARD FORMS4W SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8^2"PKG INIT"":car_div":io_slip_c":item4""D!%&(,2679=CGHJNRVZ N  N PNN$P  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H 6`ics"h 4P$$Q G.8(8<< $Y<($DPNPA.d(dhh $Yh($|PNP!$|22car_div1EA8 <Ad(h|DD$ PN 3bt 6 N$((ND0NPNp8000q8000r8000s8000t8000u8000v8000w8000x8000y8000z8000{8000|8000}8000~800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r08081HDWX1  $ NP47_26_APR_200423_59_02BEGIN >begin select cust_nm,vat_div into :car_no_d,:car_vat_div from lfsgt100 where cust_cd = :car_no and cust_div = '8' and member = :car_div; exception when no_data_found then :car_no_d := null; :car_vat_div := null; end; if :car_no is not null and :car_no_d is null then bell; :message := msg_dsp('20010'); raise form_trigger_failure; end if; -- ΰ QUERY begin select nvl(chk1,0) into :car_vat_rat from lfcmt120 where lcd = 'TAX' and dcd = :car_vat_div; exception when no_data_found then :car_vat_rat := 0; end;  END;WHEN-VALIDATE-ITEM (QB1.CAR_NO)(,2679=CGHJNRVZ N  N PNN$P  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H 6`ics"h 4P$$Q G.8(8<< $Y<($DPNPA.d(dhh $Yh($|PNP!$|22car_div1EA8 <Ad(h|DD$ PN 3bt 6 N$((ND0NPNp8000q8000r8000s8000t8000u8000v8000w8000x8000y8000z8000{8000|8000}8000~800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r~0808|2ffHDIB1 $"FNP48_26_APR_200423_59_02BEGIN if :pallet_cnt = '1' then if :sale_style != '1' then bell; :pallet_cnt := '2'; :message := ' ݸ Ұ簡 մϴ...ܢܢ'; end if; end if; do_key('next_item'); END;&WHEN-CHECKBOX-CHANGED (QB1.PALLET_CNT)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8Z8"PKG INIT"":pallet_cnt":sale_style":message""0!$(.2359?CDFJNRV  I NBPN ll(lk  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ll9pics"4 `I(  I ?B2 ($($E$I8((T$!12 ݸ Ұ簡 մϴ...ܢܢnext_item)A \A$""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"J $:!4$qb2 NPN ll(lk  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ll9pics"4 `I(  I ?B2 ($($E$I8((T$!12 ݸ Ұ簡 մϴ...ܢܢnext_item)A \A$":credit_cust":global.cust_cd":act_dt":global.act_dt":seq_no":global.seq_no""!%&(,2679=CGHJNTXY[_ehlrvwy}  +%NO & N ' N(N)S *"!#Nj(j<jPjdj|ji $ ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H jjics" (O((<<PPSddhh||GE$GE, GE4$s!pLSGI1010E(h (D(PD< (|Ad 2Ji NOSp8000q8000r8000s8000t8000u8000v8000w8000x8000y8000z8000{8000|8000}8000~800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r 08085HD1 $"NP51_26_APR_200423_59_02BEGIN c:global.cust_cd := :qb1.cust_cd; --call_form('LSGI1030',no_hide,no_replace); open_form('LSGI1030'); END;WHEN-BUTTON-PRESSED (QB1.BTN2)WͫͫͫͫͫͫͫwSYSSTANDARD FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I 4"PKG INIT"":qb1.cust_cd":global.cust_cd""!%&(,2679=AE  N  N ?(?>  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ??ics" X(((GE$GE, GE4$s!`HLSGI1030 (PD<  > N_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H jjics" (O((<<PPSddhh||GE$GE, GE4$s!pLSGI1010E(h (D(PD< (|Ad 2Ji NOSp8000q8000r8000s8000t8000u8000v8000w8000x8000y8000z8000{8000|8000}8000~800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000(r!08086  HD;PQ1 $"NP52_26_APR_200423_59_02BEGIN :global.slip_dt := :slip_dt_c; :global.io_slip := :io_slip_c; :global.slip_no := :slip_no_c; --call_form('LSGI1100',no_hide,no_replace); open_form('LSGI1100'); END;WHEN-BUTTON-PRESSED (QB1.BTN3)WͫͫͫͫͫͫͫwSYSSTANDARD FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 ,,h"PKG INIT"":slip_dt_c":global.slip_dt":io_slip_c":global.io_slip":slip_no_c":global.slip_no""!%&(,2679=CGHJNTXY[_ehlrvwy}  +% N; & N 'NP(N)Q *"!#Nj(j<jPjdj|ji $ ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H jjics" (;((P<<PPQddhh||GE$GE, GE4$s!pLSGI1100E(h (D (PD<(|Ad 2Ji N;PQ8000q8000r8000s8000t8000u8000v8000w8000x8000y8000z8000{8000|8000}8000~8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008r2080807HD1 $"NP53_26_APR_200423_59_02BEGIN :global.cust_cd := :qb1.cust_cd; :global.io_slip := :qb1.io_slip; :global.cnt_dt := :qb1.act_dt; --call_form('LSGI1020',no_hide,no_replace); open_form('LSGI1020'); END;WHEN-BUTTON-PRESSED (QB1.BTN4)WͫͫͫͫͫͫͫwSYSSTANDARD FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 //l"PKG INIT"":qb1.cust_cd":global.cust_cd":qb1.io_slip":global.io_slip":qb1.act_dt":global.cnt_dt"""!%&(,2679=CGHJNTXY[_eijlpvz{} .( N ) N *N+N, N#-%$&N"e(e<ePedexed !' ",plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H eeics" (((<<PPddxxGE$GE, GE4$s!hLSGI1020? (D (PD<(xDd  2Ed N000q8000r8000s8000t8000u8000v8000w8000x8000y8000z8000{8000|8000}8000~800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000 r08088HD1 $"NP54_26_APR_200423_59_02BEGIN `if :system.cursor_item in ('QB1.ORDER_DT','QB1.ORDER_NO') then do_key('list_values'); end if; END;$WHEN-BUTTON-PRESSED (QB1.ORDER_DT_B)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 +"PKG INIT"":system.cursor_item""!%&(,0  N KJ ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H KK+Tics" (D    ! 8$!|\QB1.ORDER_DTQB1.ORDER_NOlist_valuesD  9IJ+ N, N88 N6_26_APR_200423_59_02BEGIN Lif :system.cursor_item = 'QB1.CAR_NO' then do_key('list_values'); end if; END;"WHEN-BUTTON-PRESSED (QB1.CAR_NO_B)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 +"PKG INIT"":system.cursor_item""!%&(,0  N.- ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $8 $!hPQB1.CAR_NOlist_valuesD #- N, N0808;HD ~1  $ NP13_07_JUN_200711_17_06BEGIN - go_block('qb2'); clear_block(no_validate); :qb1.vat := 0; :qb1.amt := 0; :qb1.qty_t1 := 0; :qb1.qty_t2 := 0; :qb1.s_amt := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)80008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080000r08089HD1 $"rNP55_26_APR_200423_59_02BEGIN Mif :system.cursor_item = 'QB1.CUST_CD' then do_key('list_values'); end if; END;#WHEN-BUTTON-PRESSED (QB1.CUST_CD_B)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 +"PKG INIT"":system.cursor_item""!%&(,0  N.- ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $8 $!hPQB1.CUST_CDlist_valuesD #- N, N+ N, N88 N6_26_APR_200423_59_02BEGIN Lif :system.cursor_item = 'QB1.CAR_NO' then do_key('list_values'); end if; END;"WHEN-BUTTON-PRESSED (QB1.CAR_NO_B)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 +"PKG INIT"":system.cursor_item""!%&(,0  N.- ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $8 $!hPQB1.CAR_NOlist_valuesD #- N, N0808;HD ~1  $ NP13_07_JUN_200711_17_06BEGIN - go_block('qb2'); clear_block(no_validate); :qb1.vat := 0; :qb1.amt := 0; :qb1.qty_t1 := 0; :qb1.qty_t2 := 0; :qb1.s_amt := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000@lHD GH 1  $ ?NP57_26_APR_200423_59_02BEGIN if :act_dt is null then go_item('act_dt'); :message := ' ȸڸ ԷϽÿ....ܢܢ'; elsif :qb1.cust_cd is null then go_item('qb1.cust_cd'); :message := ' ŷóڵ带 Ͻÿ....ܢܢ'; elsif :qb1.sale_style is null then go_item('qb1.sale_style'); :message := ' Ǹ Ͻÿ....ܢܢ'; elsif :qb1.vat_div is null then go_item('qb1.vat_div'); :message := ' ΰ Ͻÿ....ܢܢ'; elsif :car_div is null then go_item('car_div'); :message := ' Էϼ....ܢܢ'; elsif :car_div in ('2','5','6') and :car_no is null then go_item('car_no'); :message := ' ȣ Էϼ....ܢܢ'; end if; if :order_dt is not null and :order_no is not null and :normal = '10' then order_lfsgt311; end if; /* if :order_dt is not null and :normal = '10' then declare cnt number; begin if :system.record_status in ('NEW','INSERT') then begin select count(*) into cnt from lfsgt310 where coop like substr(:coop_c,1,5)||'%' and order_dt = :order_dt and order_no = :order_no and cust_cd = :qb1.cust_cd and complete_ask = '1'; exception when no_data_found then cnt := 0; end; if cnt = 0 then go_item('order_dt'); :message := ' ŷó شǴ ֹ ϴ...ܢܢ'; else lfsgt311_set; end if; end if; end; end if; */ /* if :order_dt is not null and :normal = '10' then declare cnt number; begin if :system.record_status in ('NEW','INSERT') then begin select count(*) into cnt from lfsgt310 where order_dt = :order_dt and order_no = :order_no ; exception when no_data_found then cnt := 0; end; if cnt = 0 then go_item('order_dt'); :message := ' ŷó شǴ ֹ ϴ...ܢܢ'; else order_lfsgt311; end if; end if; end; end if; */ if :car_no is not null then declare member_c VARCHAR2(1); begin begin select member into member_c from lfsgt100 where cust_cd = :car_no and cust_div = '8'; exception when no_data_found then member_c := null; end; if :car_div != member_c then bell; go_item('car_div'); :message := ' ٸϴ....ܢܢ'; raise form_trigger_failure; end if; end; end if; if :normal = '11' then set_item_Property('item_cd',insert_allowed,property_false); else set_item_Property('item_cd',insert_allowed,property_true); end if;  END;WHEN-NEW-BLOCK-INSTANCE (QB2)ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)I 4"PKG INIT"":qb1.cust_cd":global.cust_cd""!%&(,2679=AE  N  N ?(?>  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ??ics" X(((GE$GE, GE4$s!`HLSGI1030 (PD<  > NUU~t,FPr0808:HD1 $"pNP56_26_APR_200423_59_02BEGIN Lif :system.cursor_item = 'QB1.CAR_NO' then do_key('list_values'); end if; END;"WHEN-BUTTON-PRESSED (QB1.CAR_NO_B)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 +"PKG INIT"":system.cursor_item""!%&(,0  N.- ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $8 $!hPQB1.CAR_NOlist_valuesD #- N, N ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"< !0     0800CB0808@D**HD 1 $"NP65_26_APR_200423_59_02BEGIN 2if :normal != '11' then create_record; end if;  END;KEY-CREREC (QB2)hXͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000`lHD (#*%-,1.52961 $"NP59_26_APR_200423_59_02BEGIN :qty_i1 := :conv_qty1; :qty_i2 := :conv_qty2; :amt_i := :qb2.amt; :vat_amt_i := :vat_amt; :ass_amt_i := :ass_amt; :app_amt_i := :app_amt;  END;PRE-RECORD (QB2)BͫͫͫͫͫͫͫwSYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 855 "PKG INIT"":conv_qty1":qty_i1":conv_qty2":qty_i2":qb2.amt":amt_i":vat_amt":vat_amt_i":ass_amt":ass_amt_i":app_amt":app_amt_i""!$(.15;>BHKOUX\beiorv|            4(#)( * %+ *,,-- .. /1 02 15 # 2"6& 3%9  $(,0~  !$'  "%,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"  #E(% E *,E-.E 1 2$E$(5(6,E,090!dC TA4A tA A(TA$40A,t 2EXk~  (#*%-,1.5296.8ics" $8 $!hPQB1.CAR_NOlist_valuesD #- N, N0808;HD ~1  $ NP13_07_JUN_200711_17_06BEGIN - go_block('qb2'); clear_block(no_validate); :qb1.vat := 0; :qb1.amt := 0; :qb1.qty_t1 := 0; :qb1.qty_t2 := 0; :qb1.s_amt := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)0800<{ @I 4"PKG INIT"":qb1.cust_cd":global.cust_cd""!%&(,2679=AE  N  N ?(?>  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ??ics" X(((GE$GE, GE4$s!`HLSGI1030 (PD<  > NUU~t,Fp$r0808;HD ~1  $ NP13_07_JUN_200711_17_06BEGIN - go_block('qb2'); clear_block(no_validate); :qb1.vat := 0; :qb1.amt := 0; :qb1.qty_t1 := 0; :qb1.qty_t2 := 0; :qb1.s_amt := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)0800< {@s"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $8 $!hPQB1.CAR_NOlist_valuesD #- N, N ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"< !0     0800CB0808@D**HD 1 $"NP65_26_APR_200423_59_02BEGIN 2if :normal != '11' then create_record; end if;  END;KEY-CREREC (QB2)hXͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r0808=HD:37<f1  $ [NP58_26_APR_200423_59_02BEGIN /*******************************************************/ /* ,ŷó ۺ Query */ /* ǰ϶ PRE_BLOCK Trigger Ÿ */ /* ǰ϶ ǰ񺰷 о; ϱ */ /* item_cd ʵ忡 Ʈ Ʈſ ؿ */ /*******************************************************/ if :item_div_c = '2' then begin select asst_amt,app_charge into :ass_amt_c,:app_amt_c from lfsgt920 where coop = :coop_c and item_div = :item_div_c and area = :qb1.cust_cd and car_div = :car_div; exception when no_data_found then begin select asst_amt,app_charge into :ass_amt_c,:app_amt_c from lfsgt920 where coop = :coop_c and item_div = :item_div_c and area = :area_c and car_div = :car_div; exception when no_data_found then :ass_amt_c := 0; :app_amt_c := 0; end; end; end if;  END;PRE-BLOCK (QB2)0800>.`, N88 N6_26_APR_200423_59_02BEGIN Lif :system.cursor_item = 'QB1.CAR_NO' then do_key('list_values'); end if; END;"WHEN-BUTTON-PRESSED (QB1.CAR_NO_B)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 +"PKG INIT"":system.cursor_item""!%&(,0  N.- ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $8 $!hPQB1.CAR_NOlist_valuesD #- N, N0808;HD ~1  $ NP13_07_JUN_200711_17_06BEGIN - go_block('qb2'); clear_block(no_validate); :qb1.vat := 0; :qb1.amt := 0; :qb1.qty_t1 := 0; :qb1.qty_t2 := 0; :qb1.s_amt := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r0808?HD&>"#$%P<;S')+,1  $ NP60_26_APR_200423_59_02BEGIN -begin select item_nm,unit,conv_qty into :item_cd_d,:unit,:conv_qty_d from lfsgt810 where item_div = :item_div and item_cd = :item_cd; exception when no_data_found then :item_cd_d := null; :unit := null; :conv_qty_d := null; end; -- ȯ if substr(:item_cd,6,1) = '1' then :conv_qty1 := :qty; :conv_qty2 := nvl(:qty,0) * nvl(:conv_qty_d,0); else if nvl(:conv_qty_d,0) != 0 then :conv_qty1 := trunc(nvl(:qty,0) / :conv_qty_d); else :conv_qty1 := 0; end if; :conv_qty2 := :qty; end if; if :io_slip_c = '32' then :qb2.pre_qty := itemjan(:coop_c,:item_div,:item_cd,:slip_dt_c,:seq_no); end if; :qty_t1 := nvl(:qty_t1,0) + nvl(:conv_qty1,0); :qty_t2 := nvl(:qty_t2,0) + nvl(:conv_qty2,0); :s_amt := nvl(:s_amt,0) + nvl(:qb2.amt,0);  END;POST-QUERY (QB2)0808@HDQ1  $ NP61_26_APR_200423_59_02BEGIN 5:qb2.slip_no := :slip_no_c; /***********************************************************/ /* ֹ TABLE UPDATE */ /***********************************************************/ if :qb1.order_dt is not null and :qb1.order_no is not null then order_lfsgt310_upt; end if;  END;PRE-INSERT (QB2)  0800CB0808@D**HD 1 $"NP65_26_APR_200423_59_02BEGIN 2if :normal != '11' then create_record; end if;  END;KEY-CREREC (QB2)hXͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000lHD '()*+-0145891 $"HNP64_26_APR_200423_59_02BEGIN /**********************************************/ /* Ʈ ŸԸ */ /**********************************************/ next_item; if FORM_SUCCESS then previous_item; end if; :qty_t1 := nvl(:qty_t1,0) - nvl(:qty_i1,0); :qty_t2 := nvl(:qty_t2,0) - nvl(:qty_i2,0); :s_amt := nvl(:s_amt,0) - nvl(:amt_i,0); :vat := nvl(:vat,0) - nvl(:vat_amt_i,0); :ass := nvl(:ass,0) - nvl(:ass_amt_i,0); :app := nvl(:app,0) - nvl(:app_amt_i,0); delete_record; if FORM_FAILURE then :qty_t1 := nvl(:qty_t1,0) + nvl(:qty_i1,0); :qty_t2 := nvl(:qty_t2,0) + nvl(:qty_i2,0); :s_amt := nvl(:s_amt,0) + nvl(:amt_i,0); :vat := nvl(:vat,0) + nvl(:vat_amt_i,0); :ass := nvl(:ass,0) + nvl(:ass_amt_i,0); :app := nvl(:app,0) + nvl(:app_amt_i,0); end if; -- Ѱޱݾװ :qb1.amt := nvl(:s_amt,0) + nvl(:vat,0);  END;KEY-DELREC (QB2) mͫͫͫͫͫͫͫwSYSSTANDARD FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 899"~"PKG INIT"":qty_t1":qty_i1":qty_t2":qty_i2":s_amt":amt_i":vat":vat_amt_i":ass":ass_amt_i":app":app_amt_i":qb1.amt""$!$(.15;>BHKOUX\beiorv|             8+',( - ). */+0- 10 21 34 45 # 5"8& 6%9) 7($4@P\lxL  !$'*  "%(,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H  ics" ( $$r$9  ${'.  $N($.($(, $NB ,E')4.848< $N*@.D@DH $NB<H0E04)4+P.TPTX $N-\.`\`d $NBXdLELP+P0l.plpt $N1x.|x| $NBthEhl0l4. $N5. $NBE48. $N9. $NBE8$$7 '. $N($.$ $NAE')4.4 $N*@.@ $NAE4)4+P.P $N-\.\ $NAEP+P0l.l $N1x.x  $NA El0l4. $N5.  $NA E48.((, $N9.004 $NA,4$E$8+P.<P<@ $N0l.DlDH $NA@H8E8LL!p$C APA\AA A(A,A0<A8|A<ADAHALAT\AX|A`AdAhAp<At\A|AAAA<A|AAAAA\A|AAAAAA(AHAhA܈AAAAA(AHAhAA A A A  A ( A H A h A  A  A $ A (l A , A 0( A 4H A 8h A < A @ A D A H |A$4\A@P<A\lAx|A\A< L ). ' z %=6K   '()*+-0145890) - nvl(:qty_i2,0); :s_amt := nvl(:s_amt,0) - nvl(:amt_i,0); :vat := nvl(:vat,0) - nvl(:vat_amt_i,0); :ass := nvl(:ass,0) - nvl(:ass_amt_i,0); :app := nvl(:app,0) - nvl(:app_amt_i,0); delete_record; if FORM_FAILURE then :qty_t1 := nvl(:qty_t1,0) + nvl(:qty_i1,0); :qty_t2 := nvl(:qty_t2,0) + nvl(:qty_i2,0); :s_amt := nvl(:s_amt,0) + nvl(:amt_i,0); :vat := nvl(:vat,0) + nvl(:vat_amt_i,0); :ass := nvl(:ass,0) + nvl(:ass_amt_i,0); :app := nvl(:app,0) + nvl(:app_amt_i,0); end if; -- Ѱޱݾװ :qb1.amt := nvl(:s_amt,0) + nvl(:vat,0);  END;KEY-DELREC (QB2) mͫͫͫͫͫͫͫwSYSSTANDARD FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 899"~"PKG INIT"":qty_t1":qty_i1":qty_t2":qty_i2":s_amt":amt_i":vat":vat_amt_i":ass":ass_amt_i":app":app_amt_i":qb1.amt""$!$(.15;>BHKOUX\beiorv|             8+',( - ). */+0- 10 21 34 45 # 5"8& 6%9) 7($4@P\lxL  !$'*  "%(,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H  ics" ( $$r$9  ${'.  $N($.($(, $NB ,E')4.848< $N*@.D@DH $NB<H0E04)4+P.TPTX $N-\.`\`d $NBXdLELP+P0l.plpt $N1x.|x| $NBthEhl0l4. $N5. $NBE48. $N9. $NBE8$$7 '. $N($.$ $NAE')4.4 $N*@.@ $NAE4)4+P.P $N-\.\ $NAEP+P0l.l $N1x.x  $NA El0l4. $N5.  $NA E48.((, $N9.004 $NA,4$E$8+P.<P<@ $N0l.DlDH $NA@H8E8LL!p$C APA\AA A(A,A0<A8|A<ADAHALAT\AX|A`AdAhAp<At\A|AAAA<A|AAAAA\A|AAAAAA(AHAhA܈AAAAA(AHAhAA A A A  A ( A H A h A  A  A $ A (0r0808AHD1  $ NP62_26_APR_200423_59_02BEGIN /***********************************************************/ /* ֹ TABLE UPDATE */ /***********************************************************/ if :qb1.order_dt is not null and :qb1.order_no is not null then order_lfsgt310_upt; end if;  END;PRE-UPDATE (QB2)enK0808IB33HD1 $ NP63_26_APR_200423_59_02BEGIN %/***********************************************************/ /* ֹ TABLE UPDATE */ /***********************************************************/ /* if :order_dt is not null and :order_no is not null then :qty := 0; lfsgt311_upt; end if; */ null;  END;PRE-DELETE (QB2))ͫͫͫͫͫͫͫ$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"< !0     0800CB0808@D**HD 1 $"NP65_26_APR_200423_59_02BEGIN 2if :normal != '11' then create_record; end if;  END;KEY-CREREC (QB2)hXͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000lHD&>"N$ ?CDB<f;,@:37j1  $ NP66_26_APR_200423_59_02BEGIN begin select item_nm,unit,conv_qty into :item_cd_d,:unit,:conv_qty_d from lfsgt810 where item_div = :item_div and item_cd = :item_cd and item_cd like '%'||:item4 and after_ask = '2'; exception when no_data_found then :item_cd_d := null; :unit := null; :conv_qty_d := null; end; if :item_cd is not null and :item_cd_d is null then bell; :message := msg_dsp('20010'); raise form_trigger_failure; end if; /*ǥӵ */ -- :pre_qty := itemjan(:coop_c,:item_div,:item_cd,:slip_dt_c,:seq_no); if :cb1.item_div_c = '2' then item_jan_qty; if :system.current_block != 'QB2' and :qb2.pre_qty = 0 then set_alert_property('NOTE',alert_message_text,msg_dsp('20025')); if show_alert('NOTE') = alert_button1 then :message := ' ݵ ٶϴ!!!'; synchronize; else :message := ' Ҽ ϴ. ٶϴ!!!'; raise form_trigger_failure; end if; end if; end if; if :qty is not null then if :normal = '10' then :sale_amt := danga_ca (:item_div,:item_cd,:cust_div,:vat_div,:sale_style, :coop_c,:area_c,:qb1.cust_cd,:car_div,:global.car_gbn,:slip_dt_c); end if; :qb2.amt := nvl(:qb2.qty,0) * nvl(:sale_amt,0); end if; /* if :item_div_c = '3' then begin select asst_amt,app_charge into :ass_amt_c,:app_amt_c from lfsgt920 where coop = :coop_c and item_div = :qb2.item_div and area = :qb1.cust_cd and car_div = :car_div; exception when no_data_found then begin select asst_amt,app_charge into :ass_amt_c,:app_amt_c from lfsgt920 where coop = :coop_c and item_div = :item_div and area = :area_c and car_div = :car_div; exception when no_data_found then :ass_amt_c := 0; :app_amt_c := 0; end; end; end if; */ /* ǰ ݷƾ */ if :item_div_c = '3' then begin select asst_amt,app_charge into :ass_amt_c,:app_amt_c from lfsgt921 where coop = :coop_c and item_cd = :qb2.item_cd and area = :qb1.cust_cd and car_div = :car_div; exception when no_data_found then begin select asst_amt,app_charge into :ass_amt_c,:app_amt_c from lfsgt921 where coop = :coop_c and item_cd = :item_cd and area = :area_c and car_div = :car_div; exception when no_data_found then :ass_amt_c := 0; :app_amt_c := 0; end; end; end if; sum_calculate; END; WHEN-VALIDATE-ITEM (QB2.ITEM_CD)E48. $N9. $NBE8$$7 '. $N($.$ $NAE')4.4 $N*@.@ $NAE4)4+P.P $N-\.\ $NAEP+P0l.l $N1x.x  $NA El0l4. $N5.  $NA E48.((, $N9.004 $NA,4$E$8+P.<P<@ $N0l.DlDH $NA@H8E8LL!p$C APA\AA A(A,A0<A8|A<ADAHALAT\AX|A`AdAhAp<At\A|AAAA<A|AAAAA\A|AAAAAA(AHAhA܈AAAAA(AHAhAA A A A  A ( A H A h A  A  A $ A (XrB0808@D**HD 1 $"NP65_26_APR_200423_59_02BEGIN 2if :normal != '11' then create_record; end if;  END;KEY-CREREC (QB2)hXͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N op0800E 0808FHD"$ ?>CDB<f;,@1  $ {NP67_26_APR_200423_59_02BEGIN if :item_cd is not null and nvl(:qty,0) = 0 then bell; :message := ' Էϼ...ܢܢ'; raise form_trigger_failure; end if; if :normal = '11' then :qty := -abs(:qty); end if; if :qb1.cust_cd != '31900007' then if :normal = '10' then :sale_amt := danga_ca (:item_div,:item_cd,:cust_div,:vat_div,:sale_style, :coop_c,:area_c,:qb1.cust_cd,:car_div,:global.car_gbn,:slip_dt_c); end if; :qb2.amt := nvl(:qb2.qty,0) * nvl(:sale_amt,0); end if; sum_calculate; END;WHEN-VALIDATE-ITEM (QB2.QTY)$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000xrt0808rG\\HD 1 $"<NP68_26_APR_200423_59_02BEGIN if :normal = '11' and :system.last_record = 'TRUE' then bell; next_item; previous_item; :message := ' ǰ ο ڷḦ ԷҼ ϴ...ܢܢ'; else next_item; end if;  END;KEY-NEXT-ITEM (QB2.QTY)mͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8^<"PKG INIT"":normal":system.last_record":message""D!%&(,2679=CGHJNRVZ N   N PNaa,a`  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H aa+Tics"! \ H >1 '$$r${8,, $r!$11TRUE ǰ ο ڷḦ ԷҼ ϴ...ܢܢ%D@DL(,T :?DI[` + N$N8(2N  -2Oabl xU N$N8(NT0NpLNP-N$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r0808HHD:"?,@1  $ hNP69_26_APR_200423_59_02BEGIN if :item_div_c = '3' and :item_cd is not null and nvl(:sale_amt,0) = 0 then bell; :message := ' ܰ Էϼ...ܢܢ'; raise form_trigger_failure; end if; :qb2.amt := nvl(:qb2.qty,0) * nvl(:sale_amt,0); sum_calculate;  END;!WHEN-VALIDATE-ITEM (QB2.SALE_AMT)0808IHD1  $ NP70_26_APR_200423_59_02BEGIN  begin select remarks into :coop_dd from lfcmt120 where lcd = 'COOP' and dcd = :coop_cc; exception when no_data_found then :coop_dd := null; end; if :coop_dd is null then bell; :message := msg_dsp('20010'); raise form_trigger_failure; end if;  END; WHEN-VALIDATE-ITEM (CB2.COOP_CC)0808JHDY1  $ hNP71_26_APR_200423_59_02BEGIN if :coop_cc is null then :coop_cc := :global.coop; begin select remarks into :coop_dd from lfcmt120 where lcd = 'COOP' and dcd = :coop_cc; exception when no_data_found then :coop_dd := null; end; end if; END;$WHEN-NEW-ITEM-INSTANCE (CB2.COOP_CC)INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"< !0     0800CB0808@D**HD 1 $"NP65_26_APR_200423_59_02BEGIN 2if :normal != '11' then create_record; end if;  END;KEY-CREREC (QB2)hXͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r0808KHD1  $ NP72_26_APR_200423_59_02BEGIN Ibegin select cust_nm into :cust_cd_dd from lfsgt100 where cust_cd = :cust_cd_cc and cust_div < '8' and member < '9'; exception when no_data_found then :cust_cd_dd := null; end; if :cust_cd_cc is not null and :cust_cd_dd is null then bell; :message := msg_dsp('20010'); raise form_trigger_failure; end if;  END;#WHEN-VALIDATE-ITEM (CB2.CUST_CD_CC) :conv_qty2 := nvl(:qty,0) * nvl(:conv_qty_d,0); else if nvl(:conv_qty_d,0) != 0 then :conv_qty1 := trunc(nvl(:qty,0) / :conv_qty_d); else :conv_qty1 := 0; end if; :conv_qty2 := :qty; end if; if :io_slip_c = '32' then :qb2.pre_qty := itemjan(:coop_c,:item_div,:item_cd,:slip_dt_c,:seq_no); end if; :qty_t1 := nvl(:qty_t1,0) + nvl(:conv_qty1,0); :qty_t2 := nvl(:qty_t2,0) + nvl(:conv_qty2,0); :s_amt := nvl(:s_amt,0) + nvl(:qb2.amt,0);  END;POST-QUERY (QB2)0808@HDQ1  $ NP61_26_APR_200423_59_02BEGIN 5:qb2.slip_no := :slip_no_c; /***********************************************************/ /* ֹ TABLE UPDATE */ /***********************************************************/ if :qb1.order_dt is not null and :qb1.order_no is not null then order_lfsgt310_upt; end if;  END;PRE-INSERT (QB2)  0800CB0808@D**HD 1 $"NP65_26_APR_200423_59_02BEGIN 2if :normal != '11' then create_record; end if;  END;KEY-CREREC (QB2)hXͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000 r0808LHD1 $"NP73_26_APR_200423_59_02BEGIN fif :cust_cd_cc is null then :cust_cd_cc := :qb1.cust_cd; :cust_cd_dd := :qb1.cust_cd_d; end if;  END;'WHEN-NEW-ITEM-INSTANCE (CB2.CUST_CD_CC)zBͫͫͫͫͫͫͫwSYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8!!sK"PKG INIT"":cust_cd_cc":qb1.cust_cd":qb1.cust_cd_d":cust_cd_dd""!%&(,2679=CGHJNTXY[_cgko   N   N NNCC,C@CB  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H CCics" /,,@@!lL, TDh  @D,| /B/0808-MHD1  $ NP74_26_APR_200423_59_02BEGIN if date_chk(:system.current_value) = 'NO' then bell; :message := msg_dsp('20006'); raise form_trigger_failure; end if;  END;#WHEN-VALIDATE-ITEM (CB2.SLIP_DT_CC)T0NpLNP-N$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)80008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080000PrJ0808HN22HD1 $"NP75_26_APR_200423_59_02BEGIN go_block('cb3'); if :system.current_block = 'CB3' then execute_query; if :SYSTEM.RECORD_STATUS in ('QUERY') then :message := ' ȸ ......ܢܢ'; else go_block('cb2'); :message := ' ȸڷᰡ ʽϴ......ܢܢ'; end if; end if;  END;KEY-NEXT-ITEM (CB2.SLIP_DT_CC)^XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8^L"PKG INIT"":system.current_block":SYSTEM.RECORD_STATUS":message""D!%&(,2679=CGHJNRVZ N  N PNy y4yx  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H yyUics"m $:[ Q$.  8# T44p$:44! cb3CB3QUERY ȸ ......ܢܢcb2 ȸڷᰡ ʽϴ......ܢܢ&DHD P(4X -2Oabl xU N$N8(NT0NpLNP-N$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000@r0808OHD1 $"oNP76_26_APR_200423_59_02BEGIN Mif :system.cursor_item = 'CB2.COOP_CC' then do_key('list_values'); end if; END; WHEN-BUTTON-PRESSED (CB2.COOP_B)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 +"PKG INIT"":system.cursor_item""!%&(,0  N.- ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $8 $!hPCB2.COOP_CClist_valuesD #- N, Nics" /,,@@!lL, TDh  @D,| /B/0808-MHD1  $ NP74_26_APR_200423_59_02BEGIN if date_chk(:system.current_value) = 'NO' then bell; :message := msg_dsp('20006'); raise form_trigger_failure; end if;  END;#WHEN-VALIDATE-ITEM (CB2.SLIP_DT_CC)T0NpLNP-N$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000Pr0808PHD1 $"zNP77_26_APR_200423_59_02BEGIN Pif :system.cursor_item = 'CB2.SLIP_DT_CC' then do_key('list_values'); end if; END;$WHEN-BUTTON-PRESSED (CB2.SLIP_DT_BB)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 +"PKG INIT"":system.cursor_item""!%&(,0  N.- ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $< $!lTCB2.SLIP_DT_CClist_valuesD #- N0 Na+Tics"! \ H >1 '$$r${8,, $r!$11TRUE ǰ ο ڷḦ ԷҼ ϴ...ܢܢ%D@DL(,T :?DI[` + N$N8(2N  -2Oabl xU N$N8(NT0NpLNP-N$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000`r0808QHD1 $"zNP78_26_APR_200423_59_02BEGIN Pif :system.cursor_item = 'CB2.CUST_CD_CC' then do_key('list_values'); end if; END;$WHEN-BUTTON-PRESSED (CB2.CUST_CD_BB)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 +"PKG INIT"":system.cursor_item""!%&(,0  N.- ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $< $!lTCB2.CUST_CD_CClist_valuesD #- N0 N"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"V $!@0create_record NNpLNP-N$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000pr0808RHD1 $"qNP79_26_APR_200423_59_02BEGIN Mif :system.cursor_item = 'QB3.ACT_CD1' then do_key('list_values'); end if; END;"WHEN-BUTTON-PRESSED (CB2.ACT_CD_B)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 +"PKG INIT"":system.cursor_item""!%&(,0  N.- ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ..8ics" $8 $!hPQB3.ACT_CD1list_valuesD #- N, Nics" /,,@@!lL, TDh  @D,| /B/0808-MHD1  $ NP74_26_APR_200423_59_02BEGIN if date_chk(:system.current_value) = 'NO' then bell; :message := msg_dsp('20006'); raise form_trigger_failure; end if;  END;#WHEN-VALIDATE-ITEM (CB2.SLIP_DT_CC)T0NpLNP-N$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r0808SHD1 $ xNP80_26_APR_200423_59_02BEGIN do_key('exit_form');  END;#WHEN-BUTTON-PRESSED (CB2.EXIT_CAN2)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"R $!<,exit_form N0808THD1  $ NP81_26_APR_200423_59_02BEGIN (:cust_cd_ddd := readcust(:cb3.cust_cd);  END;POST-QUERY (CB3)0808UvvHD!=LM1  $ BNP82_26_APR_200423_59_02BEGIN :relat_no1 := :coop_cc; :relat_no2 := :cb3.slip_dt; :relat_no3 := :cb3.io_slip; :relat_no4 := :cb3.slip_no; clear_block(no_validate); hide_view ('CAN2'); go_item('act_dt'); lfsgt320_set; lfsgt321_set;  END;!WHEN-CHECKBOX-CHANGED (CB3.CHK_C)piler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"N $!8(print N 0800cZͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000`r0808VHDr1  $ NP0_07_JUN_200711_17_06BEGIN 1 go_block('SB2'); clear_block(no_validate); if :sb.nor_gubun = '1' then get_data; else get_data_ban; end if; if :sb1.w_baesong_dt is null then :message := 'ȸ ڷᰡ ϴ'; start_message_timer('timer',5000); else go_block('SB2'); get_data_d; end if; go_block('SB1'); END;!WHEN-RADIO-CHANGED (SB.NOR_GUBUN)0808WHD1 $ zNP27_07_JUN_200711_17_06BEGIN go_item('qb1.act_dt');  END;"WHEN-BUTTON-PRESSED (SB.EXIT_CAN2)WͫͫͫͫͫͫͫwSYSSTANDARD FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"R $F!<,qb1.act_dt NAN0808XHD1  $ NP1_07_JUN_200711_17_06BEGIN -go_block('SB2'); get_data_d; go_block('SB1'); END;WHEN-MOUSE-CLICK (SB1)ͫͫ H ics"N $!8(print N 0800cZͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000lHDZr[sYocd!=LM1  $  NP4_07_JUN_200711_17_06BEGIN -- ,ǰ϶ ,۹ȣ update Ѵ :qb1.baesong_dt := :sb1.w_baesong_dt ; :qb1.baesong_no := :sb1.w_baesong_no ; if :sb1.w_jp_normal in ('2', '3') then -- ߾ȸ ,ȯ declare -- ǰ ǥ select v_cnt number(4); begin begin select count(*) into v_cnt from lfsgt320 where coop = :global.coop and baesong_dt = :sb1.w_baesong_dt and baesong_no = :sb1.w_baesong_no ; exception when others then v_cnt := 0; end; if nvl(v_cnt,0) = 0 and :sb1.w_jp_gbn = '' then bell; :message := ' տ ó..۵Ͽ ǥ ٽǥ Ϲٶ.ܢܢ'; start_message_timer('timer',5000); raise form_trigger_failure; end if; end; /* ǰ 2006.8.16 */ :qb1.normal := '11'; :global.baesong_dt := :sb1.w_baesong_dt ; :global.baesong_no := :sb1.w_baesong_no ; :relat_no1 := :global.coop; :relat_no2 := :sb1.w_baesong_dt ; :relat_no3 := :sb1.w_io_slip_ban ; :relat_no4 := :sb1.w_slip_no ; :jung_ban_chk := '1' ; else -- ȣ select :qb1.normal := '10'; :global.baesong_dt := :sb1.w_baesong_dt; :global.baesong_no := :sb1.w_baesong_no; :jung_chk := '1' ; -- ǰȵǰ end if; if :sb1.w_jp_normal in ('2' , '3') then --߾ȸ ǰ϶ lfsgt320,lfsgt321 select clear_block(no_validate); lfsgt301_sel_b; post_query_chk; go_block('SB2'); lfsgt302_sel_b; go_item('QB1.ACT_DT'); else -- ߾ȸ ϶ lfsgt301,lfsgt302 select clear_block(no_validate); lfsgt301_sel; post_query_chk; go_block('SB2'); lfsgt302_sel; go_item('QB1.ACT_DT'); end if;  END;WHEN-MOUSE-DOUBLECLICK (SB1)ʽϴ......ܢܢ'; end if; end if;  END;KEY-NEXT-ITEM (CB2.SLIP_DT_CC)^XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8^L"PKG INIT"":system.current_block":SYSTEM.RECORD_STATUS":message""D!%&(,2679=CGHJNRVZ N  N PNy y4yx  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H yyUics"m $:[ Q$.  8# T44p$:44! cb3CB3QUERY ȸ ......ܢܢcb2 ȸڷᰡ ʽϴ......ܢܢ&DHD P(4X -2Oabl xU N$N8(NT0NpLNP-N,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $`!0  0800!0800"'0800# r0808YHD1  $ NP2_07_JUN_200711_17_06BEGIN Sdeclare cur_item VARCHAR2(20); begin if :system.cursor_record = '1' then bell; :message := msg_dsp('20011'); else cur_item := :system.cursor_item; previous_record; go_item(cur_item); go_block('SB2'); get_data_d; go_block('SB1'); end if; end; END; KEY-UP (SB1)0808ZHD1  $ NP3_07_JUN_200711_17_06BEGIN Kdeclare cur_item VARCHAR2(20); begin if :system.last_record = 'TRUE' then :message := msg_dsp('20012');bell; else cur_item := :system.cursor_item; next_record; go_item(cur_item); go_block('SB2'); get_data_d; go_block('SB1'); end if; end;  END;KEY-DOWN (SB1)0800[kSSED (BB1.INSERT)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"V $!@0create_record NNpLNP-N$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000rX0808V\@@HD1 $ ,NP5_07_JUN_200711_17_06BEGIN next_record; END;KEY-NEXT-ITEM (SB1.W_WONGA_AMT)?ͫͫͫͫͫͫͫSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $R!0  0808]HD1 $ yNP83_26_APR_200423_59_02BEGIN do_key('create_record');  END; WHEN-BUTTON-PRESSED (BB1.INSERT)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"V $!@0create_record NNpLNP-N$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r0808^HD1 $ rNP84_26_APR_200423_59_02BEGIN do_key('commit_form');  END;WHEN-BUTTON-PRESSED (BB1.SAVE)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"R $!<,commit_form N0808b{{HD1 $ gNP88_26_APR_200423_59_02BEGIN do_key('print'); END;WHEN-BUTTON-PRESSED (BB1.PRINT)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"N $!8(print N 0800cZͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000Pr0808_HD1 $ yNP85_26_APR_200423_59_02BEGIN do_key('delete_record');  END; WHEN-BUTTON-PRESSED (BB1.DELETE)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"V $!@0delete_record N :0808`HD1 $ rNP86_26_APR_200423_59_02BEGIN do_key('clear_block');  END;WHEN-BUTTON-PRESSED (BB1.CLEAR)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"R $!<,clear_block NND;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000lH: 1 $"N CASH_CALL}PROCEDURE cash_call IS v_tel varchar2(20); BEGIN -- ݿ ȭȣ /* begin select replace(tel2,'-',null) into v_tel from lfsgt100 where cust_cd = :qb1.cust_cd and cust_div < '8' and member < '9'; exception when no_data_found then v_tel := null; end; */ if :system.cursor_block in ('QB1','QB2','QB3','CB1') then if :qb1.cust_cd_d is null then set_alert_property('NOTE1', alert_message_text, ' ŷóڵ带 ԷϽʽÿ!'); if show_alert('NOTE1') = alert_button1 then null; end if; go_item('QB1.CUST_CD'); raise form_trigger_failure; else :global.cash_dt := :cb1.slip_dt_c; :global.cash_cd := :qb1.cust_cd; :global.cash_nm := :qb1.cust_cd_d; :global.cash_amt := :qb1.amt ; :global.cash_tel := v_tel; open_form('LSGE1029'); end if; end if; END; ͫͫͫͫͫͫͫwSYSSTANDARD FORMS4W FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8NN"PKG INIT"CASH_CALL"V_TEL":system.cursor_block":qb1.cust_cd_d":cb1.slip_dt_c":global.cash_dt":qb1.cust_cd":global.cash_cd":global.cash_nm":qb1.amt":global.cash_amt":global.cash_tel""r!%&(,2679=CGHJNTXY[_eijlpvz{} M N9 C N DNE NF N#G%$& N" )H+*,N( /I102N. 5J4 8 K:9;N7 > L@?AN=,9@9X9l99999998 !'-36<B  "(.47=$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8W&R`dAeee E3 xeeAeeAeeAeeAeeAeeAeeAeeAeeAAAAeAAeAAeAAeAAeAAeAAeAAeAAe u"CASH_CALL"V_TEL"VARCHAR2"20"system.cursor_block""QB1"QB2"QB3"CB1"qb1.cust_cd_d"IS NULL"SET_ALERT_PROPERTY"NOTE1"ALERT_MESSAGE_TEXT" ŷóڵ带 ԷϽʽÿ!"SHOW_ALERT"ALERT_BUTTON1"="GO_ITEM"QB1.CUST_CD"FORM_TRIGGER_FAILURE"global.cash_dt"cb1.slip_dt_c"global.cash_cd"qb1.cust_cd"global.cash_nm"global.cash_amt"qb1.amt"global.cash_tel"OPEN_FORM"LSGE1029"3"5"29"11"8""  %)*,37:BGHOV[`ejnqx!(/6:AHOVZahlptyz %)-08<@CKSW[^beiqtxhUQ>nnnnH|.nnWn.|.O<nWb nW<<OcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcl! %+1!5,  9%%++1155 5ZZ/   Y\\  ` `      4 "$   '( +,)+Q-4.0 42 4Qd6dh8h57 Pl;lp=p:< Pt@t `?A PxDx |F| CE P}I} HJ P LN P"R4USPUS)T,UTZV.W2ZZZ0ZYWX^]N_baNcfeNgjiNk nmNo !"rqNs# $%vuNw&'(zyN{)*+,-~N. /!0123!4567!89:;!<=>?@"@ABC#DEFGB"HIJKFH$L MNOK%PQRSM#%&*,/!-13M9>BGKOQRSU V[ 68;=@DFI#%&/MTUVX d6I@FD=;8,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H 99qics"  (,, 6, &,8 ,T @@UpGE( $$pT$DTGE $FhXXll@@G E$G E, G E4$s!,$ CASH_CALLQB1QB2QB3CB1NOTE1 ŷóڵ带 ԷϽʽÿ!QB1.CUST_CDLSGE1029u DATH(D,D@ (l|DXh (D ((A( Yi78!q`NdN8hNTlNppNxN NN z %)-08<@CKSW[^beiqtxhUQ>nnnnH|.nnWn.|.O<nWb nW<<OcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQclH:  !1 $"/INNULL_CHKPROCEDURE null_chk IS cnt number; BEGIN :chk := '0' ; if :act_dt is null then go_item('act_dt'); :message := ' ȸڸ ԷϽÿ....ܢܢ'; :chk := '1'; elsif :qb1.cust_cd is null then go_item('qb1.cust_cd'); :message := ' ŷóڵ带 Ͻÿ....ܢܢ'; :chk := '1'; elsif :qb1.sale_style is null then go_item('qb1.sale_style'); :message := ' Ǹ Ͻÿ....ܢܢ'; :chk := '1'; elsif :qb1.vat_div is null then go_item('qb1.vat_div'); :message := ' ΰ Ͻÿ....ܢܢ'; :chk := '1'; elsif :car_div is null then go_item('car_div'); :message := ' Էϼ....ܢܢ'; :chk := '1'; elsif :car_div in ('2','5') and :car_no is null then go_item('car_no'); :message := ' ȣ Էϼ....ܢܢ'; :chk := '1'; elsif nvl(:qb1.amt,0) = 0 then go_item('item_cd'); :message := ' ǰ̳ Ȯϼ....ܢܢ'; :chk := '1'; elsif :normal = '11' and :relat_no1 is null then go_item('normal'); :message := ' ǰ ǥȣ ϰ Էϼ....ܢܢ'; :chk := '1'; end if; END;)WͫͫͫͫͫͫͫwSYSSTANDARD FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8RR"PKG INIT"NULL_CHK"CNT":chk":act_dt":message":qb1.cust_cd":qb1.sale_style":qb1.vat_div":car_div":car_no":qb1.amt":normal":relat_no1""!$(.2359?CDFJPTUW[aefhlrvwy}   QJF NG N HPNI N J"!#N &K(')N% ,L.-/N+ 2M435 N1 8 N7 ; O=<>N: A PCBDN@!J(J<JPJdJxJJJJJJI $*069?E  %+17:@$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8)DDDD     e AA +  eeAeeAeeAeeAeeAeeAeeAeeAeeAeeAAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAe"NULL_CHK"CNT"NUMBER"chk""0"act_dt"IS NULL"GO_ITEM"message" ȸڸ ԷϽÿ....ܢܢ"1"qb1.cust_cd" ŷóڵ带 Ͻÿ....ܢܢ"qb1.sale_style" Ǹ Ͻÿ....ܢܢ"qb1.vat_div" ΰ Ͻÿ....ܢܢ"car_div" Էϼ....ܢܢ"2"5"car_no" ȣ Էϼ....ܢܢ"NVL"qb1.amt"="item_cd" ǰ̳ Ȯϼ....ܢܢ"normal"11"relat_no1" ǰ ǥȣ ϰ  lԷϼ....ܢܢ"6"35"37"14"7"40"51"" %)*,37?DELSX\cjnotx}~   ',07<@BFMTXY^bghmty}  $+04;@DFJNU\_`eilmrv{| #%13;?CFNRVYaeiltx|   (+/78;?GHKOWZ^fgjnvwz~ !"%)148@ABEIQRUYadhpswhUn |.nWn n |.nWn n |.nWn n |.nWn n |.nWn n >nnH|. nWn n Q.|Q.nWn n |n.|. nWn n <OcQcQcQcQcQcQcQcQcQcQQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQc    !!!!!!!!!!!!!""""###$$$!&  !!!!"""##$$              !          #####    3           /          #    `/     !   ! ! #  $% ')1 +,1 ./12&14 56 8:B <=B  ?@BC7BE FG IK S  MN S  PQ S!THSV%WX  'Z\ d ^_ d  ab d)eYdV-fgjm0nokqp !2su"} %wx} ( z{}4~r} 8);* ->. 1 4 @   7D 8 ! !0l!G"9# $<I= !@! C K!O\Z%&N'()N* +,N-P./N0 12N345N678N9:;N< =>?@NABCND EFGHX"IJKLl#M#NOP QRSTnU VWXp$Y%Z[\ ]^_`r%abcdt#e#fgh ijklvm nopx$q%rst u v wx z&yz{||#}#~   ~"  ###$$ &''&+,,'(/00 233566":;;(3>?? ABB "(*-039;>ADJLORU[]`chiltvy|2CTe~  #4EVm"(39DJU[lt^ d4Vm#E,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H JJ2Xics"  ((1$F8<<TPP1p$F<<Tdd1$F<<Txx1$F<<TW3$F4<<TP lL A4$F<<T. $N.: 0$F<<TR ȈE :!- $F<<<T!#xNULL_CHK0act_dt ȸڸ ԷϽÿ....ܢܢ1qb1.cust_cd ŷóڵ带 Ͻÿ....ܢܢqb1.sale_style Ǹ Ͻÿ....ܢܢqb1.vat_div ΰ Ͻÿ....ܢܢcar_div Էϼ....ܢܢ25car_no ȣ Էϼ....ܢܢitem_cd ǰ̳ Ȯϼ....ܢܢ11normal ǰ ǥȣ ϰ Էϼ....ܢܢx AAA0AP(D(8 (P ` j v  2q| !%"0#=$I&2\N`N8h#NTNp N%NN#N N%N,N44#NPXNl\N`Nh#NN(NN N<3N  !  7D 8 ! !@lH:$"#$%&'()*+,-./0123456789:;< =>?@A1  $"/N SUM_CALCULATE/***********************************************/ /* ƾ */ /***********************************************/ /* PRE-RECORED ӽú ϴ ƾֽ */ /***********************************************/ PROCEDURE sum_calculate IS v_conv_qty number(7); BEGIN -- ȯ if substr(:item_cd,6,1) = '1' then :conv_qty1 := :qty; :conv_qty2 := nvl(:qty,0) * nvl(:conv_qty_d,0); else if nvl(:conv_qty_d,0) != 0 then :conv_qty1 := trunc(nvl(:qty,0) / :conv_qty_d); else :conv_qty1 := 0; end if; :conv_qty2 := :qty; end if; -- հ () :qty_t1 := nvl(:qty_t1,0) + nvl(:conv_qty1,0) - nvl(:qty_i1,0); :qty_i1 := :conv_qty1; -- հ (kg) :qty_t2 := nvl(:qty_t2,0) + nvl(:conv_qty2,0) - nvl(:qty_i2,0); :qty_i2 := :conv_qty2; -- ݾհ :s_amt := nvl(:s_amt,0) + nvl(:qb2.amt,0) - nvl(:amt_i,0); :amt_i := :qb2.amt; -- ΰ :vat_amt := trunc(nvl(:vat_rat,0) * nvl(:qb2.amt,0)); :vat := nvl(:vat,0) + nvl(:vat_amt,0) - nvl(:vat_amt_i,0); :vat_amt_i := :vat_amt; -- ۺ if substr(:item_cd,6,1) = '1' then v_conv_qty := :qty; else v_conv_qty := trunc(:qty / :conv_qty_d); end if; /***********************************/ /* ᱸǰ */ /***********************************/ if substr(:item_cd,6,1) != '4' then :ass_amt := v_conv_qty * :ass_amt_c; :ass := nvl(:ass,0) + nvl(:ass_amt,0) - nvl(:ass_amt_i,0); :ass_amt_i := :ass_amt; -- ߰Ӱ :app_amt := v_conv_qty * :app_amt_c; :app := nvl(:app,0) + nvl(:app_amt,0) - nvl(:app_amt_i,0); :app_amt_i := :app_amt; elsif substr(:item_cd,6,1) = '4' then :ass_amt := 0; :ass := 0; :ass_amt_i := :ass_amt; -- ߰Ӱ :app_amt := 0; :app := 0; :app_amt_i := :app_amt; end if; /**************************************/ /* ᱸǰ */ /*************************************/ -- Ѱޱݾװ :qb1.amt := nvl(:s_amt,0) + nvl(:vat,0); -- ǰ declare v_slip_dt VARCHAR2(10); v_plan_cost lfprt420.plan_cost%TYPE; begin if :item_div_c = '2' then -- ǰ ǰõ --if :normal = '11' then -- v_slip_dt := :relat_no2; --else v_slip_dt := :slip_dt_c; --end if; declare pre_yymm lfprt420.calcu_yymm%TYPE; begin select plan_cost into v_plan_cost from lfprt420 where coop = substr(:coop_c,1,5)||'0' and calcu_yymm = substr(v_slip_dt,1,6) and item_cd2 = :item_cd; exception when no_data_found then begin select plan_cost into v_plan_cost from lfprt420 where coop = substr(:coop_c,1,5)||'0' and calcu_yymm = to_char(add_months(to_date(v_slip_dt,'yyyymmdd'),-1),'yyyymm') and item_cd2 = :item_cd; exception when no_data_found then v_plan_cost := 0; end; end; else if :normal = '11' then v_slip_dt := :relat_no2; else v_slip_dt := :slip_dt_c; end if; /* ̵տ ϴ ƾ */ declare pre_amt number(12); pre_qty number(12); begin pre_amt := itemamt (substr(:coop_c,1,5),:item_div,:item_cd,to_char(to_date(v_slip_dt,'yyyymmdd')-1,'yyyymmdd')); pre_qty := itemjan1(substr(:coop_c,1,5),:item_div,:item_cd,to_char(to_date(v_slip_dt,'yyyymmdd')-1,'yyyymmdd')); if nvl(pre_qty,0) != 0 then v_plan_cost := pre_amt / pre_qty; else v_plan_cost := 0;Pl end if; end; /* ϴ ƾ */ /* begin select cost into v_plan_cost from lfsgt820 where item_div = '3' and item_cd = :item_cd and ch_dt in ( select max(ch_dt) from lfsgt820 where item_div = '3' and item_cd = :item_cd and ch_dt < v_slip_dt); exception when no_data_found then v_plan_cost := 0; end; */ end if; /*Ұ ŷ */ if :qb1.cust_cd = '31900007' or :qb1.cust_cd = '31900015' then :sale_amt := v_plan_cost; :qb2.amt := nvl(:qb2.qty,0) * nvl(v_plan_cost,0); end if; :cost := v_plan_cost * :qty; if nvl(v_plan_cost,0) = 0 then bell; :message := ' ǰǸſ Էϼ....ܢܢ'; raise form_trigger_failure; end if; end; END;$"#$%&'()*+,-./0123456789:;< =>?@Aqb2.amt,0)); :vat := nvl(:vat,0) + nvl(:vat_amt,0) - nvl(:vat_amt_i,0); :vat_amt_i := :vat_amt; -- ۺ if substr(:item_cd,6,1) = '1' then v_conv_qty := :qty; else v_conv_qty := trunc(:qty / :conv_qty_d); end if; /***********************************/ /* ᱸǰ */ /***********************************/ if substr(:item_cd,6,1) != '4' then :ass_amt := v_conv_qty * :ass_amt_c; :ass := nvl(:ass,0) + nvl(:ass_amt,0) - nvl(:ass_amt_i,0); :ass_amt_i := :ass_amt; -- ߰Ӱ :app_amt := v_conv_qty * :app_amt_c; :app := nvl(:app,0) + nvl(:app_amt,0) - nvl(:app_amt_i,0); :app_amt_i := :app_amt; elsif substr(:item_cd,6,1) = '4' then :ass_amt := 0; :ass := 0; :ass_amt_i := :ass_amt; -- ߰Ӱ :app_amt := 0; :app := 0; :app_amt_i := :app_amt; end if; /**************************************/ /* ᱸǰ */ /*************************************/ -- Ѱޱݾװ :qb1.amt := nvl(:s_amt,0) + nvl(:vat,0); -- ǰ declare v_slip_dt VARCHAR2(10); v_plan_cost lfprt420.plan_cost%TYPE; begin if :item_div_c = '2' then -- ǰ ǰõ --if :normal = '11' then -- v_slip_dt := :relat_no2; --else v_slip_dt := :slip_dt_c; --end if; declare pre_yymm lfprt420.calcu_yymm%TYPE; begin select plan_cost into v_plan_cost from lfprt420 where coop = substr(:coop_c,1,5)||'0' and calcu_yymm = substr(v_slip_dt,1,6) and item_cd2 = :item_cd; exception when no_data_found then begin select plan_cost into v_plan_cost from lfprt420 where coop = substr(:coop_c,1,5)||'0' and calcu_yymm = to_char(add_months(to_date(v_slip_dt,'yyyymmdd'),-1),'yyyymm') and item_cd2 = :item_cd; exception when no_data_found then v_plan_cost := 0; end; end; else if :normal = '11' then v_slip_dt := :relat_no2; else v_slip_dt := :slip_dt_c; end if; /* ̵տ ϴ ƾ */ declare pre_amt number(12); pre_qty number(12); begin pre_amt := itemamt (substr(:coop_c,1,5),:item_div,:item_cd,to_char(to_date(v_slip_dt,'yyyymmdd')-1,'yyyymmdd')); pre_qty := itemjan1(substr(:coop_c,1,5),:item_div,:item_cd,to_char(to_date(v_slip_dt,'yyyymmdd')-1,'yyyymmdd')); if nvl(pre_qty,0) != 0 then v_plan_cost := pre_amt / pre_qty; else v_plan_cost := 0;`lH:1 $ NSTART_MESSAGE_TIMERPROCEDURE start_message_timer(timer_name varchar2, timer_intv number) IS tm_id timer; tm_interval number; BEGIN tm_interval := 1000 * timer_intv; tm_id := find_timer(timer_name); IF Id_Null(tm_id) THEN tm_id := Create_Timer(timer_name,timer_intv,NO_REPEAT); ELSE Set_Timer(tm_id,timer_intv,NO_REPEAT); END IF; END; :lͫͫͫͫͫͫͫwSYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8ZJ"PKG INIT"START_MESSAGE_TIMER"TIMER_NAME"TIMER_INTV"TM_ID"ID"TM_INTERVAL""$!%'-068>AEIORV    N       $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8HHHH;`ed899A" 9 9 "START_MESSAGE_TIMER"TIMER_NAME"VARCHAR2"TIMER_INTV"NUMBER"TM_ID"TIMER"TM_INTERVAL"1000"*"FIND_TIMER"ID_NULL"CREATE_TIMER"NO_REPEAT"SET_TIMER"" %)*/08<ABJNPW[chipt| hU==Q|. . .. W<O     **'2 AA/    @  @     C>  "$D!%> ')E   ,0F+13; 48G:<*3A=:A=!>*AAA'A@>?$/137   #(-./25679;< &=B#(-./567.d  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H Tics"  D.H$C$% %($.(4$L45 -%%GI0 8$8%GI0 $!T$ START_MESSAGE_TIMER &)*&)*4(0-HDA A$H(A4H8  ,I p  pH*/ declare pre_amt number(12); pre_qty number(12); begin pre_amt := itemamt (substr(:coop_c,1,5),:item_div,:item_cd,to_char(to_date(v_slip_dt,'yyyymmdd')-1,'yyyymmdd')); pre_qty := itemjan1(substr(:coop_c,1,5),:item_div,:item_cd,to_char(to_date(v_slip_dt,'yyyymmdd')-1,'yyyymmdd')); if nvl(pre_qty,0) != 0 then v_plan_cost := pre_amt / pre_qty; else v_plan_cost := 0;p`r0808aHD1 $ sNP87_26_APR_200423_59_02BEGIN do_key('exit_form');  END;WHEN-BUTTON-PRESSED (BB1.EXIT)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"R $!<,exit_form N0808b{{HD1 $ gNP88_26_APR_200423_59_02BEGIN do_key('print'); END;WHEN-BUTTON-PRESSED (BB1.PRINT)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"N $!8(print N 0800cZͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000hr 0800d/0 0800e@P0800f`7_06BEGIN 1 go_block('SB2'); clear_block(no_validate); if :sb.nor_gubun = '1' then get_data; else get_data_ban; end if; if :sb1.w_baesong_dt is null then :message := 'ȸ ڷᰡ ϴ'; start_message_timer('timer',5000); else go_block('SB2'); get_data_d; end if; go_block('SB1'); END;!WHEN-RADIO-CHANGED (SB.NOR_GUBUN)0808WHD1 $ zNP27_07_JUN_200711_17_06BEGIN go_item('qb1.act_dt');  END;"WHEN-BUTTON-PRESSED (SB.EXIT_CAN2)WͫͫͫͫͫͫͫwSYSSTANDARD FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"R $F!<,qb1.act_dt NAN0808XHD1  $ NP1_07_JUN_200711_17_06BEGIN -go_block('SB2'); get_data_d; go_block('SB1'); END;WHEN-MOUSE-CLICK (SB1)ͫͫ H ics"N $!8(print N 0800cZͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)80008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080000r*0808(gH:BC048DEFGHIJ')+K!=LMN1  $"N LFSGT320_SET/************************************/ /* ǰ񳻿 (ǰ) */ /* lfsgt320 Query */ /************************************/ PROCEDURE lfsgt320_set IS BEGIN begin select sale_style,cust_div,cust_cd,car_div,car_no,'','','','',vat_div,draw_ask, trns_coop,order_dt,order_no,pallet_cnt,house_cnt,'','','',seq_no into :sale_style,:cust_div,:qb1.cust_cd,:car_div,:car_no,:qb1.amt,:vat,:ass,:app,:vat_div,:draw_ask, :trns_coop,:order_dt,:order_no,:pallet_cnt,:house_cnt,:qty_t1,:qty_t2,:s_amt,:seq_no11 from lfsgt320 where coop = :relat_no1 and slip_dt = :relat_no2 and io_slip = :relat_no3 and slip_no = :relat_no4; exception when no_data_found then :sale_style := null; :cust_div := null; :qb1.cust_cd := null; :car_div := null; :car_no := null; :qb1.amt := null; :vat := null; :ass := null; :app := null; :vat_div := null; :draw_ask := null; :trns_coop := null; :order_no := null; :pallet_cnt := null; :house_cnt := null; :qty_t1 := null; :qty_t2 := null; :s_amt := null; :seq_no11 := null; end; -- ǰ񱸺м if :car_div in ('1','2','3') then :item4 := '1'; else :item4 := null; end if; END;BC048DEFGHIJ')+K!=LMN 0800cZͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000r0808hH: !=LM:"$?A,.261  $ N LFSGT321_SETV/************************************/ /* ǰ񳻿 (ǰ) */ /* lfsgt321 Query */ /************************************/ PROCEDURE lfsgt321_set IS v_item_cd lfsgt321.item_cd%TYPE; v_qty lfsgt321.qty%TYPE; v_sale_amt lfsgt321.sale_amt%TYPE; v_cost lfsgt321.cost%TYPE; v_amt lfsgt321.amt%TYPE; v_vat_amt lfsgt321.vat_amt%TYPE; v_ass_amt lfsgt321.ass_amt%TYPE; v_app_amt lfsgt321.app_amt%TYPE; CURSOR lfsgt321_cursor is select item_cd,qty,sale_amt,cost,amt,vat_amt,ass_amt,app_amt from lfsgt321 where coop = :relat_no1 and slip_dt = :relat_no2 and io_slip = :relat_no3 and slip_no = :relat_no4 and item_div = :item_div_c; BEGIN go_block('qb2'); clear_block(no_validate); OPEN lfsgt321_cursor; LOOP FETCH lfsgt321_cursor INTO v_item_cd,v_qty,v_sale_amt,v_cost, v_amt,v_vat_amt,v_ass_amt,v_app_amt; EXIT WHEN lfsgt321_cursor%NOTFOUND; :item_cd := v_item_cd; :qty := v_qty; :sale_amt:= v_sale_amt; :cost := v_cost; :qb2.amt := v_amt; :vat_amt := v_vat_amt; :ass_amt := v_ass_amt; :app_amt := v_app_amt; synchronize; next_record; END LOOP; CLOSE lfsgt321_cursor; previous_record; END;r_div in ('1','2','3') then :item4 := '1'; else :item4 := null; end if; END;BC048DEFGHIJ')+K!=LMN 0800cZͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000lH:!O=LM8BTU:<;VCEQPRS1  $ 'NLFSGT410_INS11'/*********************************************************/ /* ̼ݹ߻ Է(ǰ) */ /*********************************************************/ PROCEDURE lfsgt410_ins11 IS v_amt lfsgt410.amt%TYPE; v_in_sum lfsgt410.in_sum%TYPE; v_rem_amt lfsgt410.rem_amt%TYPE; v_end_div lfsgt410.end_div%TYPE; v_rem_amt_c lfsgt410.rem_amt%TYPE; v_rem_amt_i lfsgt410.rem_amt%TYPE; v_act_cd varchar2(2); v_act_cd_d varchar2(2); BEGIN begin select amt,in_sum,rem_amt into v_amt,v_in_sum,v_rem_amt from lfsgt410 where coop = :relat_no1 and cust_cd = :credit_cust and slip_dt = :relat_no2 and io_slip = :relat_no3 and slip_no = :relat_no4; exception when no_data_found then v_amt := null; v_in_sum := null; v_rem_amt := null; end; if nvl(v_rem_amt,0) >= abs(nvl(:qb1.amt,0)+nvl(:app,0)) then /*********************************************************/ /* ǰݾ ̼ ܾ׺ */ /*********************************************************/ if nvl(v_rem_amt,0) - (nvl(:qb1.amt,0)+nvl(:app,0)) = 0 then v_end_div := '2'; else v_end_div := '1'; end if; /*********************************************************/ /* ̼ݹ߻ UPDATE (LFSGT410) */ /*********************************************************/ begin update lfsgt410 set sale_style = :sale_style, amt = nvl(v_amt,0) + (nvl(:qb1.amt,0)+nvl(:app,0)), rem_amt = nvl(v_rem_amt,0) + (nvl(:qb1.amt,0)+nvl(:app,0)), end_div = v_end_div, usr_id = :usr_id, hand_dt = sysdate where coop = :relat_no1 and cust_cd = :credit_cust and slip_dt = :relat_no2 and io_slip = :relat_no3 and slip_no = :relat_no4; exception when others then raise form_trigger_failure; end; else /*********************************************************/ /* ǰݾ ̼ ܾ׺ */ /*********************************************************/ v_rem_amt_c := abs(nvl(:qb1.amt,0)+nvl(:app,0)) - nvl(v_rem_amt,0); /*********************************************************/ /* ̼ݹ߻ UPDATE (LFSGT410) */ /*********************************************************/ begin update lfsgt410 set sale_style = :sale_style, amt = nvl(v_amt,0) + (nvl(:qb1.amt,0)+nvl(:app,0)), in_sum = nvl(v_in_sum,0) - nvl(v_rem_amt_c,0), rem_amt = 0, end_div = '2', usr_id = :usr_id, hand_dt = sysdate where coop = :relat_no1 and cust_cd = :credit_cust and slip_dt = :relat_no2 and io_slip = :relat_no3 and slip_no = :relat_no4; exception when others then raise form_trigger_failure; end; /*********************************************************/ /* ̼ݻȯ UPDATE (LFSGT420) */ /*********************************************************/ DECLARE v_coop lfsgt420.coop%TYPE; v_cust_cd lfsgt420.cust_cd%TYPE; v_slip_dt lfsgt420.slip_dt%TYPE; v_act_cd lfsgt420.act_cd%TYPE; v_slip_no lfsgt420.slip_no%TYPE; v_seq lfsgt420.seq%TYPE; v_refund_amt lfsgt420.refund_amt%TYPE;l CURSOR lfsgt420_cursor is select coop,cust_cd,slip_dt,act_cd,slip_no,seq, refund_amt from lfsgt420 where sale_coop = :relat_no1 and sale_dt = :relat_no2 and sale_io = :relat_no3 and sale_no = :relat_no4 and back_div in ('1','3') order by slip_dt desc,slip_no desc,seq desc; BEGIN v_rem_amt_i := nvl(v_rem_amt_c,0); OPEN lfsgt420_cursor; LOOP FETCH lfsgt420_cursor INTO v_coop,v_cust_cd,v_slip_dt,v_act_cd, v_slip_no,v_seq,v_refund_amt; EXIT WHEN lfsgt420_cursor%NOTFOUND; if nvl(v_rem_amt_i,0) > nvl(v_refund_amt,0) then /********************************************/ /* ȯ */ /********************************************/ begin update lfsgt420 set refund_amt = 0, back_div = '3' where coop = v_coop and cust_cd = v_cust_cd and slip_dt = v_slip_dt and act_cd = v_act_cd and slip_no = v_slip_no and seq = v_seq; exception when others then raise form_trigger_failure; end; v_rem_amt_i := nvl(v_rem_amt_i,0) - nvl(v_refund_amt,0); /********************************************/ /* ȯǰԷ */ /********************************************/ begin insert into lfsgt430 (coop,cust_cd,slip_dt, act_cd,slip_no,seq,sale_coop,sale_dt, sale_io,sale_no,refund_amt) values (v_coop,v_cust_cd,v_slip_dt, v_act_cd,v_slip_no,v_seq,:relat_no1,:relat_no2, :relat_no3,:relat_no4,v_refund_amt); exception when others then raise form_trigger_failure; end; else /********************************************/ /* ȯ */ /********************************************/ begin update lfsgt420 set refund_amt = nvl(v_refund_amt,0) - nvl(v_rem_amt_i,0), back_div = '3' where coop = v_coop and cust_cd = v_cust_cd and slip_dt = v_slip_dt and act_cd = v_act_cd and slip_no = v_slip_no and seq = v_seq; exception when others then raise form_trigger_failure; end; /********************************************/ /* ȯǰԷ */ /********************************************/ begin insert into lfsgt430 (coop,cust_cd,slip_dt, act_cd,slip_no,seq,sale_coop,sale_dt, sale_io,sale_no,refund_amt) values (v_coop,v_cust_cd,v_slip_dt, v_act_cd,v_slip_no,v_seq,:relat_no1,:relat_no2, :relat_no3,:relat_no4,v_rem_amt_i); exception when others then raise form_trigger_failure; end; exit; end if; END LOOP; CLOSE lfsgt420_cursor; END; /******************************************************/ /* ,ż */ /****l**************************************************/ -- ǥȣ UPDATE if :ins_chk = 'I' then slip_no2_inupt; end if; if :item_div_c = '2' then v_act_cd := '45'; v_act_cd_d := '12'; else v_act_cd := '44'; v_act_cd_d := '11'; end if; begin insert into lfsgt340 (coop,slip_dt,slip_no,act_cd, normal,act_dt,cust_div,cust_cd,dr,cr, exch_actcd,vat_div,vat,draw_ask,pre_coop,pre_slip_dt,pre_slip_no, pre_io_slip,remarks,usr_id,hand_dt,seq_no) values (:coop_c,:slip_dt_c,:slip_no_m_i,v_act_cd, '10',:act_dt,:cust_div,:credit_cust,0,abs(v_rem_amt_c), v_act_cd_d,'','',:draw_ask,:coop_c,:slip_dt_c,:slip_no_c, :io_slip_c,'Աݺиǰ',:usrid,sysdate,:seq_no); exception when others then raise form_trigger_failure; end; /******************************************************/ /* ,Ź̼ */ /******************************************************/ -- ǥȣ UPDATE :slip_no_m_i := nvl(:slip_no_m_i,0) + 1; if :ins_chk = 'I' then slip_no2_inupt; end if; if :item_div_c = '2' then v_act_cd := '12'; v_act_cd_d := '45'; else v_act_cd := '11'; v_act_cd_d := '44'; end if; begin insert into lfsgt340 (coop,slip_dt,slip_no,act_cd, normal,act_dt,cust_div,cust_cd,dr,cr, exch_actcd,vat_div,vat,draw_ask,pre_coop,pre_slip_dt,pre_slip_no, pre_io_slip,remarks,usr_id,hand_dt,seq_no) values (:coop_c,:slip_dt_c,:slip_no_m_i,v_act_cd, '11',:act_dt,:cust_div,:credit_cust,0,-abs(v_rem_amt_c), v_act_cd_d,'','',:draw_ask,:coop_c,:slip_dt_c,:slip_no_c, :io_slip_c,'Աݺиǰ',:usrid,sysdate,:seq_no); exception when others then raise form_trigger_failure; end; end if; END;,:relat_no2, :relat_no3,:relat_no4,v_refund_amt); exception when others then raise form_trigger_failure; end; else /********************************************/ /* ȯ */ /********************************************/ begin update lfsgt420 set refund_amt = nvl(v_refund_amt,0) - nvl(v_rem_amt_i,0), back_div = '3' where coop = v_coop and cust_cd = v_cust_cd and slip_dt = v_slip_dt and act_cd = v_act_cd and slip_no = v_slip_no and seq = v_seq; exception when others then raise form_trigger_failure; end; /********************************************/ /* ȯǰԷ */ /********************************************/ begin insert into lfsgt430 (coop,cust_cd,slip_dt, act_cd,slip_no,seq,sale_coop,sale_dt, sale_io,sale_no,refund_amt) values (v_coop,v_cust_cd,v_slip_dt, v_act_cd,v_slip_no,v_seq,:relat_no1,:relat_no2, :relat_no3,:relat_no4,v_rem_amt_i); exception when others then raise form_trigger_failure; end; exit; end if; END LOOP; CLOSE lfsgt420_cursor; END; /******************************************************/ /* ,ż */ /****lH:DE:B<;PQ +0W8X1  $ .N LFSGT630_INS PROCEDURE lfsgt630_ins IS v_act_dt VARCHAR2(10); v_exch_actcd VARCHAR2(10); v_vat number(9); BEGIN /*****************************************************/ /* ΰ INSERT */ /*****************************************************/ if :vat_div in ('1','2','4') then if :draw_ask = 'Y' then v_act_dt := :act_dt; end if; if :item_div_c = '2' then if :sale_style = '1' then v_exch_actcd := '01'; elsif :sale_style in ('2','3') then v_exch_actcd := '12'; elsif :sale_style = '4' then v_exch_actcd := '45'; end if; else if :sale_style = '1' then v_exch_actcd := '01'; elsif :sale_style in ('2','3') then v_exch_actcd := '11'; elsif :sale_style = '4' then v_exch_actcd := '44'; end if; end if; begin insert into lfsgt630 (coop,act_cd,slip_dt,item_cd1,class, slip_no,normal,exch_actcd,act_dt,cust_cd,amt,dr,cr,asgn_dt,asgn_no, seq,sale_io,sale_no,vat_div,draw_ask,draw_dt,draw_seq,remarks) values (:coop_c,'49',:slip_dt_c,:io_slip_c,'11', :slip_no_c,:normal,v_exch_actcd,:act_dt,:qb1.cust_cd,:s_amt,0,:vat,'','', '','','',:vat_div,:draw_ask,v_act_dt,'',''); exception when others then raise form_trigger_failure; end; end if; if :car_vat_div in ('1','2','4') then if :draw_ask = 'Y' then v_act_dt := :act_dt; end if; if nvl(:app,0) != 0 then /*****************************************************/ /* ΰ */ /*****************************************************/ v_vat := round(nvl(:app,0) * nvl(:car_vat_rat,0),2); begin insert into lfsgt630 (coop,act_cd,slip_dt,item_cd1,class, slip_no,normal,exch_actcd,act_dt,cust_cd,amt,dr,cr,asgn_dt,asgn_no, seq,sale_io,sale_no,vat_div,draw_ask,draw_dt,draw_seq,remarks) values (:coop_c,'49',:slip_dt_c,:io_slip_c,'57', :slip_no_c,:normal,'47',:act_dt,:qb1.cust_cd,nvl(:app,0)-nvl(v_vat,0),0,v_vat,'','', '','','',:car_vat_div,:draw_ask,v_act_dt,'',''); exception when others then raise form_trigger_failure; end; end if; end if; END; '3' where coop = v_coop and cust_cd = v_cust_cd and slip_dt = v_slip_dt and act_cd = v_act_cd and slip_no = v_slip_no and seq = v_seq; exception when others then raise form_trigger_failure; end; /********************************************/ /* ȯǰԷ */ /********************************************/ begin insert into lfsgt430 (coop,cust_cd,slip_dt, act_cd,slip_no,seq,sale_coop,sale_dt, sale_io,sale_no,refund_amt) values (v_coop,v_cust_cd,v_slip_dt, v_act_cd,v_slip_no,v_seq,:relat_no1,:relat_no2, :relat_no3,:relat_no4,v_rem_amt_i); exception when others then raise form_trigger_failure; end; exit; end if; END LOOP; CLOSE lfsgt420_cursor; END; /******************************************************/ /* ,ż */ /****lH:YRZ[\]1  $ N PUT_UPDATE2/* ҽ ٽ ԿϷ '2' reupdate */ PROCEDURE put_update2 IS -------------------------------------------------------------------------------- -- -------------------------------------------------------------------------------- rxnum PLS_INTEGER; v_grd_cd varchar2(15); v_usrid varchar2(9); -------------------------------------------------------------------------------- -- BODY -------------------------------------------------------------------------------- BEGIN -------------------------------------------------------------------------------- -- ߾ȸ ڵ -------------------------------------------------------------------------------- -- ڹȣ ȯ begin select '0'||substr(bsn_no,1,3)||substr(bsn_no,5,2)||'00'||substr(bsn_no,8,5) into v_grd_cd from lfcmt100 where substr(coop,6,1) = '0' and bsn_no is not null ; exception when others then v_grd_cd := null; end; -- ߾ȸ ڹȣ begin select nacf_usrid into v_usrid from lfcmt130 where coop = :global.coop and usr_id = :usrid ; exception when others then v_usrid := null; end; -------------------------------------------------------------------------------- -- TMAX SERVICE -------------------------------------------------------------------------------- if tmax.getconnection(readcode('SERVER','LSGE1020'), tmax.envfile) = 'OK' then begin -------------------------------------------------------------------------------- -- TMAX SERVICE INPUT --> ȸ -------------------------------------------------------------------------------- -- STR001 : ۾ -------------------------------------------------------------------------------- tmax.putstring('STR001', 'U01',0); tmax.putstring ('STR002', v_grd_cd,0); tmax.putstring ('STR004', :qb1.baesong_dt,0); tmax.putinteger('INT005', :qb1.baesong_no,0); tmax.putstring ('STR006', '2',0); tmax.putstring ('STR007', v_usrid,0); tmax.putstring ('STR008', :cb1.slip_dt_c,0); tmax.putinteger('INT009', :cb1.slip_no_c,0); -------------------------------------------------------------------------------- -- TMAX SERVICE ȣ -------------------------------------------------------------------------------- if tmax.getservice('SC_CFS_202') = 'OK' then null; else -------------------------------------------------------------------------------- -- TMAX ERROR MESSAGE -------------------------------------------------------------------------------- set_alert_property('NOTE1', alert_message_text, tmax.getstring('STR200',0)); if show_alert('NOTE1') = alert_button1 then :save_service_chk := 'N'; end if; end if; -------------------------------------------------------------------------------- -- EXCEPTION ó -------------------------------------------------------------------------------- exception when ora_ffi.ffi_error then :save_service_chk := 'N'; message('TMAX ERROR!'); raise form_trigger_failure; when others then :save_service_chk := 'N'; message('Other Exception!'); raise form_trigger_failure; end; -------------------------------------------------------------------------------- -- Tmax Service -------------------------------------------------------------------------------- tmax.disconnection; -------------------------------------------------------------------------------- -- -------------------------------------------------------------------------------- else set_alert_property('NOTE1',alert_message_text,'TMAX ῡ Ͽϴ.'); if show_alert('NOTE1') = alert_button1 then :save_service_chk := 'N'; end if; end if; END; *r0808iH:C<O;PQB8RS4T1  $ ANLFSGT410_INS10/*********************************************************/ /* ̼ݹ߻ Է() */ /*********************************************************/ PROCEDURE lfsgt410_ins10 IS v_fill_div VARCHAR2(1); BEGIN if :cust_div = '2' then v_fill_div := '4'; else v_fill_div := '1'; end if; begin insert into lfsgt410 (coop,cust_cd,slip_dt,io_slip,slip_no,act_dt, sale_style,amt,in_sum,rem_amt,int_rem,lint_dt, end_div,fill_div,usr_id,hand_dt,seq_no) values (:coop_c,:credit_cust,:slip_dt_c,:io_slip_c,:slip_no_c,:act_dt, :sale_style,nvl(:qb1.amt,0)+nvl(:app,0),0,nvl(:qb1.amt,0)+nvl(:app,0),0,:slip_dt_c, '1',v_fill_div,:usrid,sysdate,:seq_no); exception when dup_val_on_index then update lfsgt410 set act_dt = :act_dt, sale_style = :sale_style, amt = :qb1.amt - nvl(:ass,0) + nvl(:app,0), rem_amt = nvl(:qb1.amt,0)+nvl(:app,0)-nvl(in_sum,0), end_div = '1', usr_id = :usr_id, hand_dt = sysdate where coop = :coop_c and cust_cd = :credit_cust and slip_dt = :slip_dt_c and io_slip = :io_slip_c and slip_no = :slip_no_c; when others then raise form_trigger_failure; end; END; 0800j((0800k 0800l  0800cZͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000`rY0808WmAAH:^_`BC0DEFGHIJabYcdZ[efOgh1  $ NLFSGT301_SEL_BPROCEDURE lfsgt301_sel_b IS /* ߾ȸ տ ǰ϶ ȸ */ BEGIN begin select slip_dt,io_slip,slip_no,sale_style,cust_div,cust_cd,car_div,car_no,amt,vat,vat_div,draw_ask, trns_coop,order_dt,order_no,pallet_cnt,house_cnt,baesongsc_dt,baesong_num into :slip_dt_ma,:io_slip_ma,:slip_no_ma,:sale_style,:cust_div,:qb1.cust_cd,:car_div,:car_no,:qb1.amt,:vat,:vat_div,:draw_ask, :trns_coop,:order_dt,:order_no,:pallet_cnt,:house_cnt,:qb1.baesongsc_dt,:qb1.baesong_num from lfsgt320 where coop = :global.coop and baesong_dt = :global.baesong_dt and baesong_no = :global.baesong_no and normal = '10'; exception when no_data_found then :slip_dt_ma := null; :io_slip_ma := null; :slip_no_ma := null; :sale_style := null; :cust_div := null; :qb1.cust_cd := null; :car_div := null; :car_no := null; :qb1.amt := null; :vat := null; :vat_div := null; :draw_ask := null; :trns_coop := null; :order_no := null; :pallet_cnt := null; :house_cnt := null; :qb1.baesong_dt := null; :qb1.baesong_no := null; end; begin select cust_nm,area,credit_cust into :cust_cd_d,:area_c,:credit_cust from lfsgt100 where cust_cd = :qb1.cust_cd and cust_div < '8'; exception when no_data_found then :cust_cd_d := null; :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000 dr^0808\nFFH: Y^`ijk@lm,n1  $ NLFSGT302_SEL_BPROCEDURE lfsgt302_sel_b IS /* ߾ȸ տ ǰ϶ ȸ */ v_item_div lfsgt311.item_div%TYPE; v_item_cd lfsgt311.item_cd%TYPE; v_qty lfsgt311.qty%TYPE; v_sale_amt lfsgt311.sale_amt%TYPE; v_cost lfsgt311.cost%TYPE; v_amt lfsgt311.amt%TYPE; v_vat_amt lfsgt311.vat_amt%TYPE; CURSOR lfsgt302_cursor is select item_div,item_cd,qty,sale_amt,cost,amt,vat_amt from lfsgt321 where coop = :global.coop and slip_dt = :slip_dt_ma and -- io_slip = :io_slip_ma and slip_no = :slip_no_ma order by item_div,item_cd ; BEGIN go_block('qb2'); OPEN lfsgt302_cursor; LOOP FETCH lfsgt302_cursor INTO v_item_div,v_item_cd,v_qty,v_sale_amt,v_cost, v_amt,v_vat_amt; EXIT WHEN lfsgt302_cursor%NOTFOUND; :qb2.item_div := v_item_div; :qb2.item_cd := v_item_cd; :qb2.item_cd_d := readitem(v_item_div,v_item_cd); :qb2.qty := v_qty; :qb2.sale_amt:= v_sale_amt; :qb2.cost := v_cost; :qb2.amt := v_amt; :qb2.vat_amt := v_vat_amt; /* if substr(:qb2.item_cd,6,1) = '1' and :car_div = '5' then :item_gu := 'Y'; elsif substr(:qb2.item_cd,6,1) = '2' and :car_div = '5' then :item_gu := 'N'; end if; */ synchronize; next_record; END LOOP; CLOSE lfsgt302_cursor; previous_record; END;pulate_list('cb3.io_slip','rg_io_slip'); end if; if populate_group('rg_vat') = 0 then populate_list('vat_div','rg_vat'); end if; if populate_group('rg_style') = 0 then populate_list('sale_style','rg_style'); end if; if populate_group('rg_car_div') = 0 then populate_list('car_div','rg_car_div'); end if; :message := msg_dsp('20001');  END;WHEN-NEW-FORM-INSTANCE (Form) order_no = :qb1.order_no order by item_div,item_cd ; BEGIN go_block('qb2'); OPEN lfsgt302_cursor; LOOP FETCH lfsgt302_cursor INTO v_item_div,v_item_cd,v_qty,v_sale_amt,v_cost, v_amt,v_vat_amt; EXIT WHEN lfsgt302_cursor%NOTFOUND; :qb2.item_div := v_item_div; :qb2.item_cd := v_item_cd; :qb2.item_cd_d := readitem(v_item_div,v_item_cd); :qb2.qty := v_qty; :qb2.sale_amt:= v_sale_amt; :qb2.cost := v_cost; :qb2.amt := v_amt; :qb2.vat_amt := v_vat_amt; synchronize; next_record; END LOOP; CLOSE lfsgt302_cursor; previous_record; END; ijk@lm,n 8808H: 1  $&NORDER_LFSGT310_UPT*PROCEDURE order_lfsgt310_upt IS BEGIN if :normal = '10' then begin update lfsgt310 set complete_ask = '2' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; elsif :normal = '19' then begin update lfsgt310 set complete_ask = '1' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; end if; END;  8000800080008000800080008000800080008000800080008000800080000TrP0808No88H: Y^`ijk@lm,n1  $ N LFSGT302_SELPROCEDURE lfsgt302_sel IS /* ߾ȸ ϶ ȸ */ v_item_div lfsgt311.item_div%TYPE; v_item_cd lfsgt311.item_cd%TYPE; v_qty lfsgt311.qty%TYPE; v_sale_amt lfsgt311.sale_amt%TYPE; v_cost lfsgt311.cost%TYPE; v_amt lfsgt311.amt%TYPE; v_vat_amt lfsgt311.vat_amt%TYPE; CURSOR lfsgt302_cursor is select item_div,item_cd,qty,sale_amt,cost,amt,vat_amt from lfsgt311 where coop = :global.coop and order_dt = :slip_dt_ma and -- io_slip = :io_slip_ma and order_no = :slip_no_ma order by item_div,item_cd ; BEGIN go_block('qb2'); OPEN lfsgt302_cursor; LOOP FETCH lfsgt302_cursor INTO v_item_div,v_item_cd,v_qty,v_sale_amt,v_cost, v_amt,v_vat_amt; EXIT WHEN lfsgt302_cursor%NOTFOUND; :qb2.item_div := v_item_div; :qb2.item_cd := v_item_cd; :qb2.item_cd_d := readitem(v_item_div,v_item_cd); :qb2.qty := v_qty; :qb2.sale_amt:= v_sale_amt; :qb2.cost := v_cost; :qb2.amt := v_amt; :qb2.vat_amt := v_vat_amt; /* if substr(:qb2.item_cd,6,1) = '1' and :car_div = '5' then :item_gu := 'Y'; elsif substr(:qb2.item_cd,6,1) = '2' and :car_div = '5' then :item_gu := 'N'; end if; */ synchronize; next_record; END LOOP; CLOSE lfsgt302_cursor; previous_record; END;ERY begin select nvl(remarks,0) into :vat_rat from lfcmt120 where lcd = 'TAX' and dcd = :vat_div; exception when no_data_found then :vat_rat := 0; end;  END; WHEN-VALIDATE-ITEM (QB1.VAT_DIV)۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000@lrf0808dpNNH: o<p\qZ[b1  $"N LFSGT301_UPTPROCEDURE lfsgt301_upt IS -- table Ϸ ǥ BEGIN if :qb1.normal != '19' then begin update lfsgt310 set process_gbn = '3' ,ga_coop = :coop_c ,ga_slip_dt = :cb1.slip_dt_c, ga_io_slip = :cb1.io_slip_c,ga_slip_no = :cb1.slip_no_c where baesong_num = :qb1.baesong_num; exception when others then null; end; end if; END;o<p\b bell; :message := ' ȯݾȯ ݾ ־ Ҽ ϴ...ܢܢ'; raise form_trigger_failure; end if; end if; END;8800 ********************************************/ :system.message_level := 25; :usrid := :global.usrid; :usrnm := :global.usrnm; :pgmid := :global.pgmid; :sysdt := :global.sysdt; :slip_dt_c := substr(:sysdt,1,4)||substr(:sysdt,6,2)||substr(:sysdt,9,2); :coop_c := :global.coop; if populate_group('rg_io_slip') = 0 then populate_list('io_slip_c' ,'rg_io_slip'); populate_list('cb3.io_slip','rg_io_slip'); end if; if populate_group('rg_vat') = 0 then populate_list('vat_div','rg_vat'); end if; if populate_group('rg_style') = 0 then populate_list('sale_style','rg_style'); end if; if populate_group('rg_car_div') = 0 then populate_list('car_div','rg_car_div'); end if; :message := msg_dsp('20001');  END;WHEN-NEW-FORM-INSTANCE (Form)rd; END;ERY begin select nvl(remarks,0) into :vat_rat from lfcmt120 where lcd = 'TAX' and dcd = :vat_div; exception when no_data_found then :vat_rat := 0; end;  END; WHEN-VALIDATE-ITEM (QB1.VAT_DIV)۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000Pr0808qH:^_`BC0DGHabYcdEFIJZ[efOgh1  $ [N LFSGT301_SEL%PROCEDURE LFSGT301_SEL IS /* ߾ȸ ϶ ȸ */ BEGIN begin select order_dt,io_slip,order_no,sale_style,cust_div,cust_cd,car_div,car_no,amt,vat,vat_div ,order_dt,order_no,baesongsc_dt,baesong_num into :slip_dt_ma,:io_slip_ma,:slip_no_ma,:sale_style,:cust_div,:qb1.cust_cd,:car_div,:car_no,:qb1.amt,:vat,:vat_div ,:order_dt,:order_no,:qb1.baesongsc_dt,:qb1.baesong_num from lfsgt310 where coop = :global.coop and baesong_dt = :global.baesong_dt and baesong_no = :global.baesong_no and normal = '10' ; exception when no_data_found then :slip_dt_ma := null; :io_slip_ma := null; :slip_no_ma := null; :sale_style := null; :cust_div := null; :qb1.cust_cd := null; :car_div := null; :car_no := null; :qb1.amt := null; :vat := null; :vat_div := null; :draw_ask := null; :trns_coop := null; :order_no := null; :pallet_cnt := null; :house_cnt := null; :qb1.baesong_dt := null; :qb1.baesong_no := null; end; begin select cust_nm,area,credit_cust into :cust_cd_d,:area_c,:credit_cust from lfsgt100 where cust_cd = :qb1.cust_cd and cust_div < '8'; exception when no_data_found then :cust_cd_d := null; :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;ND; WHEN-VALIDATE-ITEM (QB1.VAT_DIV)۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000`r0808rttH:oqZ[ba1  $"HNLFSGT301_REUPTPROCEDURE lfsgt301_reupt IS -- table ǥ BEGIN -- message(:global.coop_c||'-'||:qb1.baesong_dt||'-'||:qb1.baesong_no||'-'||:qb1.baesong_num||'-'||:qb1.baesongsc_dt); -- message(:global.coop_c||'-'||:qb1.baesong_dt||'-'||:qb1.baesong_no||'-'||:qb1.baesong_num||'-'||:qb1.baesongsc_dt); if :qb1.normal = '19' then begin update lfsgt310 set process_gbn = '1' where coop = :cb1.coop_c and order_dt = :qb1.baesong_dt and order_no = :qb1.baesong_no and baesong_num = :qb1.baesong_num and baesongsc_dt = :qb1.baesongsc_dt ; exception when others then null; end; end if; END;oqZ[bal; :slip_no_ma := null; :sale_style := null; :cust_div := null; :qb1.cust_cd := null; :car_div := null; :car_no := null; :qb1.amt := null; :vat := null; :vat_div := null; :draw_ask := null; :trns_coop := null; :order_no := null; :pallet_cnt := null; :house_cnt := null; :qb1.baesong_dt := null; :qb1.baesong_no := null; end; begin select cust_nm,area,credit_cust into :cust_cd_d,:area_c,:credit_cust from lfsgt100 where cust_cd = :qb1.cust_cd and cust_div < '8'; exception when no_data_found then :cust_cd_d := null; :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;ND; WHEN-VALIDATE-ITEM (QB1.VAT_DIV)۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000plH:YRZ[\]1  $ gN PUT_UPDATE3/* ߾ȸ ڷῡ Ϸ '3' update ó */ PROCEDURE PUT_UPDATE IS -------------------------------------------------------------------------------- -- -------------------------------------------------------------------------------- rxnum PLS_INTEGER; v_grd_cd varchar2(15); v_usrid varchar2(9); -------------------------------------------------------------------------------- -- BODY -------------------------------------------------------------------------------- BEGIN -------------------------------------------------------------------------------- -- ߾ȸ ڵ -------------------------------------------------------------------------------- -- ڹȣ ȯ begin select '0'||substr(bsn_no,1,3)||substr(bsn_no,5,2)||'00'||substr(bsn_no,8,5) into v_grd_cd from lfcmt100 where substr(coop,6,1) = '0' and bsn_no is not null ; exception when others then v_grd_cd := null; end; -- ߾ȸ ڹȣ begin select nacf_usrid into v_usrid from lfcmt130 where coop = :global.coop and usr_id = :usrid ; exception when others then v_usrid := null; end; -------------------------------------------------------------------------------- -- TMAX SERVICE -------------------------------------------------------------------------------- if tmax.getconnection(readcode('SERVER','LSGE1020'), tmax.envfile) = 'OK' then begin -------------------------------------------------------------------------------- -- TMAX SERVICE INPUT --> ȸ -------------------------------------------------------------------------------- -- STR001 : ۾ -------------------------------------------------------------------------------- tmax.putstring ('STR001', 'U01',0); tmax.putstring ('STR002', v_grd_cd,0); tmax.putstring ('STR004', :qb1.baesong_dt,0); tmax.putinteger('INT005', :qb1.baesong_no,0); tmax.putstring ('STR006', '3',0); tmax.putstring ('STR007', v_usrid,0); tmax.putstring ('STR008', :cb1.slip_dt_c,0); tmax.putinteger('INT009', :cb1.slip_no_c,0); -------------------------------------------------------------------------------- -- TMAX SERVICE ȣ -------------------------------------------------------------------------------- if tmax.getservice('SC_CFS_202') = 'OK' then null; else -------------------------------------------------------------------------------- -- TMAX ERROR MESSAGE -------------------------------------------------------------------------------- set_alert_property('NOTE1', alert_message_text, tmax.getstring('STR200',0)); if show_alert('NOTE1') = alert_button1 then :save_service_chk := 'N'; end if; end if; -------------------------------------------------------------------------------- -- EXCEPTION ó -------------------------------------------------------------------------------- exception when ora_ffi.ffi_error then :save_service_chk := 'N'; message('TMAX ERROR!'); raise form_trigger_failure; when others then :save_service_chk := 'N'; message('Other Exception!'); raise form_trigger_failure; end; -------------------------------------------------------------------------------- -- Tmax Service -------------------------------------------------------------------------------- tmax.disconnection; -------------------------------------------------------------------------------- -- -------------------------------------------------------------------------------- else set_alert_property('NOTE1',alert_message_text,'TMAX ῡ Ͽϴ.'); if show_alert('NOTE1') = alert_button1 then :save_service_chk := 'N'; end if; end if; END; '); :message := msg_dsp('20002'); synchronize; if :nolH:Z[]1  $ N PUT_SAVE2 PROCEDURE put_save2 IS -------------------------------------------------------------------------------- -- : ǰ Ȯó jp_gbn - 2: ǰҽ .. -------------------------------------------------------------------------------- rxnum PLS_INTEGER; v_grd_cd varchar2(15); -------------------------------------------------------------------------------- -- BODY -------------------------------------------------------------------------------- BEGIN -------------------------------------------------------------------------------- -- ߾ȸ ڵ -------------------------------------------------------------------------------- -- ڹȣ ȯ begin select '0'||substr(bsn_no,1,3)||substr(bsn_no,5,2)||'00'||substr(bsn_no,8,5) into v_grd_cd from lfcmt100 where substr(coop,6,1) = '0' and bsn_no is not null ; exception when others then v_grd_cd := null; end; -------------------------------------------------------------------------------- -- TMAX SERVICE -------------------------------------------------------------------------------- if tmax.getconnection(readcode('SERVER','LSGE1020'), tmax.envfile) = 'OK' then begin -------------------------------------------------------------------------------- -- TMAX SERVICE INPUT --> ȸ -------------------------------------------------------------------------------- -- STR001 : ۾ -------------------------------------------------------------------------------- tmax.putstring('STR001', 'D02',0); tmax.putstring ('STR002', v_grd_cd,0); tmax.putstring ('STR003', :qb1.baesong_dt,0); tmax.putinteger('INT004', :qb1.baesong_no,0); tmax.putstring ('STR005', '2',0); -------------------------------------------------------------------------------- -- TMAX SERVICE ȣ -------------------------------------------------------------------------------- if tmax.getservice('SC_CFS_202') = 'OK' then null; else -------------------------------------------------------------------------------- -- TMAX ERROR MESSAGE -------------------------------------------------------------------------------- set_alert_property('NOTE1', alert_message_text, tmax.getstring('STR200',0)); if show_alert('NOTE1') = alert_button1 then :save_service_chk := 'N'; end if; end if; -------------------------------------------------------------------------------- -- EXCEPTION ó -------------------------------------------------------------------------------- exception when ora_ffi.ffi_error then message('TMAX ERROR!'); :save_service_chk := 'N'; raise form_trigger_failure; when others then message('Other Exception!'); :save_service_chk := 'N'; raise form_trigger_failure; end; -------------------------------------------------------------------------------- -- Tmax Service -------------------------------------------------------------------------------- tmax.disconnection; -------------------------------------------------------------------------------- -- -------------------------------------------------------------------------------- else set_alert_property('NOTE1',alert_message_text,'TMAX ῡ Ͽϴ.'); if show_alert('NOTE1') = alert_button1 then :save_service_chk := 'N' ; end if; end if; END; 0 lq{t$www0wDwXwltBC0DXDlBC00DDXXEE0lDlE0DFDEX\H\E`dIdEhlJlk!L8 lH:Z[]1  $ 0NPUT_SAVE PROCEDURE PUT_SAVE IS -------------------------------------------------------------------------------- -- : ǰ Ȯó jp_gbn - 3:Ȯ ̴,̴ '3' 7.28 ּ븮 -------------------------------------------------------------------------------- rxnum PLS_INTEGER; v_grd_cd varchar2(15); -------------------------------------------------------------------------------- -- BODY -------------------------------------------------------------------------------- BEGIN -------------------------------------------------------------------------------- -- ߾ȸ ڵ -------------------------------------------------------------------------------- -- ڹȣ ȯ begin select '0'||substr(bsn_no,1,3)||substr(bsn_no,5,2)||'00'||substr(bsn_no,8,5) into v_grd_cd from lfcmt100 where substr(coop,6,1) = '0' and bsn_no is not null ; exception when others then v_grd_cd := null; end; -------------------------------------------------------------------------------- -- TMAX SERVICE -------------------------------------------------------------------------------- if tmax.getconnection(readcode('SERVER','LSGE1020'), tmax.envfile) = 'OK' then begin -------------------------------------------------------------------------------- -- TMAX SERVICE INPUT --> ȸ -------------------------------------------------------------------------------- -- STR001 : ۾ -------------------------------------------------------------------------------- tmax.putstring('STR001', 'D02',0); tmax.putstring ('STR002', v_grd_cd,0); tmax.putstring ('STR003', :qb1.baesong_dt,0); tmax.putinteger('INT004', :qb1.baesong_no,0); tmax.putstring ('STR005', '3',0); -------------------------------------------------------------------------------- -- TMAX SERVICE ȣ -------------------------------------------------------------------------------- if tmax.getservice('SC_CFS_202') = 'OK' then null; else -------------------------------------------------------------------------------- -- TMAX ERROR MESSAGE -------------------------------------------------------------------------------- set_alert_property('NOTE1', alert_message_text, tmax.getstring('STR200',0)); if show_alert('NOTE1') = alert_button1 then :save_service_chk := 'N'; end if; end if; -------------------------------------------------------------------------------- -- EXCEPTION ó -------------------------------------------------------------------------------- exception when ora_ffi.ffi_error then message('TMAX ERROR!'); :save_service_chk := 'N'; raise form_trigger_failure; when others then message('Other Exception!'); :save_service_chk := 'N'; raise form_trigger_failure; end; -------------------------------------------------------------------------------- -- Tmax Service -------------------------------------------------------------------------------- tmax.disconnection; -------------------------------------------------------------------------------- -- -------------------------------------------------------------------------------- else set_alert_property('NOTE1',alert_message_text,'TMAX ῡ Ͽϴ.'); if show_alert('NOTE1') = alert_button1 then :save_service_chk := 'N' ; end if; end if; END; VS,_Q\zZq,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H Uics"L :,, 8TpU@@  $q{t$TT<T;T lH: rstuvwxyz1  $"N GET_DATA_D/* ԿϷ ǥȸ */ PROCEDURE GET_DATA_D IS -------------------------------------------------------------------------------- -- -------------------------------------------------------------------------------- rxnum PLS_INTEGER; v_grd_cd varchar2(15); v_item_cd varchar2(7); -------------------------------------------------------------------------------- -- BODY -------------------------------------------------------------------------------- BEGIN go_block('SB2'); clear_block(no_validate); -------------------------------------------------------------------------------- -- TMAX SERVICE -------------------------------------------------------------------------------- if tmax.getconnection(readcode('SERVER','LSGE1020'), tmax.envfile) = 'OK' then begin -------------------------------------------------------------------------------- -- TMAX SERVICE INPUT -------------------------------------------------------------------------------- -- ڹȣ ȯ begin select '0'||substr(bsn_no,1,3)||substr(bsn_no,5,2)||'00'||substr(bsn_no,8,5) into v_grd_cd from lfcmt100 where substr(coop,6,1) = '0' and bsn_no is not null ; exception when others then v_grd_cd := null; end; tmax.putstring ('STR001', 'S05',0); tmax.putstring ('STR002', v_grd_cd,0); tmax.putstring ('STR003', :sb1.w_baesong_dt,0); tmax.putinteger('INT004', :sb1.w_baesong_no,0); -------------------------------------------------------------------------------- -- TMAX SERVICE ȣ -------------------------------------------------------------------------------- if tmax.getservice('SC_CFS_102') = 'OK' then -------------------------------------------------------------------------------- -- ȸ -------------------------------------------------------------------------------- rxnum := tmax.getrecord('STR104'); -------------------------------------------------------------------------------- -- TMAX SERVICE OUTPUT -------------------------------------------------------------------------------- for i in 0 .. rxnum - 1 loop v_item_cd := tmax.getstring ('STR104',i); -- ǰڵ :sb2.k_qty := tmax.getdouble ('DBL105',i); -- :sb2.k_sale_amt := tmax.getdouble ('DBL106',i); -- ܰ :sb2.k_amt := tmax.getinteger ('INT107',i); -- ޱݾ :sb2.k_vat_amt := tmax.getinteger ('INT108',i); -- ΰ :sb2.k_amt_s := tmax.getinteger ('INT109',i); -- ǸŴ -- ǰڵ ȯ begin select item_cd,item_nm into :sb2.k_item_cd,:sb2.k_item_nm from lfsgt810 where nacf_pummok_cd = v_item_cd; exception when others then :sb2.k_item_cd := null; :sb2.k_item_nm := null; end ; next_record; end loop; first_record; synchronize; else -------------------------------------------------------------------------------- -- TMAX ERROR MESSAGE -------------------------------------------------------------------------------- set_alert_property('NOTE1', alert_message_text, tmax.getstring('STR200',0)); if show_alert('NOTE1') = alert_button1 then null; end if; end if; -------------------------------------------------------------------------------- -- EXCEPTION ó -------------------------------------------------------------------------------- exception when ora_ffi.ffi_error then message('TMAX ERROR!'); raise form_trigger_failure; when others then message('Other Exception!'); raise form_trigger_failure; end; -----------------------------------------------------------------------------l--- -- Tmax Service -------------------------------------------------------------------------------- tmax.disconnection; -------------------------------------------------------------------------------- -- -------------------------------------------------------------------------------- else set_alert_property('NOTE1',alert_message_text,'TMAX ῡ Ͽϴ.'); if show_alert('NOTE1') = alert_button1 then null; end if; end if; END; rstuvwxyz go_block('qb2'); else go_item(:global.cur_item); end if; erase('global.cur_item'); hide_view ('CAN3'); else set_alert_property('STOP',alert_message_text,msg_dsp('10002')); if show_alert('STOP') = alert_button1 then exit_form(no_validate); end if; end if; END;KEY-EXIT (Form) 08000800 H0808F00HD1 $ NP12_26_APR_200423_59_02BEGIN scroll_up; END;KEY-SCRUP (Form)?ͫͫͫͫͫͫͫSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $a!0  0808}}HD1 $ iNP16_26_APR_200423_59_02BEGIN do_key('next_item');  END;WHEN-LIST-CHANGED (Form)XͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics"R $!<,next_item N0808HD1 $ NP17_26_APR_200423_59_02BEGIN 5set_window_property('win_1020',window_size,761,502);  END;WHEN-WINDOW-RESIZED (Form)FlͫͫͫͫͫͫͫwSYSSTANDARD FORMS4C FORMS4W $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b2,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H 33%4ics" \0.. GI $A!X$Hwin_1020AA< 2%  $(N#$%&'#( ! deupwv7! deupwv8"#$%&'#$%&' (! lH:{|}Y~prs1  $ #N GET_DATA_BAN#PROCEDURE GET_DATA_BAN IS /* ǥ ȸ */ -------------------------------------------------------------------------------- -- -------------------------------------------------------------------------------- rxnum PLS_INTEGER; v_jp_check varchar2(2); v_jp_gbn varchar2(2); v_jp_gbn_i varchar2(2); v_cust_cd varchar2(8); v_slip_gbn varchar2(1); v_pummok_cd varchar2(7); v_grd_cd varchar2(15); p_baesong_dt varchar2(8); p_baesong_no number(3); p_baesong_num varchar2(15); p_cust_cd varchar2(8); v_io_slip varchar2(2); v_io_slip_ban varchar2(2); v_coop varchar2(6); v_cnt number(5); v_ban_cnt number(5); iCnt NUMBER := 0; -------------------------------------------------------------------------------- -- BODY -------------------------------------------------------------------------------- BEGIN go_block('SB1'); clear_block(no_validate); -- ڹȣ ȯ begin select '0'||substr(bsn_no,1,3)||substr(bsn_no,5,2)||'00'||substr(bsn_no,8,5) into v_grd_cd from lfcmt100 where substr(coop,6,1) = '0' and bsn_no is not null ; exception when others then v_grd_cd := null; end; -------------------------------------------------------------------------------- -- TMAX SERVICE -------------------------------------------------------------------------------- if tmax.getconnection(readcode('SERVER','LSGE1020'), tmax.envfile) = 'OK' then begin -------------------------------------------------------------------------------- -- TMAX SERVICE INPUT -------------------------------------------------------------------------------- -- STR001 : ۾ -------------------------------------------------------------------------------- tmax.putstring('STR001', 'S12',0); tmax.putstring('STR002', v_grd_cd,0); tmax.putstring('STR003', '20060101',0); tmax.putstring('STR004', '20101231',0); tmax.putstring('STR005', '000000',0); tmax.putstring('STR006', '0',0); tmax.putstring('STR007', '0',0); tmax.putstring('STR008', '0',0); -------------------------------------------------------------------------------- -- TMAX SERVICE ȣ -------------------------------------------------------------------------------- if tmax.getservice('SC_CFS_102') = 'OK' then -------------------------------------------------------------------------------- -- ȸ -------------------------------------------------------------------------------- rxnum := tmax.getrecord('STR102'); -------------------------------------------------------------------------------- -- TMAX SERVICE OUTPUT -------------------------------------------------------------------------------- for i in 0 .. rxnum - 1 loop p_baesong_num := tmax.getstring ('STR114',i); -- ǰǰ v_coop := tmax.getstring ('STR121',i); -- ڵ :sb1.w_won_coop := tmax.getstring ('STR127',i); -- ۻڵ :sb1.w_won_baesong_num := tmax.getstring ('STR130',i); -- ۼȣ :sb1.w_io_slip := tmax.getstring ('STR132',i); -- ⱸ v_jp_check := tmax.getstring ('STR104',i); -- ǥ begin -- ۹ǰ relat_no3 io_slip select io_slip into v_io_slip_ban from lfsgt320 where coop = :global.coop and baesong_num = :sb1.w_baesong_num; exception when others then v_io_slip_ban := '22'; end ; begin -- (jp_gbn = '3') ('2') ϱ lfsgt320 normal ='11' select 2007.1.12 l select nvl(count(*),0) into v_ban_cnt from lfsgt320 where coop = :global.coop and baesong_num = :sb1.w_baesong_num and normal = '11' ; exception when others then v_ban_cnt := 0 ; end ; if :sb1.w_io_slip = :cb1.io_slip_c then -- ǰ ,ǰ if v_coop = :global.coop and (v_jp_check != '3' or nvl(v_ban_cnt,0) = 0 ) then -- ǰȮ jp_gbn ='3' :sb1.w_baesong_dt := tmax.getstring ('STR102',i); -- :sb1.w_baesong_no := tmax.getinteger('INT103',i); -- ۹ȣ v_cust_cd := tmax.getstring ('STR122',i); -- ŷóڵ v_jp_gbn := tmax.getstring ('STR104',i); -- ǥ :sb1.w_baesongsc_dt := tmax.getstring ('STR113',i); -- ۵ :sb1.w_baesong_num := tmax.getstring ('STR114',i); -- ۼȣ :sb1.w_gonggeub_amt := tmax.getdouble ('DBL117',i); -- ޱݾ :sb1.w_vat_amt := tmax.getdouble ('DBL118',i); -- ΰ :sb1.w_wonga_amt := tmax.getdouble ('DBL119',i); -- ǸŴ :sb1.w_georae_dt := tmax.getstring ('STR125',i); -- :sb1.w_won_baesong_dt := tmax.getstring ('STR128',i); -- :sb1.w_won_baesong_no := tmax.getinteger('INT129',i); -- ۹ȣ :sb1.w_jp_normal := v_jp_gbn; :sb1.w_io_slip_ban := v_io_slip_ban ; end if; end if; -- ǥ ڷắȭ v_jp_gbn_i := readconv_s('1120',v_jp_gbn) ; if v_jp_check != '3' and :sb1.w_baesong_dt is not null then -- ǰ ȮȰ -- ŷó ڷắȯ begin select cust_nm into :sb1.w_cust_nm from lfsgt100 where cust_cd = v_cust_cd ; exception when others then :sb1.w_cust_nm := null; end; -- ǥȣ SELECT begin select slip_no into :sb1.w_slip_no from lfsgt320 where slip_dt = :sb1.w_baesong_dt and baesong_num = :sb1.w_baesong_num ; exception when others then :sb1.w_slip_no := null; end; if v_jp_gbn_i = '11' then begin select count(*) into v_cnt from lfsgt320 where baesong_num = :sb1.w_baesong_num ; exception when others then v_cnt := 0 ; end; if nvl(v_cnt,0) > 0 then :sb1.w_jp_gbn := 'ǰ'; else :sb1.w_jp_gbn := ''; end if; else :sb1.w_jp_gbn := ''; end if; end if; if :sb1.w_baesong_dt is null then delete_record; else next_record; end if; iCnt := iCnt + 1; end loop; first_record; synchronize; if :sb1.w_baesong_num is null then set_alert_property('NOTE1', alert_message_text, 'ȸ ڷᰡ ϴ..'); if show_alert('NOTE1') = alert_button1 then null; end if; else set_alert_property('NOTE1', alert_message_text, 'ڷᰡ ȸǾϴ..'); if show_alert('NOTE1') = alert_button1 then null; end if; end if; else -------------------------------------------------------------------------------- -- TMAX ERROR MESSAGE -------------------------------------------------------------------------------- set_alert_property('NOTE1', alert_message_text, tmax.getstringl('STR200',0)); if show_alert('NOTE1') = alert_button1 then null; end if; end if; -------------------------------------------------------------------------------- -- EXCEPTION ó -------------------------------------------------------------------------------- exception when ora_ffi.ffi_error then message('TMAX ERROR!'); raise form_trigger_failure; when others then message('Other Exception!'); raise form_trigger_failure; end; -------------------------------------------------------------------------------- -- Tmax Service -------------------------------------------------------------------------------- tmax.disconnection; -------------------------------------------------------------------------------- -- -------------------------------------------------------------------------------- else set_alert_property('NOTE1',alert_message_text,'TMAX ῡ Ͽϴ.'); if show_alert('NOTE1') = alert_button1 then null; end if; end if; END; :car_div := null; :car_no := null; :qb1.amt := null; :vat := null; :vat_div := null; :draw_ask := null; :trns_coop := null; :order_no := null; :pallet_cnt := null; :house_cnt := null; :qb1.baesong_dt := null; :qb1.baesong_no := null; end; begin select cust_nm,area,credit_cust into :cust_cd_d,:area_c,:credit_cust from lfsgt100 where cust_cd = :qb1.cust_cd and cust_div < '8'; exception when no_data_found then :cust_cd_d := null; :area_c := null; :credit_cust := null; end; :put_check := '2'; :danga_chk := '2'; -- ǰ ܰ ۽ ܰ END;^0808\nFFH: Y^`ijk@lm,n1  $ NLFSGT302_SEL_BPROCEDURE lfsgt302_sel_b IS /* ߾ȸ տ ǰ϶ ȸ */ v_item_div lfsgt311.item_div%TYPE; v_item_cd lfsgt311.item_cd%TYPE; v_qty lfsgt311.qty%TYPE; v_sale_amt lfsgt311.sale_amt%TYPE; v_cost lfsgt311.cost%TYPE; v_amt lfsgt311.amt%TYPE; v_vat_amt lfsgt311.vat_amt%TYPE; CURSOR lfsgt302_cursor is select item_div,item_cd,qty,sale_amt,cost,amt,vat_amt from lfsgt321 where coop = :global.coop and slip_dt = :slip_dt_ma and -- io_slip = :io_slip_ma and slip_no = :slip_no_ma order by item_div,item_cd ; BEGIN go_block('qb2'); OPEN lfsgt302_cursor; LOOP FETCH lfsgt302_cursor INTO v_item_div,v_item_cd,v_qty,v_sale_amt,v_cost, v_amt,v_vat_amt; EXIT WHEN lfsgt302_cursor%NOTFOUND; :qb2.item_div := v_item_div; :qb2.item_cd := v_item_cd; :qb2.item_cd_d := readitem(v_item_div,v_item_cd); :qb2.qty := v_qty; :qb2.sale_amt:= v_sale_amt; :qb2.cost := v_cost; :qb2.amt := v_amt; :qb2.vat_amt := v_vat_amt; /* if substr(:qb2.item_cd,6,1) = '1' and :car_div = '5' then :item_gu := 'Y'; elsif substr(:qb2.item_cd,6,1) = '2' and :car_div = '5' then :item_gu := 'N'; end if; */ synchronize; next_record; END LOOP; CLOSE lfsgt302_cursor; previous_record; END; N, N  $ NP62_26_APR_200423_59_02BEGIN /***********************************************************/ /* ֹ TABLE UPDATE */ /***********************************************************/ if :qb1.order_dt is not null and :qb1.order_no is not null then order_lfsgt310_upt; end if;  END;PRE-UPDATE (QB2)NUU~t,FlH:Y{|}prs~1  $"NGET_DATA/* ԿϷ ǥ Ÿ ȸ */ PROCEDURE get_data IS -------------------------------------------------------------------------------- -- -------------------------------------------------------------------------------- rxnum PLS_INTEGER; v_jp_gbn varchar2(2); v_jp_gbn_i varchar2(2); v_cust_cd varchar2(8); v_slip_gbn varchar2(1); v_pummok_cd varchar2(7); p_baesong_dt varchar2(8); p_baesong_no number(3); p_baesong_num varchar2(15); p_cust_cd varchar2(8); v_io_slip varchar2(2); v_io_slip_ban varchar2(2); v_coop varchar2(6); iCnt NUMBER := 0; v_grd_cd varchar2(15); -------------------------------------------------------------------------------- -- BODY -------------------------------------------------------------------------------- BEGIN -- ڹȣ ȯ begin select '0'||substr(bsn_no,1,3)||substr(bsn_no,5,2)||'00'||substr(bsn_no,8,5) into v_grd_cd from lfcmt100 where substr(coop,6,1) = '0' and bsn_no is not null ; exception when others then v_grd_cd := null; end; go_block('SB1'); clear_block(no_validate); -------------------------------------------------------------------------------- -- TMAX SERVICE -------------------------------------------------------------------------------- if tmax.getconnection(readcode('SERVER','LSGE1020'), tmax.envfile) = 'OK' then begin -------------------------------------------------------------------------------- -- TMAX SERVICE INPUT -------------------------------------------------------------------------------- -- STR001 : ۾ -------------------------------------------------------------------------------- tmax.putstring('STR001', 'S04',0); tmax.putstring('STR002', :global.coop,0); tmax.putstring('STR003', v_grd_cd,0); -------------------------------------------------------------------------------- -- TMAX SERVICE ȣ -------------------------------------------------------------------------------- if tmax.getservice('SC_CFS_102') = 'OK' then -------------------------------------------------------------------------------- -- ȸ -------------------------------------------------------------------------------- rxnum := tmax.getrecord('STR102'); -------------------------------------------------------------------------------- -- TMAX SERVICE OUTPUT -------------------------------------------------------------------------------- for i in 0 .. rxnum - 1 loop p_baesong_num := tmax.getstring ('STR114',i); -- ǰǰ v_coop := tmax.getstring ('STR121',i); -- ڵ :sb1.w_won_coop := tmax.getstring ('STR127',i); -- ۻڵ :sb1.w_won_baesong_num := tmax.getstring ('STR130',i); -- ۼȣ :sb1.w_io_slip := tmax.getstring ('STR132',i); -- ⱸ begin -- ۹ǰ io_slip select io_slip into v_io_slip_ban from lfsgt310 where coop = :sb1.w_won_coop and baesong_num = :sb1.w_won_baesong_num; exception when others then v_io_slip_ban := '22'; end ; if :sb1.w_io_slip = :cb1.io_slip_c then :sb1.w_baesong_dt := tmax.getstring ('STR102',i); -- :sb1.w_baesong_no := tmax.getinteger('INT103',i); -- ۹ȣ v_cust_cd := tmax.getstring ('STR122',i); -- ŷóڵ v_jp_gbn := tmax.getstring ('STR104',i); -- ǥ :sb1.w_baesongsc_dt := tmax.getstring ('STR113',i); -- ۵ :sb1.w_baesong_num := ltmax.getstring ('STR114',i); -- ۼȣ :sb1.w_gonggeub_amt := tmax.getdouble ('DBL117',i); -- ޱݾ :sb1.w_vat_amt := tmax.getdouble ('DBL118',i); -- ΰ :sb1.w_wonga_amt := tmax.getdouble ('DBL119',i); -- ǸŴ :sb1.w_georae_dt := tmax.getstring ('STR125',i); -- :sb1.w_won_baesong_dt := tmax.getstring ('STR128',i); -- :sb1.w_won_baesong_no := tmax.getinteger('INT129',i); -- ۹ȣ :sb1.w_jp_normal := v_jp_gbn; :sb1.w_io_slip_ban := v_io_slip_ban ; end if; -- ŷó ڷắȯ begin select cust_nm into :sb1.w_cust_nm from lfsgt100 where cust_cd = v_cust_cd ; exception when others then :sb1.w_cust_nm := null; end; -- ǥȣ SELECT begin select order_no into :sb1.w_slip_no from lfsgt310 where order_dt = :sb1.w_baesong_dt and baesong_num = :sb1.w_baesong_num ; exception when others then :sb1.w_slip_no := null; end; -- ǥ ڷắȭ v_jp_gbn_i := readconv_s('1120',v_jp_gbn) ; begin select d_dcd_nm into :sb1.w_jp_gbn from lfcmt121 where m_lcd ='1120' and d_dcd = v_jp_gbn_i; exception when others then :sb1.w_jp_gbn := null; end; next_record; iCnt := iCnt + 1; end loop; first_record; synchronize; if :sb1.w_baesong_num is null then set_alert_property('NOTE1', alert_message_text, 'ȸ ڷᰡ ϴ..'); if show_alert('NOTE1') = alert_button1 then null; end if; else set_alert_property('NOTE1', alert_message_text, 'ڷᰡ ȸǾϴ..'); if show_alert('NOTE1') = alert_button1 then null; end if; end if; else -------------------------------------------------------------------------------- -- TMAX ERROR MESSAGE -------------------------------------------------------------------------------- set_alert_property('NOTE1', alert_message_text, tmax.getstring('STR200',0)); if show_alert('NOTE1') = alert_button1 then null; end if; end if; -------------------------------------------------------------------------------- -- EXCEPTION ó -------------------------------------------------------------------------------- exception when ora_ffi.ffi_error then message('TMAX ERROR!'); raise form_trigger_failure; when others then message('Other Exception!'); raise form_trigger_failure; end; -------------------------------------------------------------------------------- -- Tmax Service -------------------------------------------------------------------------------- tmax.disconnection; -------------------------------------------------------------------------------- -- -------------------------------------------------------------------------------- else set_alert_property('NOTE1',alert_message_text,'TMAX ῡ Ͽϴ.'); if show_alert('NOTE1') = alert_button1 then null; end if; end if; END; Y{|}prs~;<D=> ? @GAJB!C"D##$E%%M##1&&'F(G)H*"*QI#TJ$VK%'L+(+YM)'N,,,\O-'P(Q)R *0*_S1bT2dU3-VglnCs B?.6.9lH:1 $ RN BLOCK_INSERT\PROCEDURE block_insert IS BEGIN set_item_property('act_dt',insert_allowed,property_true); set_item_property('car_no',insert_allowed,property_true); set_item_property('pallet_cnt',insert_allowed,property_true); set_item_property('house_cnt',insert_allowed,property_true); set_item_property('remarks',insert_allowed,property_true); set_block_property('QB1',insert_allowed,property_true); set_block_property('QB2',insert_allowed,property_true); set_block_property('CB2',insert_allowed,property_true); set_block_property('CB3',insert_allowed,property_true); set_item_property('act_dt',update_allowed,property_true); set_item_property('car_no',update_allowed,property_true); set_item_property('pallet_cnt',update_allowed,property_true); set_item_property('house_cnt',update_allowed,property_true); set_item_property('remarks',update_allowed,property_true); set_block_property('QB1',update_allowed,property_true); set_block_property('QB2',update_allowed,property_true); set_block_property('CB2',update_allowed,property_true); set_block_property('CB3',update_allowed,property_true); set_block_property('QB1',delete_allowed,property_true); set_block_property('QB2',delete_allowed,property_true); set_block_property('CB2',delete_allowed,property_true); set_block_property('CB3',delete_allowed,property_true); END;lͫͫͫͫͫͫͫwSYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"BLOCK_INSERT""bC$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8p h h h h h% h% h% h% hhhhhh%h%h%h%h%h%h%h%hAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAe"BLOCK_INSERT"SET_ITEM_PROPERTY"act_dt"INSERT_ALLOWED"PROPERTY_TRUE"car_no"pallet_cnt"house_cnt"remarks"SET_BLOCK_PROPERTY"QB1"QB2"CB2"CB3"UPDATE_ALLOWED"DELETE_ALLOWED"6"10"9"7"3"" %)*,059=>CGLPTUZ^cgklquz~  #$)-26:;@DIMQRW[`dhinrw{   !&(,.:<?CKLOS[\_cklos{|  #+,/3;<?CKLOS[\_cklos{|hUnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWOQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQc  l  ..#2"1 /,,,,..#2"1 /,,,,,,,,/       $  &*  ,0  26 #8<'>B !+DH"#$/JN%&'3PT( )*7VZ + ,-;\` . /0?bf 1 23Chl 456Gnr 7 89Ktx : ;<Oz~ = >?S @ABWoCDEFkGHIJgK LMNcO PQR_STUV[WXYZ[\]^_`abcdefghijklmno pqrs tuvwxyz{|}~ !"#'()-./3459:;?@AEFGKLMQRSWXY]^_cdeijkopquvw{|}!"#  %+17=CIOU[agmsy'()-./3459:;?@AEFGKLMQRSWXY]^_cdeijkopquvw{|}d,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H DDics"  GI,GI $GI,GI $8GI,GI $TGI,GI $pGI,GI $GI,GI $ GI,GI $ GI,GI $ GI,GI $ GI(GI $GI(GI $8GI(GI $TGI(GI $pGI(GI $GI(GI $ GI(GI $ GI(GI $ GI(GI $ GI$GI $ GI$GI $ GI$GI $ GI$GI $ !X$ BLOCK_INSERTact_dtcar_nopallet_cnthouse_cntremarksQB1QB2CB2CB3!;Uo %?Ys)C0l`NhN8p NT| NpNNNNN-- Է¼ :ins_chk := 'I'; -- ǰǸŴ :trns_coop := '888888'; /***********************************************************/ /* Է½ ǥȣ,Ϸùȣο */ /***********************************************************/ slip_no1; -- ο ǥȣ ٲ :qb1.slip_no := :slip_no_c; -- ڹȣ,¥ο :usr_id := :usrid; :hand_dt := sysdate; if :qb1.normal = '10' and :qb1.baesong_dt is not null and :qb1.baesong_no is not null then lfsgt301_upt; end if; -- ݴüԱ --if :normal = '10' and :sale_style in ('2','3') and nvl(:sun_amt,0) != 0 then -- lfsgt340_341_420_insert; --end if; /***********************************************************/ /* ֹ TABLE UPDATE */ /***********************************************************/ /*************************************************/ /* Ա / ǥȣο */ /* Ǵ ܰ ΰ */ /*************************************************/ if :sale_style = '4' or :normal = '11' then slip_no2; end if; /*************************************************/ /* /ǥTABLE INSERT */ /*************************************************/ if :normal = '10' then :slip_no_m_i := nvl(:slip_no_m,0); if :sale_style = '4' then lfsgt340_ins10; :slip_no_m_i := nvl(:slip_no_m_i,0) + 1; end if; elsif :normal = '11' then :slip_no_m_i := nvl(:slip_no_m,0); if :sale_style in ('1','4') then lfsgt340_ins11; :slip_no_m_i := nvl(:slip_no_m_i,0) + 1; end if; end if; -- ΰԷ --if :vat_div in ('1','4') then lfsgt630_ins; --end if; -- ()̼ INSERT if :sale_style in ('2','3') then if :normal = '10' then lfsgt410_ins10; elsif :normal = '11' then lfsgt410_ins11; end if; end if; END;PRE-INSERT (QB1)8Y A[\]N_a`bN^Yefx,hjikNg{npoqNm|tvuwNs}z{$(j}~NNp Nrs NN~ !" N# N$ %!N&"N'#,N($N)% L*&+' rN,( NL(Pl<X\p~Z|clrx) %+06<BHNQW^dgmsy$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 82JKCdAeedAeedAeedAeedAeedAeeAdAeedAeedAeedAeedAeeAdAee> AAee> AAeee> AAee>AAe+  w8e!"e+ EAEAEAue+ @ lH:1 $ N BLOCK_QUERYPROCEDURE block_query IS BEGIN set_block_property('QB1',insert_allowed,property_false); set_block_property('QB2',insert_allowed,property_false); set_block_property('CB2',insert_allowed,property_false); set_block_property('CB3',insert_allowed,property_false); set_block_property('QB1',update_allowed,property_false); set_block_property('QB2',update_allowed,property_false); set_block_property('CB2',update_allowed,property_false); set_block_property('CB3',update_allowed,property_false); set_block_property('QB1',delete_allowed,property_false); set_block_property('QB2',delete_allowed,property_false); set_block_property('CB2',delete_allowed,property_false); set_block_property('CB3',delete_allowed,property_false); END;lͫͫͫͫͫͫͫwSYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"BLOCK_QUERY""b?$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8U qX% n% n% n% n%n%n%n%n%n%n%n%nAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeo"BLOCK_QUERY"SET_BLOCK_PROPERTY"QB1"INSERT_ALLOWED"PROPERTY_FALSE"QB2"CB2"CB3"UPDATE_ALLOWED"DELETE_ALLOWED"3"" 6 %)*,059=>CGLPTUZ^cgklquz~  #$)-26:;@BFHTVY]efimuvy}  hUnWnWnWnWnWnWnWnWnWnWnWnWOQcQcQcQcQcQcQcQcQcQcQcQc   ,,,,,,,,,,,,SS/W XP[\P_ `P c  dP g  $hPk &*lPo ,0pPs 26tPw #8<xP{ '>B|P !+DHP" #$/JNP?SSSSRPQ %U&V'(V; )Y*Z+,Z7 -].^/0^3 1a2b34bM 5e6f78fQ 9i:j;n?@nY AqBrCDr] EuFvGHva IyJzKLze M}N~OP~i QRSTm !"#'()-./3459P"l:;?@AEFGKLM %+17=CIOT!"#'()-./3459:;?@AEFGKLMd,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H @@9pics"  GI,GI $ GI,GI $ 8GI,GI $ TGI,GI $ GI(GI $ GI(GI $ 8GI(GI $ TGI(GI $ GI$GI $ GI$GI $ 8GI$GI $ TGI$GI $ !$ p BLOCK_QUERYQB1QB2CB2CB3!;Uo  %?9`NdN8hNTlN^"PKG INIT"":system.record_status":normal":normal_i":message":system.current_block""!%&(,2679=CGHJNTXY[_eijlptx| '"N # N  $N%PN& N&&0&D&X&% ! ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H &&ics" V L 9 /$00 8DDhF 9 /$00 TDDh 00XXpX NA 7 *  $F$:$!d$INSERT19 űԷڷ ҷ Է Ҽϴ...ܢܢ ҷθ Ҽ ֽϴ...ܢܢQB111CAN2cb2next_item8Dl(t (0(DDX #:?R^i  % N(N8,3NT`&NpNNNN N q vgidnq vgidsdq vgidddq vgidlpq vgiddnp"L-NqV vgianoq vgiaenq vgiastq vgiameq vgiamtq vgiabop7L-Nq4Uq5Uq6Uq7Up2L-Nq$Vq%q&q'q(p-pOPlQRS-p$-p5-p OP[QRS-pOP]QRS-pOP[QRS-pOP]QRS-p0L-NpOPgQRSpOPgQRSt`$lH:1 $ ?N ITEM_QUERY3PROCEDURE item_query IS BEGIN set_block_property('QB1',update_allowed,property_true); set_item_property('act_dt',insert_allowed,property_false); set_item_property('car_no',insert_allowed,property_false); set_item_property('pallet_cnt',insert_allowed,property_false); set_item_property('house_cnt',insert_allowed,property_false); set_item_property('remarks',insert_allowed,property_false); set_block_property('QB2',insert_allowed,property_false); set_block_property('CB2',insert_allowed,property_false); set_block_property('CB3',insert_allowed,property_false); set_item_property('act_dt',update_allowed,property_false); set_item_property('car_no',update_allowed,property_false); set_item_property('pallet_cnt',update_allowed,property_false); set_item_property('house_cnt',update_allowed,property_false); set_item_property('remarks',update_allowed,property_false); set_block_property('QB2',update_allowed,property_false); set_block_property('CB2',update_allowed,property_false); set_block_property('CB3',update_allowed,property_false); set_block_property('QB1',delete_allowed,property_false); set_block_property('QB2',delete_allowed,property_false); set_block_property('CB2',delete_allowed,property_false); set_block_property('CB3',delete_allowed,property_false); END;lͫͫͫͫͫͫͫwSYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"ITEM_QUERY""b)$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8uT%h n n n n n% n% n% nnnnnn%n%n%n%n%n%n%nAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAe"ITEM_QUERY"SET_BLOCK_PROPERTY"QB1"UPDATE_ALLOWED"PROPERTY_TRUE"SET_ITEM_PROPERTY"act_dt"INSERT_ALLOWED"PROPERTY_FALSE"car_no"pallet_cnt"house_cnt"remarks"QB2"CB2"CB3"DELETE_ALLOWED"3"6"10"9"7""f %)*,059=>CGLPTUZ^cgklquz~  #$)-26:;@DIMQRW[`dhinrw{  #%(,458<DEHLTUX\dehltux| $%(,458<DEHLTUX\dehlthUnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWnWOQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQc  pl ,..#2"1 /,,,..#2"1 /,,,,,,,/         $  &* ,0 26 #8< '>B  !+DH" # $/JN% & '3PT( ) *7VZ+, -;\`./ 0?bf12 3Chl45 6Gnr78 9Ktx:; <Oz~=> ?Sk@ABCgDEFGcHIJK_L MNO[P QRSWTUVWXYZ[\]^_`abcdefghijkl mnop qrstuvwxyz{|}~ !"#'()-./3459:;?@AEFGKLMQRSWXY]^_cdeijkopquvw{|}!"#  %+17=CIOU[agmsy'()-./3459:;?@AEFGKLMQRSWXY]^_cdeijkopquvw{|}d,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H **ics" ~ GI(GI $ GI,GI $8GI,GI $TGI,GI $pGI,GI $GI,GI $GI,GI $ GI,GI $ GI,GI $ GI(GI $8GI(GI $TGI(GI $pGI(GI $GI(GI $GI(GI $ GI(GI $ GI(GI $ GI$GI $ GI$GI $ GI$GI $ GI$GI $ !P$ ITEM_QUERYQB1act_dtcar_nopallet_cnthouse_cntremarksQB2CB2CB3!;Uo %?Ys)`NdN8lNTt Np NNNNNredr100g100b88üEnter value for : AMTX) VlH: !<O;PQ:8=LMT1  $ NLFSGT410_INS19_/*********************************************************/ /* ̼ݹ߻ */ /*********************************************************/ PROCEDURE lfsgt410_ins19 IS v_amt_o lfsgt320.amt%TYPE; v_amt_d lfsgt320.amt%TYPE; v_amt lfsgt410.amt%TYPE; v_in_sum lfsgt410.in_sum%TYPE; v_rem_amt lfsgt410.rem_amt%TYPE; v_end_div lfsgt410.end_div%TYPE; v_rem_amt_c lfsgt410.rem_amt%TYPE; v_act_cd_o varchar2(2); v_act_cd_d varchar2(2); BEGIN /*********************************************************/ /* ǥҽ */ /*********************************************************/ if :relat_no1 is null then begin delete from lfsgt410 where coop = :coop_c and cust_cd = :credit_cust and slip_dt = :slip_dt_c and io_slip = :io_slip_c and slip_no = :slip_no_c; exception when others then raise form_trigger_failure; end; else /*********************************************************/ /* ̼ݹ߻ݾ,ݹ߻ݾ üũ */ /*********************************************************/ if :item_div_c = '2' then v_act_cd_d := '45'; else v_act_cd_d := '44'; end if; begin select abs(nvl(:qb1.amt,0)+nvl(:app,0)) into v_amt_o from lfsgt320 where coop = :coop_c and slip_dt = :slip_dt_c and io_slip = :io_slip_c and slip_no = :slip_no_c; exception when others then v_amt_o := 0; end; begin select abs(nvl(cr,0)) into v_amt_d from lfsgt340 where pre_coop = :coop_c and pre_slip_dt = :slip_dt_c and pre_io_slip = :io_slip_c and pre_slip_no = :slip_no_c and act_cd = v_act_cd_d; exception when others then v_amt_d := 0; end; /*********************************************************/ /* ҹ̼ݹ߻ */ /*********************************************************/ begin select amt,in_sum,rem_amt into v_amt,v_in_sum,v_rem_amt from lfsgt410 where coop = :relat_no1 and cust_cd = :credit_cust and slip_dt = :relat_no2 and io_slip = :relat_no3 and slip_no = :relat_no4; exception when no_data_found then v_amt := null; v_in_sum := null; v_rem_amt := null; end; /*********************************************************/ /* ǰݾ ̼ ܾ׺ */ /*********************************************************/ if nvl(v_rem_amt,0) + nvl(v_amt_o,0) - nvl(v_amt_d,0) = 0 then v_end_div := '2'; else v_end_div := '1'; end if; /*********************************************************/ /* ̼ݹ߻ UPDATE (LFSGT410) */ /*********************************************************/ begin update lfsgt410 set amt = nvl(v_amt,0) + nvl(v_amt_o,0), in_sum = nvl(v_in_sum,0) + nvl(v_amt_d,0), rem_amt = nvl(v_rem_amt,0) + nvl(v_amt_o,0) - nvl(v_amt_d,0), end_div = v_end_div, usr_id = :usr_id, hand_dt = sysdate where coop = :relat_no1 and cust_cd = :credit_cust and slip_dt = :relat_no2 and io_slip = :relat_no3 and slipl_no = :relat_no4; exception when others then raise form_trigger_failure; end; if nvl(v_amt_d,0) != 0 then /*********************************************************/ /* ǰݾ ̼ ܾ׺ */ /*********************************************************/ v_rem_amt_c := nvl(v_amt_o,0) - nvl(v_amt_d,0); /*********************************************************/ /* ̼ݻȯ UPDATE (LFSGT420) */ /*********************************************************/ DECLARE v_coop lfsgt430.coop%TYPE; v_cust_cd lfsgt430.cust_cd%TYPE; v_slip_dt lfsgt430.slip_dt%TYPE; v_act_cd lfsgt430.act_cd%TYPE; v_slip_no lfsgt430.slip_no%TYPE; v_seq lfsgt430.seq%TYPE; v_refund_amt lfsgt430.refund_amt%TYPE; CURSOR lfsgt430_cursor is select coop,cust_cd,slip_dt,act_cd,slip_no,seq, refund_amt from lfsgt430 where sale_coop = :relat_no1 and sale_dt = :relat_no2 and sale_io = :relat_no3 and sale_no = :relat_no4; BEGIN OPEN lfsgt430_cursor; LOOP FETCH lfsgt430_cursor INTO v_coop,v_cust_cd,v_slip_dt,v_act_cd, v_slip_no,v_seq,v_refund_amt; EXIT WHEN lfsgt430_cursor%NOTFOUND; /********************************************/ /* ȯ */ /********************************************/ begin update lfsgt420 set refund_amt = nvl(refund_amt,0) + nvl(v_refund_amt,0), back_div = '1' where coop = v_coop and cust_cd = v_cust_cd and slip_dt = v_slip_dt and act_cd = v_act_cd and slip_no = v_slip_no and seq = v_seq; exception when others then raise form_trigger_failure; end; END LOOP; /********************************************/ /* ȯǰ */ /********************************************/ begin delete from lfsgt430 where sale_coop = :relat_no1 and sale_dt = :relat_no2 and sale_io = :relat_no3 and sale_no = :relat_no4; exception when others then raise form_trigger_failure; end; CLOSE lfsgt430_cursor; END; end if; end if; END;00/  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H 00ics" T ;!X@ ,D@  /;0800% Tr0808sH:qZ[b1  $ N LFSGT301_19PROCEDURE lfsgt301_19 IS -- table ǰ ǥ BEGIN -- message(:global.coop_c||'-'||:qb1.baesong_dt||'-'||:qb1.baesong_no||'-'||:qb1.baesong_num||'-'||:qb1.baesongsc_dt); -- message(:global.coop_c||'-'||:qb1.baesong_dt||'-'||:qb1.baesong_no||'-'||:qb1.baesong_num||'-'||:qb1.baesongsc_dt); begin update lfsgt310 set normal = '19' where coop = :cb1.coop_c and order_dt = :qb1.baesong_dt and baesong_no = :qb1.baesong_no and baesong_num = :qb1.baesong_num ; exception when others then null; end; END;_dt0808tH:qZ[b1  $ N LFSGT301_10PROCEDURE lfsgt301_10 IS -- table ǰ ٽ BEGIN -- message(:global.coop_c||'-'||:qb1.baesong_dt||'-'||:qb1.baesong_no||'-'||:qb1.baesong_num||'-'||:qb1.baesongsc_dt); -- message(:global.coop_c||'-'||:qb1.baesong_dt||'-'||:qb1.baesong_no||'-'||:qb1.baesong_num||'-'||:qb1.baesongsc_dt); begin update lfsgt310 set normal = '10' where coop = :cb1.coop_c and order_dt = :qb1.baesong_dt and baesong_no = :qb1.baesong_no and baesong_num = :qb1.baesong_num ; exception when others then null; end; END;cu0800up0800v0800wP 0800x= 0800y$@ 0800z 0800{ f0 0800|@P 0800}S`p 0800~ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000 lH::UB<;CO8EQPRS 1  $ !NLFSGT340_INS11PROCEDURE lfsgt340_ins11 IS v_act_cd VARCHAR2(2); v_act_cd_d VARCHAR2(2); BEGIN /*****************************************************/ /* Աǥ Table INSERT */ /*****************************************************/ if :item_div_c = '2' then v_act_cd := '45'; v_act_cd_d := '65'; else v_act_cd := '44'; v_act_cd_d := '61'; end if; -- ǥȣ UPDATE if :ins_chk = 'I' then slip_no2_inupt; end if; if :sale_style = '1' then begin insert into lfsgt340 (coop,slip_dt,slip_no,act_cd, normal,act_dt,cust_div,cust_cd,dr,cr, exch_actcd,vat_div,vat,draw_ask,pre_coop,pre_slip_dt,pre_slip_no, pre_io_slip,remarks,usr_id,hand_dt,seq_no) values (:coop_c,:slip_dt_c,:slip_no_m,v_act_cd, '10',:act_dt,:cust_div,:credit_cust,0,abs(nvl(:qb1.amt,0))+abs(nvl(:app,0)), v_act_cd_d,'','',:draw_ask,:coop_c,:slip_dt_c,:slip_no_c, :io_slip_c,'ݸǰ',:usrid,sysdate,:seq_no); exception when others then raise form_trigger_failure; end; else begin insert into lfsgt340 (coop,slip_dt,slip_no,act_cd, normal,act_dt,cust_div,cust_cd,dr,cr, exch_actcd,vat_div,vat,draw_ask,pre_coop,pre_slip_dt,pre_slip_no, pre_io_slip,remarks,usr_id,hand_dt,seq_no) values (:coop_c,:slip_dt_c,:slip_no_m,v_act_cd, :normal,:act_dt,:cust_div,:credit_cust,nvl(:qb1.amt,0)+nvl(:app,0),0, -- :normal,:act_dt,:cust_div,:credit_cust,nvl(:qb1.amt,0)-nvl(:ass,0)+nvl(:app,0),0, v_act_cd_d,'','',:draw_ask,:coop_c,:slip_dt_c,:slip_no_c, :io_slip_c,'ǸŴݹǰ',:usrid,sysdate,:seq_no); exception when others then raise form_trigger_failure; end; end if; END;cust_cd is null then bell; :message := ' ŷóڵ带 Ͻÿ....ܢܢ'; raise form_trigger_failure; else :cust_cd_d := readcust(:qb1.cust_cd); if :cust_cd_d is null then if show_lov('CUST_CD') then next_item; else raise form_trigger_failure; end if; else next_item; end if; end if; END;KEY-NEXT-ITEM (QB1.CUST_CD).0808,'HD1  $ NP37_26_APR_200423_59_02BEGIN if date_chk(:system.current_value) = 'NO' then bell; :message := msg_dsp('20006'); raise form_trigger_failure; end if;  END;!WHEN-VALIDATE-ITEM (QB1.ORDER_DT)0808(ooHDG 1  $ ONP38_26_APR_200423_59_02BEGIN /* if :system.record_status in ('NEW','INSERT') and :order_dt is not null and :normal = '10' then begin select sale_style,vat_div into :sale_style,:vat_div from lfsgt310 where coop like substr(:coop_c,1,5)||'%' and order_dt = :order_dt and order_no = :order_no and cust_cd = :qb1.cust_cd and complete_ask = '1'; exception when no_data_found then :sale_style := null; :vat_div := null; end; if :sale_style is null then bell; :message := ' ŷó شǴ ֹ ϴ...ܢܢ'; end if; end if; */ if :system.record_status in ('NEW','INSERT') and :order_dt is not null and :normal = '10' then order_lfsgt310; end if; END;!WHEN-VALIDATE-ITEM (QB1.ORDER_NO) lH: B:<OS81  $ NINS_CHK1tPROCEDURE ins_chk1 IS dr_c number(12); cr_c number(12); s_amt number(12); h_amt number(12); c_amt number(12); temp_m number(12); temp number(12); m_tot number(12); yakjung_amt number(12); /* ݾ*/ BEGIN --if :sale_style in ('2','3','4') then if :sale_style = '4' then if :item_div_c = '2' then -- ݰ act_jan ( :coop_c, -- '45', -- ݰڵ :credit_cust, -- ŷóڵ :act_dt, -- ȸ :seq_no, -- Ϸùȣ cr_c, -- 뺯ݾ dr_c); -- ݾ else -- żݰ act_jan ( :coop_c, -- '44', -- żݰڵ :credit_cust, -- ŷóڵ :act_dt, -- ȸ :seq_no, -- Ϸùȣ cr_c, -- 뺯ݾ dr_c); -- ݾ end if; -- :sun_amt := nvl(cr_c,0) - nvl(dr_c,0); --else -- :sun_amt := 0; --end if; --if :sale_style = '4' then s_amt := nvl(cr_c,0) - nvl(dr_c,0); --c_amt := nvl(:qb1.amt,0) + nvl(v_amt_c,0) + nvl(v_vat,0); c_amt := nvl(:qb1.amt,0) + nvl(:app,0); if nvl(s_amt,0) < nvl(c_amt,0) then bell; set_item_property('message',visual_attribute,'red'); :message := ' ʰǾ...:'|| ltrim(to_char(s_amt,'999,999,999,999'))||' '||'߻:'|| ltrim(to_char(c_amt,'999,999,999,999')); raise form_trigger_failure; end if; end if; if :sale_style in ('1','2','3') then if :item_div_c = '2' then -- ̼ݰ int_proc ( :credit_cust, -- ŷóڵ :act_dt, -- ȸ :seq_no, -- ȸ庰Ϸùȣ temp_m, -- ̼ temp, -- · temp, -- Ź̼ temp, -- Ű· temp, -- ü̼ temp, -- ü· temp, -- ѳ temp, -- ʰ temp, -- űѳ temp); -- űʰ else -- Ź̼ݰ int_proc ( :credit_cust, -- ŷóڵ :act_dt, -- ȸ :seq_no, -- ȸ庰Ϸùȣ temp, -- ̼ temp, -- · temp_m, -- Ź̼ temp, -- Ű· temp, -- ü̼ temp, -- ü· temp, -- ѳ temp, -- ʰ temp, -- űѳ temp); -- űʰ end if; end if; if :sale_style = '1' and nvl(temp_m,0) != 0 then bell; :message := ' ǸҼ ϴ(ֽ̼)...ܢܢ'; raise form_trigger_failure; end if; if :sale_style in ('2','3') then -- ܻѵ begin select limit_amt into h_amt from lfsgt100 where cust_cd = :qb1.cust_cd; exception when no_data_found then h_amt := null; end; if :item_div_c = '2' then -- ̼üũ slip_jan (:coop_c, '12', :credit_cust, :act_dt, '22', :seq_no, cr_c, dr_c); else -- Ź̼üũ l slip_jan (:coop_c, '11', :credit_cust, :act_dt, '32', :seq_no, cr_c, dr_c); end if; m_tot := nvl(dr_c,0) - nvl(cr_c,0); if nvl(temp_m,0) != nvl(m_tot,0) then bell; set_item_property('message',visual_attribute,'red'); :message := ' ̼ܾ׿...ܻŷ:'|| ltrim(to_char(temp_m,'999,999,999,999'))||' '||'ǥ߻:'|| ltrim(to_char(m_tot,'999,999,999,999')); raise form_trigger_failure; end if; -- if nvl(h_amt,0) < (nvl(temp_m,0) + nvl(:qb1.amt,0) - nvl(:ass,0)) then if nvl(h_amt,0) < (nvl(temp_m,0) + nvl(:qb1.amt,0)) then set_alert_property('CAUTION',alert_message_text, ' ѵ ʰǾϴ...Ͻðڽϱ?'); /* if show_alert('CAUTION') = alert_button2 then raise form_trigger_failure; end if; */ end if; end if; END;_02BEGIN /* if :system.record_status in ('NEW','INSERT') and :order_dt is not null and :normal = '10' then begin select sale_style,vat_div into :sale_style,:vat_div from lfsgt310 where coop like substr(:coop_c,1,5)||'%' and order_dt = :order_dt and order_no = :order_no and cust_cd = :qb1.cust_cd and complete_ask = '1'; exception when no_data_found then :sale_style := null; :vat_div := null; end; if :sale_style is null then bell; :message := ' ŷó شǴ ֹ ϴ...ܢܢ'; end if; end if; */ if :system.record_status in ('NEW','INSERT') and :order_dt is not null and :normal = '10' then order_lfsgt310; end if; END;!WHEN-VALIDATE-ITEM (QB1.ORDER_NO)0808)nnHD 1  $ FNP39_26_APR_200423_59_02BEGIN declare v_cont_amt lfsgt100.cont_amt%TYPE; v_rem_amt lfsgt410.rem_amt%TYPE; v_slip_dt lfsgt410.slip_dt%TYPE; begin if :normal = '10' then if :qb1.cust_div in ('1','2','3','4') and :qb1.sale_style = '3' then begin select cont_amt into v_cont_amt from lfsgt100 -- where cust_cd = :qb1.cust_cd; where cust_cd = :cb1.credit_cust; exception when no_data_found then v_cont_amt := null; end; -- begin -- select sum(rem_amt) into v_rem_amt -- from lfsgt410 -- where cust_cd = :qb1.credit_cust and -- end_div = '1' and -- io_slip in('22','32'); -- exception when no_data_found then -- :message := '1'; -- v_rem_amt := null; -- v_slip_dt := null; -- end; -- if nvl(v_cont_amt,0) <= nvl(v_rem_amt,0) then -- bell; -- :message := ' ̰ų ݾʰ Դϴ.Ȯϼ!!!'; -- start_message_timer('timer',5000); -- --raise form_trigger_failure; -- end if; if nvl(v_cont_amt,0) = 0 then bell; :message := ' @^_^@ Դϴ.Ȯ!!!'; raise form_trigger_failure; end if; end if; end if; end; END;#WHEN-VALIDATE-ITEM (QB1.SALE_STYLE)      $$$05$$*%*%    ;;     ;0055  a?vv/   uxBxB |  |lH:Q<;PS1  $"NSLIP_NO1/*********************************************************/ /* ǥȣ,Ϸùȣ ο */ /*********************************************************/ PROCEDURE slip_no1 IS BEGIN /*********************************************************/ /* ǥȣ üũ INSERT,UPDATE */ /*********************************************************/ begin select nvl(slip_no,0) + 1 into :slip_no_c from lfcmt320 where coop = :coop_c and slip_dt = :slip_dt_c and io_slip = :io_slip_c and slip_no = (select max(slip_no) from lfcmt320 where coop = :coop_c and slip_dt = :slip_dt_c and io_slip = :io_slip_c) FOR UPDATE OF slip_no; exception when no_data_found then :slip_no_c := 1; end; begin insert into lfcmt320 (coop,slip_dt,io_slip,slip_no) values (:coop_c,:slip_dt_c,:io_slip_c,:slip_no_c); exception when dup_val_on_index then update lfcmt320 set slip_no = :slip_no_c where coop = :coop_c and slip_dt = :slip_dt_c and io_slip = :io_slip_c; when others then raise form_trigger_failure; end; /***********************************************************/ /* Է½ Ϸùȣο */ /***********************************************************/ begin select nvl(seq_no,0) + 1 into :seq_no from lfcmt300 where coop = substr(:coop_c,1,5)||'0' and seq_no = (select max(seq_no) from lfcmt300 where coop = substr(:coop_c,1,5)||'0') FOR UPDATE OF seq_no; exception when no_data_found then :seq_no := 1; end; begin insert into lfcmt300 (coop,seq_no) values (substr(:coop_c,1,5)||'0',:seq_no); exception when dup_val_on_index then update lfcmt300 set seq_no = :seq_no where coop = substr(:coop_c,1,5)||'0'; when others then raise form_trigger_failure; end; END;Q<;PS0808*HDD1 $"NP40_26_APR_200423_59_02BEGIN if :vat_div is null then declare vat_cnt number; begin vat_cnt := get_list_element_count('vat_div'); copy(get_list_element_value('vat_div',vat_cnt-1),'vat_div'); end; end if;  END;$WHEN-NEW-ITEM-INSTANCE (QB1.VAT_DIV)?mͫͫͫͫͫͫͫwSYSSTANDARD FORMS4W SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8A ("PKG INIT"":vat_div"VAT_CNT""!%&(,259=  ND  $ qrq  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H rr(ics" ,D^$(($Z(($.@B$@<<DD $YD$!$`vat_div1A$d (A>r#0808!  H::U<; CO8EQPRS1  $ NLFSGT340_INS10wPROCEDURE lfsgt340_ins10 IS v_act_cd VARCHAR2(2); v_act_cd_d VARCHAR2(2); BEGIN /*****************************************************/ /* Աǥ Table INSERT */ /*****************************************************/ if :item_div_c = '2' then v_act_cd := '45'; v_act_cd_d := '65'; else v_act_cd := '44'; v_act_cd_d := '61'; end if; -- ǥȣ UPDATE if :ins_chk = 'I' then slip_no2_inupt; end if; begin insert into lfsgt340 (coop,slip_dt,slip_no,act_cd, normal,act_dt,cust_div,cust_cd,dr,cr, exch_actcd,vat_div,vat,draw_ask,pre_coop,pre_slip_dt,pre_slip_no, pre_io_slip,remarks,usr_id,hand_dt,seq_no) values (:coop_c,:slip_dt_c,:slip_no_m,v_act_cd, :normal,:act_dt,:cust_div,:credit_cust,nvl(:qb1.amt,0)+nvl(:app,0),0, v_act_cd_d,'','',:draw_ask,:coop_c,:slip_dt_c,:slip_no_c, :io_slip_c,'ǸŴ',:usrid,sysdate,:seq_no); exception when others then raise form_trigger_failure; end; END;=8800y 88008808H:S<1  $ NSEQ_CHKPROCEDURE seq_chk IS BEGIN /***********************************************************/ /* Է½ ȸ庰Ϸùȣο */ /***********************************************************/ begin select nvL(max(seq_no),0) + 1 into :seq_no from lfcmt300 where coop = substr(:coop_c,1,5)||'0'; exception when no_data_found then :seq_no := 1; end; END;8800  4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000lH: P<;CRSQ1  $ NLFSGT340_341_420_INSERT jPROCEDURE lfsgt340_341_420_insert IS v_act_cd VARCHAR2(10); v_refund_amt number(12); v_slip_no lfcmt340.slip_no%TYPE; v_exch_actcd VARCHAR2(10); BEGIN if :io_slip_c = '22' then v_act_cd := '12'; v_exch_actcd := '45'; else v_act_cd := '11'; v_exch_actcd := '44'; end if; if nvl(:qb1.amt,0) >= nvl(:sun_amt,0) then v_refund_amt := nvl(:sun_amt,0); else v_refund_amt := nvl(:qb1.amt,0); end if; /*********************************************************/ /* Ա,ǥ Ϸùȣ ο */ /*********************************************************/ begin select nvl(slip_no,0) + 1 into v_slip_no from lfcmt340 where coop = :coop_c and slip_dt = :slip_dt_c and slip_no = (select max(slip_no) from lfcmt340 where coop = :coop_c and slip_dt = :slip_dt_c) FOR UPDATE OF slip_no; exception when no_data_found then v_slip_no := 1; end; /*********************************************************/ /* INSERT (lfsgt340) */ /*********************************************************/ begin insert into lfsgt340 (coop,slip_dt,slip_no,act_cd,normal,act_dt, cust_div,cust_cd,dr,cr,exch_actcd,vat_div,vat, draw_ask,pre_coop,pre_slip_dt,pre_io_slip,pre_slip_no, remarks,usr_id,hand_dt,seq_no) values (:coop_c,:slip_dt_c,v_slip_no,v_exch_actcd,'10',:qb1.act_dt, :cust_div,:qb1.cust_cd,v_refund_amt,0,v_act_cd,'',0, 'N','','','99','', '̼Ա',:usrid,sysdate,:seq_no); exception when others then bell; raise form_trigger_failure; end; /*********************************************************/ /* INSERT (lfsgt341) */ /*********************************************************/ begin insert into lfsgt341 (coop,slip_dt,slip_no,act_cd,dr,cr) values (:coop_c,:slip_dt_c,v_slip_no,v_act_cd,0,v_refund_amt); exception when others then raise form_trigger_failure; end; /*********************************************************/ /* ̼ݻȯ INSERT(lfsgt420) */ /*********************************************************/ begin insert into lfsgt420 (coop,cust_cd,slip_dt,act_cd,slip_no,seq,act_dt, refund_amt,compute_amt,refund_int,bf_int_dt,back_div, sale_coop,sale_dt,sale_io,sale_no,seq_no ) values (:coop_c,:qb1.cust_cd,:slip_dt_c,v_act_cd,v_slip_no,1,:qb1.act_dt, v_refund_amt,:qb1.amt,0,:slip_dt_c,'1', :coop_c,:slip_dt_c,:io_slip_c,:slip_no_c,:seq_no); exception when others then bell; raise form_trigger_failure; end; /*********************************************************/ /* ǥȣ INSERT,UPDATE */ /*********************************************************/ begin insert into lfcmt340 (coop,slip_dt,slip_no) values (:coop_c,:slip_dt_c,v_slip_no); exception when dup_val_on_index then update lfcmt340 set slip_no = v_slip_no where coop = :coop_c and slip_dt = :slip_dt_c; when others then raise form_trigger_failure; end; END;,next_item N0800.` (8 (8  (8 (8 Q. <Q.|Q.|.|. ~|.|. . Q OnQnQnnnnnnr8808H:<;1  $ xNSLIP_NO2>/*********************************************************/ /* Ա,ǥ Ϸùȣ ο */ /*********************************************************/ PROCEDURE slip_no2 IS BEGIN begin select nvl(slip_no,0) + 1 into :slip_no_m from lfcmt340 where coop = :coop_c and slip_dt = :slip_dt_c and slip_no = (select max(slip_no) from lfcmt340 where coop = :coop_c and slip_dt = :slip_dt_c) FOR UPDATE OF slip_no; exception when no_data_found then :slip_no_m := 1; end; END;8808H:<;V1  $ NSLIP_NO2_INUPTPROCEDURE slip_no2_inupt IS BEGIN begin insert into lfcmt340 (coop,slip_dt,slip_no) values (:coop_c,:slip_dt_c,:slip_no_m_i); exception when dup_val_on_index then update lfcmt340 set slip_no = :slip_no_m_i where coop = :coop_c and slip_dt = :slip_dt_c; when others then raise form_trigger_failure; end; END;n when others then raise form_trigger_failure; end; END;=8800y 88008808H:S<1  $ NSEQ_CHKPROCEDURE seq_chk IS BEGIN /***********************************************************/ /* Է½ ȸ庰Ϸùȣο */ /***********************************************************/ begin select nvL(max(seq_no),0) + 1 into :seq_no from lfcmt300 where coop = substr(:coop_c,1,5)||'0'; exception when no_data_found then :seq_no := 1; end; END;8800  4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000 <r8808H:B <O;PQ1  $ NINS_CHK2PROCEDURE ins_chk2 IS v_in_sum number(9); BEGIN if :sale_style in ('2','3') and :normal in ('10','19') then begin select in_sum into v_in_sum from lfsgt410 where coop = :coop_c and cust_cd = :credit_cust and slip_dt = :slip_dt_c and io_slip = :io_slip_c and slip_no = :slip_no_c; exception when others then v_in_sum := 0; end; if nvl(v_in_sum,0) != 0 then bell; :message := ' ȯݾȯ ݾ ־ Ҽ ϴ...ܢܢ'; raise form_trigger_failure; end if; end if; END;8800 ********************************************/ :system.message_level := 25; :usrid := :global.usrid; :usrnm := :global.usrnm; :pgmid := :global.pgmid; :sysdt := :global.sysdt; :slip_dt_c := substr(:sysdt,1,4)||substr(:sysdt,6,2)||substr(:sysdt,9,2); :coop_c := :global.coop; if populate_group('rg_io_slip') = 0 then populate_list('io_slip_c' ,'rg_io_slip'); populate_list('cb3.io_slip','rg_io_slip'); end if; if populate_group('rg_vat') = 0 then populate_list('vat_div','rg_vat'); end if; if populate_group('rg_style') = 0 then populate_list('sale_style','rg_style'); end if; if populate_group('rg_car_div') = 0 then populate_list('car_div','rg_car_div'); end if; :message := msg_dsp('20001');  END;WHEN-NEW-FORM-INSTANCE (Form)rd; END;ERY begin select nvl(remarks,0) into :vat_rat from lfcmt120 where lcd = 'TAX' and dcd = :vat_div; exception when no_data_found then :vat_rat := 0; end;  END; WHEN-VALIDATE-ITEM (QB1.VAT_DIV)۽ ܰ END;ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)80008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080000r8808H:j1  $$N ITEM_JAN_QTYEPROCEDURE item_jan_qty IS v_qty311_jan number(12); v_qty312_jan number(12); v_qty511_jan number(12); BEGIN v_qty311_jan := 0; v_qty312_jan := 0; v_qty511_jan := 0; begin select sum(nvl(prdt_qty,0)) into v_qty311_jan from lfprt311 where prdt_dt between substr(:cb1.slip_dt_c,1,6)||'01' and :cb1.slip_dt_c and item_cd2 = :qb2.item_cd; exception when no_data_found then v_qty311_jan := 0; end; begin select sum(nvl(slip_qty,0)) into v_qty312_jan from lfprt312 where slip_dt between substr(:cb1.slip_dt_c,1,6)||'01' and :cb1.slip_dt_c and item_cd = :qb2.item_cd; exception when no_data_found then v_qty312_jan := 0; end; begin select sum(nvl(in_qty,0)) into v_qty511_jan from lfsgt511 where yymm = substr(:cb1.slip_dt_c,1,6) and item_cd = :qb2.item_cd; exception when no_data_found then v_qty511_jan := 0; end; :qb2.pre_qty := (nvl(v_qty311_jan,0) + nvl(v_qty511_jan,0)) - nvl(v_qty312_jan,0); END; ; ENDR08n when She08 raiseVor08ilure; Yen08\=0800^y08 88_0p08a08d08Sg<08 $ h08KiRO08hk IS BEmN  08********n**008********o**@08**/ /*pԷP08庰Ϸqȣ`08 r 08********s**08**********88********/  88select n(m088) + 1 in :@88 lfcmt30 P88op = subr(:coop_c,1,5)||'0'; exception when no_data_found then :seq_no := 1; end; END;8800  4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000@$r8808H:efOW<;PQ/DXN1  $&NPOST_QUERY_CHKPROCEDURE post_query_chk IS BEGIN -- ŷó,,ŷó QUERY begin select cust_nm,area,credit_cust into :cust_cd_d,:area_c,:credit_cust from lfsgt100 where cust_cd = :qb1.cust_cd; exception when no_data_found then :cust_cd_d := null; :area_c := null; :credit_cust := null; end; -- ,ΰ QUERY begin select cust_nm,vat_div into :car_no_d,:car_vat_div from lfsgt100 where cust_cd = :car_no and cust_div = '8'; exception when no_data_found then :car_no_d := null; :car_vat_div := null; end; -- ŷó NULL̸ ŷó if :credit_cust is null then :credit_cust := :qb1.cust_cd; end if; -- Ա/޳ ǥȣ QUERY begin select min(slip_no) into :slip_no_m from lfsgt340 where pre_coop = :coop_c and pre_slip_dt = :slip_dt_c and pre_io_slip = :io_slip_c and pre_slip_no = :slip_no_c; exception when no_data_found then :slip_no_m := null; end; -- ǰ ΰ QUERY begin select nvl(remarks,0) into :vat_rat from lfcmt120 where lcd = 'TAX' and dcd = :vat_div; exception when no_data_found then :vat_rat := 0; end; -- ΰ QUERY begin select nvl(chk1,0) into :car_vat_rat from lfcmt120 where lcd = 'TAX' and dcd = :car_vat_div; exception when no_data_found then :car_vat_rat := 0; end; -- ǰ񱸺м if :car_div in ('1','2','3') then :item4 := '1'; else :item4 := null; end if; -- Ѵް ŷó հ -- qty_chk; END; efOW<;PQ/DXNption when no_data_found then :seq_no := 1; end; END;8800  4 "PKG INIT"":normal""!%&(,0  N )( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $$   $!T<11D #( N  := 0; go_item('qb1.act_dt'); :nor_gubun := '1'; if :system.current_block = 'QB1' and :system.record_status = 'INSERT' then show_view ('CAN_SEL'); go_block('SB1'); get_data; if :sb1.w_baesong_num is null then :message := 'ȸ ڷᰡ ϴ'; else go_block('SB2'); get_data_d; end if; go_block('SB1'); else :message := 'ȸҼ ϴ'; do_key('next_item'); end if; END;'WHEN-BUTTON-PRESSED (QB1.BEASONG_SEL_B)8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000Prz8808xbbH:BCD0EFHIJ1  $&NORDER_LFSGT310VPROCEDURE order_lfsgt310 IS /* ֹ ϶ ȸ */ BEGIN begin select sale_style,cust_div,cust_cd,car_div,car_no,vat_div into :sale_style,:cust_div,:qb1.cust_cd,:car_div,:car_no,:vat_div from lfsgt310 where order_dt = :qb1.order_dt and order_no = :qb1.order_no and normal = '10' and car_div > 3 ; exception when no_data_found then :sale_style := null; :cust_div := null; :qb1.cust_cd := null; :car_div := null; :car_no := null; :qb1.amt := null; :vat := null; :vat_div := null; :draw_ask := null; :trns_coop := null; :order_no := null; :pallet_cnt := null; :house_cnt := null; end; /* begin select cust_nm,area,credit_cust into :cust_cd_d,:area_c,:credit_cust from lfsgt100 where cust_cd = :qb1.cust_cd and cust_div < '8'; exception when no_data_found then :cust_cd_d := null; :area_c := null; :credit_cust := null; end; */ END; BCD0EFHIJ= 'Y'; elsif substr(:qb2.item_cd,6,1) = '2' and :car_div = '5' then :item_gu := 'N'; end if; */ synchronize; next_record; END LOOP; CLOSE lfsgt302_cursor; previous_record; END;pulate_list('cb3.io_slip','rg_io_slip'); end if; if populate_group('rg_vat') = 0 then populate_list('vat_div','rg_vat'); end if; if populate_group('rg_style') = 0 then populate_list('sale_style','rg_style'); end if; if populate_group('rg_car_div') = 0 then populate_list('car_div','rg_car_div'); end if; :message := msg_dsp('20001');  END;WHEN-NEW-FORM-INSTANCE (Form) order_no = :qb1.order_no order by item_div,item_cd ; BEGIN go_block('qb2'); OPEN lfsgt302_cursor; LOOP FETCH lfsgt302_cursor INTO v_item_div,v_item_cd,v_qty,v_sale_amt,v_cost, v_amt,v_vat_amt; EXIT WHEN lfsgt302_cursor%NOTFOUND; :qb2.item_div := v_item_div; :qb2.item_cd := v_item_cd; :qb2.item_cd_d := readitem(v_item_div,v_item_cd); :qb2.qty := v_qty; :qb2.sale_amt:= v_sale_amt; :qb2.cost := v_cost; :qb2.amt := v_amt; :qb2.vat_amt := v_vat_amt; synchronize; next_record; END LOOP; CLOSE lfsgt302_cursor; previous_record; END; ijk@lm,n 8808H: 1  $&NORDER_LFSGT310_UPT*PROCEDURE order_lfsgt310_upt IS BEGIN if :normal = '10' then begin update lfsgt310 set complete_ask = '2' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; elsif :normal = '19' then begin update lfsgt310 set complete_ask = '1' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; end if; END;  800080008000800080008000800080008000800080008000800080008000`|rw8808u__H: ijk@lm,n1  $&#NORDER_LFSGT311PROCEDURE order_lfsgt311 IS /* ֹ ϶ ȸ */ v_item_div lfsgt311.item_div%TYPE; v_item_cd lfsgt311.item_cd%TYPE; v_qty lfsgt311.qty%TYPE; v_sale_amt lfsgt311.sale_amt%TYPE; v_cost lfsgt311.cost%TYPE; v_amt lfsgt311.amt%TYPE; v_vat_amt lfsgt311.vat_amt%TYPE; CURSOR lfsgt302_cursor is select item_div,item_cd,qty,sale_amt,cost,amt,vat_amt from lfsgt311 where order_dt = :qb1.order_dt and order_no = :qb1.order_no order by item_div,item_cd ; BEGIN go_block('qb2'); OPEN lfsgt302_cursor; LOOP FETCH lfsgt302_cursor INTO v_item_div,v_item_cd,v_qty,v_sale_amt,v_cost, v_amt,v_vat_amt; EXIT WHEN lfsgt302_cursor%NOTFOUND; :qb2.item_div := v_item_div; :qb2.item_cd := v_item_cd; :qb2.item_cd_d := readitem(v_item_div,v_item_cd); :qb2.qty := v_qty; :qb2.sale_amt:= v_sale_amt; :qb2.cost := v_cost; :qb2.amt := v_amt; :qb2.vat_amt := v_vat_amt; synchronize; next_record; END LOOP; CLOSE lfsgt302_cursor; previous_record; END; ijk@lm,nge_level := 25; :usrid := :global.usrid; :usrnm := :global.usrnm; :pgmid := :global.pgmid; :sysdt := :global.sysdt; :slip_dt_c := substr(:sysdt,1,4)||substr(:sysdt,6,2)||substr(:sysdt,9,2); :coop_c := :global.coop; if populate_group('rg_io_slip') = 0 then populate_list('io_slip_c' ,'rg_io_slip'); populate_list('cb3.io_slip','rg_io_slip'); end if; if populate_group('rg_vat') = 0 then populate_list('vat_div','rg_vat'); end if; if populate_group('rg_style') = 0 then populate_list('sale_style','rg_style'); end if; if populate_group('rg_car_div') = 0 then populate_list('car_div','rg_car_div'); end if; :message := msg_dsp('20001');  END;WHEN-NEW-FORM-INSTANCE (Form) BEGIN go_block('qb2'); OPEN lfsgt302_cursor; LOOP FETCH lfsgt302_cursor INTO v_item_div,v_item_cd,v_qty,v_sale_amt,v_cost, v_amt,v_vat_amt; EXIT WHEN lfsgt302_cursor%NOTFOUND; :qb2.item_div := v_item_div; :qb2.item_cd := v_item_cd; :qb2.item_cd_d := readitem(v_item_div,v_item_cd); :qb2.qty := v_qty; :qb2.sale_amt:= v_sale_amt; :qb2.cost := v_cost; :qb2.amt := v_amt; :qb2.vat_amt := v_vat_amt; synchronize; next_record; END LOOP; CLOSE lfsgt302_cursor; previous_record; END; ijk@lm,n 8808H: 1  $&NORDER_LFSGT310_UPT*PROCEDURE order_lfsgt310_upt IS BEGIN if :normal = '10' then begin update lfsgt310 set complete_ask = '2' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; elsif :normal = '19' then begin update lfsgt310 set complete_ask = '1' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; end if; END;  800080008000800080008000800080008000800080008000800080008000ppr8808H: 1  $&NORDER_LFSGT310_UPT*PROCEDURE order_lfsgt310_upt IS BEGIN if :normal = '10' then begin update lfsgt310 set complete_ask = '2' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; elsif :normal = '19' then begin update lfsgt310 set complete_ask = '1' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; end if; END;  $8@00" $8@00" $8@00"N $8@00"8( P(00 x#$%&8Nblack,00 x $ & (*Nwhite)00 x# $&'Ngreen-00 x' (*+N darkgreen,00 x $ & (*8Ngray96 = = =,00 x $ & (*8Ngray92zzz,00 x $ & (*8Ngray88,00 x $ & (*8Ngray84((()00 x$%&'8Nr0g0b0,00 x &()*8 Nr25g0b0@,00 x &()*8 Nr50g0b0,00 x &()*8 Nr75g0b0,00 x &()*8 Nr88g0b0,00 x &()*8 Nr100g0b0,00 x%& (*8Nr0g0b50.00 x &( *,8Nr25g0b50@8.00 x &( *,Nr50g0b50po.00 x &( *,Nr75g0b50 2.00 x &( *,0Nr88g0b50000 x (* ,.pN r100g0b50,00 x%& (*NNr0g0b75.00 x &( *,Nr25g0b75@0.00 x &( *,0gNr50g0b75.00 x &( *,0gNr75g0b75.00 x &( *,g8Nr88g0b7500000 x (* ,.8N r100g0b75r100r0g100b88408 x" , . 02v_N r100r25g100b88@408 x" , . 02 N r100r50g100b88408 x" , . 02sgN r100r75g100b88408 x" , . 02; N r100r88g100b88608 x" . 0 24= N r100r100g100b88; 408 x", . 02; N r100r0g100b100608 x" . 0 24v_N r100r25g100b100@ 608 x" . 0 24mtN r100r50g100b100_r608 x" . 0 24 lN r100r75g100b100or608 x" . 0 24N r100r88g100b100608 x" . 0 24,N r100r100g100b100*:BF( (((( SQL*Forms`FORM50N r88g25b75@000 x ( * ,.yl?N r100g25b75@.00 x& ( *,di@Nr0g25b885@te_list('car_div','rg_car_div'); end if; :message := msg_dsp('20001');  END;WHEN-NEW-FORM-INSTANCE (Form) BEGIN go_block('qb2'); OPEN lfsgt302_cursor; LOOP FETCH lfsgt302_cursor INTO v_item_div,v_item_cd,v_qty,v_sale_amt,v_cost, v_amt,v_vat_amt; EXIT WHEN lfsgt302_cursor%NOTFOUND; :qb2.item_div := v_item_div; :qb2.item_cd := v_item_cd; :qb2.item_cd_d := readitem(v_item_div,v_item_cd); :qb2.qty := v_qty; :qb2.sale_amt:= v_sale_amt; :qb2.cost := v_cost; :qb2.amt := v_amt; :qb2.vat_amt := v_vat_amt; synchronize; next_record; END LOOP; CLOSE lfsgt302_cursor; previous_record; END; ijk@lm,n 8808H: 1  $&NORDER_LFSGT310_UPT*PROCEDURE order_lfsgt310_upt IS BEGIN if :normal = '10' then begin update lfsgt310 set complete_ask = '2' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; elsif :normal = '19' then begin update lfsgt310 set complete_ask = '1' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; end if; END;  800080008000800080008000800080008000800080008000800080008000r000 x ( * ,._AN r25g25b88@@000 x ( * ,.NBN r50g25b88@000 x ( * ,.NCN r75g25b88@000 x ( * ,.NDN r88g25b88@000 x ( * ,.NEN r100g25b88@.00 x' ( *,NFN r0g25b100@000 x ( * ,.NGN r25g25b100@@000 x ( * ,.HN r50g25b100@000 x ( * ,.IN r75g25b100@000 x ( * ,.JN r88g25b100@200 x * , .0KN r100g25b100@0(00 x "$%&00LNred,00 x &()*NMNdarkred(00 x"# $&NNNblue,00 x&' (* &ONdarkblue,00 x $ & (* *PNgray64\(\(\(,00 x $ & (* $QNgray60ffffff,00 x $ & (* $RNgray56ppp,00 x $ & (* $SNgray52zzz+00 x% &() $TNr0g50b0y-00 x & (*+%UNr25g50b0@b0-00 x & (*+*VNr50g50b0@-00 x & (*+*WNr75g50b0@-00 x & (*+*XNr88g50b0@/00 x ( *,-*YN r100g50b0.00 x& ( *,,ZNr0g50b50000 x ( * ,. *[N r25g50b50@000 x ( * ,. ,\N r50g50b50000 x ( * ,. ,]N r75g50b50000 x ( * ,. ,^N r88g50b50000 x ( * ,. ,_N r100g50b50.00 x& ( *, ,`Nr0g50b750000 x ( * ,. *aN r25g50b75@000 x ( * ,. ,bN r50g50b75000 x ( * ,. ,cN r75g50b75000 x ( * ,. ,dN r88g50b75000 x ( * ,. ,eN r100g50b75.00 x& ( *, ,fNr0g50b885000 x ( * ,. *gN r25g50b88@te_list('car_div','rg_car_div'); end if; :message := msg_dsp('20001');  END;WHEN-NEW-FORM-INSTANCE (Form) BEGIN go_block('qb2'); OPEN lfsgt302_cursor; LOOP FETCH lfsgt302_cursor INTO v_item_div,v_item_cd,v_qty,v_sale_amt,v_cost, v_amt,v_vat_amt; EXIT WHEN lfsgt302_cursor%NOTFOUND; :qb2.item_div := v_item_div; :qb2.item_cd := v_item_cd; :qb2.item_cd_d := readitem(v_item_div,v_item_cd); :qb2.qty := v_qty; :qb2.sale_amt:= v_sale_amt; :qb2.cost := v_cost; :qb2.amt := v_amt; :qb2.vat_amt := v_vat_amt; synchronize; next_record; END LOOP; CLOSE lfsgt302_cursor; previous_record; END; ijk@lm,n 8808H: 1  $&NORDER_LFSGT310_UPT*PROCEDURE order_lfsgt310_upt IS BEGIN if :normal = '10' then begin update lfsgt310 set complete_ask = '2' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; elsif :normal = '19' then begin update lfsgt310 set complete_ask = '1' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; end if; END;  800080008000800080008000800080008000800080008000800080008000r000 x ( * ,._hN r50g50b88000 x ( * ,.NiN r75g50b88000 x ( * ,.NjN r88g50b88000 x ( * ,.NkN r100g50b88.00 x' ( *,NlN r0g50b100000 x ( * ,.NmN r25g50b100@000 x ( * ,.NnN r50g50b100000 x ( * ,.oN r75g50b100000 x ( * ,.pN r88g50b100200 x * , .0qN r100g50b100+00 x $ &()NrNyellow/00 x ( *,-%sN darkyellow.00 x &( *,NtNmagenta200 x *, .0uN darkmagenta&,00 x $ & (*vNgray48,00 x $ & (*\(wNgray44\\\,00 x $ & (*ffxNgray40,00 x $ & (*pyNgray36ףף+00 x% &()zzNr0g75b0%-00 x & (*+y{Nr25g75b0@(*-00 x & (*+0|Nr50g75b0(*-00 x & (*+@}Nr75g75b0(*-00 x & (*+@~Nr88g75b0(*/00 x ( *,-@N r100g75b0,208 x"* , .0Nr100r0g75b50,408 x" , . 02N r100r25g75b50@408 x" , . 02N r100r50g75b50408 x" , . 020N r100r75g75b50408 x" , . 02N r100r88g75b50408 x" , . 02 (N r100r100g75b50208 x"* , .0 *Nr100r0g75b750408 x" , . 02 *N r100r25g75b75@408 x" , . 02NN r100r50g75b75408 x" , . 02N r100r75g75b75408 x" , . 028gN r100r88g75b75408 x" , . 020bN r100r100g75b75208 x"* , .0Nr100r0g75b885 ,408 x" , . 02N r100r25g75b88@div'); end if; :message := msg_dsp('20001');  END;WHEN-NEW-FORM-INSTANCE (Form) BEGIN go_block('qb2'); OPEN lfsgt302_cursor; LOOP FETCH lfsgt302_cursor INTO v_item_div,v_item_cd,v_qty,v_sale_amt,v_cost, v_amt,v_vat_amt; EXIT WHEN lfsgt302_cursor%NOTFOUND; :qb2.item_div := v_item_div; :qb2.item_cd := v_item_cd; :qb2.item_cd_d := readitem(v_item_div,v_item_cd); :qb2.qty := v_qty; :qb2.sale_amt:= v_sale_amt; :qb2.cost := v_cost; :qb2.amt := v_amt; :qb2.vat_amt := v_vat_amt; synchronize; next_record; END LOOP; CLOSE lfsgt302_cursor; previous_record; END; ijk@lm,n 8808H: 1  $&NORDER_LFSGT310_UPT*PROCEDURE order_lfsgt310_upt IS BEGIN if :normal = '10' then begin update lfsgt310 set complete_ask = '2' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; elsif :normal = '19' then begin update lfsgt310 set complete_ask = '1' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; end if; END;  800080008000800080008000800080008000800080008000800080008000r408 x" , . 02_N r100r50g75b88408 x" , . 02NN r100r75g75b88408 x" , . 02N r100r88g75b88408 x" , . 0200N r100r100g75b88208 x"+ , .010N r100r0g75b100 (408 x" , . 02@N r100r25g75b100@408 x" , . 02N r100r50g75b100408 x" , . 02N r100r75g75b100408 x" , . 02N r100r88g75b100608 x" . 0 24N r100r100g75b100ll208 x" * , .0 (Nr100custom1208 x" * , .0 *Nr100custom2208 x" * , .0Nr100custom3&208 x" * , .0Nr100custom4008 x" ( * ,.Nr100gray32008 x" ( * ,.ayNr100gray28QQQ008 x" ( * ,.Nr100gray24008 x" ( * ,.%Nr100gray20/08 x") *,-*Nr100r0g88b0*108 x" * ,./*Nr100r25g88b0@+@108 x" * ,./Nr100r50g88b0~N108 x" * ,./Nr100r75g88b0108 x" * ,./8Nr100r88g88b0100308 x" , .018N r100r100g88b00208 x"* , .08Nr100r0g88b5000408 x" , . 028N r100r25g88b50@408 x" , . 028N r100r50g88b50408 x" , . 028N r100r75g88b50408 x" , . 028N r100r88g88b50408 x" , . 028N r100r100g88b50208 x"* , .08Nr100r0g88b75000408 x" , . 028N r100r25g88b75@408 x" , . 028N r100r50g88b75408 x" , . 028N r100r75g88b75408 x" , . 028N r100r88g88b75408 x" , . 028N r100r100g88b75r25g75b88@div'); end if; :message := msg_dsp('20001');  END;WHEN-NEW-FORM-INSTANCE (Form) BEGIN go_block('qb2'); OPEN lfsgt302_cursor; LOOP FETCH lfsgt302_cursor INTO v_item_div,v_item_cd,v_qty,v_sale_amt,v_cost, v_amt,v_vat_amt; EXIT WHEN lfsgt302_cursor%NOTFOUND; :qb2.item_div := v_item_div; :qb2.item_cd := v_item_cd; :qb2.item_cd_d := readitem(v_item_div,v_item_cd); :qb2.qty := v_qty; :qb2.sale_amt:= v_sale_amt; :qb2.cost := v_cost; :qb2.amt := v_amt; :qb2.vat_amt := v_vat_amt; synchronize; next_record; END LOOP; CLOSE lfsgt302_cursor; previous_record; END; ijk@lm,n 8808H: 1  $&NORDER_LFSGT310_UPT*PROCEDURE order_lfsgt310_upt IS BEGIN if :normal = '10' then begin update lfsgt310 set complete_ask = '2' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; elsif :normal = '19' then begin update lfsgt310 set complete_ask = '1' where order_dt = :qb1.order_dt and order_no = :qb1.order_no; exception when others then null; end; end if; END;  800080008000800080008000800080008000800080008000800080008000 xr208 x"* , .0BUNr100r0g88b885's408 x" , . 02NN r100r25g88b88@408 x" , . 02SLN r100r50g88b88408 x" , . 02N r100r75g88b88408 x" , . 02iSN r100r88g88b88408 x" , . 02@N r100r100g88b88208 x"+ , .0N r100r0g88b100ta408 x" , . 02boN r100r25g88b100@408 x" , . 02CON r100r50g88b100408 x" , . 02N r100r75g88b100408 x" , . 02N r100r88g88b100608 x" . 0 24 (N r100r100g88b100 208 x" * , .0-Nr100custom5&208 x" * , .0_CNr100custom6208 x" * , .0NNr100custom7%208 x" * , .0Nr100custom8008 x" ( * ,.Nr100gray16 008 x" ( * ,.Nr100gray12GGG008 x" ( * ,.Nr100gray8008 x" ( * ,.**Nr100gray4108 x"* ,./ Nr100r0g100b0308 x" , .01 N r100r25g100b0@308 x" , .01sgN r100r50g100b0*308 x" , .010,N r100r75g100b0*308 x" , .01N r100r88g100b0308 x" , .01**N r100r100g100b0*208 x"+ , .0leN r100r0g100b50lo408 x" , . 02baN r100r25g100b50@408 x" , . 02syN r100r50g100b50408 x" , . 026,N r100r75g100b50408 x" , . 02poN r100r88g100b50608 x" . 0 24ioN r100r100g100b50pu208 x"+ , .0g_N r100r0g100b75la408 x" , . 02n N r100r25g100b75@408 x" , . 02atN r100r50g100b75408 x" , . 02ylN r100r75g100b75408 x" , . 02) N r100r88g100b75608 x" . 0 24 iN r100r100g100b75')208 x"+ , .0RMN r100r0g100b88408 x" , . 02v_N r100r25g100b88@408 x" , . 02 N r100r50g100b88408 x" , . 02sgN r100r75g100b88408 x" , . 02; N r100r88g100b88608 x" . 0 24= N r100r100g100b88; 408 x", . 02; N r100r0g100b100608 x" . 0 24v_N r100r25g100b100@ 608 x" . 0 24mtN r100r50g100b100_r608 x" . 0 24 lN r100r75g100b100or608 x" . 0 24N r100r88g100b100608 x" . 0 24,N r100r100g100b100*:BF( (((( SQL*Forms`FORM50>>"NVVVVVVVVVVVVVVVVVVVVVVVV>>      $ USLSGE1020ǥWIN_1020mainmnu E89898:\8:8;8;8;88>\8>8? 8?d8?8@<8@9 D9u:WHEN-NEW-FORM-INSTANCEWHEN-NEW-FORM-INSTANCE:, D:Du:WHEN-TIMER-EXPIREDWHEN-TIMER-EXPIRED: D:u:PRE-COMMITPRE-COMMIT: D;Iu:POST-FORMS-COMMITPOST-FORMS-COMMIT;TD;l u:WHEN-MOUSE-ENTERWHEN-MOUSE-ENTER;D;4u:KEY-NEXT-ITEMKEY-NEXT-ITEM<D<0Wu:KEY-PREV-ITEMKEY-PREV-ITEM<|D< iu:KEY-CLRBLKKEY-CLRBLK<D< u:KEY-UPKEY-UP=$D=4 u:KEY-DOWNKEY-DOWN=|D=  cu:KEY-LISTVALKEY-LISTVAL=D= 4u:KEY-SCRDOWNKEY-SCRDOWN><D>L u:KEY-EXITKEY-EXIT>D>u:KEY-COMMITKEY-COMMIT>D> u:KEY-PRINTKEY-PRINT?DD?T0u:KEY-SCRUPKEY-SCRUP?D?}u:WHEN-LIST-CHANGEDWHEN-LIST-CH lANGED@D@ u:WHEN-WINDOW-RESIZEDWHEN-WINDOW-RESIZED@tD@u:KEY-HELPKEY-HELP@D@u:KEY-OTHERSKEY-OTHERSA$ABxCHAlA|3A HAn/CAUTIONCAUTIONDEFAULTB(  B43B@ BL BTB` HBhn  /NOTE1NOTE1Ȯ ȮDEFAULTB! B3C C C$C0HC8n/STOPSTOPϽðڽϱ?YESNODEFAULTC" C3C C DD HDn/NOTENOTEȮ Ͻðڽϱ?YESNODEFAULT# DHD$DD/ NACFNACFnacf% Erh"<E4E|& E   (HEE/CB1CB1DEFAULT'&FHJM4NXO0PQ@RpSTUdVDW$X(YhZ[],^h_P`acd<e$fgghi|ij\jklln`pG(EG  nG H!Htbu9iNy}[lHH,[H@:HT/Z rSLIP_DT_CSLIP_DT_C9999"/"99"/"99SLIP_DTCAN1r0g0b100r88g100b100transparent)E8HtH*DFHu:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEMI+EII!Jtu8i_y}[lJ(J8[JL:J`/Z rIO_SLIP_CIO_SLIP_C,#I-"HJ GJCAN1r0g0b100r88g100b100transparent.E8JJ/DHJu:WHEN-NEW-ITEM-INSTANCEWHEN-NEW-ITEM-INSTANCEK0EK nK!Ktu9i/y}[lLL[L(:L</Z rSLIP_NO_CSLIP_NO_CCAN1r0g0b100r88g100b100transparent1E8Ld8LL2DJL u:KEY-NEXT-ITEMKEY-NEXT-ITEML3DJMu:WHEN-NEW-ITEM-INSTANCEWHEN-NEW-ITEM-INSTANCEN4EN 9NV%nN,N4J!N<tu"i2y}[HNHCOOP_CCOOP_CڵCAN1DEFAULTN5EN 9OJ!Otu"i2y}[HO CHKCHKNULL üũCAN1DEFAULTO6EO J!OtuBi2y}[HO|P / lITEM_DIV_CITEM_DIV_CCAN1DEFAULTǰ񱸺P7EP 9QV%nQQJ!Q$t5u"i2y}[HQ0AREA_CAREA_CڵCAN1DEFAULTR8ER$ 9R0V%nRDRLJ!RTt5u2i2y}[HR`BASE_CBASE_Cȯ귮CAN1DEFAULTSH9ESX 9ShV%nSxSJ!St5uBi2y}[HSVAT_RATVAT_RATΰCAN1DEFAULTT<:ETH 9TTJ!Thtu2i2y}[HTtQTY_I1QTY_I1ӽúCAN1DEFAULTU;EU( 9U4J!UHtguBi2y}[HUTQTY_I2QTY_I2KGӽúCAN1DEFAULTU<EV 9VJ!V(tgu"i2y}[HV4AMT_IAMT_IݾӽúCAN1DEFAULTV=EV 9VJ!Wtgu2i2y}[HWAMT1_IAMT1_IüӽñݾCAN1DEFAULTW>EW 9WXJ!X tu2i2y}[HX/NORMAL_INORMAL_I,ǰ,ұCAN1DEFAULTY?EY 9Y(V%nY<YDJ!YLtu"i2y}[HYXCAR_VAT_DIVCAR_VAT_DIVΰCAN1DEFAULTZ8@EZL 9Z`V%nZtZ|J!ZtuBi2y}[HZCREDIT_CUSTCREDIT_CUSTŷóڵCAN1DEFAULT[xAE[ 9[V%n[[J![tu2i2y}[H[SLIP_NO_MSLIP_NO_MԱ/ǥ ǥȣCAN1DEFAULT\BE\ 9\V%n]]J!]tuBi3y}[H]SLIP_NO_M_ISLIP_NO_M_IԱ/ǥ ǥȣӽCAN1DEFAULT^CE^ 9^,V%n^<^DJ!^Ltu2i2y}[H^XCAR_VAT_RATCAR_VAT_RATΰCAN1DEFAULT_DE_ 9_ J!_4tu"i2y}[H_@VAT_AMT_IVAT_AMT_IΰӽúCAN1DEFAULT`@EE`P V``  0l BJ!`ptuBi2y}[H`||`/SEQ_NO11SEQ_NO11Hand DtCAN1DEFAULTEnter value for : HAND_DTa|FEa 9aV%naaJ!at/u1i2y}[HaITEM4ITEM4ũ뱸CAN1DEFAULTbGEb 9bV%nbbJ!bt0uBi2y}[HbINS_CHKINS_CHKŷóڵCAN1DEFAULTcHEc 9cV%nddJ!d t/u"i2y}[Hd,SUN_AMTSUN_AMTũ뱸CAN1DEFAULTdIEd 9dJ!etau2i2y}[HeASS_AMT_IASS_AMT_IڱӽúCAN1DEFAULTeJEe 9eJ!ftau"i2y}[Hf ASS_AMT_CASS_AMT_CڱӽúCAN1DEFAULTfKEf 9fJ!ftu2i2y}[HfAPP_AMT_IAPP_AMT_IڱӽúCAN1DEFAULTgLEg 9gJ!gtu"i2y}[HgAPP_AMT_CAPP_AMT_CڱӽúCAN1DEFAULThMEhVJ!htcuBi7y}[HhAGR_PARTAGR_PARTCAN1DEFAULTiHNEiTVJ!i`tuDi2y}[HilV_AGRV_AGRCAN1DEFAULTiOEiJi5y /PUT_CHECKPUT_CHECKj<PEjLi5y /DANGA_CHKDANGA_CHKjQEjJi5y/SAVE_SERVICE_CHKSAVE_SERVICE_CHKk<REkTJi5y/SAVE_SERVICE_CHK1SAVE_SERVICE_CHK1l SEll,!l<t u9i7y}[HlH:lX/SLIP_DT_BSLIP_DT_BǸCAN1DEFAULTTE8lxlUDkllu:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDmVEmm!mt'ui<y}[Hm:m/ITEM_CD_BITEM_CD_BǰCAN1DEFAULTWE8mn(XDlnDu:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDo(YEo8oHoTtuiy}[Ho`I :op/EXIT_CAN3EXIT_CAN3exitDEFAULTZE8o @lo[Dn`ou:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDp\Eqqq,!q4tquiey}[Hq@lqPgq`hjik:ql/Z ~HCACH_BBCACH_BBݿCAN1DEFAULTr50g0b0ü]E8qq^Dpq/Hu:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDr_r  rgr s(Hs$:s4tl/QB1QB1LFSGT320coop = :coop_c and slip_dt = :slip_dt_c and io_slip = :io_slip_c and slip_no = :slip_no_c LFSGT320DEFAULT`E8sd8s8tsaDrsu:POST-QUERYPOST-QUERYsbDrt3u:PRE-INSERTPRE-INSERTtLcDrt\ u:PRE-UPDATEPRE-UPDATEd4v$wyz|THhD80(XL ll<8D<d40ļLɤ̘w$erw0 Vw<wHBJ!wTtu_i<y}[Hw`|wp/COOPCOOPCoopCOOP_CCAN1DEFAULTEnter value for : COOPxfrx VxxBJ!xtuoi<y}[Hx|x/SLIP_DTSLIP_DTSlip DtSLIP_DT_CCAN1DEFAULTEnter value for : SLIP_DTzgrz Vz(z8BJ!zHtui<y}[HzT|zd/IO_SLIPIO_SLIPIo SlipIO_SLIP_CCAN1DEFAULTEnter value for : IO_SLIP{hr{ V{{BJ!{tui<y}[H{|{/SLIP_NOSLIP_NOSlip NoSLIP_NO_CCAN1DEFAULTEnter value for : SLIP_NO|ir|||!|iZy}[H|:|~T/NORMALNORMAL10CAN1DEFAULTjE8}8}|8}}LkD|}d  u:WHEN-RADIO-CHANGEDWHEN-RADIO-CHANGED}lD|}!u:WHEN-MOUSE-CLICKWHEN-MOUSE-CLICK~mD|~8")u:WHEN-MOUSE-DOUBLECLICKWHEN-MOUSE-DOUBLECLICKn?~tdo>|(4@t-u=i(y lHT[`/ZrGUBUN1GUBUN110blackgray16transparent p> Pl|$0tlu=i(y l8D[P/ZrGUBUN2GUBUN2ǰ11blackgray16transparentq>| tu=i(y l(4[@/ZrGUBUN3GUBUN319blackgray16transparent|rr" V n BJ!tbuYiRy}[l[|:/ZrACT_DTACT_DTAct Dt9999"/"99"/"99CAN1blackr88g100b100transparentEnter value for : ACT_DTsE8<8ttDT#u:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEMuDT$u:WHEN-NEW-ITEM-INSTANCEWHEN-NEW-ITEM-INSTANCEvr V n!tauliDyl$0g<hjik/Z~HBAESONG_DTBAESONG_DT9999"/"99"/"99CAN1blackwhitewr( V!8tuliylDPg\hjik/Z~HBAESONG_NOBAESONG_NOCAN1blackwhitexr$ V n BDJ!tbuiEy}[l [ |4:T/ZrCUST_CDCUST_CDCust CdX"-"XXXXXXXCUST_CDCAN1blackr88g100b100transparentEnter value for : CUST_CDyE8|8zDh% u:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEM{Dh0&@u:KEY-NEXT-ITEMKEY-NEXT-ITEM||r$ V n BDJ!tcuiSy}[l[| :,/ZrORDER_DTORDER_DTAct Dt9999"/"99"/"99ORDER_SELCAN1blackr88g100b100transparentEnter value for : ACT_DT}E8L~DD'u:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEMr$ V BDJ!,tui%y}[l8D[X|l:/ZrORDER_NOORDER_NOOrder NoORDER_SELCAN1blackr88g100b100transparentEnter value for : ORDER_NOE8D(ou:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEM<r"LV\lBJ!tbuiSy}[l[| :0/ZrSALE_STYLESALE_STYLESale Style `l#"GCAN1blackr88g100b100transparentEnter value for : SALE_STYLEE8PD)nu:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEMr"VBJ!ptuiOy}[l|[|:/ZrVAT_DIVVAT_DIVVat Div#0"`GhCAN1blackr88g100b100transparentEnter value for : VAT_DIVE88p88DT*u:WHEN-NEW-ITEM-INSTANCEWHEN-NEW-ITEM-INSTANCED+Ju:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEMD$,Ru:KEY-NEXT-ITEMKEY-NEXT-ITEMxr%V*A&BJ!tuXi"y}[l[|:/ZrDRAW_ASKDRAW_ASKYNCAN1blackgray8transparentE8HD8d-u:WHEN-CHECKBOX-CHANGEDWHEN-CHECKBOX-CHANGEDr"VBJ!8tu[iPy}[lDP[d|x:/ZrCAR_DIVCAR_DIVRemarks#"(G0CAN1blackr88g100b100transparentEnter value for : REMARKSE8808D.u:WHEN-LIST-CHANGEDWHEN-LIST-CHANGEDhD|/u:KEY-NEXT-ITEMKEY-NEXT-ITEMD0u:WHEN-NEW-ITEM-INSTANCEWHEN-NEW-ITEM-INSTANCEr V n BD!(tuqiHy}[l4@[T:h/ZrCAR_NOCAR_NOX"-"XXXXXXXCAR_NOCAN1blackr88g100b100transparentE8D1u:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEMr V!tuqijy}[l[|/ZrCAR_NO_DCAR_NO_DCAN1blackr88g100b100transparent(r8V*HAP&!Xtui"y}[ldp[|:/Zr PALLET_CNTPALLET_CNT12CAN1blackgray8transparentE8D02fu:WHEN-CHECKBOX-CHANGEDWHEN-CHECKBOX-CHANGED2r V p l!t,ui y}[l$0[D/ZrHOUSE_CNTHOUSE_CNTCAN1blackr88g100b100transparentxr! V((BJ!tuiy}[l[|:/ZrREMARKSREMARKSRemarksCAN1blackr88g100b100transparentEnter value for : REMARKSE8(`DXt3tu:KEY-NEXT-ITEMKEY-NEXT-ITEMr VBJ!tui<y}[H|,/CUST_DIVCUST_DIVCust Div#"GCAN1DEFAULTEnter value for : CUST_DIV<rL V\BJ!ltui<y}[Hx|/RELAT_NO1RELAT_NO1Relat No1CAN1DEFAULTEnter value for : RELAT_NO1r VBJ!tui<y}[H|/RELAT_NO2RELAT_NO2Relat No2CAN1DEFAULTEnter value for : RELAT_NO2r VBJ!,tui<y}[H8|H/RELAT_NO3RELAT_NO3Relat No3CAN1DEFAULTEnter value for : RELAT_NO3\rl V|BJ!tui<y}[H|/RELAT_NO4RELAT_NO4Relat No4CAN1DEFAULTEnter value for : RELAT_NO4r$ V n( BJ!8tiuiFy}[lDP[`gt|/ZLr~HVATVATVat9,999,999CAN1redr75g100b75transparentüEnter value for : VATr$ V n BJ!tuiFy}[l [0gD|P/ZLr~HASSASSVat9,999,999CAN1redr75g100b75transparentüEnter value for : VATr$ V n BJ!tYuiPy}[l[g| /ZLr~HAPPAPPVat9,999,999CAN1redr75g100b75transparentüEnter value for : VATtr$ !l V n BJ!tuidy}[l[g|/ZLr~HAMTAMTAmt999,999,999CAN1redr75g100b75transparentüEnter value for : AMT8r"D VP n\ BJ!ptuiUy}[l|[|/ZrQTY_T1QTY_T1Amt999,999,999CAN1blackr75g100b75transparentEnter value for : AMTr" VnBJ!(tuidy}[l4@[P|d/ZrQTY_T2QTY_T2Amt9,999,999,999CAN1blackr75g100b75transparentEnter value for : AMTr" V n BJ!tbuiny}[l[|/ZrS_AMTS_AMTAmt999,999,999CAN1blackr75g100b75transparentEnter value for : AMT(r8 VHBJ!Xtui<y}[Hd|t/TRNS_COOPTRNS_COOPTrns CoopCAN1DEFAULTEnter value for : TRNS_COOPr V  BJ!tui<y}[H|/USR_IDUSR_IDUsr IdCAN1DEFAULTEnter value for : USR_IDr V  BJ!tui<y}[H|$/HAND_DTHAND_DTHand DtCAN1DEFAULTEnter value for : HAND_DT4r@ VL  BJ!\tui<y}[Hh|x/SEQ_NOSEQ_NOHand DtCAN1DEFAULTEnter value for : HAND_DTxr V!tuiay}[l[|/ZrCUST_CD_DCUST_CD_DCAN1blackr88g100b100transparentr nJ!tui!ylghjik/Z~HBAESONGSC_DTBAESONGSC_DT9999"/"99"/"99CAN1blackwhiterJ! tui6yl$g0hjik/Z~HBAESONG_NUMBAESONG_NUMCAN1blackwhite #lr9i5y/JUNG_BAN_CHKJUNG_BAN_CHKչǰüũ,r<9Li5y/JUNG_CHKJUNG_CHKüũri5y/SLIP_DT_MASLIP_DT_MAr$i5y/IO_SLIP_MAIO_SLIP_MAri5y/SLIP_NO_MASLIP_NO_MATr`l|!„tquZidy}[H: /BTN1BTN1ŷACAN1DEFAULTE8D4u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDr!tqujidy}[H:,/BTN2BTN2ְŷǰSCAN1DEFAULTE8LĄD0Ġ5u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDlrxńŘ!Štquzidy}[HŬ:ż/BTN3BTN3ȮDCAN1DEFAULTE8Dļ06 u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDr(!0tquidy}[H<:L/BTN4BTN4̼ݿȸFCAN1DEFAULTE8lǤDL7u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDȬrȼJ!t*ui2y}[l[:/ZNrORDER_DT_BORDER_DT_BֹCAN1bluewhitetransparentE84lDɈ8u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDDrTd!pt)ui4y}[H|:ʌ/CUST_CD_BCUST_CD_BŷóCAN1DEFAULTE8ʬDɤ9u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED˼r!tTuqi8y}[H:/CAR_NO_BCAR_NO_BȣCAN1DEFAULTE8(`D|:u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDhr|͐!ͨtuWi[ylʹghjik:/&Z~HBEASONG_SEL_BBEASONG_SEL_BǥȸCAN1blackgrayE80D̘L/;:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED   (g8Ϙ ϰ(H:hQB2QB2CUR_RECLFSGT321 lcoop = :coop_c and slip_dt = :slip_dt_c and io_slip = :io_slip_c and slip_no = :slip_no_c item_div,item_cd LFSGT321DEFAULTE 808Ш88X8Ѱ88`8Ҹ8hDhЈ< {u:WHEN-NEW-BLOCK-INSTANCEWHEN-NEW-BLOCK-INSTANCEDh=u:PRE-BLOCKPRE-BLOCK8DhH>.u:PRE-RECORDPRE-RECORDѐDhѠ?u:POST-QUERYPOST-QUERYDh@u:PRE-INSERTPRE-INSERT@DhPAu:PRE-UPDATEPRE-UPDATEҘDhҨB3u:PRE-DELETEPRE-DELETEDhCu:KEY-DELRECKEY-DELRECHDhXD*u:KEY-CRERECKEY-CREREC Ո؀x߈8PH @ h, V8DBJ!PtDu_i(y }[H\|l/COOPCOOPCoopCOOP_CCAN1DEFAULTEnter value for : COOPֈh֘ Vָ֨BJ!tu_i(y }[H|/SLIP_DTSLIP_DTSlip DtSLIP_DT_CCAN1DEFAULTEnter value for : SLIP_DTh V$4BJ!Dtu_i(y }[HP|`/IO_SLIPIO_SLIPIo SlipIO_SLIP_CCAN1DEFAULTEnter value for : IO_SLIPـhِ V٠ٰBJ!tu_i(y }[H|/SLIP_NOSLIP_NOSlip NoSLIP_NO_CCAN1DEFAULTEnter value for : SLIP_NOh V,BJ!<tlu_i(y }[HH|X~/ITEM_DIVITEM_DIVItem DivITEM_DIV_CCAN1DEFAULTEnter value for : ITEM_DIVܨh#ܸ VBJ!t(ui<y}[l[|(:H|}/ZrITEM_CDITEM_CDItem CdITEM_CDCAN1r50g0b75r75g75b100transparentEnter value for : ITEM_CDE8hݠDxݸE u:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEMh" VBJ!(touixy}[l4D[T|hz{/ZrITEM_CD_DITEM_CD_DItem Cd lCAN1r50g0b75r75g75b100transparentEnter value for : ITEM_CDh" VBJ!tuiy}[l[|xy/ZrUNITUNITItem CdCAN1r50g0b75r75g75b100transparentEnter value for : ITEM_CDph$ V n. BJ!tui<y}[l[|vw/ZrCONV_QTY_DCONV_QTY_DPr Dt9,999,999CAN1r50g0b75r75g75b100transparentEnter value for : PR_DTDh#T Vd np BJ!tcuiFy}[l[|tu/ZrPRE_QTYPRE_QTYQty999,999,999CAN1r50g0b75r75g75b100transparentEnter value for : QTYh# V( n4 BJ!DtuiFy}[lP`[p|:rs/ZrQTYQTYQty9,999,999CAN1r50g0b75r75g75b100transparentEnter value for : QTYE880DFu:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEMhD|G\u:KEY-NEXT-ITEMKEY-NEXT-ITEMh$ V n BJ! tuiZy}[l([8|L:lpq/ZrSALE_AMTSALE_AMTSale Amt9,999,999.90CAN1r50g0b75r75g75b100transparentEnter value for : SALE_AMTE8DHu:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEMh V n BJ!t u_i(y }[H$|4no/COSTCOSTCostCAN1DEFAULTEnter value for : COSTXhh Vx n BJ!t4u_i(y }[H|lm/ASS_AMTASS_AMTAmt9,999,999CAN1DEFAULTEnter value for : AMTh V n BJ!t\u_i(y }[H|,jk/APP_AMTAPP_AMTAmt9,999,999CAN1DEFAULTEnter value for : AMTxh# V n BJ!tluidy}[l[|hi/ lZrAMTAMTAmt999,999,999CAN1r50g0b75r75g75b100transparentEnter value for : AMTh$ V4 n@ BJ!Ptu_i(y }[H\|lfg/VAT_AMTVAT_AMTAmt9,999,999CAN1DEFAULTEnter value for : AMTxh VBJ!tu_i(y }[H|de/PR_DTPR_DTPr DtCAN1DEFAULTEnter value for : PR_DTh V . BJ!tu_i(y }[H| bc/CONV_QTY1CONV_QTY1Pr DtCAN1DEFAULTEnter value for : PR_DT8hH VX .d BJ!ltu_i(y }[Hx|`a/CONV_QTY2CONV_QTY2Pr DtCAN1DEFAULTEnter value for : PR_DT  (H 0CB2CB2DEFAULT  |  p $ VnBDJ!t,u i.y}[l(4[H|\:d^_/ZNrCOOP_CCCOOP_CCCust CdCOOP_CD_CAN2CAN2bluer100g100b88transparentE88DIu:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEM,DHJu:WHEN-NEW-ITEM-INSTANCEWHEN-NEW-ITEM-INSTANCECOOP_DDCOOP_DDCAN2bluer100g100b88transparentCUST_CD_CCCUST_CD_CCCust CdCAN2,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $`!0  0808 HD1  $ wNP10_26_APR_200423_59_02BEGIN if :system.current_block in ('CB2','CB3') then clear_block(no_validate); go_item('act_dt'); hide_view ('CAN2'); elsif :system.current_block in ('SB1','SB2') then go_item('qb1.act_dt'); elsif :system.current_block = 'QB3' then next_item; if FORM_SUCCESS then previous_item; end if; if :system.last_record = 'TRUE' then previous_record; end if; if :global.cur_item is null then go_block('qb2'); else go_item(:global.cur_item); end if; erase('global.cur_item'); hide_view ('CAN3'); else set_alert_property('STOP',alert_message_text,msg_dsp('10002')); if show_alert('STOP') = alert_button1 then exit_form(no_validate); end if; end if; END;KEY-EXIT (Form)Sb ldt V!tZu i8y}[l[|ZNr$ V n BD$J!tu i;y}[l8D[X|l:\]/ZNrX"-"XXXXXXXCUST_CD_CAN2bluer100g100b88transparentEnter value for : CUST_CDE88DKu:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEMTDpLu:WHEN-NEW-ITEM-INSTANCEWHEN-NEW-ITEM-INSTANCEdt V!tu iQy}[l[|ZNrCUST_CD_DDCUST_CD_DDCAN2bluer100g100b88transparent  n !t{u i?y}[l[:ZNrSLIP_DT_CCSLIP_DT_CC9999"/"99"/"99SLIP_DT_CAN2CAN2bluer100g100b88transparent E8D8| DMu:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEM DN2u:KEY-NEXT-ITEMKEY-NEXT-ITEM !tu i$y}[H:[/COOP_BCOOP_BCAN2DEFAULT E8 DD `Ou:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED  , <! LtLu i.y}[H X: hZ/SLIP_DT_BBSLIP_DT_BBǸCAN2DEFAULTE8  D| Pu:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED   ! tu i$y}[H : Y/CUST_CD_BBCUST_CD_BBŷóCAN2DEFAULTE8  8D  TQu:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED   (tu%i-y}[H 8: HX/ACT_CD_BACT_CD_BDEFAULTE8 h D p Ru:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED    ! tuiy}[H I :W/EXIT_CAN2EXIT_CAN2exitCAN2DEFAULTE8$\D xSu:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDlx  gXBA ("&'4% H:(CB3CB3CUR_RECLFSGT320coop like :coop_cc||'%' and slip_dt like :slip_dt_cc||'%' and io_slip = :io_ lslip_c and cust_cd like :cust_cd_cc||'%' and normal between '10' and '10' and trns_coop = '888888'coop,slip_dt desc,io_slip,slip_no descLFSGT320CAN2DEFAULTE8DTu:POST-QUERYPOST-QUERYxtD@ V*A&BJ!tu4i y}[H|:UV/CHK_CCHK_CYNCAN2DEFAULT E8<!DxXUvu:WHEN-CHECKBOX-CHANGEDWHEN-CHECKBOX-CHANGED|" V n BJ!tu4iDy}[H|ST/SLIP_DTSLIP_DTSlip Dt9999"/"99"/"99CAN2DEFAULTEnter value for : SLIP_DT#V$4BJ!tcu4iXy}[H|PR/IO_SLIPIO_SLIPIo Slip$#T%"GQCAN2DEFAULTEnter value for : IO_SLIP& VBJ!tu4iy}[H|$NO/SLIP_NOSLIP_NOSlip NoCAN2DEFAULTEnter value for : SLIP_NOL'\ Vl n| BJ!tu4iEy}[H|LM/CUST_CDCUST_CDCust CdX"-"XXXXXXXXCAN2DEFAULTEnter value for : CUST_CD( VBJ!tu4iOy}[H| JK/CUST_CD_DDDCUST_CD_DDDCust CdCAN2DEFAULTEnter value for : CUST_CDP)\ Vh nx BJ!tiu4iQy}[H|HI/AMTAMTCust Cd999,999,999CAN2DEFAULTEnter value for : CUST_CD*% /SBSB+@ ,!t7ui5yl:(/&ZNOR_GUBUNNOR_GUBUNCAN_SELblackgray-E8H.D@/V:WHEN-RADIO-CHANGEDWHEN-RADIO-CHANGED/?0>@tqu)i0y lghjik/Z~NR1R11blackr50g75b100 1> l@   tu)i>y l  g hjik/Z~NR2R2ǰ,2blackr50g75b100!2!!!!!t u#iy}[H!I :"  /EXIT_CAN2EXIT_CAN2exitCAN_SELDEFAULT3E8","l4D "/Wu:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED#45#@#L ("#\d#l&C'^% s:#t%,/SB1SB1CUR_RECCAN_SEL6E8#8$8$d8$#7D"#/X:WHEN-MOUSE-CLICKWHEN-MOUSE-CLICK$L8D"$X/Y:KEY-UPKEY-UP$9D"$/Z:KEY-DOWNKEY-DOWN$:D"%/[k:WHEN-MOUSE-DOUBLECLICKWHEN-MOUSE-DOUBLECLICK;%'(d)*+-. /H0x124,5p7H889`9:&<"&  n&!&tu\i5y l&'g'hjik/Z~HW_BAESONG_DTW_BAESONG_DT9999"/"99"/"99CAN_SELblackwhite'="(  n(J!(0tdui5yl(@(Lg(Xhjik/Z~HW_WON_BAESONG_DTW_WON_BAESONG_DT9999"/"99"/"99CAN_SELblackwhite)4>")H J!)\tCu\iy l)l)xg)hjik/Z~HW_BAESONG_NOW_BAESONG_NOCAN_SELblackwhite*X?"*h !*xt`u\iy l**g*hjik/Z~HW_SLIP_NOW_SLIP_NOCAN_SELblackwhite+|@"+ J!+tui4yl++g+hjik/Z~HW_WON_BAESONG_NOW_WON_BAESONG_NOCAN_SELblackwhite,A", !,t}u\iLy l,,g,hjik/Z~HW_CUST_NMW_CUST_NMCAN_SELblackcustom5-B"-  !-tu\iy l-.g.hjik/Z~HW_JP_GBNW_JP_GBNCAN_SELblackcustom5.C"/ J!/t`ui"yl/ /,g/<hjik/Z~HW_IO_SLIPW_IO_SLIPCAN_SELblackcustom50D"0, J!0@tuiQyl0P0\g0lhjik/ lZ~HW_IO_SLIP_BANW_IO_SLIP_BANCAN_SELblackcustom51@E"1T  n1h!1|tu\i4y l11g1hjik/Z~NW_BAESONGSC_DTW_BAESONGSC_DT9999"/"99"/"99CAN_SELblackwhite2F"2 !2tu\iCy l22g2h jik/Z~HW_BAESONG_NUMW_BAESONG_NUMCAN_SELblackcustom53G"3  n3!3t^u\i>y l44g4 hjik/Z~HW_GONGGEUB_AMTW_GONGGEUB_AMT9,999,999,999CAN_SELblackcustom55H"5  n5$!58tu\i2y l5H5Tg5dhjik/Z~HW_VAT_AMTW_VAT_AMT999,999,999CAN_SELblackcustom56PI"6d  n6x!6tu\i>y l66g6hjik:6/Z~HW_WONGA_AMTW_WONGA_AMT999,999,999,999CAN_SELblackcustom5JE867 KD5p74/\@:KEY-NEXT-ITEMKEY-NEXT-ITEM8L"8$  n88!8Lt u\i5y l8\8hg8thjik/Z~HW_GEORAE_DTW_GEORAE_DT9999"/"99"/"99CAN_SELblackwhite8M"8Ji5y/W_JP_NORMALW_JP_NORMAL9HN"9TJi5y/W_COOPW_COOP9O"9Ji5y/W_CUST_CDW_CUST_CD:P": J!:t"ui1yl::g:hjik/Z~HW_WON_COOPW_WON_COOPCAN_SELblackwhite;Q"; J!;tuifyl;<g< hjik/Z~HW_WON_BAESONG_NUMW_WON_BAESONG_NUMCAN_SELblackwhite?@@AxBC=T<= !=t/ui4y l==g=hjik/Z~HK_ITEM_CDK_ITEM_CDCAN_SELblackcustom5>U<> !>tcuivy l>>g?hjik/Z~HK_ITEM_NMK_ITEM_NMCAN_SELblackcustom5?V<? n?!@tui;y l@@$g@4hjik/Z~H lK_QTYK_QTY9,999,999CAN_SELblackcustom5AW<A  nA(!A@tIui@y lAPA\gAlhjik/Z~HK_AMTK_AMT999,999,999,999CAN_SELblackcustom5BHX<BX  nBh!Btui;y lBBgBhjik/Z~HK_VAT_AMTK_VAT_AMT999,999,999,999CAN_SELblackcustom5CY<C  nC!CtuiIy lCCgChjik/Z~HK_AMT_SK_AMT_S999,999,999,999CAN_SELblackcustom5DZ<D  nD!Dtui5y lE EgE(hjik/Z~HK_SALE_AMTK_SALE_AMT9,999,999.99CAN_SELblackcustom5E[ E (HEEBB1BB1DEFAULT\ F4GLHTIdJtKLNPTQSUDF]E4G !Gt uiEy }[lG G,[G8/ZrUSRIDUSRIDCAN1blackgray8transparentH^E4H!HtluiUy }[lH(H4[H@/ZrUSRNMUSRNMCAN1blackgray8transparentI_E4I  !I,t$uiAy }[lI8ID[IP/ZrPGMIDPGMIDCAN1blackgray8transparentJ$`E4J0 !J<tkui@y }[lJHJT[J`/ZrSYSDTSYSDTCAN1blackgray8transparentKTaE4KdP.Kt!K|tuiy}[lKK[KgKh@iG/ZNr~HMESSAGEMESSAGECAN1bluer100g100b75transparentüLbE4LJ!Ltu'i3y }[lLL[LgL&ZNr~HHELPHELPCAN1bluegraytransparentüMcE4MMM!MtSuiy}[HM|:MF/INSERTINSERT:F6insertCAN1DEFAULTdE8NNTeDLNp]u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDOlfE4OxOOE!Ot2uiy}[HO|O|:ODE/SAVESAVE:F10saveCAN1DEFA lULTgE8OPhDNP8^u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDQiE4Q Q,Q<!QHtuiy}[HQT:QdC/DELETEDELETE:F5deleteCAN1DEFAULTjE8QQkDPTQ_u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDRlE4RRR!Rtuiy}[HR:SB/CLEARCLEAR:F3clearCAN1DEFAULTmE8S$S\nDQSx`u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDTdoE4TpT|T!Ttuiy}[HTI :TA/EXITEXIT:F4exitCAN1DEFAULTpE8TU qDSU(au:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDVrE4VVV,!V8tuiy}[HVD:VT@/PRINTPRINTμ:F8printCAN1DEFAULTsE8VtVtDUDVb{u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDu WtPWv W-N}OP_^oW`aiyHWW/]dq CAN2CAN2WIN_1020DEFAULTw XL[\\^0_behknYx W*Y % tui'y qlYY[YYYZIZZrTEXT1TEXT1blackwhitenoneblackblacknoneyUZ4Z\zTXLZlZ|CMPTXT2CMPTXT2{WZ[|VZ4 [$G[4l[Dg[Phjikm?/Z~NTEXTSTR3TEXTSTR3ⱸblack\\} W\h % tuiyql\t\[\\\\ZrRECT4RECT4blackr75g0b75transparentblackblacksolid]~ W] % tuiyql]][]^ ^^$ZrRECT5RECT5blackgray4transparentblackblacksolid_0 W_< % tu#iyql_H_T[_`_t__ZrRECT6RECT6blackgray12transparentblackblacksolida 0l W*a  % t.u(i'y qlaa$[a0a<aHaTIa`ZrTEXT7TEXT7blackwhitenoneblackblacknoneUaaT_aaCMPTXT8CMPTXT8Wab`Va bpGblbgbhjikm>/Z~NTEXTSTR9TEXTSTR9Ǹblackd W*d % t|u(i'y qld(d4[d@dLdXddIdpZrTEXT10TEXT10blackwhitenoneblackblacknoneUddTbddCMPTXT11CMPTXT11WdepVd eGelegehjikm=/Z~NTEXTSTR12TEXTSTR12ⱸblackg  W*g, % tu(i'y qlg8gD[gPg\ghgtIgZrTEXT13TEXT13blackwhitenoneblackblacknoneUggTeggCMPTXT14CMPTXT14WhhVg hGhlhghhjikm</Z~NTEXTSTR15TEXTSTR15ǥȣblackj0 W*j< % tu(i1y qljHjT[j`jljxjIjZrTEXT16TEXT16blackwhitenoneblackblacknoneUjjThjjCMPTXT17CMPTXT17WkkVj kGklkgkhjikm;/Z~NTEXTSTR18TEXTSTR18ŷóڵblackm@ W*mL % t)u(i'y qlmXmd[mpm|mmImZrTEXT19TEXT19blackwhitenoneblackblacknoneUmmTkmnCMPTXT20CMPTXT20Wn(nVm nGnlngnhjikm:/Z~NTEXTSTR21TEXTSTR21ŷóblackpP W*p\ % tu(iy q @llphpt[ppppIpZrTEXT22TEXT22blackwhitenoneblackblacknoneUppTnqqCMPTXT23CMPTXT23Wq8qVp qGqlqgqhjikm9/Z~NTEXTSTR24TEXTSTR24ݾblackLWL@ltltx[ttttgthjikZr~N! !"#$%&'()*+,-./ 01 2@34!5+6789:;dblackwhitetransparentblackblacktransparentu` ulNO_X^|oux`aiy5Huu/]d| CAN1CAN1WIN_1020DEFAULT vx ytz|L},,T8Tl $<\(w tw % tu/iyqlww[wwwx/ZrRECT26RECT26blackcustom5transparentblackblacksolidy  ty % tuiyqly$y0[y<yPy\yhZrRECT27RECT27blackgray16transparentblackblacksolidzt tz % tuiyqlzz[zzzzZrRECT28RECT28blackgray12transparentblackblacksolid{ t{ % tuSiynql{|[||(|4|@/ZrRECT29RECT29blackgray8transparentblackblacksolid}T t}` % tu1iy!ql}l}x[}}}}/ZrRECT30RECT30blackgray16transparentblackblacksolid~ t~ % tuiyql~~[~ /ZrRECT31RECT31blackgray8transparentblackblacksolid4 t@ % tuiy PlqlLX[dx/ZrRECT32RECT32blackgray8transparentblackblacksolid  t+ % tqui)y ql$0[<P\hIt/ZrTEXT33TEXT33blackgray16transparentblackblacknoneUTCMPTXT34CMPTXT34WtV Glghjikm8/Z~NTEXTSTR35TEXTSTR35 black, t+8 % tui;y qlDP[\p|I/ZrTEXT36TEXT36blackgray16transparentblackblacknoneUTCMPTXT37CMPTXT37WV Glghjikm7/Z~NTEXTSTR38TEXTSTR38 ǰ blackT t+` % tui)y qllx[I/ZrTEXT39TEXT39blackgray16transparentblackblacknoneUT$CMPTXT40CMPTXT40WDV Glghjikm6/Z~NTEXTSTR41TEXTSTR41 blackx t+ % tui2y ql[I/ZrTEXT42TEXT42blackgray16transparentblackblacknoneU(T8HCMPTXT43CMPTXT43WhV Glg hjikm5/Z~NTEXTSTR44TEXTSTR44 black t+ % tui4y ql[I/ZrTEXT45TEXT45blackgray16transparentblackblacknoneU$LT,\lCMPTXT46CMPTXT46 `lWV$ G$l<gHhjikm4/Z~NTEXTSTR47TEXTSTR47 black\ th % tguViyy[qlt[/ZrRECT48RECT48blackr100g88b88transparentblackblacksolid t % tu1iy!ql[ ,/ZrRECT49RECT49blackgray16transparentblackblacksolid t+ % tuiy ql[I/ZrTEXT50TEXT50blackgray16transparentblackblacknoneU0XT8hxCMPTXT51CMPTXT51WV0  G0l<gHhjikm3/Z~NTEXTSTR52TEXTSTR52black t+ % tqu:i'y ql[ I$/ZrTEXT53TEXT53blackwhitenoneblackblacknoneUDlTT|CMPTXT54CMPTXT54W$VD 4GDlTg`hjikm2/Z~NTEXTSTR55TEXTSTR55ǥȣblack t+ % tu:i'y ql[ $0I</ZrTEXT56TEXT56blackwhitenoneblackblacknoneU\TlCMPTXT57CMPTXT57W<V\ LG\llgxhjikm1/Z~NTEXTSTR58TEXTSTR58ⱸblack t+ % t5u\i'y ql [$0<HIT/ZrTEXT59TEXT59blackwhitenoneblackblacknoneUtTCMPTXT60CMPTXT60WTVt dGtlghjikm0/Z~NTEXTSTR61 plTEXTSTR61ȸblack  t+ % t(ui4y ql$0[<HT`Il/ZrTEXT62TEXT62blackwhitenoneblackblacknoneUTCMPTXT63CMPTXT63WlV |Glghjikm//Z~NTEXTSTR64TEXTSTR64Ǹ,ΰblack( t+4 % thui"y ql@L[XlxI/ZrTEXT65TEXT65blackgray8transparentblackblacknoneUTCMPTXT66CMPTXT66WV Glghjikm./Z~NTEXTSTR67TEXTSTR67 blackH t+T % tJu\iDy ql`l[xI/ZrTEXT68TEXT68blackwhitenoneblackblacknoneUTCMPTXT69CMPTXT69W0V Glghjikm-/Z~NTEXTSTR70TEXTSTR70ݰ꼭blackd t+p % thui#y ql|[I/ZrTEXT74TEXT74blackwhitenoneblackblacknoneU T,CMPTXT75CMPTXT75WLV Glghjikm+/Z~NTEXTSTR76TEXTSTR76 black| t+ % tui'y ql[I/ZrTEXT77TEXT77blackwhitenoneblackblacknoneU$T 4DCMPTXT78CMPTXT78WdV Gl ghjikm*/Z~NTEXTSTR79TEXTSTR79ٰblack t+ l % tu[i'y ql[I/ZrTEXT80TEXT80blackwhitenoneblackblacknoneU<T$L\CMPTXT81CMPTXT81W|V Gl$g0hjikm)/Z~NTEXTSTR82TEXTSTR82black t+ % t'ui'y l[I/ZrTEXT83TEXT83blackgray16transparentblackblacknoneU4\T<l|CMPTXT84CMPTXT84WV4 $G4lDgPhjikm(/Z~NTEXTSTR85TEXTSTR85ȯblack\ th % t(ui2yqlt[ZrRECT86RECT86blackr75g100b75transparentblackblacknone0 t*< % t3uiy qlHT[`lxI&ZrTEXT87TEXT87blackgraynoneblackblacknoneUTCMPTXT88CMPTXT88WV Glghjikm'/Z~NTEXTSTR89TEXTSTR89޾black t % t4uni'y [/&rTEXT287TEXT287graynonenoneU(T8HCMPTXT288CMPTXT288WhV Glghjikm/Z~HTEXTSTR289TEXTSTR289black t % tuni'y [(4/&rTEXT290TEXT290graynonenoneUT|T(CMPTXT291CMPTXT291W4 VT DGTldgphjikm/Z~HTEXTSTR292TEXTSTR292۹ȣblack LtL@0l[ $0gDhji lkZr~N! !"#$%&'()*+,-./ 01 2@34!5+6789:;dblackwhitenoneblackblacktransparent (-NiOP_<^/o8`ai}y}[HHlXdp/Z&]d` CAN_SELCAN_SELWIN_1030DEFAULTgraygray16 H`@Xl҈,D`D4 ĸ P+  %tui'y ql[ I/ZrTEXT1TEXT1blackwhitenoneblackblacknoneU8`THpŀCMPTXT2CMPTXT2WŠV8 (G8lHgThjikm/Z~HTEXTSTR3TEXTSTR3ⱸblackh Pt  %t uDiJyqlǀnj[ǘǬǸ/ZrRECT5RECT5blackgray16transparentblackblacksolid P  %t uiJyql[(4/ZrRECT6RECT6blackgray16transparentblackblacksolidʰ P+ʼ  %tuMi'y ql[I/ZrTEXT7TEXT7blackwhitenoneblackblacknoneU0XT@hxCMPTXT8CMPTXT8W˘V0  G0l@gLhjikm/Z~HTEXTSTR9TEXTSTR9black P+  %tCuNi"y ql[I(/ZrTEXT10TEXT10blackwhitenoneblackblacknoneUHpTX΀ΐCMPTXT11CMPTXT11Wΰ(VH 8GHlTg`hjikm/Z~NTEXTSTR1 l2TEXTSTR12NOblack P+  %tguMiy ql[ ,8ID/ZrTEXT264TEXT264blackwhitenoneblackblacknoneUdь TlќѬCMPTXT11CMPTXT11!WD"Vd TGdlpg|hjikm,/Z~NTEXTSTR12TEXTSTR12ǥblack# P+  %tuFiyql[(4@LIX/ZrTEXT13TEXT13blackwhitenoneblackblacknone$UԀդԨ%T҈ԸCMPTXT14CMPTXT14&W`'VԀ pGՀlՌg՘h jikm/Z~NTEXTSTR15TEXTSTR15ǥ black(T҈CMPTXT424CMPTXT424)W ք*Vդ ֔G֤lְgּh jikm/Z~NTEXTSTR425TEXTSTR425black8+ P+D  %tuFi$yqlP\[ht؀،Iؘ/ZrTEXT16TEXT16blackwhitenoneblackblacknone,U-TCMPTXT17CMPTXT17.W(٠/V ٰGlgh jikm/Z~NTEXTSTR18TEXTSTR18۵ black0T 0CMPTXT315CMPTXT3151WP2V Glgh jikm/Z~NTEXTSTR316TEXTSTR316 black܀3 P+܌  %t(uNi;y qlܘܤ[ܼܰI/ZrTEXT19TEXT19blackwhitenoneblackblacknone4U(5T8HCMPTXT20CMPTXT206Wh7V Glg hjikm/Z~HTEXTSTR21TEXTSTR21ۼȣblackߜ8 P+ߨ  %touNi'y qlߴ[I/Z !lrTEXT22TEXT22blackwhitenoneblackblacknone9UD:T,TdCMPTXT23CMPTXT23;W<V  Gl,g8hjikm/Z~HTEXTSTR24TEXTSTR24ޱݾblack= P+  %tuNiy ql[I/ZrTEXT302TEXT302blackwhitenoneblackblacknone>U<d?TDtCMPTXT23CMPTXT23@WAV< ,G<lHgThjikm/Z~HTEXTSTR24TEXTSTR24ΰblackB P( % t7ui'y [8DP/rTEXT294TEXT294nonenoneCUpDT`CMPTXT295CMPTXT295EWPFVp `Gplghjikm/Z~HTEXTSTR296TEXTSTR296ǰڵblackPG P` % truiy [p|/rTEXT297TEXT297nonenoneHUITCMPTXT298CMPTXT298JWKV Glghjikm/Z~HTEXTSTR299TEXTSTR299ǰblacktL P % tuNi'y [/rTEXT303TEXT303nonenoneMUNTCMPTXT304CMPTXT304OW4PV Glghjikm/Z~HTEXTSTR305TEXTSTR305ǸŴblackQ P % tuMi'y [/rTEXT306TEXT306nonenoneRUST,<CMPTXT307CMPTXT307TW\UV Glghjikm/Z~HTEXTSTR308TEXTSTR308ŷóblackV P % tuNi'y [/rTEXT309TEXT309nonenoneWUDXTTdCMPTXT310CMPTXT310YWZV  Gl,g8hjikm/Z~HTEXTSTR311TEXT #lSTR311black[ P % tu isy $[0<H/&rTEXT321TEXT321graynonenone\Uh]TDCMPTXT322CMPTXT322^WH_Vh XGhlghjikm/ZN~NTEXTSTR323TEXTSTR323[ ǥ ȸ ]blued` Pt % tuiy [/&rTEXT324TEXT324graynonenoneaUbTCMPTXT325CMPTXT325cW0dV Glghjikm/Z~HTEXTSTR326TEXTSTR326 blacke P % t/uiy [/&rTEXT327TEXT327graynonenonefU8gTHXCMPTXT328CMPTXT328hWxiV Glg(hjikm/Z~HTEXTSTR329TEXTSTR329ܰblackj P % t`ui'y [ ,8/&rTEXT330TEXT330graynonenonekUXlT4CMPTXT331CMPTXT331mW8nVX HGXlhgthjikm/Z~HTEXTSTR332TEXTSTR332ްblack@o PP % tui'y `[lx/&rTEXT333TEXT333graynonenonepUqTCMPTXT334CMPTXT334TEXTSTR335CUST_CD_BCUST_CD_BŷóCAN1DEFAULTE8ʬDɤ9u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED˼r!tTuqi8y}[H:/CAR_NO_BCAR_NO_BȣCAN1DEFAULTE8(`D|:u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDhr|͐!ͨtuWi[ylʹghjik:/&Z~HBEASONG_SEL_BBEASONG_SEL_BǥȸCAN1blackgrayE80D̘L/;:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED   (g8Ϙ ϰ(H:hQB2QB2CUR_RECLFSGT321 lrW sV Glghjikm/Z~HTEXTSTR335ΰblackt P % tui'y [/&rTEXT336TEXT336graynonenoneuUvT,<CMPTXT337CMPTXT337wW\xV Glghjikm/Z~HTEXTSTR338TEXTSTR338Ǹűݾblacky P % t u!iJy[/rRECT432RECT432gray16transparentz P % tBu*i$y [ /&rTEXT437TEXT437graynonenone{U8`|T pCMPTXT438CMPTXT438}W~V8 (G8lHgThjikm/Z~NTEXTSTR439TEXTSTR439ȸblackLPLq l[  g hjikZr~N! !"#$%&'()*+,-./ 01 2@34!5+6789:;dblackwhitenoneblackblacknone%   h|"p $  3  1 0ri^y,n/ORDER_SELORDER_SELֹȸORDER_SEL0 x0 0 0 0 0     3  M/n/1ORDER_DTORDER_DTֹQB1.ORDER_DT H   X3 h xMn/1ORDER_NOORDER_NOֹȣQB1.ORDER_NO    3  Mn/1CUST_CDCUST_CDŷó P   `3 p xM5n/1CUST_NMCUST_NM    3  M5n/1ITEM_NMITEM_NM @   L3 X `M5n/1QTYQTY $  3  1tSuwiyHln&/SLIP_DTSLIP_DTǥSLIP_DT0t00t00l00h0  h3Mn%/1SLIP_DTSLIP_DTSLIP_DT_C<  hL3\lM<n$/1SLIP_DT_DSLIP_DT_DǸ   h3Mn#/1IO_SLIPIO_SLIPIO_SLIP_C l<  hH3TdM<n"/1DSCRDSCRⱸ   h3M(n!/1SLIP_NOSLIP_NOǥȣ SLIP_NO_C<  hH3T`Mn /1NORMALNORMAL  h3M7n/1CUST_CDCUST_CDŷóڵ 4  hD3TdMdn/1CUST_NMCUST_NMŷóDEFAULT$ 3 1,tSuiyHn/CUST_CDCUST_CDŷóڵCUST_CD0\00d |3Mn/1CUST_CDCUST_CDQB1.CUST_CD( |83H\M<n/1CUST_CD_CCUST_CD_Cŷóڵ  |3Mxn/1CUST_NMCUST_NMŷó CUST_CD_DDEFAULTl$ |31tSuiyHxn/ORDER_DTORDER_DTֹORDR_DT00l00t04 D3T\Mn/1ORDER_DTORDER_DTORDER_DT 3MFn/1ORDER_DT_DORDER_DT_Dֹ4 D3TdM(n/1ORDER_NOORDER_NOֹȣ ORDER_NO 3MFn/1EXPECT_DTEXPECT_DT < L3\dM5n/1CUST_CDCUST_CDQB1.CUST_CDDEFAULT$ 3 1,t>uiyHn/CAR_NOCAR_NOȣCAR_NO0\00X 3Mn/1CUST_CDCUST_CDCAR_NO  03@PM<n/1CUST_CD_CCUST_CD_Cȣ  3Mxn/1CUST_NMCUST_NM CAR_NO_DDEFAULT`$ p31tuilyHn/ITEM_CDITEM_CDǰڵITEM_CD00`00\  03@PM2n/1ITEM_CDITEM_CDǰڵ ITEM_CD 3Mn/1ITEM_NMITEM_NMǰ ITEM_CD_D0 <3HTM(n /1UNITUNIT  3M-n /1CONV_QTYCONV_QTYȯ귮 DEFAULT\$ p31tuiyHn /COOP_CD_CAN2COOP_CD_CAN2COOP_CD_CNA200P  3,@M2n /1DCDDCDڵ COOP_CC 3Mn /1REMARKSREMARKS COOP_DDDEFAULT l X$  l3  1 t)uiyH"`n/CUST_CD_CAN2CUST_CD_CAN2ŷóڵCUST_CD_CAN20 0!T0!! !,3!<!DMn/1CUST_CDCUST_CDCUST_CD_CC! !3!!M<n/1CUST_CD_CCUST_CD_Cŷóڵ "  "03"@"PMxn/1CUST_NMCUST_NMŷó CUST_CD_DDDEFAULT"$ "3##1#,tui<yH$Tn/SLIP_DT_CAN2SLIP_DT_CAN2ǸSLIP_DT_CAN20#T0## "p#3##Mn/1SLIP_DTSLIP_DTSLIP_DT_CC$ "p$,3$<$LM<n/1SLIP_DT_DSLIP_DT_DǸDEFAULT;*%&,&&'\'((|()<)* *t*+D+,,|,-D-..d./,//0D011d122l23$3|34\45,5& :&/cZCASH_CALLCASH_CALL&d:&td/NULL_CHKNULL_CHK&:&eSUM_CALCULATESUM_CALCULATE'$:'@/fSTART_MESSAGE_TIMERSTART_MESSAGE_TIMER':'gLFSGT320_SETLFSGT320_SET':(hLFSGT321_SETLFSGT321_SET(T:(hiLFSGT410_INS10LFSGT410_INS10(:(j((LFSGT410_INS11LFSGT410_INS11):)(k LFSGT630_INSLFSGT630_INS)|:)/lPUT_UPDATE2PUT_UPDATE2):)/mALFSGT301_SEL_BLFSGT301_SEL_B*L:*`/nFLFSGT302_SEL_BLFSGT302_SEL_B*:*/o8LFSGT302_SELLFSGT302_SEL+:+0/pNLFSGT301_UPTLFSGT301_UPT+:+/qLFSGT301_SELLFSGT301_SEL+:,/rtLFSGT301_REUPTLFSGT301_REUPT,T:,h/sLFSGT301_19LFSGT301_19,:,/tLFSGT301_10LFSGT301_10-$:-4/uPUT_UPDATEPUT_UPDATE-:-/vPUT_SAVE2PUT_SAVE2-:-/wPPUT_SAVEPUT_SAVE.D:.T/x=GET_DATA_DGET_DATA_D.:./y$@GET_DATA_BANGET_DATA_BAN/ ://zGET_DATAGET_DATA/d:/x{ fBLOCK_INSERTBLOCK_INSERT/:/|BLOCK_QUERY lBLOCK_QUERY0$:04}SITEM_QUERYITEM_QUERY0|:0~LFSGT410_INS19LFSGT410_INS190:0 LFSGT340_INS10LFSGT340_INS101<:1PyLFSGT340_INS11LFSGT340_INS111:1INS_CHK1INS_CHK11:2SEQ_CHKSEQ_CHK2L:2\ SLIP_NO1SLIP_NO12:2SLIP_NO2SLIP_NO22:3SLIP_NO2_INUPTSLIP_NO2_INUPT3\:3lINS_CHK2INS_CHK23:3 LFSGT340_341_420_INSERTLFSGT340_341_420_INSERT44:4H/ITEM_JAN_QTYITEM_JAN_QTY4:4/POST_QUERY_CHKPOST_QUERY_CHK5:5/bORDER_LFSGT310ORDER_LFSGT3105l:5/_ORDER_LFSGT311ORDER_LFSGT3115:5/ORDER_LFSGT310_UPTORDER_LFSGT310_UPTA 679L:< ALCG<ItKMpOR6@66470RG_IO_SLIPRG_IO_SLIPselect dscr,dcd from lfcmt120 where lcd = 'IOSLIP' and chk1 = 'B' order by dcd37X37767/4DSCRDSCR767/4DCDDCD8 @8,8848RG_VATRG_VATselect dscr,dcd from lfcmt120 where lcd = 'TAX' and dcd in ('1','2','4') order by dcd3839878/4DSCRDSCR9479@/4DCDDCD9@994:RG_STYLERG_STYLEselect dscr,dcd from lfcmt120 where lcd = 'STYLE' and dcd != '00000000' order by dcd3:(3:p:X9L:d/4DSCRDSCR:9L:/4DCDDCD:@;;4;hRG_CAR_DIVRG_CAR_DIVselect dscr,dcd from lfcmt120 where lcd = 'CAR' and dcd != '00000000' order by dcd3;3;;:;/4DSCRDSCR<:</4DCDDCDSLIP_DTSLIP_DTselect a.slip_dt,substr(a.slip_dt,1,4)||'/'||substr(a.slip_dt,5,2)||'/'||substr(a.slip_dt,7,2) slip_dt_d,a.io_slip,b.dscr,a.slip_no,decode(a.normal,'10','','11','ǰ','19','') normal,substr(a.cust_cd,1,1)||'-'||substr(a.cust_cd,2,7) cust_cd,cust_nm from lfsgt320 a,lfcmt120 b,lfsgt100 c where a.coop = :coop_c and b.lcd = 'IOSLIP' and a.io_slip = b.dcd and chk1 = 'B' and a.cust_cd = c.cust_cd and a.slip_dt like :slip_dt_c||'%' and normal between '10' and '19' and trns_coop = '888888' order by 1 desc,3,8,53>3?,3?|3?3@3@d3@3@? < ?/4SLIP_DTSLIP_DT?\< ?l/4SLIP_DT_DSLIP_DT_D?< ?/4IO_SLIPIO_S lLIP?< @/4DSCRDSCR@D< @T/4SLIP_NOSLIP_NO@< @/4NORMALNORMAL@< @/4CUST_CDCUST_CDA,< A</4CUST_NMCUST_NMA@AA4BlCUST_CDCUST_CDselect cust_cd,substr(cust_cd,1,1)||'-'||substr(cust_cd,2,7) cust_cd_c,cust_nm from lfsgt100 where cust_div < '8' and member < '9' and cust_nm like :qb1.cust_cd||'%' order by cust_div,cust_nm3B3B3C<BALB/4CUST_CDCUST_CDCALC,/4CUST_CD_CCUST_CD_CClALC|/4CUST_NMCUST_NMC@CC4ED/ORDR_DTORDR_DTselect order_dt,substr(order_dt,1,4)||'/'||substr(order_dt,5,2)||'/'||substr(order_dt,7,2) order_dt_d,order_no,substr(expect_dt,1,4)||'/'||substr(expect_dt,5,2)||'/'||substr(expect_dt,7,2) expect_dt,cust_cd from lfsgt310 where coop = :coop_c and complete_ask is not null and order_dt like :order_dt||'%' order by order_dt desc,order_no3E3E3F43F3FECE//4ORDER_DTORDER_DTFCF$//4ORDER_DT_DORDER_DT_DFlCF|//4ORDER_NOORDER_NOFCF//4EXPECT_DTEXPECT_DTGCG,//4CUST_CDCUST_CDGt @GG4HTCAR_NOCAR_NOselect cust_cd,substr(cust_cd,1,1)||'-'||substr(cust_cd,2,7) cust_cd_c,cust_nm from lfsgt100 where cust_div = '8' and member = to_number(:car_div) and cust_cd like :car_no||'%' order by cust_nm 3H3H3I$H G<H/4CUST_CDCUST_CDI G<I/4CUST_CD_CCUST_CD_CIT G<Id/4CUST_NMCUST_NMI@II4JITEM_CDITEM_CDselect item_cd,item_nm,unit,conv_qty from lfsgt810 where item_div = :item_div_c and after_ask = '2' and item_cd like '%'||:item4 and item_cd like :item_cd||'%' order by item_cd3J3K 3K\3KJItJ/4ITEM_CDITEM_CDK<ItKL(/4ITEM_NMITEM_NMKItK/4UNITUNITKItK/4CONV_QTYCONV_QTYL,@L@LT4LCOOP_CD_CNA2COOP_CD_CNA2select dcd,remarks from lfcmt120 where lcd = 'COOP' and dcd != '00000000' order by dcd3L3M MKM/4DCDDCDMPKM`(/4REMARKSREMARKSM@MM4NCUST_CD_CAN2CUST_CD_CAN2select cust_cd,substr(cust_cd,1,1)||'-'||substr(cust_cd,2,7) cust_cd_c,cust_nm from lfsgt100 where cust_div < '8' and member < '9' and cust_nm like :cust_cd_cc||'%' order by cust_div,cust_nm3N3O3OdNMpO/4CUST_CDCUST_CDODMpOT/4CUST_CD_CCUST_CD_COMpO/4CUST_NMCUST_NM lO@PP4Q<SLIP_DT_CAN2SLIP_DT_CAN2select distinct slip_dt,substr(slip_dt,1,4)||'/'||substr(slip_dt,5,2)||'/'||substr(slip_dt,7,2) slip_dt_d from lfsgt320 where coop = :coop_cc and io_slip = :io_slip_c and slip_dt like :slip_dt_cc||'%' and cust_cd like :cust_cd_cc||'%' and normal between '10' and '10' order by slip_dt desc3Qd3QQOQ/4SLIP_DTSLIP_DTQ OQ/4SLIP_DT_DSLIP_DT_DRD!@RTRd4T/ORDER_SELORDER_SELselect a.order_dt,a.order_no,a.cust_cd,b.cust_nm,d.item_nm,c.qty,a.amt from lfsgt310 a ,lfsgt100 b,lfsgt311 c,lfsgt810 d where a.cust_cd = b.cust_cd and a.coop = c.coop and a.order_dt = c.order_dt and a.order_no = c.order_no and c.item_div = d.item_div and c.item_cd = d.item_cd and normal = '10' and a.cust_cd = :qb1.cust_cd and nvl(a.complete_ask,0) != '2' order by order_dt ,order_no"3TT3T3U3U\3U3V 3V\T#RT//4ORDER_DTORDER_DTT$RT//4ORDER_NOORDER_NOU<%RUL//4CUST_CDCUST_CDU&RU//4CUST_NMCUST_NMU'RU(//4ITEM_NMITEM_NMVD(RVP//4QTYQTYV)RV//4AMTAMT*KbVbWbX|W\+J WhlWtW[WgWh@jikZLr~HcREDREDredgray24transparentüX,,J X8lXDXP[X\gXph@jikZNr~HcBLUEBLUEbluegray24transparentüX-J Y lYY([Y8gYLhjikZNr~HcCUR_RECCUR_RECbluer88g100b50transparent.OjY|jZZL/NZ\3ZlrZq+`viy}[lZZ[Zn/ZrkWIN_1020WIN_1020ǥCAN1blackwhitetransparent[ 0N [03[@`viay{n/kWIN_1030WIN_1030ǥȸ1e@ax@b@d@d@f`@g@k @k@lx@o@pp@q@s@y@{@}@@@@@@<@@D@@@D@@@@ @T@@@@@,@@@,@t@@@@@@@@(@@@,@<@@$@@ɼ@H@@H@Ϡ@Ф@p@<@@@ۈ@ޤ@@@L@@T@@@ @@x@@@@@P@@@@@@P@@ @ @ H@@H@@<@@\@@@`@@@@ X@!@"@$$@%@&@(\@)@+\@,@.(@/@1@2x@3@5@7@8p@9@;x@=@>,@?@A4@B@D\@F0@F@G@H@I\@J\@K@L4@L@M@N@O@Ph@Q@R@U<@V@W\@Yd@Z$@[@\@]@^@_@`L@a|@b<@b@c@d@e@g@h8@i@j@lH@m@n@o@pl@q@rx@s@u@vP@w@x@y 0 l@{(@||@}\@~@@,@d@@@(@|@@a2daCDEFGHbASYSTEM.CURSOR_BLOCKSYSTEM.CURSOR_BLOCK3b8bHbdbCASH_CALLP7_26_APR_200423_59_02P8_26_APR_200423_59_02P9_26_APR_200423_59_02b4dccCDEFGHcAQB1.CUST_CD_DQB1.CUST_CD_D5]cDc|6^bclCUST_CD_D7^bcQB18ccCASH_CALLP73_26_APR_200423_59_02dX9ddlCDEFGHdAGLOBAL.CASH_DTGLOBAL.CASH_DT:dCASH_CALLe;dee0CDEF GHeACB1.SLIP_DT_CCB1.SLIP_DT_C<]eXe=^deSLIP_DT_C>^deCB1?fff(f<fLCASH_CALLPUT_UPDATE2LFSGT301_UPTPUT_UPDATEITEM_JAN_QTYf@dfCDEFGHfAGLOBAL.CASH_CDGLOBAL.CASH_CDAfCASH_CALLg`BdgtgCDEF GHhAQB1.CUST_CDQB1.CUST_CDC]ggD^ggCUST_CDE^ghQB1Fhhiii,i@iTihixiiiijj j@j`jjjjkCASH_CALLNULL_CHKSUM_CALCULATELFSGT320_SETLFSGT630_INSLFSGT301_SEL_BLFSGT301_SELINS_CHK1LFSGT340_341_420_INSERTPOST_QUERY_CHKORDER_LFSGT310P14_26_APR_200423_59_02P15_26_APR_200423_59_02P35_26_APR_200423_59_02P36_26_APR_200423_59_02P51_26_APR_200423_59_02P53_26_APR_200423_59_02P57_26_APR_200423_59_02P58_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02P73_26_APR_200423_59_02kpGdkCDEFGHkAGLOBAL.CASH_NMGLOBAL.CASH_NMHkCASH_CALLlIdl0CDEFGHlHAGLOBAL.CASH_AMTGLOBAL.CASH_AMTJlhCASH_CALLlKdllCDEFGHmAQB1.AMTQB1.AMTL]mmLM^lxm@AMTN^lxmtQB1On(n8nHn\npnnnnnnno o,o@o`ooCASH_CALLNULL_CHKSUM_CALCULATELFSGT320_SETLFSGT410_INS10LFSGT410_INS11LFSGT301_SEL_BLFSGT301_SELLFSGT410_INS19LFSGT340_INS10LFSGT340_INS11INS_CHK1LFSGT340_341_420_INSERTORDER_LFSGT310P14_26_APR_200423_59_02P29_26_APR_200423_59_02P13_07_JUN_20071 @l1_17_06P64_26_APR_200423_59_02pPdp(CDEFGHp@AGLOBAL.CASH_TELGLOBAL.CASH_TELQp`CASH_CALLpRdppCDEFGHq4ACHKCHKS]qT^ppq(CHKUq\qlNULL_CHKP14_26_APR_200423_59_02qVdqqCDEF G HrPAACT_DTACT_DTW]rX^qrDACT_DTY rrrsss(s<sLslsssNULL_CHKLFSGT410_INS10LFSGT410_INS11LFSGT630_INSLFSGT340_INS10LFSGT340_INS11INS_CHK1P22_26_APR_200423_59_02P33_26_APR_200423_59_02P34_26_APR_200423_59_02P50_26_APR_200423_59_02P57_26_APR_200423_59_02tDZdtTtdCDEFPG!HtAMESSAGEMESSAGE[]t\^stMESSAGE]!uuvvv v<vXvtvvvvww0wPwpwwwwxx0xPxpxxxxyy0yLyhyNULL_CHKSUM_CALCULATEINS_CHK1INS_CHK2P0_26_APR_200423_59_02P1_26_APR_200423_59_02P8_26_APR_200423_59_02P9_26_APR_200423_59_02P14_26_APR_200423_59_02P20_26_APR_200423_59_02P22_26_APR_200423_59_02P30_26_APR_200423_59_02P33_26_APR_200423_59_02P35_26_APR_200423_59_02P36_26_APR_200423_59_02P37_26_APR_200423_59_02P39_26_APR_200423_59_02P47_26_APR_200423_59_02P48_26_APR_200423_59_02P13_07_JUN_200711_17_06P57_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02P68_26_APR_200423_59_02P69_26_APR_200423_59_02P70_26_APR_200423_59_02P72_26_APR_200423_59_02P74_26_APR_200423_59_02P75_26_APR_200423_59_02P0_07_JUN_200711_17_06P2_07_JUN_200711_17_06P3_07_JUN_200711_17_06P4_07_JUN_200711_17_06y^dz z CDEFGHzAQB1.SALE_STYLEQB1.SALE_STYLE_]zHz`^yzpSALE_STYLEa^yzQB1bz{{${D{dNULL_CHKP15_26_APR_200423_59_02P35_26_APR_200423_59_02P39_26_APR_200423_59_02P57_26_APR_200423_59_02{cd{|CDEFGH|AQB1.VAT_DIVQB1.VAT_DIVd]|,|de^{|TVAT_DIVf^{|QB1g|||NULL_CHKP35_26_APR_200423_59_02P57_26_APR_200423_59_02}phd}}CDEFGH}ACAR_DIVCAR_DIVi]}j^}}CAR_DIVk~p~~~~~~$DdNULL_CHKLFSGT320_SETLFSGT301_SEL_BLFSGT301_SELPOST_QUERY_CHKORDER_LFSGT310P44_26_APR_200423_59_02P45_26_APR_200423_59_02P46_26_APR_200423_59_02P47_26_APR_200423_59_02P57_26_APR_200423_59_02 PlP58_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02<ldHTCDEF G HACAR_NOCAR_NOm]tn^CAR_NOo ,@Th|NULL_CHKLFSGT320_SETLFSGT301_SEL_BLFSGT301_SELPOST_QUERY_CHKORDER_LFSGT310P44_26_APR_200423_59_02P47_26_APR_200423_59_02P57_26_APR_200423_59_024pd@LC DEFGHANORMALNORMALq]lr^NORMALsx<\|<\|NULL_CHKSUM_CALCULATELFSGT630_INSLFSGT340_INS10LFSGT340_INS11INS_CHK2ORDER_LFSGT310_UPTP7_26_APR_200423_59_02P11_26_APR_200423_59_02P14_26_APR_200423_59_02P22_26_APR_200423_59_02P28_26_APR_200423_59_02P29_26_APR_200423_59_02P30_26_APR_200423_59_02P31_26_APR_200423_59_02P32_26_APR_200423_59_02P35_26_APR_200423_59_02P38_26_APR_200423_59_02P39_26_APR_200423_59_02P57_26_APR_200423_59_02P65_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02P68_26_APR_200423_59_02ttdC!DEFGHARELAT_NO1RELAT_NO1u]v^RELAT_NO1wDTh|NULL_CHKLFSGT320_SETLFSGT321_SETLFSGT410_INS11LFSGT410_INS19P14_26_APR_200423_59_02P82_26_APR_200423_59_02P4_07_JUN_200711_17_06XxdhxC"DEFGHAITEM_CDITEM_CDy]z^ITEM_CD{ 4HhSUM_CALCULATELFSGT321_SETP14_26_APR_200423_59_02P60_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02P69_26_APR_200423_59_02@|dP`C#DEFGHACONV_QTY1CONV_QTY1}]~^CONV_QTY1SUM_CALCULATEP59_26_APR_200423_59_02P60_26_APR_200423_59_02dC$DEFGHAQTYQTY]^<QTYH\pSUM_CALCULATELFSGT321_SETP14_26_APR_200423_59_02P60_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02HdXhC%DEFGHACONV_QTY2CONV_QTY2]^CONV_QTY2$SUM_CALCULATEP59_26_APR_200423_59_02P60_26_APR_200423_59_02dC&DEFGHACONV_QTY_DCONV_QTY_D]^DCONV_QTY_DDXxSUM_CALCULATEP60_26_APR_200423_59_02 `lP66_26_APR_200423_59_02dC'DEFGH\AQTY_T1QTY_T1](^PQTY_T1SUM_CALCULATELFSGT320_SETP60_26_APR_200423_59_02P64_26_APR_200423_59_02Td`lC(DEFGHAQTY_I1QTY_I1]^QTY_I1$SUM_CALCULATEP59_26_APR_200423_59_02P64_26_APR_200423_59_02dC)DEFGHAQTY_T2QTY_T2]^DQTY_T2H\pSUM_CALCULATELFSGT320_SETP15_26_APR_200423_59_02P60_26_APR_200423_59_02P64_26_APR_200423_59_02(d4@C*DEFGHAQTY_I2QTY_I2]`^QTY_I2SUM_CALCULATEP59_26_APR_200423_59_02P64_26_APR_200423_59_02pd|C+DEFGHAS_AMTS_AMT]^S_AMT0DXxSUM_CALCULATELFSGT320_SETLFSGT630_INSP60_26_APR_200423_59_02P64_26_APR_200423_59_02dC,DEFG HAQB2.AMTQB2.AMT]8l^`AMT^QB2 0DXlSUM_CALCULATELFSGT321_SETLFSGT302_SEL_BLFSGT302_SELORDER_LFSGT311P59_26_APR_200423_59_02P60_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02P69_26_APR_200423_59_02ddp|C-DEFGHAAMT_IAMT_I]^ AMT_I4SUM_CALCULATEP59_26_APR_200423_59_02P64_26_APR_200423_59_02dC.DEFGH$AVAT_AMTVAT_AMT]^TVAT_AMTTh|SUM_CALCULATELFSGT321_SETP59_26_APR_200423_59_02dC/DEFGHlAVAT_RATVAT_RAT]4^\VAT_RATSUM_CALCULATEPOST_QUERY_CHKP41_26_APR_200423_59_02<dHTC0DEFGHAVATVAT]t^VAT  4H\pSUM_CALCULATELFSGT320_SETLFSGT630_INSLFSGT301_SEL_BLFSGT301_SELORDER_LFSGT310P64_26_APR_200423_59_02dC1DEFGH`AVAT_AMT_IVAT_AMT_I](^PVAT_AMT_I plSUM_CALCULATEP59_26_APR_200423_59_02P64_26_APR_200423_59_02<dL\C2DEFGHAASS_AMTASS_AMT]|^ASS_AMT SUM_CALCULATELFSGT321_SETP59_26_APR_200423_59_02dC3DEFGHAASS_AMT_CASS_AMT_C]^,ASS_AMT_C,@`SUM_CALCULATEP58_26_APR_200423_59_02P66_26_APR_200423_59_02dC4DEFGHDAASSASS]^8ASS|SUM_CALCULATELFSGT320_SETLFSGT410_INS10P64_26_APR_200423_59_020d@PC5DEFGHAASS_AMT_IASS_AMT_I]p^ASS_AMT_I SUM_CALCULATEP59_26_APR_200423_59_02P64_26_APR_200423_59_02dC6DEFGHAAPP_AMTAPP_AMT]^,APP_AMT,@TSUM_CALCULATELFSGT321_SETP59_26_APR_200423_59_02dC7DEFGHDAAPP_AMT_CAPP_AMT_C] ^t4APP_AMT_CtSUM_CALCULATEP58_26_APR_200423_59_02P66_26_APR_200423_59_02 d,8C8DEFG HAAPPAPP]X^APP 0DXlSUM_CALCULATELFSGT320_SETLFSGT410_INS10LFSGT410_INS11LFSGT630_INSLFSGT410_INS19LFSGT340_INS10LFSGT340_INS11INS_CHK1P64_26_APR_200423_59_02d,<C9DEFGHAAPP_AMT_IAPP_AMT_I]\^APP_AMT_ISUM_CALCULATEP59_26_APR_200423_59_02P64_26_APR_200423_59_02pdC:DEFG HAITEM_DIV_CITEM_DIV_C]^ITEM_DIV_C h|$DdSUM_CALCULATELFSGT321_SETLFSGT410_INS11LFSGT630_INSLFSGT410_INS19LFSGT340_INS10LFSGT340_INS11INS_CHK1P14_26_APR_200423_59_02P22_26_APR_200423_59_02P58_26_APR_200423_59_02P66_26_APR_200423_59_02P69_26_APR_200423_59_02d C;DEF GHtASLIP_DT_CSLIP_DT_C]<^dSLIP_DT_CL`t <Pl(HhSUM_ lCALCULATELFSGT410_INS10SLIP_NO2_INUPTLFSGT410_INS11LFSGT630_INSLFSGT410_INS19LFSGT340_INS10LFSGT340_INS11SLIP_NO1SLIP_NO2INS_CHK2LFSGT340_341_420_INSERTPOST_QUERY_CHKP0_26_APR_200423_59_02P7_26_APR_200423_59_02P15_26_APR_200423_59_02P22_26_APR_200423_59_02P23_26_APR_200423_59_02P29_26_APR_200423_59_02P34_26_APR_200423_59_02P52_26_APR_200423_59_02P60_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02d C<DEFGHlACOOP_CCOOP_C]8^`COOP_CTh|(8HXx$DdSUM_CALCULATELFSGT410_INS10SLIP_NO2_INUPTLFSGT410_INS11LFSGT630_INSLFSGT301_UPTLFSGT410_INS19LFSGT340_INS10LFSGT340_INS11INS_CHK1SEQ_CHKSLIP_NO1SLIP_NO2INS_CHK2LFSGT340_341_420_INSERTPOST_QUERY_CHKP0_26_APR_200423_59_02P7_26_APR_200423_59_02P22_26_APR_200423_59_02P23_26_APR_200423_59_02P29_26_APR_200423_59_02P33_26_APR_200423_59_02P58_26_APR_200423_59_02P60_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02d,<C=DEFGHARELAT_NO2RELAT_NO2]\^RELAT_NO2(<PpSUM_CALCULATELFSGT320_SETLFSGT321_SETLFSGT410_INS11LFSGT410_INS19P14_26_APR_200423_59_02P82_26_APR_200423_59_02P4_07_JUN_200711_17_06d$C>DEFGH|AITEM_DIVITEM_DIV]D^lITEM_DIVSUM_CALCULATEP60_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02dC?DEFGHASALE_AMTSALE_AMT]^(SALE_AMT@ThSUM_CALCULATELFSGT321_SETP14_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02P69_26_APR_200423_59_02@dP`C@DEFGHAQB2.QTYQB2.QTY]^QTY^QB2@Th|SUM_CALCULATELFSGT302_SEL_BLFSGT302_SELORDER_LFSGT311P66_26_APR_200423_59_02P67_26_APR_200423_59_02P69_26_APR_200423_59_02HdT`CADEFGHACOSTCOST]^COST SUM_CALCULATELFSGT321_SETP14_26_APR_200423_59_02dCBDEFGHASALE_STYLESALE_STYLE]^,SALE_STYLE( l8H\|LFSGT320_SETLFSGT410_INS10LFSGT410_INS11LFSGT630_INSLFSGT301_SEL_BLFSGT301_SELLFSGT340_INS11INS_CHK1INS_CHK2ORDER_LFSGT310P28_26_APR_200423_59_02P29_26_APR_200423_59_02P35_26_APR_200423_59_02P45_26_APR_200423_59_02P48_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02dCCDEFG H ACUST_DIVCUST_DIV]^<CUST_DIV Œ ´8LlÌìLFSGT320_SETLFSGT410_INS10LFSGT410_INS11LFSGT301_SEL_BLFSGT301_SELLFSGT340_INS10LFSGT340_INS11LFSGT340_341_420_INSERTORDER_LFSGT310P15_26_APR_200423_59_02P35_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02$d4DCDDEFG HĜAVAT_DIVVAT_DIV]d^ČVAT_DIV   4H\pńŤLFSGT320_SETLFSGT630_INSLFSGT301_SEL_BLFSGT301_SELPOST_QUERY_CHKORDER_LFSGT310P35_26_APR_200423_59_02P40_26_APR_200423_59_02P41_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02|dƌƜCEDEFG HADRAW_ASKDRAW_ASK]Ƽ^$DRAW_ASK  Th|ǐǤǸLFSGT320_SETLFSGT410_INS11LFSGT630_INSLFSGT301_SEL_BLFSGT301_SELLFSGT340_INS10LFSGT340_INS11ORDER_LFSGT310P15_26_APR_200423_59_02l d|ȌCFDEFGHATRNS_COOPTRNS_COOP ]Ȭ ^TRNS_COOP ,@Th|ɜLFSGT320_SETLFSGT301_SEL_BLFSGT301_SELORDER_LFSGT310P22_26_APR_200423_59_02P28_26_APR_200423_59_02d$4CGDEF GHʌAORDER_DTORDER_DT]T^ɼ|ORDER_DT(LFSGT320_SETLFSGT301_SEL_BLFSGT301_SELP38_26_APR_200423_59_02P57_26_APR_200423_59_02ˠd˰CHDEFGHAORDER_NOORDER_NO]^HORDER_NOXl̨̀̔LFSGT320_SETLFSGT301_SEL_BLFSGT301_SELORDER_LFSGT310P57_26_APR_200423_59_02 d0@CIDEFGH͘APALLET_CNTPALLET_CNT]`^͈PALLET_CNT(LFSGT320_SETLFSGT301_SEL_BLFSGT301_SELORDER_LFSGT310P48_26_APR_200423_59_02ΠdΰCJDEFGHAHOUSE_CNTHOUSE_CNT]^HHOUSE_CNTP ldxόLFSGT320_SETLFSGT301_SEL_BLFSGT301_SELORDER_LFSGT310dCKDEFGHpASEQ_NO11SEQ_NO11]8 ^Ϡ`SEQ_NO11!АLFSGT320_SET"d CLDEFGHtARELAT_NO3RELAT_NO3#]<$^ФdRELAT_NO3%4TLFSGT320_SETLFSGT321_SETLFSGT410_INS11LFSGT410_INS19P14_26_APR_200423_59_02P82_26_APR_200423_59_02P4_07_JUN_200711_17_06&dCMDEFGH@ARELAT_NO4RELAT_NO4'](^p0RELAT_NO4)ӐӤӸ LFSGT320_SETLFSGT321_SETLFSGT410_INS11LFSGT410_INS19P14_26_APR_200423_59_02P82_26_APR_200423_59_02P4_07_JUN_200711_17_06Ԕ*dԠԬCNDEFGHAITEM4ITEM4+],^<ITEM4-@ThՈըLFSGT320_SETPOST_QUERY_CHKP44_26_APR_200423_59_02P46_26_APR_200423_59_02P66_26_APR_200423_59_02 .d4HCODEFG H֤ACREDIT_CUSTCREDIT_CUST/]h0^֐CREDIT_CUST1 0DXl׀הר׸LFSGT410_INS10LFSGT410_INS11LFSGT301_SEL_BLFSGT301_SELLFSGT410_INS19LFSGT340_INS10LFSGT340_INS11INS_CHK1INS_CHK2POST_QUERY_CHKP35_26_APR_200423_59_02P50_26_APR_200423_59_02t2d؄ؔCPDEFGHAIO_SLIP_CIO_SLIP_C3]ش4^IO_SLIP_C5ٰٜ$4Thڈڨ(HhLFSGT410_INS10LFSGT410_INS11LFSGT630_INSLFSGT410_INS19LFSGT340_INS10LFSGT340_INS11SLIP_NO1INS_CHK2LFSGT340_341_420_INSERTPOST_QUERY_CHKP15_26_APR_200423_59_02P21_26_APR_200423_59_02P22_26_APR_200423_59_02P23_26_APR_200423_59_02P29_26_APR_200423_59_02P44_26_APR_200423_59_02P46_26_APR_200423_59_02P52_26_APR_200423_59_02P60_26_APR_200423_59_026dCQDEFGHXASLIP_NO_CSLIP_NO_C7] 8^ۈHSLIP_NO_C9  4H\p݀ݐݰ$DdބLFSGT410_INS10LFSGT410_INS11LFSGT630_INSLFSGT410_INS19LFSGT340_INS10LFSGT340_INS11SLIP_NO1INS_CHK2LFSGT340_341_420_INSERTPOST_QUERY_CHKP15_26_APR_200423_59_02P22_26_APR_200423_59_02P23_26_APR_200423_59_02P28_26_APR_200423_59_02P29_26_APR_200423_59_02P52_26_APR_200423_59_02P61_26_APR_200423_59_02:dCRDEF G HhAUSRIDUSRID;] l4<^ޤ\USRID=  0DdLFSGT410_INS10LFSGT410_INS11PUT_UPDATE2PUT_UPDATELFSGT340_INS10LFSGT340_INS11LFSGT340_341_420_INSERTP0_26_APR_200423_59_02P28_26_APR_200423_59_02P29_26_APR_200423_59_02>d$0CSDEFG HASEQ_NOSEQ_NO?]P@^xSEQ_NOA (<L\lLFSGT410_INS10LFSGT410_INS11LFSGT340_INS10LFSGT340_INS11INS_CHK1SEQ_CHKSLIP_NO1LFSGT340_341_420_INSERTP50_26_APR_200423_59_02P60_26_APR_200423_59_02$Bd0<CTDEF GHAUSR_IDUSR_IDC]\D^USR_IDE ,LFSGT410_INS10LFSGT410_INS11LFSGT410_INS19P28_26_APR_200423_59_02P29_26_APR_200423_59_02FdCUDEFGHAINS_CHKINS_CHKG]H^L INS_CHKI\pLFSGT410_INS11LFSGT340_INS10LFSGT340_INS11P28_26_APR_200423_59_02P29_26_APR_200423_59_020JdDXCVDEFGHASLIP_NO_M_ISLIP_NO_M_IK]xL^SLIP_NO_M_IM4SLIP_NO2_INUPTLFSGT410_INS11P28_26_APR_200423_59_02P29_26_APR_200423_59_02NdCWDEFGH0ACAR_VAT_DIVCAR_VAT_DIVO]P^TCAR_VAT_DIVQ`tLFSGT630_INSPOST_QUERY_CHKP47_26_APR_200423_59_02Rd(CXDEFGHACAR_VAT_RATCAR_VAT_RATS]HT^pCAR_VAT_RATULFSGT630_INSPOST_QUERY_CHKP47_26_APR_200423_59_02LVd`CYDEFG HtAGLOBAL.COOPGLOBAL.COOPW 0DXh|PUT_UPDATE2LFSGT301_SEL_BLFSGT302_SEL_BLFSGT302_SELLFSGT301_SELPUT_UPDATEGET_DATA_BANGET_DATAP0_26_APR_200423_59_02P7_26_APR_200423_59_02P14_26_APR_200423_59_02P71_26_APR_200423_59_02P4_07_JUN_200711_17_06xXdCZDEF G H4AQB1.BAESONG_DTQB1.BAESONG_DTY]Z^ BAESONG_DT[^ (QB1\ ,@P`pPUT_UPDATE2LFSGT301_SEL_BLFSGT301_UPTLFSGT301_SELLFSGT301_REUPTLFSGT301_19LFSGT301_10PUT_UPDATEPUT_SAVE2PUT_SAVEP28_26_APR_200423_59_02P29_26_APR_200423_59_02P4_07_JUN_200711_17_06$]d8LC[DEFG HA lQB1.BAESONG_NOQB1.BAESONG_NO^]t_^BAESONG_NO`^QB1a `t <\PUT_UPDATE2LFSGT301_SEL_BLFSGT301_UPTLFSGT301_SELLFSGT301_REUPTLFSGT301_19LFSGT301_10PUT_UPDATEPUT_SAVE2PUT_SAVEP28_26_APR_200423_59_02P29_26_APR_200423_59_02P4_07_JUN_200711_17_06bdC\DEFGHACB1.SLIP_NO_CCB1.SLIP_NO_Cc] Xd^xHSLIP_NO_Ce^xCB1fPUT_UPDATE2LFSGT301_UPTPUT_UPDATELgdd|C]DEFGHASAVE_SERVICE_CHKSAVE_SERVICE_CHKh]i^SAVE_SERVICE_CHKj0@P`PUT_UPDATE2PUT_UPDATEPUT_SAVE2PUT_SAVEP14_26_APR_200423_59_02kdC^DEFGHPASLIP_DT_MASLIP_DT_MAl]m^@SLIP_DT_MAnLFSGT301_SEL_BLFSGT302_SEL_BLFSGT302_SELLFSGT301_SEL0od@PC_DEFGHAIO_SLIP_MAIO_SLIP_MAp]pq^IO_SLIP_MArLFSGT301_SEL_BLFSGT301_SELPsd`pC`DEFGHASLIP_NO_MASLIP_NO_MAt]u^SLIP_NO_MAv(<LFSGT301_SEL_BLFSGT302_SEL_BLFSGT302_SELLFSGT301_SELwdCaDEF GHpAQB1.BAESONGSC_DTQB1.BAESONGSC_DTx]<y^P(BAESONGSC_DTz^PdQB1{LFSGT301_SEL_BLFSGT301_SELLFSGT301_REUPTQB1.BAESONG_NUMQB1qiHy}[l4@[T:h/ZrCAR_NOCAR_NOX"-"XXXXXXXCAR_NOCAN1blackr88g100b100transparentE8D1u:WHEN-VALIDATE-ITEMWHEN-VALIDATE-ITEMr V!tuqijy}[l[|/ZrCAR_NO_DCAR_NO_DCAN1blackr88g100b100transparent(r8V*HAP&!Xtui"y}[ldp[|:/Zr PALLET_CNTPALLET_CNT12CAN1blackgray8transparentE8D02fu:WHEN-CHECKBOX-CHANGEDWHEN-CHECKBOX-CHANGED2r V l|dXpCbDEFGHAQB1.BAESONG_NUM}]~^BAESONG_NUM^DXlLFSGT301_SEL_BLFSGT301_UPTLFSGT301_SELLFSGT301_REUPTLFSGT301_19LFSGT301_10 d$CcDEFGH<AGLOBAL.BAESONG_DTGLOBAL.BAESONG_DTtLFSGT301_SEL_BLFSGT301_SELP14_26_APR_200423_59_02P4_07_JUN_200711_17_06(d@CdDEFGHXAGLOBAL.BAESONG_NOGLOBAL.BAESONG_NOLFSGT301_SEL_BLFSGT301_SELP14_26_APR_200423_59_02P4_07_JUN_200711_17_06Ld\lCeDEFGHACUST_CD_DCUST_CD_D]^CUST_CD_D,@`LFSGT301_SEL_BLFSGT301_SELPOST_QUERY_CHKP35_26_APR_200423_59_02P36_26_APR_200423_59_02dCfDEFGHDAAREA_CAREA_C]^8AREA_C0LFSGT301_SEL_BLFSGT301_SELPOST_QUERY_CHKP35_26_APR_200423_59_02P58_26_APR_200423_59_02P66_26_APR_200423_59_02P67_26_APR_200423_59_02dCgDEFGH APUT_CHECKPUT_CHECK]^PPUT_CHECK`tLFSGT301_SEL_BLFSGT301_SELP7_26_APR_200423_59_02P14_26_APR_200423_59_02P22_26_APR_200423_59_02 <d L \ChDEFGH ADANGA_CHKDANGA_CHK] |^ DANGA_CHK  LFSGT301_SEL_BLFSGT301_SEL \d p CiDEFGH AQB2.ITEM_DIVQB2.ITEM_DIV]  ^  ITEM_DIV^  QB2 H \ pLFSGT302_SEL_BLFSGT302_SELORDER_LFSGT311 d  CjDEFGH AQB2.ITEM_CDQB2.ITEM_CD] , d^  TITEM_CD^  QB2     (LFSGT302_SEL_BLFSGT302_SELITEM_JAN_QTYORDER_LFSGT311P66_26_APR_200423_59_02 d  CkDEFGH\AQB2.ITEM_CD_DQB2.ITEM_CD_D] (^ HITEM_CD_D^ HPQB2LFSGT302_SEL_BLFSGT302_SELORDER_LFSGT311 d4HClDEFGHAQB2.SALE_AMTQB2.SALE_AMT]p^SALE_AMT^QB2 "l  4LFSGT302_SEL_BLFSGT302_SELORDER_LFSGT311dCmDEFGHPAQB2.COSTQB2.COST]^HCOST^HDQB2LFSGT302_SEL_BLFSGT302_SELORDER_LFSGT311d(<CnDEFGHAQB2.VAT_AMTQB2.VAT_AMT]d^VAT_AMT^QB2(LFSGT302_SEL_BLFSGT302_SELORDER_LFSGT311dCoDEFGHDAQB1.NORMALQB1.NORMAL]^<NORMAL^<8QB1|LFSGT301_UPTLFSGT301_REUPTP14_26_APR_200423_59_02P4_07_JUN_200711_17_068dL`CpDEFGHACB1.IO_SLIP_CCB1.IO_SLIP_C]^IO_SLIP_C^CB1$8LLFSGT301_UPTGET_DATA_BANGET_DATAdCqDEFGHdACB1.COOP_CCB1.COOP_C]0^\$COOP_C^\XCB1LFSGT301_UPTLFSGT301_REUPTLFSGT301_19LFSGT301_10Dd\tCrDEF GH ASB1.W_BAESONG_DTSB1.W_BAESONG_DT]^W_BAESONG_DT^SB1L\pGET_DATA_DGET_DATA_BANGET_DATAP0_07_JUN_200711_17_06P4_07_JUN_200711_17_06d(@CsDEFGHASB1.W_BAESONG_NOSB1.W_BAESONG_NO]h^W_BAESONG_NO^SB1 4DGET_DATA_DGET_DATA_BANGET_DATAP4_07_JUN_200711_17_06dCtDEFGHhASB2.K_QTYSB2.K_QTY]4^`(K_QTY^`\SB2GET_DATA_DdCuDEFGHASB2.K_SALE_AMTSB2.K_SALE_AMT]@x^hK_SALE_AMT^SB2GET_DATA_D4dDTCvDEFGHASB2.K_AMTSB2.K_AMT]|^K_AMT^SB2GET_DATA_DldCwDEFGH (ASB2.K_VAT_AMTSB2.K_VAT_AMT]^ lK_VAT_AMT^ SB2 HGET_DATA_D d  CxDEFGH!lASB2.K_AMT_SSB2.K_AMT_S]!!8^ X!(K_AMT_S^ X!`SB2!GET_DATA_D!d""CyDEFGH"ASB2.K_ITEM_CDSB2.K_ITEM_CD]"D"|^!"lK_ITEM_CD^!"SB2"GET_DATA_D#8d#L#`CzDEFGH#ASB2.K_ITEM_NMSB2.K_ITEM_NM]##^"#K_ITEM_NM^"#SB2$GET_DATA_D$|d$$C{DEFGH%8ASB1.W_WON_COOPSB1.W_WON_COOP]$%^$$$W_WON_COOP^$$%,SB1%`%tGET_DATA_BANGET_DATA%d%&C|DEFGH&ASB1.W_WON_BAESONG_NUMSB1.W_WON_BAESONG_NUM]&<&|^%&dW_WON_BAESONG_NUM^%&SB1&&GET_DATA_BANGET_DATA'Td'h'|C}DEFGH(ASB1.W_IO_SLIPSB1.W_IO_SLIP]''^&'W_IO_SLIP^&(SB1(8(LGET_DATA_BANGET_DATA(d((C~DEFGH)|ASB1.W_BAESONG_NUMSB1.W_BAESONG_NUM]) )H^(\)4W_BAESONG_NUM^(\)pSB1)))GET_DATA_BANGET_DATAP13_07_JUN_200711_17_06*Hd*`*xCDEF GH+ASB1.W_BAESONGSC_DTSB1.W_BAESONGSC_DT]**^)*W_BAESONGSC_DT^)+SB1+8+LGET_DATA_BANGET_DATA+d++CDEFGH,|ASB1.W_GONGGEUB_AMTSB1.W_GONGGEUB_AMT ], ,H ^+\,4W_GONGGEUB_AMT ^+\,pSB1 ,,GET_DATA_BANGET_DATA-  d-4-HCDEFGH-ASB1.W_VAT_AMTSB1.W_VAT_AMT]-p-^,-W_VAT_AMT^,-SB1..GET_DATA_BANGET_DATA.d..CDEFGH/HASB1.W_WONGA_AMTSB1.W_WONGA_AMT]./^.(/W_WONGA_AMT^.(/<SB1/p/GET_DATA_BANGET_DATA/d00CDEF GH l0ASB1.W_GEORAE_DTSB1.W_GEORAE_DT]0D0^/0lW_GEORAE_DT^/0SB100GET_DATA_BANGET_DATA1Xd1t1CDEF GH2,ASB1.W_WON_BAESONG_DTSB1.W_WON_BAESONG_DT]11^11W_WON_BAESONG_DT^12 SB1 2T2hGET_DATA_BANGET_DATA2!d23CDEFGH3ASB1.W_WON_BAESONG_NOSB1.W_WON_BAESONG_NO"]303p#^2x3XW_WON_BAESONG_NO$^2x3SB1%33GET_DATA_BANGET_DATA4H&d4`4xCDEFGH5ASB1.W_JP_NORMALSB1.W_JP_NORMAL']44(^34W_JP_NORMAL)^35SB1*5@5T5dGET_DATA_BANGET_DATAP4_07_JUN_200711_17_065+d56CDEFGH6ASB1.W_IO_SLIP_BANSB1.W_IO_SLIP_BAN,]606l-^56XW_IO_SLIP_BAN.^56SB1/666GET_DATA_BANGET_DATAP4_07_JUN_200711_17_067h0d7|7CDEFGH8$ASB1.W_CUST_NMSB1.W_CUST_NM1]772^77W_CUST_NM3^78SB148L8`GET_DATA_BANGET_DATA85d88CDEFGH9ASB1.W_SLIP_NOSB1.W_SLIP_NO6]99P7^8p9@W_SLIP_NO8^8p9xSB19999GET_DATA_BANGET_DATAP4_07_JUN_200711_17_06:L:d:`:tCDEF GH;ASB1.W_JP_GBNSB1.W_JP_GBN;]::<^9:W_JP_GBN=^9:SB1>;8;L;\GET_DATA_BANGET_DATAP4_07_JUN_200711_17_06;?d;;CDEFGH LFSGT340_341_420_INSERT>Gd>>CDEF GH?4AQB1.ACT_DTQB1.ACT_DTH]>?I^>,>ACT_DTJ^>,?(QB1K?\?|LFSGT340_341_420_INSERTP53_26_APR_200423_59_02?Ld@@CD lEFGH@AQB2.PRE_QTYQB2.PRE_QTYM]@D@|N^?@lPRE_QTYO^?@QB2P@@AITEM_JAN_QTYP60_26_APR_200423_59_02P66_26_APR_200423_59_02AQdAACDEFGHBACAR_NO_DCAR_NO_DR]AS^A4ACAR_NO_DTB4BHBhPOST_QUERY_CHKP44_26_APR_200423_59_02P47_26_APR_200423_59_02BUdBCCDEF GHCAQB1.ORDER_DTQB1.ORDER_DTV]C0ChW^BCXORDER_DTX^BCQB1YCCDDD<ORDER_LFSGT310ORDER_LFSGT311ORDER_LFSGT310_UPTP61_26_APR_200423_59_02P62_26_APR_200423_59_02DZdDDCDEFGHEpAQB1.ORDER_NOQB1.ORDER_NO[]EE<\^D\E,ORDER_NO]^D\EdQB1^EEEEFORDER_LFSGT310ORDER_LFSGT311ORDER_LFSGT310_UPTP61_26_APR_200423_59_02P62_26_APR_200423_59_02F_dFCDEFGHFASYSTEM.MESSAGE_LEVELSYSTEM.MESSAGE_LEVEL`FP0_26_APR_200423_59_02GDadGXCDEFGHGlAGLOBAL.USRIDGLOBAL.USRIDbGP0_26_APR_200423_59_02HcdH HCDEFGHHlAUSRNMUSRNMd]H8e^GH`USRNMfHP0_26_APR_200423_59_02HgdI CDEFGHI AGLOBAL.USRNMGLOBAL.USRNMhI@P0_26_APR_200423_59_02IidIICDEF GHJ APGMIDPGMIDj]Ik^I\JPGMIDlJ@P0_26_APR_200423_59_02JmdJCDEFGHJAGLOBAL.PGMIDGLOBAL.PGMIDnJP0_26_APR_200423_59_02KhodKtKCDEF GHKASYSDTSYSDTp]Kq^KKSYSDTrKLP0_26_APR_200423_59_02P7_26_APR_200423_59_02LsdLCDEFGHLAGLOBAL.SYSDTGLOBAL.SYSDTtLP0_26_APR_200423_59_02M8udMLCDEFGHM`AGLOBAL.COMMITGLOBAL.COMMITvMMMP3_26_APR_200423_59_02P4_26_APR_200423_59_02P14_26_APR_200423_59_02N8wdNPCDEFGHNhASYSTEM.MOUSE_ITEMSYSTEM.MOUSE_ITEMxNP2_26_APR_200423_59_02NydOOCDEFGHOhAHELPHELPz]O4{^NO\HELP|OP2_26_APR_200423_59_02O}d lPCDEFGHP,ASYSTEM.CURRENT_ITEMSYSTEM.CURRENT_ITEM~PLP6_26_APR_200423_59_02PdPPCDEFGHQ8ANORMAL_INORMAL_I]Q^PhQ(NORMAL_IQhQQP7_26_APR_200423_59_02P22_26_APR_200423_59_02P30_26_APR_200423_59_02RdR0CDEFGHRLASYSTEM.CURSOR_RECORDSYSTEM.CURSOR_RECORDRtRP8_26_APR_200423_59_02P2_07_JUN_200711_17_06RdSCDEFG HS,ASYSTEM.CURSOR_ITEMSYSTEM.CURSOR_ITEM SSSTT$TDTdTTTTUU P8_26_APR_200423_59_02P9_26_APR_200423_59_02P24_26_APR_200423_59_02P25_26_APR_200423_59_02P54_26_APR_200423_59_02P55_26_APR_200423_59_02P56_26_APR_200423_59_02P76_26_APR_200423_59_02P77_26_APR_200423_59_02P78_26_APR_200423_59_02P79_26_APR_200423_59_02P2_07_JUN_200711_17_06P3_07_JUN_200711_17_06UdUCDEFGHUASYSTEM.LAST_RECORDSYSTEM.LAST_RECORDUVV8VXVxP9_26_APR_200423_59_02P10_26_APR_200423_59_02P14_26_APR_200423_59_02P68_26_APR_200423_59_02P3_07_JUN_200711_17_06VdWCDEFGHWASYSTEM.TRIGGER_ITEMSYSTEM.TRIGGER_ITEMW<P11_26_APR_200423_59_02WdWCDEFG HWASYSTEM.CURRENT_BLOCKSYSTEM.CURRENT_BLOCK XDXdXXXXYY$YDP10_26_APR_200423_59_02P14_26_APR_200423_59_02P22_26_APR_200423_59_02P30_26_APR_200423_59_02P31_26_APR_200423_59_02P32_26_APR_200423_59_02P13_07_JUN_200711_17_06P66_26_APR_200423_59_02P75_26_APR_200423_59_02YdYCDEFGHYAGLOBAL.CUR_ITEMGLOBAL.CUR_ITEMZP10_26_APR_200423_59_02Z|dZZCDEFGHZAITEM_CD_DITEM_CD_D]Z^Z$ZITEM_CD_D[$[D[dP14_26_APR_200423_59_02P60_26_APR_200423_59_02P66_26_APR_200423_59_02[d[\CDEFGH\`AJUNG_BAN_CHKJUNG_BAN_CHK]\$^[\LJUNG_BAN_CHK\\P14_26_APR_200423_59_02P4_07_JUN_200711_17_06]d](CDEFGH]<AGLOBAL.SLIP_DTGLOBAL.SLIP_DT]d]P15_26_APR_200423_59_02P52_26_APR_200423_59_02]d^CDEFGH^AGLOBAL.IO_SLIPGLOBAL.IO_SLIP^L^l^P15_26_APR_200423_59_02P52_26_APR_200423_59_02P53_26_APR_200423_59_02^d_CDEFGH_$AGLOBAL.SLIP_NOGLOBAL.SLIP_NO_L_lP15_26_APR_200423_59_02P52_26_APR_200423_59_02_d 0l_CDEFGH` AGLOBAL.CUST_DIVGLOBAL.CUST_DIV`,P15_26_APR_200423_59_02`d`CDEFGH`AGLOBAL.CUST_CDGLOBAL.CUST_CD`aa<a\P15_26_APR_200423_59_02P50_26_APR_200423_59_02P51_26_APR_200423_59_02P53_26_APR_200423_59_02adaCDEFGHaAGLOBAL.SALE_STYLEGLOBAL.SALE_STYLEbP15_26_APR_200423_59_02bdbCDEFGHbAGLOBAL.DRAWGLOBAL.DRAWbP15_26_APR_200423_59_02cDdcTCDEFGHcdAGLOBAL.QTYGLOBAL.QTYcP15_26_APR_200423_59_02cddCDEFGHd,ASYSTEM.CURRENT_VALUESYSTEM.CURRENT_VALUEdddddP20_26_APR_200423_59_02P33_26_APR_200423_59_02P37_26_APR_200423_59_02P74_26_APR_200423_59_02e4dePCDEFGHelASYSTEM.BLOCK_STATUSSYSTEM.BLOCK_STATUSeP22_26_APR_200423_59_02fdff,CDEFGHfAQB1.SLIP_NOQB1.SLIP_NO]fTf^ef|SLIP_NO^efQB1fP28_26_APR_200423_59_02gXdghgxCD EFGHgAHAND_DTHAND_DT]g^ggHAND_DTghP28_26_APR_200423_59_02P29_26_APR_200423_59_02hdhhCDEFGHiLACB1.PUT_CHECKCB1.PUT_CHECK]hi^h8iPUT_CHECK^h8i@CB1ilP29_26_APR_200423_59_02idiCDEFGHjASYSTEM.RECORD_STATUSSYSTEM.RECORD_STATUSjTjtjjjP30_26_APR_200423_59_02P32_26_APR_200423_59_02P38_26_APR_200423_59_02P13_07_JUN_200711_17_06P75_26_APR_200423_59_02kLdk`ktCDEFGHlACB1.AGR_PARTCB1.AGR_PART]kk^jkAGR_PART^jkCB1l(P35_26_APR_200423_59_02ldllCDEFGHm\AQB1.CUST_DIVQB1.CUST_DIV]lm(^lHmCUST_DIV^lHmPQB1m|P39_26_APR_200423_59_02mdn n$CDEFGHnACB1.CREDIT_CUSTCB1.CREDIT_CUST]nLn^mntCREDIT_CUST^mnCB1nP39_26_APR_200423_59_02oLdo`CDEFGHotAGLOBAL.ACT_DTGLOBAL.ACT_DTo @ lP50_26_APR_200423_59_02pdpCDEFGHp,AGLOBAL.SEQ_NOGLOBAL.SEQ_NOpLP50_26_APR_200423_59_02pdppCDEFGHqAQB1.IO_SLIPQB1.IO_SLIP]qqL^plq<IO_SLIP^plqtQB1qP53_26_APR_200423_59_02rdr$CDEFGHr8AGLOBAL.CNT_DTGLOBAL.CNT_DTrXP53_26_APR_200423_59_02rdrrCDEFGHsAQB1.VATQB1.VAT]ssL^rxs@VAT^rxstQB1sP13_07_JUN_200711_17_06tdt(t8CDEFGHtAQB1.QTY_T1QB1.QTY_T1]t`t^stQTY_T1^stQB1tP13_07_JUN_200711_17_06u`dupuCDEFGHvAQB1.QTY_T2QB1.QTY_T2]uu^uuQTY_T2^uvQB1v0P13_07_JUN_200711_17_06vdvvCDEFGHwXAQB1.S_AMTQB1.S_AMT]vw$^vPwS_AMT^vPwLQB1wxP13_07_JUN_200711_17_06wdxxCDEFGHxhANOR_GUBUNNOR_GUBUN]x0^wxXNOR_GUBUNxP13_07_JUN_200711_17_06ydy yCDEFGHylAUNITUNIT]y8^xy`UNITyyP60_26_APR_200423_59_02P66_26_APR_200423_59_02z,dz@zTCDEFGHzAQB2.SLIP_NOQB2.SLIP_NO]z|z^yzSLIP_NO^yzQB2{P61_26_APR_200423_59_02{d{{CDEFGH|<ACB1.ITEM_DIV_CCB1.ITEM_DIV_C]{|^{({ITEM_DIV_C^{(|0CB1|\P66_26_APR_200423_59_02|d|CDEFGH|AGLOBAL.CAR_GBNGLOBAL.CAR_GBN}}<P66_26_APR_200423_59_02P67_26_APR_200423_59_02}d}}CDEFGH~,ACOOP_DDCOOP_DD]}^}\~COOP_DD~T~tP70_26_APR_200423_59_02P71_26_APR_200423_59_02~d~ CDEFGHdACOOP_CCCOOP_CC],^~TCOOP_CC P lP70_26_APR_200423_59_02P71_26_APR_200423_59_02P82_26_APR_200423_59_02Ld\lCDEFGHACUST_CD_DDCUST_CD_DD]^CUST_CD_DD P72_26_APR_200423_59_02P73_26_APR_200423_59_02 dCDEF GHACUST_CD_CCCUST_CD_CC ] ^,CUST_CD_CC $DP72_26_APR_200423_59_02P73_26_APR_200423_59_02 dCDEFGH@ACUST_CD_DDDCUST_CD_DDD]^d,CUST_CD_DDD`P81_26_APR_200423_59_02dCDEF GHACB3.CUST_CDCB3.CUST_CD](`^PCUST_CD^CB3P81_26_APR_200423_59_02,d@TCDEF GHACB3.SLIP_DTCB3.SLIP_DT]|^SLIP_DT^CB3P82_26_APR_200423_59_02dCDEFGH<ACB3.IO_SLIPCB3.IO_SLIP]^(IO_SLIP^(0CB3\P82_26_APR_200423_59_02 dCDEFGHACB3.SLIP_NOCB3.SLIP_NO!]$\"^|LSLIP_NO#^|CB3$P82_26_APR_200423_59_02(%d<PCDEFGHASB.NOR_GUBUNSB.NOR_GUBUN&]x'^NOR_GUBUN(^SB)P0_07_JUN_200711_17_06t*dCDEFGHAJUNG_CHKJUNG_CHK+],^JUNG_CHK- P4_07_JUN_200711_17_06ȣ ȣ ֹȣ ֹֹŷó ŷóڵ ŷóڵŷóŷóڵ ǥȣ ⱸ Ǹ ǥ޾ȯٰ ǥݰ꼭 Ǹ,ΰȸⱸǥȣ ǰ ݾŷóŷóڵǥȣⱸǸⱸμ:F8:F4:F3:F5:F10:F6MESSAGEEnter value for : CUST_CDCust CdEnter value for : CUST_CDCust CdEnter value for : CUST_CDCust CdEnter value for : SLIP_NOSlip NoEnter value for : IO_SLIPIo SlipEnter value