-
Notifications
You must be signed in to change notification settings - Fork 0
/
ps917m01.per
73 lines (61 loc) · 3.81 KB
/
ps917m01.per
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
DATABASE life WITHOUT NULL INPUT
SCREEN SIZE 24 BY 80
{
程式代號: 使用者:
終端機號: 日 期:
┌──────────────────────────────┤[pcy|c_desc]├┐
│保單號碼:[p_no ] 要保人:[o1_name ]狀態:[st]受理號碼:[b_no ]│
│受理號碼:[a_no |a_date ]被保人:[i1_name ]險種:[plan_code] │
│約定項目:[e](1:轉換 2:提領) 效 性: [s](0:有效 1:無效 2:已完成) │
│約定日期:[ap_date ] 頻 率:[fq](0:單次 1:月 3:季 6:半年 12:年) │
├──────────────────────────────────────┤
│ 轉出/提領標的代碼 轉出/提領方式 指定金額 轉出/提領基金筆數 │
│[i1_code ] [c|iu1 ][i_amt1 ][p] [tot_sell] 筆 │
│[i1_code ] [c|iu1 ][i_amt1 ][p] │
│[i1_code ] [c|iu1 ][i_amt1 ][p] │
├──────────────────────────────────────┤
│ 買入標的代碼 分配比例(%) 買入基金筆數 │
│[i2_code ] [iu2] [tot_buy ]筆 │
│[i2_code ] [iu2] │
│[i2_code ] [iu2] │
│ │
└──────────────────────────────────────┘
資料筆數:[now]/[tot ]
}
TABLES chah chad polf
ATTRIBUTES
pcy = FORMONLY.currency TYPE CHAR, NOENTRY,
COLOR = CYAN WHERE pcy = "TWD",
COLOR = YELLOW UNDERLINE WHERE pcy != "TWD";
c_desc = FORMONLY.c_desc TYPE CHAR, NOENTRY, COLOR = WHITE;
p_no = chah.policy_no, UPSHIFT, AUTONEXT, COLOR = YELLOW UNDERLINE;
a_no = chah.receive_no, UPSHIFT, AUTONEXT, COLOR = CYAN;
b_no = FORMONLY.new_receive_no,UPSHIFT,NOENTRY,COLOR = CYAN;
a_date = FORMONLY.receive_date TYPE CHAR, NOENTRY, COLOR = CYAN;
st = polf.po_sts_code ,NOENTRY ,COLOR = CYAN;
o1_name = FORMONLY.o1_name TYPE CHAR, NOENTRY,COLOR = CYAN;
i1_name = FORMONLY.i1_name TYPE CHAR, NOENTRY,COLOR = CYAN;
plan_code = polf.basic_plan_code ,NOENTRY,COLOR = CYAN;
e = chah.chah_ind ,AUTONEXT,INCLUDE = ( "1" TO "2" ), DEFAULT = "1";
s = chah.active_ind,AUTONEXT, INCLUDE = ( " ","0" TO "2" ), DEFAULT = " ";
ap_date = chah.bgn_date ,REQUIRED,AUTONEXT ,PICTURE='###/##/##';
fq = chah.chah_freq,REQUIRED,AUTONEXT;
i1_code = chad.invs_code ,AUTONEXT, UPSHIFT, COLOR = CYAN;
c = chad.chah_sell_type,AUTONEXT, INCLUDE = ( " ","1" TO "2" ), DEFAULT = " ", COLOR = CYAN
,COMMENTS="1.指定金額 2.全部結清";
iu1 = FORMONLY.chah_sell_type_desc, NOENTRY, COLOR = CYAN;
i_amt1 = chad.invs_ad_amt, COLOR = CYAN,
FORMAT = "###########&.&&",AUTONEXT;
p = FORMONLY.skip_field ,NOENTRY;
tot_sell = FORMONLY.total_sell_record TYPE INT,NOENTRY, COLOR = CYAN, FORMAT = "#######&";
i2_code = FORMONLY.invs_code TYPE CHAR, REQUIRED, AUTONEXT, UPSHIFT,COLOR = CYAN;
iu2 = chad.invs_ad_perc ,AUTONEXT, COLOR = CYAN,
FORMAT = "##&", DEFAULT = 0;
tot_buy = FORMONLY.total_buy_record TYPE INTEGER,NOENTRY, COLOR = CYAN, FORMAT = "#######&";
now = FORMONLY.now_record TYPE INTEGER , NOENTRY,COLOR = YELLOW UNDERLINE;
tot = FORMONLY.total_record TYPE INTEGER, NOENTRY,
COLOR = YELLOW UNDERLINE;
INSTRUCTIONS
DELIMITERS " "
SCREEN RECORD sa_17m10[ 3 ] ( chad.invs_code THRU chad.invs_ad_amt ,skip_field)
SCREEN RECORD sa_17m11[ 3 ] ( FORMONLY.invs_code THRU chad.invs_ad_perc )