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)
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
c1474 5abda4b993a526d461af27de8e74b352f173e775 gbg 2014-07-03 14:15:32
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
Commit 8adf5a92615a52d09e92e82dcb8fb680fba09b1c - d3224
Author: ec2-user
Author date (UTC): 2015-08-19 02:25
Committer name: ec2-user
Committer date (UTC): 2015-08-19 02:25
Parent(s): 54031cfe6e8c2ba4cdb833be90ffc01ebdf14b07
Signing key:
Tree: 55e030f079cd74d01f1a36d8e3adc0396565b85f
File Lines added Lines deleted
mfg/2013/base/src/QAD_CustProfitability.p 12 6
mfg/2013/base/src/xxsbgtmt.p 329 0
File mfg/2013/base/src/QAD_CustProfitability.p changed (mode: 100644) (index 1c1a8e5..0384fd0)
... ... no-lock:
1247 1247 ttCustProfit.RangeEnd = enddt ttCustProfit.RangeEnd = enddt
1248 1248 ttCustProfit.tbegyearper = begyearper ttCustProfit.tbegyearper = begyearper
1249 1249 ttCustProfit.tendyearper = endyearper ttCustProfit.tendyearper = endyearper
1250 ttCustProfit.Commission
1251 /* = (vlist - vdiscount) * idh_comm_pct[1] / 100 */
1252 = (idh_qty_inv * idh_list - vdiscount - vterms) * idh_comm_pct[1] / 100
1250 1253
1251 1254 . .
1252 1255
 
... ... no-lock:
1283 1286 end. end.
1284 1287 end. end.
1285 1288 end. end.
1286 assign vsort = cm_sort
1289 /* if last-of(ih_cust) then do: */
1290
1291 assign vsort = cm_sort
1287 1292 vglobal = if cm_type begins "AU" then "Domestic" else "Export" vglobal = if cm_type begins "AU" then "Domestic" else "Export"
1288 1293 vsegment = substring(cm_type,1,2) vsegment = substring(cm_type,1,2)
1289 1294 vregion = cm_region. vregion = cm_region.
1290 /* if last-of(ih_cust) then do: */
1295
1291 1296 vfreight = 0. vfreight = 0.
1292 1297 vdiscount = 0. vdiscount = 0.
1293 1298 vterms = 0. vterms = 0.
 
... ... no-lock:
1301 1306 if available Company then do: if available Company then do:
1302 1307 for each GL where for each GL where
1303 1308 /*c1485* lookup(GLCode, "41745,41765,41725,41735,41755") > 0 */ /*c1485* lookup(GLCode, "41745,41765,41725,41735,41755") > 0 */
1304 /*c1485*/ lookup(GLCode, "41745,41765,41725,41735,41755,51500,50700") > 0
1309 /*c1485*/ lookup(GLCode, "41745,41765,41725,41735,41755,51500,50700,50500") > 0
1305 1310 no-lock: no-lock:
1306 1311 for each PostingLine where for each PostingLine where
1307 1312 PostingLine.Company_ID = Company.Company_ID PostingLine.Company_ID = Company.Company_ID
1308 1313 and PostingLine.GL_ID = GL.GL_ID and PostingLine.GL_ID = GL.GL_ID
1309 1314 and PostingYearPeriod >= begyearper and PostingYearPeriod >= begyearper
1310 1315 and PostingYearPeriod <= endyearper and PostingYearPeriod <= endyearper
1311 and (PostingLineDebitTC - PostingLineCreditTC) <> 0
1316 and (PostingLineDebitLC - PostingLineCreditLC) <> 0
1312 1317 and can-find(first Division where and can-find(first Division where
1313 1318 Division.Division_ID = PostingLine.Division_ID and Division.Division_ID = PostingLine.Division_ID and
1314 1319 DivisionCode = cm_addr) DivisionCode = cm_addr)
 
... ... no-lock:
1344 1349 /*c1485a vfreight. */ /*c1485a vfreight. */
1345 1350 (PostingLineDebitLC - PostingLineCreditLC). (PostingLineDebitLC - PostingLineCreditLC).
1346 1351 /*c1485* end added code */ /*c1485* end added code */
1347 else if GL.GLCode = "50700"
1348 then
1352 else if lookup(Gl.GlCode,"50700,50500") > 0
1353 then
1349 1354 ttCustProfit.Commission = ttCustProfit.Commission =
1350 1355 (PostingLineDebitLC - PostingLineCreditLC). (PostingLineDebitLC - PostingLineCreditLC).
1356
1351 1357 else else
1352 1358 ttCustProfit.InvTerms = ttCustProfit.InvTerms =
1353 1359 (PostingLineDebitLC - PostingLineCreditLC). (PostingLineDebitLC - PostingLineCreditLC).
File mfg/2013/base/src/xxsbgtmt.p added (mode: 100644) (index 0000000..0953370)
1 /* xxsbgtmt.p - Sales Budget Maintenance - Buderim Ginger */
2 /* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA. */
3 /* All rights reserved worldwide. This is an unpublished work. */
4 /*---------------------------------------------------------------------------*/
5 /* REVISION: 1.0 LAST MODIFIED: 2015-Aug-10 BY: gbg *D3224* */
6 /*---------------------------------------------------------------------------*/
7 /* EE */ {us/mf/mfdtitle.i}
8 /* SE * {mfdtitle.i} */
9
10
11 def var vattr1 as char label "Attr1".
12 def var vattr2 as char label "Attr2".
13 def var vattr3 as char label "Attr3".
14 def var vattr4 as char label "Attr4".
15 def var vattr5 as char label "Attr5".
16 def var vdate1 as date label "Date".
17 def var vqty as dec format "->>>,>>>,>>9.99" label "Qty".
18 def var vum as char format "x(2)" label "UM".
19 def var vdec2 as dec format "->>>,>>>,>>9.99" label "Decimal2".
20 def var vchar2 as char label "Character2".
21 def var vdec3 as dec format "->>>,>>>,>>9.99" label "Decimal3".
22 def var vchar3 as char label "Character3".
23
24 def var vbudcode as char init "SalesBudget".
25 def var vcomp as char.
26 def var del-yn like mfc_logical.
27 def var vmessage as char.
28 def var batchdelete as char format "x(1)" no-undo.
29
30
31
32 form
33 vattr1 colon 16
34 vattr2 colon 16
35 vattr3 colon 16
36 vattr4 colon 16
37 vattr5 colon 16
38 vdate1 colon 16
39 skip(1)
40 vqty colon 16
41 vum colon 16
42 vdec2 colon 16
43 vchar2 colon 16
44 vdec3 colon 16
45 vchar3 colon 16
46 with frame a side-labels no-attr-space width 80.
47
48 setFrameLabels(frame a:handle).
49
50
51
52
53 mainloop:
54 repeat:
55
56
57 keyloop:
58 repeat:
59
60 run clearframea.
61 batchdelete = "".
62
63 update
64 vattr1
65 vattr2
66 vattr3
67 vattr4
68 vattr5
69 vdate1
70 batchdelete no-label when (batchrun)
71 with frame a
72 editing:
73 case frame-field:
74 when "vattr1" then do:
75 {us/mf/mfnp.i
76 usrw_wkfl
77 vattr1
78 " usrw_wkfl.usrw_domain = global_domain and
79 usrw_wkfl.usrw_key1 = vbudcode and
80 usrw_key3 "
81 vattr1
82 usrw_key3
83 usrw_index2}
84 if recno <> ?
85 then do:
86 run dispattr.
87 end.
88 end.
89 when "vattr2" then do:
90 vcomp = trim(vattr1).
91 {us/mf/mfnp.i
92 usrw_wkfl
93 vattr2
94 " usrw_wkfl.usrw_domain = global_domain and
95 usrw_wkfl.usrw_key1 = vbudcode and
96 usrw_wkfl.usrw_key2 begins vcomp and
97 usrw_key4 "
98 vattr2
99 usrw_key4
100 usrw_index2}
101 if recno <> ?
102 then do:
103 run dispattr.
104 end.
105 end.
106 when "vattr3" then do:
107 vcomp = trim(vattr1) + trim(vattr2).
108 {us/mf/mfnp.i
109 usrw_wkfl
110 vattr3
111 " usrw_wkfl.usrw_domain = global_domain and
112 usrw_wkfl.usrw_key1 = vbudcode and
113 usrw_wkfl.usrw_key2 begins vcomp and
114 usrw_key5 "
115 vattr3
116 usrw_key5
117 usrw_index3}
118 if recno <> ?
119 then do:
120 run dispattr.
121 end.
122 end.
123 when "vattr4" then do:
124 vcomp = trim(vattr1) + trim(vattr2) + trim(vattr3).
125 {us/mf/mfnp.i
126 usrw_wkfl
127 vattr4
128 " usrw_wkfl.usrw_domain = global_domain and
129 usrw_wkfl.usrw_key1 = vbudcode and
130 usrw_wkfl.usrw_key2 begins vcomp and
131 usrw_key6 "
132 vattr4
133 usrw_key6
134 usrw_index3}
135 if recno <> ?
136 then do:
137 run dispattr.
138 end.
139 end.
140 when "vattr5" then do:
141 vcomp = trim(vattr1) + trim(vattr2) + trim(vattr3) +
142 trim(vattr4).
143 {us/mf/mfnp.i
144 usrw_wkfl
145 vattr5
146 " usrw_wkfl.usrw_domain = global_domain and
147 usrw_wkfl.usrw_key1 = vbudcode and
148 usrw_wkfl.usrw_key2 begins vcomp and
149 usrw_charfld[7] "
150 vattr5
151 usrw_charfld[7]
152 usrw_index3}
153 if recno <> ?
154 then do:
155 run dispattr.
156 end.
157 end.
158 otherwise do:
159 readkey.
160 apply lastkey.
161 end.
162 end. /* case */
163 end. /* editing */
164
165 find first usrw_wkfl
166 where usrw_domain = global_domain
167 and usrw_key1 = vbudcode
168 and usrw_key2 = trim(vattr1) +
169 trim(vattr2) +
170 trim(vattr3) +
171 trim(vattr4) +
172 trim(vattr5) +
173 string(vdate1)
174 no-error.
175
176 if not available usrw_wkfl
177 then do:
178 message "Adding New Record".
179
180 create usrw_wkfl.
181 assign
182 usrw_domain = global_domain
183 usrw_key1 = vbudcode
184 usrw_key2 = trim(vattr1) +
185 trim(vattr2) +
186 trim(vattr3) +
187 trim(vattr4) +
188 trim(vattr5) +
189 string(vdate1)
190 usrw_key3 = vattr1
191 usrw_key4 = vattr2
192 usrw_key5 = vattr3
193 usrw_key6 = vattr4
194 usrw_datefld[1] = vdate1
195 usrw_charfld[7] = vattr5.
196
197 end. /* if not available usrw_wkfl */
198 else do:
199 run dispattr.
200 end.
201 leave keyloop.
202 end. /* keyloop */
203 if keyfunction(lastkey) = "end-error"
204 then do:
205 undo mainloop, leave mainloop.
206 end.
207
208 detloop:
209 repeat:
210
211 if not available usrw_wkfl
212 then do:
213 leave detloop.
214 end.
215
216 update
217 vqty
218 vum
219 vdec2
220 vchar2
221 vdec3
222 vchar3
223 go-on ("F5" "CTRL-D")
224 with frame a.
225
226 if lastkey = keycode("F5")
227 or lastkey = keycode("CTRL-D")
228 or batchdelete = "x"
229 then do:
230 {us/bbi/pxmsg.i &MSGNUM=11 &ERRORLEVEL=1 &CONFIRM=del-yn}
231 if del-yn
232 then do:
233 if available usrw_wkfl
234 then do:
235 find current usrw_wkfl exclusive-lock no-error.
236 delete usrw_wkfl.
237 end.
238 end.
239 end.
240 else do:
241 run saveattr.
242 end.
243
244 leave detloop.
245 end. /* detloop */
246
247 end. /* mainloop */
248
249
250 procedure dispattr.
251 if available usrw_wkfl
252 then do:
253 assign
254 vattr1 = usrw_key3
255 vattr2 = usrw_key4
256 vattr3 = usrw_key5
257 vattr4 = usrw_key6
258 vattr5 = usrw_charfld[7]
259 vdate1 = usrw_datefld[1]
260 vum = usrw_charfld[1]
261 vqty = usrw_decfld[1]
262 vdec2 = usrw_decfld[2]
263 vchar2 = usrw_charfld[2]
264 vdec3 = usrw_decfld[3]
265 vchar3 = usrw_charfld[3].
266
267 display
268 vattr1
269 vattr2
270 vattr3
271 vattr4
272 vattr5
273 vdate1
274 vum
275 vqty
276 vdec2
277 vchar2
278 vdec3
279 vchar3
280 with frame a.
281 end.
282 end. /* procedure dispattr */
283
284 procedure saveattr.
285
286 if available usrw_wkfl
287 then do:
288 find current usrw_wkfl exclusive-lock no-error.
289 assign
290 usrw_decfld[1] = vqty
291 usrw_decfld[2] = vdec2
292 usrw_decfld[3] = vdec3
293 usrw_charfld[1] = vum
294 usrw_charfld[2] = vchar2
295 usrw_charfld[3] = vchar3.
296
297 end. /* if available usrw_wkfl */
298
299 end. /* procedure saveattr */
300
301 procedure clearframea.
302 assign
303 vattr1 = ""
304 vattr2 = ""
305 vattr3 = ""
306 vattr4 = ""
307 vattr5 = ""
308 vdate1 = ?
309 vqty = 0
310 vum = ""
311 vdec2 = 0
312 vdec3 = 0
313 vchar2 = ""
314 vchar3 = "".
315 display
316 vattr1
317 vattr2
318 vattr3
319 vattr4
320 vattr5
321 vdate1
322 vqty
323 vum
324 vdec2
325 vchar2
326 vdec3
327 vchar3
328 with frame a.
329 end. /* procedure clearframea */
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