File mfg/2013/base/src/QAD_CustProfitability.p changed (mode: 100644) (index 1f4d92b..4eda6f0) |
5 |
5 |
/*---------------------------------------------------------------------------*/ |
/*---------------------------------------------------------------------------*/ |
6 |
6 |
/* REVISION: 1.0 LAST MODIFIED: 20-MAY-2013 BY: gbg *c1407* */ |
/* REVISION: 1.0 LAST MODIFIED: 20-MAY-2013 BY: gbg *c1407* */ |
7 |
7 |
/* REVISION: 1.0 LAST MODIFIED: 16-SEP-2014 BY: gbg *c1485* */ |
/* REVISION: 1.0 LAST MODIFIED: 16-SEP-2014 BY: gbg *c1485* */ |
|
8 |
|
/* REVISION: 1.0 LAST MODIFIED: 18-NOV-2014 BY: nac *c1485a* */ |
8 |
9 |
/*---------------------------------------------------------------------------*/ |
/*---------------------------------------------------------------------------*/ |
9 |
10 |
/* Report matches gltbrp.p for use by QAD Reporting Framework */ |
/* Report matches gltbrp.p for use by QAD Reporting Framework */ |
10 |
11 |
/*---------------------------------------------------------------------------*/ |
/*---------------------------------------------------------------------------*/ |
|
... |
... |
define var stringVar as char. |
1084 |
1085 |
then |
then |
1085 |
1086 |
begyearper = int(string(glc_year,"9999") + string(glc_per,"99")). |
begyearper = int(string(glc_year,"9999") + string(glc_per,"99")). |
1086 |
1087 |
|
|
1087 |
|
find last glc_cal no-lock |
|
|
1088 |
|
find first glc_cal no-lock |
1088 |
1089 |
where glc_domain = global_domain |
where glc_domain = global_domain |
1089 |
|
and glc_end <= enddt |
|
|
1090 |
|
and glc_end >= enddt |
1090 |
1091 |
no-error. |
no-error. |
1091 |
1092 |
if available glc_cal |
if available glc_cal |
1092 |
1093 |
then |
then |
|
... |
... |
define var stringVar as char. |
1274 |
1275 |
(PostingLineCreditTC + PostingLineDebitTC). |
(PostingLineCreditTC + PostingLineDebitTC). |
1275 |
1276 |
/*c1485* start added code */ |
/*c1485* start added code */ |
1276 |
1277 |
else if Gl.GlCode = "51500" |
else if Gl.GlCode = "51500" |
1277 |
|
then ttCustProfit.InvFreight = vfreight. |
|
|
1278 |
|
then ttCustProfit.InvFreight = |
|
1279 |
|
/*c1485a vfreight. */ |
|
1280 |
|
(PostingLineCreditTC + PostingLineDebitTC). |
1278 |
1281 |
/*c1485* end added code */ |
/*c1485* end added code */ |
1279 |
1282 |
else |
else |
1280 |
1283 |
ttCustProfit.InvTerms = |
ttCustProfit.InvTerms = |