Psst.. new poll here.
[email protected] webmail now available. Want one? Go here.
Cannot use outlook/hotmail/live here to register as they blocking our mail servers. #microsoftdeez
Obey the Epel!
Paste
Pasted as Java by registered user chrisonline ( 4 years ago )
/**
* calculateAmounts - Calculate amounts for cash discount
*/
public void calculateAmounts(double XXCDPC) {
XXCDPC /= 100;
if (INVIP.getIVTP().EQ("01") || CRS722DS.getP9GRNT() == 1) {
XNBASE = XTORTO;
} else {
XNBASE = XNORTO;
}
XNBASE -= XNPIAM; // subtract advance invoice amount(XNPIAM) amount from XNBASE
if (OHEAD.getTINC() == 1 && CRS722DS.getP9GRNT() == 2 || OHEAD.getTINC() == 0 && CRS722DS.getP9GRNT() == 2 && INVIP.getIVTP().EQ("01")) {
XNBASE -= XNVTAM;
}
XNCASH = mvxHalfAdjust((double) XNBASE * XXCDPC, OHEAD.getDCCD());
XNTPAY = XTORTO - XNCASH - XNPIAM; // subtract advance invoice amount (XNPIAM) amount from XTORT
PXRTVROU.PPROAM = 0d;
PXRTVROU.PPCONO = LDAZD.CONO;
PXRTVROU.PPCUCD.move(DHEAD.getCUCD());
PXRTVROU.PPROPP = OTYPE.getROPP();
PXRTVROU.PPAMRO = XNTPAY;
PXRTVROU.PPNERR = 0;
PXRTVROU.CRTVROU();
if (PXRTVROU.PPNERR == 1 && OTYPE.getROPP() != 0) {
PXRTVROU.PPROPP = 0;
PXRTVROU.PPNERR = 0;
PXRTVROU.CRTVROU();
}
if (PXRTVROU.PPNERR == 0) {
XNTPAY = PXRTVROU.PPROAM;
}
XNTPAY = mvxHalfAdjust(XNTPAY, OHEAD.getDCCD());
// Convert fields to alpha
this.PXDCCD = DSCUCD.getYQDCCD();
this.PXFLDD = 13;
this.PXEDTC = 'J';
this.PXDCFM = LDAZD.DCFM;
this.PXNUM = XNCASH;
this.PXALPH.clear();
SRCOMNUM.COMNUM();
OUT.WYTCAS.moveRight(this.PXALPH);
this.PXDCCD = DSCUCD.getYQDCCD();
this.PXFLDD = 13;
this.PXEDTC = 'J';
this.PXDCFM = LDAZD.DCFM;
this.PXNUM = XNTPAY;
this.PXALPH.clear();
SRCOMNUM.COMNUM();
OUT.WYTPAY.moveRight(this.PXALPH);
}
Revise this Paste