gbfg55 / gbg-20-git (public) (License: Unspecified) (since 2018-10-16) (hash sha1)
Buderim Trial Repository
Clone URLs: https://rocketgit.com/user/gbfg55/gbg-20-git ssh://rocketgit@ssh.rocketgit.com/user/gbfg55/gbg-20-git git://git.rocketgit.com/user/gbfg55/gbg-20-git
master
List of commits:
Subject Hash Author Date (UTC)
d3519 68c6c12487853024255c7dabb46b7bf9ab3a4ec1 ec2-user 2016-08-12 04:01:41
d3519 9ea103181b3b1b3cd968d74c760b9160c8e8c19b ec2-user 2016-07-04 04:10:08
d3519 798474e6cd496ee0daf09776fd070f827e3530bd ec2-user 2016-06-21 08:35:24
d3519 3b19d9578118bec562b2868f702b516c1a95cf1a ec2-user 2016-06-16 23:03:47
c1580 5efbfe70f325ed37582eba8fb8fd609e6e3e42a4 ec2-user 2016-05-31 03:38:23
d3465 5e92f8eb00d4c5e131183741c0b48440a59c41e6 ec2-user 2016-04-27 23:41:43
d3465 7999587f92b8a864f4cbc40a90179ff8e6241281 ec2-user 2016-04-27 04:51:23
d3224 99525a3628e13b692e354b3b6539ee1cc3b83d69 ec2-user 2015-08-25 02:27:35
d3224 f9c625d1ec21fbc36e1299ce6e8fcf59d280a9b3 ec2-user 2015-08-21 01:49:30
d3224 8adf5a92615a52d09e92e82dcb8fb680fba09b1c ec2-user 2015-08-19 02:25:31
c1485 54031cfe6e8c2ba4cdb833be90ffc01ebdf14b07 nac 2015-01-23 01:53:56
c1485b a1a2692751a6743d6f68f6eac84f2b026ebb9307 nac 2014-12-09 05:28:32
c1485 4b886da89f1d50501a37d678c8676a485d47f0c1 nac 2014-12-09 05:27:38
c1485 9b651808f47eccc51a50aebd85c9f59c3c9d1697 gbg 2014-09-17 04:43:53
c1485 7edc5474ef79faad54c8f0ea7ea401d3fe0ee412 gbg 2014-09-17 04:40:17
c1485 4ec559b86cfcf3525c05b3067dfc93f95431efab gbg 2014-09-17 04:15:47
c1485 5a7f22188dcae14b979985c75feebb47388be676 gbg 2014-09-16 02:29:31
K2155 2e7558f7db2b6e31da2519cad202b86da09adb9b nac 2014-09-04 01:01:16
k2155 86ded46bdb75580f51d14ba9b9d02c5b0e74199b nac 2014-09-04 00:58:06
c1474 1e6975340fddfad71c1da85972c906b15ad455c3 nac 2014-07-28 03:16:10
Commit 68c6c12487853024255c7dabb46b7bf9ab3a4ec1 - d3519
Author: ec2-user
Author date (UTC): 2016-08-12 04:01
Committer name: ec2-user
Committer date (UTC): 2016-08-12 04:01
Parent(s): 9ea103181b3b1b3cd968d74c760b9160c8e8c19b
Signing key:
Tree: 7b28122cd992e3e635ee0d6cd7fe287efe4d1ab4
File Lines added Lines deleted
mfg/2013/base/src/xf10e01mb.i 86 0
mfg/2013/base/src/xfiv10u.i 2 0
mfg/2013/base/src/xfiv10ub.i 3 1
mfg/2013/base/src/xfiv10ue.i 3 1
mfg/2013/base/src/xxgetordexcise.p 11 11
File mfg/2013/base/src/xf10e01mb.i added (mode: 100644) (index 0000000..1a198ba)
1 /* xf10e01mb.i - Formtrap Include file Invoice Print */
2 /* Copyright 1986-2009 QAD Inc., Carpinteria, CA, USA. */
3 /* All rights reserved worldwide. This is an unpublished work. */
4 /*----------------------------------------------------------------------------*/
5 /* Revision: eB3SP5 BY: Achint Lele DATE: 02/08/10 ECO: *eb3sp5* */
6 /* Revision: QAD2012.1 BY: Steve Hong DATE: 07/10/12 ECO: *93sp12.1 */
7 /* BGL LAST MODIFIED: 2016-JUN-17 BY: gbg *D3519* */
8 /*----------------------------------------------------------------------------*/
9 /*V8:ConvertMode=Report */
10
11 define variable tot_calc_tax as decimal.
12 def var lvLineExcise as dec.
13 def var lvLineGST as dec.
14 def var lvUnitPrice as dec.
15 def var lvExtLine as dec.
16 {us/bbi/gprun.i ""xxgetordexcise.p""
17 "(sod_nbr,
18 sod_line,
19 output lvLineExcise,
20 output lvLineGST,
21 output lvUnitPrice,
22 output lvExtLine)"}
23 /*d3519* end added code */
24
25 find first tt_tax where tt_sfb = 0 no-error.
26 assign
27 tot_tax = if available tt_tax then tt_tax_amt else 0
28 tot_ex_tax = if available tt_tax then tt_tax_ex_amt else 0.
29
30 /*** LINE DETAIL RECORDS ***/
31 assign tot_calc_tax = tot_tax + tot_ex_tax.
32 if desc2 = "" then
33 put stream ft "E" at 001 format "x(01)".
34 else
35 put stream ft "B" at 001 format "x(01)".
36
37 /*93sp12.1** added us/xf for all include file */
38 put stream ft
39 {us/xf/xfput.i sod_line 002 ">>9" } /* line number */
40 {us/xf/xfput.i sod_part 005 "x(18)" } /* item number */
41 {us/xf/xfput.i sod_taxable 023 "yes/no" } /* taxable */
42 {us/xf/xfput.i year(sod_due_date) 026 "9999" } /* due date */
43 {us/xf/xfput.i month(sod_due_date) 030 "99" }
44 {us/xf/xfput.i day(sod_due_date) 032 "99" }
45 {us/xf/xfput.i "(if sod_fsm_type <> 'FSM-RO':U then sod_qty_inv ~
46 else if sod_fsm_type = 'FSM-RO':U ~
47 and available itm_det then itm_qty_call ~
48 else 0)" 034 "->>>>>>>>9.999999999" }
49 {us/xf/xfput.i "(if sod_fsm_type <> 'FSM-RO':U then qty_bo ~
50 else 0") 054 "->>>>>>>>9.999999999" }
51 {us/xf/xfput.i sod_um 074 "x(02)" } /* uom */
52 /*d3519* start added code >>> */
53 {us/xf/xfput.i lvUnitPrice 076 "->>>>>>>>9.99999" }
54 /*d3519* end added code <<< */
55 /*d3519* start deleted code >>>
56 * {us/xf/xfput.i "(if sod_fsm_type <> 'FSM-RO':U then sod_price ~
57 * else if sod_fsm_type = 'FSM-RO':U ~
58 * and sod_fix_pr then sod_fixed_price ~
59 * else 0)" 076 "->>>>>>>>9.99999" }
60 *d3519* end deleted code <<<< */
61 {us/xf/xfput.i ext_price 092 "->>>>>>>>9.99999"} /* line value */
62 {us/xf/xfput.i sod_site 108 "x(08)" } /* site */
63 {us/xf/xfput.i sod_custpart 116 "x(30)" } /* cust item */
64 {us/xf/xfput.i desc1 146 "x(24)" } /* item desc 1*/
65 {us/xf/xfput.i "(if desc2 <> '' then desc2 ~
66 else '')" 170 "x(24)" }
67 {us/xf/xfput.i sod_disc_pct 194 "->>9.99" } /* disc % */
68 {us/xf/xfput.i sod_list_pr 201 "->>>>>>>>9.99999"} /* list price */
69 {us/xf/xfput.i sod_pr_list 217 "x(08)" } /* price list */
70 {us/xf/xfput.i tot_tax 225 "->>>>>>>>>>>9.99"} /* Tax Amount */
71 {us/xf/xfput.i tot_calc_tax 241 "->>>>>>>>>>>9.99"} /* Line Total incl Tax */
72 {us/xf/xfput.i tot_ex_tax 257 "->>>>>>>>>>>9.99"} /* Line Total excl Tax */
73 {us/xf/xfput.i year(sod_promise_date) 274 "9999" }
74 {us/xf/xfput.i month(sod_promise_date) 278 "99" }
75 {us/xf/xfput.i day(sod_promise_date) 280 "99" }
76 .
77
78 if desc2 = ""
79 then do :
80 {us/xf/xfso10ue.i} /*BLANK TEMPLATE*/
81 end.
82 else do:
83 {us/xf/xfso10ub.i} /*BLANK TEMPLATE*/
84 end.
85
86 put stream ft skip.
File mfg/2013/base/src/xfiv10u.i changed (mode: 100644) (index 7a5682c..fcf9a05)
22 22 /*d3519* start added code >>>> */ /*d3519* start added code >>>> */
23 23 def var vExciseAmount as dec. def var vExciseAmount as dec.
24 24 def var vGSTAmount as dec. def var vGSTAmount as dec.
25 def var vUnitPrice as dec.
26 def var vExtline as dec.
25 27 /*d3519* end added code >>>> */ /*d3519* end added code >>>> */
26 28
27 29
File mfg/2013/base/src/xfiv10ub.i changed (mode: 100644) (index a090038..578a33e)
... ... put stream ft
29 29 "(idh_inv_nbr, "(idh_inv_nbr,
30 30 idh_line, idh_line,
31 31 output vExciseAmount, output vExciseAmount,
32 output vGSTAmount)"}
32 output vGSTAmount,
33 output vUnitPrice,
34 output vExtLine)"}
33 35 put stream ft put stream ft
34 36 {us/xf/xfput.i vExciseAmount 338 "->>>>>>>>9.99" } {us/xf/xfput.i vExciseAmount 338 "->>>>>>>>9.99" }
35 37 {us/xf/xfput.i vExciseAmount 351 "->>>>>>>>9.99" } {us/xf/xfput.i vExciseAmount 351 "->>>>>>>>9.99" }
File mfg/2013/base/src/xfiv10ue.i changed (mode: 100644) (index 37b471f..78d5b7d)
... ... put stream ft
31 31 "(idh_inv_nbr, "(idh_inv_nbr,
32 32 idh_line, idh_line,
33 33 output vExciseAmount, output vExciseAmount,
34 output vGSTAmount)"}
34 output vGSTAmount,
35 output vUitPrice,
36 output vExtLine)"}
35 37 put stream ft put stream ft
36 38 {us/xf/xfput.i vExciseAmount 338 "->>>>>>>>9.99" } {us/xf/xfput.i vExciseAmount 338 "->>>>>>>>9.99" }
37 39 {us/xf/xfput.i vExciseAmount 351 "->>>>>>>>9.99" } {us/xf/xfput.i vExciseAmount 351 "->>>>>>>>9.99" }
File mfg/2013/base/src/xxgetordexcise.p copied from file mfg/2013/base/src/xxgetexcise.p (similarity 67%) (mode: 100644) (index 778d0d7..5207f81)
1 /* xxgetexcise.p - Return excise on invoice / order line */
1 /* xxgetordexcise.p - Return excise on invoice / order line */
2 2 /* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA. */ /* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA. */
3 3 /* All rights reserved worldwide. This is an unpublished work. */ /* All rights reserved worldwide. This is an unpublished work. */
4 4 /*---------------------------------------------------------------------------*/ /*---------------------------------------------------------------------------*/
 
6 6 /*---------------------------------------------------------------------------*/ /*---------------------------------------------------------------------------*/
7 7 {us/bbi/mfdeclre.i} {us/bbi/mfdeclre.i}
8 8
9 define input parameter ipRef as char.
9 define input parameter ipNbr as char.
10 10 define input parameter ipLine as int. define input parameter ipLine as int.
11 11 define output parameter opExcise as dec. define output parameter opExcise as dec.
12 12 define output parameter opGST as dec. define output parameter opGST as dec.
 
... ... opGST = 0.0.
20 20 opUnitPr = 0.0. opUnitPr = 0.0.
21 21 opExtPr = 0.0. opExtPr = 0.0.
22 22
23 for first idh_hist no-lock
24 where idh_domain = global_domain
25 and idh_inv_nbr = ipref
26 and idh_line = ipLine:
23 for first sod_det no-lock
24 where sod_domain = global_domain
25 and sod_nbr = ipref
26 and sod_line = ipLine:
27 27 for each tx2d_det for each tx2d_det
28 28 no-lock no-lock
29 29 where tx2d_domain = global_domain where tx2d_domain = global_domain
30 30 and (tx2d_tax_type = "tax-excise" or tx2d_tax_type = "tax-o") and (tx2d_tax_type = "tax-excise" or tx2d_tax_type = "tax-o")
31 and tx2d_ref = ipRef
31 and tx2d_nbr = ipNbr
32 32 and tx2d_line = ipLine and tx2d_line = ipLine
33 33 : :
34 34 case tx2d_tax_type: case tx2d_tax_type:
35 35 when "tax-excise" then do: when "tax-excise" then do:
36 opExcise = opExcise + (if idh_qty_inv = 0 then 0 else (tx2d_tax_amt / idh_qty_inv)).
36 opExcise = opExcise + (if sod_qty_inv = 0 then 0 else (tx2d_tax_amt / sod_qty_inv)).
37 37 end. end.
38 38 when "tax-o" then do: when "tax-o" then do:
39 opGST = opGST + (if idh_qty_inv = 0 then 0 else (tx2d_tax_amt / idh_qty_inv)).
39 opGST = opGST + (if sod_qty_inv = 0 then 0 else (tx2d_tax_amt / sod_qty_inv)).
40 40 end. end.
41 41 end. end.
42 42 end. end.
43 opUnitPr = idh_price + opExcise.
44 opExtPr = idh_qty_inv * opUnitPr.
43 opUnitPr = sod_price + opExcise.
44 opExtPr = sod_qty_inv * opUnitPr.
45 45 end. end.
46 46
Hints:
Before first commit, do not forget to setup your git environment:
git config --global user.name "your_name_here"
git config --global user.email "your@email_here"

Clone this repository using HTTP(S):
git clone https://rocketgit.com/user/gbfg55/gbg-20-git

Clone this repository using ssh (do not forget to upload a key first):
git clone ssh://rocketgit@ssh.rocketgit.com/user/gbfg55/gbg-20-git

Clone this repository using git:
git clone git://git.rocketgit.com/user/gbfg55/gbg-20-git

You are allowed to anonymously push to this repository.
This means that your pushed commits will automatically be transformed into a merge request:
... clone the repository ...
... make some changes and some commits ...
git push origin main