Subject | Hash | Author | Date (UTC) |
---|---|---|---|
Update tpl library for EFT Bank File Creation with workaround for amounts | 91dab2d3618b99b8758bf65d58cd8facc6df08ff | gbg | 2014-03-03 07:29:21 |
d2561 | a3d2e47f82c1e0d9b245391d8e9cebec9a900afd | gbg | 2014-02-21 04:33:43 |
d2561 | 46df2f4ab87f400e7d20dfb31faf448d396f04fa | gbg | 2014-02-21 03:35:00 |
d2561 | 5614d485d8c4bcfd6402d6df9f1edbd4d8371305 | gbg | 2014-02-21 03:23:35 |
d2561 | 732b3761194e0c0783b9f31ae2df7541bdcd598f | gbg | 2014-02-21 01:12:15 |
d2561 | b4b13a6ba9792b545ab63e8dfd600253e321c163 | gbg | 2014-02-21 00:51:11 |
d2561 | df49e7e8ba5529218cb6c78a3bcaa11b6810830e | gbg | 2014-02-21 00:44:04 |
d2561 | 1ea4b24c354f3797da29ffba02870e0ff674a4d8 | gbg | 2014-02-21 00:28:48 |
d2561 | 377b24a944d64666775de8306b607fb8c9e524ae | gbg | 2014-02-21 00:00:44 |
d2561 | ddcc8ed0c739b426768a8caf646260bfb008a1d9 | gbg | 2014-02-20 15:01:12 |
update | 3cb83d589cf9081322366ee4eb38c0df910837f2 | gbg | 2013-12-20 08:35:41 |
Initial Load for Buderim Ginger | e79fcfa36e7a9a80e19b84d121e99b53397dd5ba | gbg | 2013-12-18 03:24:58 |
File | Lines added | Lines deleted |
---|---|---|
mfg/2013/base/src/dollartocent | 42 | 0 |
mfg/2013/base/src/soiv1002.p | 1 | 1 |
File mfg/2013/base/src/dollartocent added (mode: 100644) (index 0000000..2335c57) | |||
1 | define output parameter o_result_value as character. | ||
2 | define shared variable global_domain as character. | ||
3 | define shared variable ecom_domain as character. | ||
4 | |||
5 | define variable result_value as character. | ||
6 | |||
7 | define shared temp-table tt_params no-undo | ||
8 | field tt_pm_seq as integer | ||
9 | field tt_pm_param_value as character | ||
10 | index tt_pm_seq is primary unique | ||
11 | tt_pm_seq. | ||
12 | |||
13 | define shared temp-table tt_ht no-undo | ||
14 | field tt_ht_f1 as character | ||
15 | field tt_ht_f2 as character | ||
16 | field tt_ht_f3 as character | ||
17 | field tt_ht_f4 as character | ||
18 | field tt_ht_f5 as character | ||
19 | field tt_ht_f6 as character | ||
20 | field tt_ht_f7 as character | ||
21 | field tt_ht_f8 as character | ||
22 | field tt_ht_f9 as character | ||
23 | field tt_ht_f10 as character | ||
24 | field tt_ht_seq as int64 | ||
25 | field tt_loop_stack as character | ||
26 | field tt_curr_loop_level as integer | ||
27 | index tt_ht_idx1 is unique primary | ||
28 | tt_ht_f1 tt_ht_f2 tt_ht_f3 tt_ht_f4 tt_ht_f5 | ||
29 | tt_ht_f6 tt_ht_f7 tt_ht_f8 tt_ht_f9 tt_ht_f10. | ||
30 | |||
31 | define shared variable trgt_domain like global_domain no-undo. | ||
32 | |||
33 | define variable camount as character. | ||
34 | for first tt_params where tt_params.tt_pm_seq = 1 no-lock: end. | ||
35 | camount = string(tt_params.tt_pm_param_value). | ||
36 | |||
37 | |||
38 | result_value = trim(string(round(100 * decimal(camount), 0), "9999999999")). | ||
39 | |||
40 | |||
41 | |||
42 | o_result_value = string(result_value). |
File mfg/2013/base/src/soiv1002.p changed (mode: 100644) (index a3effe3..6dad54f) | |||
... | ... | do: | |
757 | 757 | hdr_call to 64 no-label | hdr_call to 64 no-label |
758 | 758 | getTermLabelRtColon("REMARKS",15) format "x(15)" to 15 | getTermLabelRtColon("REMARKS",15) format "x(15)" to 15 |
759 | 759 | ih_rmks | ih_rmks |
760 | " Sold-To Email:" format "x(15)" to 15 | ||
760 | " Sold-To Email:" /* format "x(15)" */ to 15 | ||
761 | 761 | vemail | vemail |
762 | 762 | skip(1) | skip(1) |
763 | 763 | with frame phead2 width 90. | with frame phead2 width 90. |