Here is the entire code:
TOTALSHIPPED = TOTALSHIPPED + F0061; IF TOTALSHIPPED = 0 THEN TOTALSHIPPED=""; BALANCETOSHIP = QTYTOBESHIPPED - TOTALSHIPPED; IF BALANCETOSHIP = 0 THEN BALANCETOSHIP=""; FINGDSINVENTORY = FINGDSINVENTORY - F0061; IF FINGDSINVENTORY = 0 THEN FINGDSINVENTORY=""; QTYSHIPPED = QTYSHIPPED + F0061; IF QTYSHIPPED = 0 THEN QTYSHIPPED=""; IF F0061 <> "" THEN { F0391 = F0383 + F0391; F0390 = F0382; if F0391 = 0 then F0391 = ""; F0383 = F0375; F0382 = F0374; if F0383 = 0 then F0383 = ""; F0375 = F0367; F0374 = F0366; if F0375 = 0 then F0375 = ""; F0367 = F0359; F0366 = F0358; if F0367 = 0 then F0367 = ""; F0359 = F0351; F0358 = F0350; if F0359 = 0 then F0359 = ""; F0351 = F0349; F0350 = F0348; if F0351 = 0 then F0351 = ""; F0349 = F0347; F0348 = F0346; if F0349 = 0 then F0349 = ""; F0347 = F0339; F0346 = F0338; if F0347 = 0 then F0347 = ""; F0339 = F0331; F0338 = F0330; if F0339 = 0 then F0339 = ""; F0331 = F0323; F0330 = F0322; if F0331 = 0 then F0331 = ""; F0323 = F0315; F0322 = F0314; if F0323 = 0 then F0323 = ""; F0315 = F0307; F0314 = F0306; if F0315 = 0 then F0315 = ""; F0307 = F0299; F0306 = F0298; if F0307 = 0 then F0307 = ""; F0299 = F0291; F0298 = F0290; if F0299 = 0 then F0299 = ""; F0291 = SQ01; F0290 = SHIPDATE01; if F0291 = 0 then F0291 = ""; SQ01 = F0061; SHIPDATE01 = F0060; if SHIPDATE01 = "" then SHIPDATE01 = @date; TOTALSHIPPED1 = @sum(SQ01,F0291,F0299,F0307,F0315,F0323,F0331,F0339,F0347,F0349,F0351,F0359,F036 7,F0375,F0383,F0391); if TOTALSHIPPED1 = 0 then TOTALSHIPPED1 = "" }; IF F0061 <> "" THEN { X7 = 59; X8 = 199; GOSUB X9 }; IF F0061 <> "" THEN IF ORDERTYPE = "R" THEN { X = RNUM; @(4600 + X) = @(4600 + X) + F0061; TtlSHIP1 = @SUM(F0156,F0166,F0176,F0186,F0196,F0206,F0216,F0226,F0236,F0246,F0256,F0266);
IF TtlSHIP1=0 THEN TtlSHIP1=""; IF F0060 <> "" THEN @(4500 + X) = F0060 ELSE @(4500 + X) = @DATE; GOTO @(4500 + X) }; F0061 = ""; IF F0057 <> "DONE" THEN GOTO SCHEDULENEXT ELSE { @MSG("ORDER COMPLETE!"); DETAIL = "COMPLETE"; STATUS = "" }; GOTO EAORDERNUM
I'll try re-arranging the as you suggested.
Thanks for your help.
|