Nov 22, 2008 15:01 File Name: hcorder Page 1

Processing: Input

1 ------- - - - - - - - - - - - - - - - -

If: 'hcorder/prc.input

Then: 'point of sale input processing

2 ------- - - - - - - - - - - - - - - - -

If:

Then: 'see rev.input for revision history

3 ------- - - - - - - - - - - - - - - - -

If: 'lr: 03/25/08 jlh fixed scrambled screen after reprint

Then: ' also added opend for pos returns

4 ------- - - - - - - - - - - - - - - - -

If: 'lr: 03/27/08 jlh added *69 setting and tightened up security

Then: 'lr: 05/08/08 jlh added n/c change type nc in *3

5 ------- - - - - - - - - - - - - - - - -

If: 'lr: 06/26/08 jlh added shiptofields awlf57

Then:

6 ------- - - - - - - - - - - - - - - - -

If: 'lr: 07/02/08 jlh added chob changes and synced up w/ hcs duke

Then: 'lr: 07/02/08 jlh added shiptofields and synced up w/ axian

7 ------- - - - - - - - - - - - - - - - -

If: 'lr: 07/09/08 jlh added another getinvn

Then: 'lr: 08/29/08 jgp modified menu line for axian

8 ------- - - - - - - - - - - - - - - - -

If: 'lr: 09/09/08 jlh synced up w/fulton & axian & chob

Then: 'lr: 09/09/08 jlh added *107 to store discounts (was contractor %)

9 ------- - - - - - - - - - - - - - - - -

If: 'lr: 09/10/08 jlh revised upditx sub - update rev.input

Then: 'lr: 09/16/08 jgp changed labeling for @keyp and screen 3

10 ------- - - - - - - - - - - - - - - - -

If: 'lr: 09/19/08 jlh major changes to kits and inventory trx posting

Then: 'lr: 10/16/08 jlh commented getcust sub for clarity, added CM to i

nvfu

11 ------- - - - - - - - - - - - - - - - -

If: 'lr: 11/03/08 jlh added whse location in detail file (chob) for pi

ktik sorting

Then:

12 ------- - - - - - - - - - - - - - - - -

If:

Then: close

13 ------- - - - - - - - - - - - - - - - -

If: 'PREMATURE ENDING FOR CHAINS, ETC.

Then: end

14 ------- - - - - - - - - - - - - - - - -

start If:

Then:

15 ------- - - - - - - - - - - - - - - - -

If:

Then: clearp;clearb;clears

16 ------- - - - - - - - - - - - - - - - -

If: 18 eq "" 'ASSIGN INVOICE # 07/09/08 jlh added here also

Then: gosub GETINVN

17 ------- - - - - - - - - - - - - - - - -

If:

Then: pushkey "[DRAW]"

18 ------- - - - - - - - - - - - - - - - -

If: @py ne "" 'ORDER NUMBER PASSED IN

Then: exit

Nov 22, 2008 15:01 File Name: hcorder Page 2

Processing: Input

19 ------- - - - - - - - - - - - - - - - -

If: getenv("PFCOMP") eq "fulton" 'GET STATION THIS USER IS AT

Then: gosub GETSTA '08/03/04 jlh moved here 07/25/06

20 ------- - - - - - - - - - - - - - - - -

If: l eq "Y" 'END WITH ITEMS RECEIVED SCREEN

Then: l="";s="3";switchto "rec";pushkey "R";end

21 ------- - - - - - - - - - - - - - - - -

If: @sn eq "9"

Then: end

22 ------- - - - - - - - - - - - - - - - -

If: @sn eq "3" 'LINE ITEMS RECEIVED SCREEN ONLY

Then: goto ITMSREC

23 ------- - - - - - - - - - - - - - - - -

If: @sn eq "rec" 'LINE ITEMS RECEIVED SCREEN ONLY

Then: goto ITMSREC

24 ------- - - - - - - - - - - - - - - - -

If: r eq "" 'GET DEFAULT SCREEN NUMBERS TO USE

Then: gosub GETSCRN

25 ------- - - - - - - - - - - - - - - - -

If: @sn eq "4" 'RETURN FROM COMMENTS SCREEN

Then: screen (ss),(zl);goto screens

26 ------- - - - - - - - - - - - - - - - -

If: r eq ""

Then: gosub GETSCRN

27 ------- - - - - - - - - - - - - - - - -

from2 If:

Then:

28 ------- - - - - - - - - - - - - - - - -

If: @py ne "" 'ORDER NUMBER PASSED IN

Then: exit

29 ------- - - - - - - - - - - - - - - - -

If: @sn eq ss OR @sn eq "3pa"

Then: gosub RECALC;gosub DMPMINI;gosub LNSAVE;gosub SHIPDT

30 ------- - - - - - - - - - - - - - - - -

If: @sn eq "2ps" 'CLEAN UP STRAY QUANTITIES

Then: gosub CLEANQU;gosub DMPMINI;gosub LNSAVE;show ""

31 ------- - - - - - - - - - - - - - - - -

If: @sn eq "2ps" 'RETURN TO FIRST SCREEN AFTER LINE ITEMS

Then: gosub TOTALS;screen (s),76;goto start 'SAVE

32 ------- - - - - - - - - - - - - - - - -

If: @sn eq "2x" OR @sn eq "2p"'RETURN TO FIRST SCREEN AFTER LINE ITEMS

Then: gosub TOTALS;screen (s),tx;goto start 'SAVE

33 ------- - - - - - - - - - - - - - - - -

If: @sn eq "3pa" 'phart

Then: gosub TOTALS;end

34 ------- - - - - - - - - - - - - - - - -

If: @sn eq ss

Then: gosub TOTALS;screen (s),ta;goto start

35 ------- - - - - - - - - - - - - - - - -

If: @sn eq "4"

Then: gosub SAVE

36 ------- - - - - - - - - - - - - - - - -

If: 6 eq "" 'GET SALES PERSON FROM JOB INITIALS

Then: call "xgetspi"

Nov 22, 2008 15:01 File Name: hcorder Page 3

Processing: Input

37 ------- - - - - - - - - - - - - - - - -

If: 9 eq "" AND 3 eq "PS" 'SHIPPED DATE IS ORDER DATE IF POINT OF SALE

Then: 9=5

38 ------- - - - - - - - - - - - - - - - -

If: 9 eq "" AND 3 eq "RT" 'SHIPPED DATE IS ORDER DATE IF RETURN

Then: 9=5

39 ------- - - - - - - - - - - - - - - - -

If: 9 eq "" AND 25 ne "" 'DATE OF ENTRY IF S.A.

Then: 9=@td

40 ------- - - - - - - - - - - - - - - - -

If: 102 eq "" 'ADD CREATION DATE

Then: 102=@cd

41 ------- - - - - - - - - - - - - - - - -

If: 3 eq "PS" 'MAKE 'PRINT PIKTIK' EQ 1 IF POS

Then: 110="1" '11/26/07 jlh

42 ------- - - - - - - - - - - - - - - - -

If: 3 eq "RT" AND 15 ne "100" 'MAKE 'PRINT PIKTIK' EQ 1 IF RT

Then: 110="1" '11/26/07 jlh

43 ------- - - - - - - - - - - - - - - - -

If:

Then: gosub DMPMINI;gosub LNSAVE

44 ------- - - - - - - - - - - - - - - - -

If:

Then: gosub SUBTTL

45 ------- - - - - - - - - - - - - - - - -

If:

Then: gosub TOTALS

46 ------- - - - - - - - - - - - - - - - -

If:

Then: gosub CLEAR;fx=""

47 ------- - - - - - - - - - - - - - - - -

If: 15 eq "" 'GET PROFIT CENTER FIELD 15

Then: call "xgetpc"

48 ------- - - - - - - - - - - - - - - - -

If:

Then: declare global profctr(3,allup,g)

49 ------- - - - - - - - - - - - - - - - -

If: 'SAVE PROFIT CENTER FOR NEXT RECORD

Then: profctr=15

50 ------- - - - - - - - - - - - - - - - -

If: 26 ne "" 'POST INFO BACK TO CALL SLIP

Then: call "xputcall"

51 ------- - - - - - - - - - - - - - - - -

If: 115 eq "N" 'NEEDS TO POST STORE CREDIT 11/29/05 jlh

Then: call "xpostsc"

52 ------- - - - - - - - - - - - - - - - -

screens If: '09/13/05 jlh

Then: 'write 'disabled 07/18/06 jlh to try and eliminate blanks

53 ------- - - - - - - - - - - - - - - - -

If: @sn ne s

Then: screen (s)

54 ------- - - - - - - - - - - - - - - - -

If: 1 eq "" '07/25 06 jlh

Then: 7="DELETE";exit '09/27/06 jlh changed from delete to 7=delete

Nov 22, 2008 15:01 File Name: hcorder Page 4

Processing: Input

55 ------- - - - - - - - - - - - - - - - -

If:

Then: clearp;clearb;clears

56 ------- - - - - - - - - - - - - - - - -

If:

Then: pushkey "[DRAW]"

57 ------- - - - - - - - - - - - - - - - -

If:

Then: END

58 ------- - - - - - - - - - - - - - - - -

@keyU If: 'USER PRESSES U TO UPDATE

Then:

59 ------- - - - - - - - - - - - - - - - -

If: pq lt "2"

Then: msgbox "YOU DO NOT HAVE PERMISSION TO UPDATE RECORDS";end

60 ------- - - - - - - - - - - - - - - - -

If: 'RESET LOADED FLAG added 04/18/00

Then: ok="";pw=""

61 ------- - - - - - - - - - - - - - - - -

If:

Then: goto updat

62 ------- - - - - - - - - - - - - - - - -

@update If: 'USER GOES INTO UPDATE MODE TO ADD RECORDS

Then:

63 ------- - - - - - - - - - - - - - - - -

updat If: 'moved this up a few lines 03/27/08 jlh

Then:

64 ------- - - - - - - - - - - - - - - - -

If: 'RESET LOADED FLAG

Then: ok="";pw=""

65 ------- - - - - - - - - - - - - - - - -

If:

Then: pq(3,.0,g)

66 ------- - - - - - - - - - - - - - - - -

If: @id ne "root" AND @sn eq "9" '03/27/08 jlh

Then: end

67 ------- - - - - - - - - - - - - - - - -

If: pq lt "2" AND @cd ne "" 'VIEW ONLY, NO UPDATE

Then: msgbox "YOU DO NOT HAVE PERMISSION TO UPDATE RECORDS";end

68 ------- - - - - - - - - - - - - - - - -

If: pq lt "2" AND @cd eq "" 'VIEW ONLY, NO ADD

Then: msgbox "YOU DO NOT HAVE PERMISSION TO ADD/UPDATE RECORDS";exit

69 ------- - - - - - - - - - - - - - - - -

If: pq lt "3" 'VIEW AND UPDATE ONLY

Then: msgbox "YOU DO NOT HAVE PERMISSION TO ADD RECORDS";exit

70 ------- - - - - - - - - - - - - - - - -

If: @id ne "root" AND 4 eq "C" '03/27/08 jlh

Then: msgbox "YOU CAN'T UPDATE A CLOSED ORDER";end

71 ------- - - - - - - - - - - - - - - - -

If: @id ne "root" AND 3 eq "PS" AND 36 ne "" 'CAN'T UPDATE POS IF

Then: 'end '07/29/04 jlh FINISHED

72 ------- - - - - - - - - - - - - - - - -

If: '72 eq"Y" 'ALREADY POSTED TO J/C, PROMPT FOR REPOST

Then: 'call "xjcflag" 'disabled jlh 10/29/96

Nov 22, 2008 15:01 File Name: hcorder Page 5

Processing: Input

73 ------- - - - - - - - - - - - - - - - -

If: ok eq "N"

Then: end

74 ------- - - - - - - - - - - - - - - - -

If: @sn eq "9"

Then: screen;goto start

75 ------- - - - - - - - - - - - - - - - -

If:

Then: gosub GETSCRN

76 ------- - - - - - - - - - - - - - - - -

If: getenv("PFCOMP") eq "fulton" 'GET STATION THIS USER IS AT

Then: ''gosub GETSTA '08/03/04 jlh moved to later 07/2

5/06

77 ------- - - - - - - - - - - - - - - - -

If: 'len(@pm) gt "6" 'GET RECORD NUMBER PASSED fes mjh

Then: 'rz=mid(@pm,"7","8")

78 ------- - - - - - - - - - - - - - - - -

If: len(@py) gt "1" 'GET ORDER NUMBER PASSED fulton jlh

Then: rz=@py

79 ------- - - - - - - - - - - - - - - - -

If: rz ne "" 'SWITCH TO ZOOMED RECORD

Then: lookup - k=rz i=A -nx

80 ------- - - - - - - - - - - - - - - - -

If: rz ne ""

Then: break on

81 ------- - - - - - - - - - - - - - - - -

If:

Then: screen (s)

82 ------- - - - - - - - - - - - - - - - -

If:

Then: declare global newrec(1,allup)

83 ------- - - - - - - - - - - - - - - - -

If: @cb eq "" 'NEW RECORD, MUST SAVE

Then: newrec="L"

84 ------- - - - - - - - - - - - - - - - -

If: @sk eq "BRKY"

Then: exit

85 ------- - - - - - - - - - - - - - - - -

If:

Then: goto start

86 ------- - - - - - - - - - - - - - - - -

SAVEMSG If: '/*SAVE MESSAGE/ *SAVEMSG

Then:

87 ------- - - - - - - - - - - - - - - - -

If: @sn ne "3"

Then: showctr("24") "\K4 to Save, \KY to Cancel, \KJ for Zoom Menu"

88 ------- - - - - - - - - - - - - - - - -

If:

Then: return

89 ------- - - - - - - - - - - - - - - - -

SAV2MSG If: '/*SAVE MESSAGE FOR LINE ITEMS SCREEN *SAV2MSG

Then:

90 ------- - - - - - - - - - - - - - - - -

If:

Then: cls("24")

Nov 22, 2008 15:01 File Name: hcorder Page 6

Processing: Input

91 ------- - - - - - - - - - - - - - - - -

If: @sn eq "3" OR @sn eq "rec"

Then: cls("22")

92 ------- - - - - - - - - - - - - - - - -

If:

Then: show("24","19") "\K4 to Save Line Items, \KY to Cancel"

93 ------- - - - - - - - - - - - - - - - -

If: @sn eq "rec"

Then: showctr("24") "Press \KE to Ship ALL items, \K9 to Save"

94 ------- - - - - - - - - - - - - - - - -

If:

Then: return

95 ------- - - - - - - - - - - - - - - - -

@menu If: 'CUSTOMIZED I/U/A MENU

Then:

96 ------- - - - - - - - - - - - - - - - -

If: zflag eq "Y"

Then: exit

97 ------- - - - - - - - - - - - - - - - -

If:

Then: call "xgetperm"

98 ------- - - - - - - - - - - - - - - - -

If: mid(pm,"8","1") eq "B"

Then: exit

99 ------- - - - - - - - - - - - - - - - -

If: mid(@pm,"1","3") eq "bbf"

Then: goto iuaend

100 ------- - - - - - - - - - - - - - - - -

If: @py ne ""

Then: declare global zflag(1,*,g);zflag="Y"

101 ------- - - - - - - - - - - - - - - - -

If: @py ne ""

Then: mg=""{@py{"[ENTR]"

102 ------- - - - - - - - - - - - - - - - -

zoomed If: @py ne ""

Then: pushkey ""{mg;goto iuaend

103 ------- - - - - - - - - - - - - - - - -

If: adding

Then: exit

104 ------- - - - - - - - - - - - - - - - -

If: 'FIRST SCREEN

Then: s=mid(@pm,"1","3")

105 ------- - - - - - - - - - - - - - - - -

If: 'ADDED 04/28/98 DJC

Then: pm(20,*,g)

106 ------- - - - - - - - - - - - - - - - -

If:

Then: pm=@pm

107 ------- - - - - - - - - - - - - - - - -

adding If: mid(pm,"8","1") eq "A"

Then: mid(pm,"8","1")="B";goto addrec

108 ------- - - - - - - - - - - - - - - - -

If: mid(pm,"1","3") eq "1ps"

Then: call "xatmenu";goto iuaend

Nov 22, 2008 15:01 File Name: hcorder Page 7

Processing: Input

109 ------- - - - - - - - - - - - - - - - -

If: 'SET UP ARRAY TO TAKE THE PLACE OF THE NORMAL FILEPRO I,U,A MENU

Then:

110 ------- - - - - - - - - - - - - - - - -

If: 'SIZE OF I,U,A ARRAY VARIES FROM FILE TO FILE

Then: dim iua[13](30,*)

111 ------- - - - - - - - - - - - - - - - -

If:

Then: iua["1"]=" CHOOSE RECORD OPERATION"

112 ------- - - - - - - - - - - - - - - - -

If:

Then: iua["3"]="2:LOOK UP BY CUSTOMER NAME"

113 ------- - - - - - - - - - - - - - - - -

If: s ne "1v "

Then: iua["2"]="1:LOOK UP BY ORDER NUMBER"

114 ------- - - - - - - - - - - - - - - - -

If: s eq "1v "

Then: iua["2"]="1:LOOK UP BY S.A. NUMBER"

115 ------- - - - - - - - - - - - - - - - -

If: s ne "1v "

Then: iua["4"]="3:LOOK UP BY ORDER DATE"

116 ------- - - - - - - - - - - - - - - - -

If: s eq "1v "

Then: iua["4"]="3:LOOK UP BY S.A. DATE"

117 ------- - - - - - - - - - - - - - - - -

If:

Then: iua["5"]="4:LOOK UP BY CUSTOMER CODE"

118 ------- - - - - - - - - - - - - - - - -

If: s ne "1v "

Then: 'iua["6"]="5:LOOK UP BY JOB NUMBER"

119 ------- - - - - - - - - - - - - - - - -

If: s ne "1v " '09/27/06 jlh fulton

Then: iua["6"]="5:LOOK UP SHIP-TO NAME"

120 ------- - - - - - - - - - - - - - - - -

If: s eq "1v "

Then: iua["6"]="5:LOOK UP BY JOB/CONTRACT#"

121 ------- - - - - - - - - - - - - - - - -

If:

Then: iua["7"]="6:LOOK UP BY JOB NAME"

122 ------- - - - - - - - - - - - - - - - -

If: getenv("PFCOMP") eq "axian"

Then: iua["7"]="6:LOOK UP BY CUSTOMER P.O. #"

123 ------- - - - - - - - - - - - - - - - -

If:

Then: iua["8"]="7:LOOK UP BY DATE OF ENTRY"

124 ------- - - - - - - - - - - - - - - - -

If:

Then: iua["9"]="8:LOOK UP BY INVOICE NUMBER"

125 ------- - - - - - - - - - - - - - - - -

If: s ne "1v "

Then: iua["10"]="A:ADD ORDERS"

126 ------- - - - - - - - - - - - - - - - -

If: s eq "1v "

Then: iua["10"]="A:ADD S.A.s"

Nov 22, 2008 15:01 File Name: hcorder Page 8

Processing: Input

127 ------- - - - - - - - - - - - - - - - -

If:

Then: iua["11"]="S:SCAN BY USER CRITERIA"

128 ------- - - - - - - - - - - - - - - - -

If: s eq "1v "

Then: iua["12"]="9:LOOK UP BY SITE/CUST"

129 ------- - - - - - - - - - - - - - - - -

If: s ne "1v "

Then: ''iua["12"]="9:"

130 ------- - - - - - - - - - - - - - - - -

If: s="1v "

Then: iua["13"]="0:LOOK UP BY CALL SLIP"

131 ------- - - - - - - - - - - - - - - - -

If: s ne "1v "

Then: ''iua["13"]="0:"

132 ------- - - - - - - - - - - - - - - - -

If: 's ne "1v "

Then: 'iua["11"]="J:ADJUST AN ORDER"

133 ------- - - - - - - - - - - - - - - - -

If: 's eq "1v "

Then: 'iua["11"]="J:"

134 ------- - - - - - - - - - - - - - - - -

If:

Then: ''menu iua byixa, byixf, byixb, byixc, byixi, byixj, byixn, byixe,

addrec, byscan, byixp, byixk, iuamenu

135 ------- - - - - - - - - - - - - - - - -

If: getenv("PFCOMP") ne "axian"

Then: menu iua byixa, byixf, byixb, byixc, byixi, byixj, byixn, byixe, ad

drec, byscan, iuamenu

136 ------- - - - - - - - - - - - - - - - -

If: getenv("PFCOMP") eq "axian"

Then: menu iua byixa, byixf, byixb, byixc, byixj, byixo, byixn, byixe, ad

drec, byscan, iuamenu

137 ------- - - - - - - - - - - - - - - - -

If:

Then: goto iuaend

138 ------- - - - - - - - - - - - - - - - -

byscan If: 'SCAN FOR RECORDS

Then: pushkey "21";goto iuaend

139 ------- - - - - - - - - - - - - - - - -

oddrec If: 'ADD RECORDS

Then: pushkey "3";goto iuaend

140 ------- - - - - - - - - - - - - - - - -

addrec If: 'ADD RECORDS changed from above oddrec 8/18/04 jlh

Then: goto @keyA 'so that wlfl will work.

141 ------- - - - - - - - - - - - - - - - -

byrec If: 'END OF FILE

Then: pushkey "3[BRKY][BRKY][CRUP]";goto iuaend

142 ------- - - - - - - - - - - - - - - - -

byixa If: @sn ne "1v " 'SELECT BY INDEX A

Then: pushkey "4A";goto iuaend

143 ------- - - - - - - - - - - - - - - - -

If: @sn eq "1v " 'SELECT BY INDEX L - SERVICE ONLY

Then: pushkey "4L";goto iuaend

144 ------- - - - - - - - - - - - - - - - -

byixb If: 'SELECT BY INDEX B

Then: pushkey "4B";goto iuaend

Nov 22, 2008 15:01 File Name: hcorder Page 9

Processing: Input

145 ------- - - - - - - - - - - - - - - - -

byixc If: 'SELECT BY INDEX C

Then: pushkey "4C";goto iuaend

146 ------- - - - - - - - - - - - - - - - -

byixd If: 'SELECT BY INDEX D

Then: pushkey "4D";goto iuaend

147 ------- - - - - - - - - - - - - - - - -

byixe If: 'SELECT BY INDEX E

Then: pushkey "4E";goto iuaend

148 ------- - - - - - - - - - - - - - - - -

byixf If: 'SELECT BY INDEX F

Then: pushkey "4F";goto iuaend

149 ------- - - - - - - - - - - - - - - - -

byixh If: 'SELECT BY INDEX H

Then: pushkey "4H";goto iuaend

150 ------- - - - - - - - - - - - - - - - -

byixi If: 'SELECT BY INDEX I

Then: pushkey "4I";goto iuaend

151 ------- - - - - - - - - - - - - - - - -

byixj If: 'SELECT BY INDEX J

Then: pushkey "4J";goto iuaend

152 ------- - - - - - - - - - - - - - - - -

byixk If: 'SELECT BY INDEX K

Then: pushkey "4K";goto iuaend

153 ------- - - - - - - - - - - - - - - - -

byixn If: 'SELECT BY INDEX N

Then: pushkey "4N";goto iuaend

154 ------- - - - - - - - - - - - - - - - -

byixo If: 'SELECT BY INDEX O

Then: pushkey "4O";goto iuaend

155 ------- - - - - - - - - - - - - - - - -

byixp If: 'SELECT BY INDEX P

Then: pushkey "4P";goto iuaend

156 ------- - - - - - - - - - - - - - - - -

iuamenu If: 'ALL OTHER ATTEMPTS

Then: pushkey "x";goto iuaend

157 ------- - - - - - - - - - - - - - - - -

adjust If: 'ADJUST AN ORDER FROM MENU

Then:

158 ------- - - - - - - - - - - - - - - - -

If:

Then: cls

159 ------- - - - - - - - - - - - - - - - -

If:

Then: input popup nr "Adjust Which Order?: "

160 ------- - - - - - - - - - - - - - - - -

If: nr eq ""

Then: goto iuaend

161 ------- - - - - - - - - - - - - - - - -

If:

Then: s="2a";ss="2a"

162 ------- - - - - - - - - - - - - - - - -

If:

Then: pushkey "4A"{nr{"[ENTR]"

Nov 22, 2008 15:01 File Name: hcorder Page 10

Processing: Input

163 ------- - - - - - - - - - - - - - - - -

If:

Then: goto iuaend

164 ------- - - - - - - - - - - - - - - - -

iuaend If: 'END OF ALL SUBRTNS, ENABLE BREAK KEY

Then:

165 ------- - - - - - - - - - - - - - - - -

If: pw eq ""

Then: break on

166 ------- - - - - - - - - - - - - - - - -

If:

Then: end

167 ------- - - - - - - - - - - - - - - - -

TOTALS If: 'ADD *TOTALS

Then:

168 ------- - - - - - - - - - - - - - - - -

If: 'MISC, PROFIT, FREIGHT

Then: mi=80+81+79+104+106+75

169 ------- - - - - - - - - - - - - - - - -

If: 'TOTAL TAXIBLE AMT=SUBTOT+DISC+MISC

Then: '82=75+76+79+81

170 ------- - - - - - - - - - - - - - - - -

If:

Then: gosub TAXENT

171 ------- - - - - - - - - - - - - - - - -

If: 'TOTAL TAX=TXBL AMT * TAX %

Then: 85=82*(84/"100")

172 ------- - - - - - - - - - - - - - - - -

If: getenv("PFCOMP") eq "sj"'SPECIAL TAX CALCS FOR NEW JERSEY

Then: call "xnjtax"

173 ------- - - - - - - - - - - - - - - - -

If: 'TOTAL PRICE=SUBTOTAL+DISC+FREIGHT+MISC+TAX-SUBCTR

Then: 86=75+76+79+81+80+85+104+106'+105 'jlh 1/16/98

174 ------- - - - - - - - - - - - - - - - -

If: 3 eq "PS" AND (36 ne "AR" AND 36 ne "MX" AND 36 ne "")

Then: 87=86 'POS ASSUMES ALL IS PAID NOW

175 ------- - - - - - - - - - - - - - - - -

If: 3 eq "PS" AND (36 ne "AR" AND 36 ne "MX" AND 7 eq "CASH")

Then: 87=86 'POS ASSUMES ALL IS PAID NOW

176 ------- - - - - - - - - - - - - - - - -

If: 3 eq "RT" AND (36 ne "AR" AND 36 ne "SC" AND 36 ne "") 'RETURNS

Then: 87=86 'ASSUMES ALL PAID NOW UNLESS STORE CREDIT ISSUED

177 ------- - - - - - - - - - - - - - - - -

If: 'NON TAXIBLE AMOUNT

Then: '83=86-82

178 ------- - - - - - - - - - - - - - - - -

If: 'BAL=PRICE-PAYMENTS

Then: 88=86-87 'must use 86, not 89 here. jlh

179 ------- - - - - - - - - - - - - - - - -

If: 'CALC MATERIALS AND LABOR 03/31/98 jlh

Then: call "xmatlab"

180 ------- - - - - - - - - - - - - - - - -

If:

Then: vz(13,.2)

Nov 22, 2008 15:01 File Name: hcorder Page 11

Processing: Input

181 ------- - - - - - - - - - - - - - - - -

If: "AR CC VI MC AX DI" co 36 'CREDIT CARD AMT IS TOTAL MINUS CASH

Then: vz=86-39

182 ------- - - - - - - - - - - - - - - - -

If: 'CALCULATE THE SHIPPED VALUE & PROFIT

Then: 98="0";gosub CALCSHV;89=tl

183 ------- - - - - - - - - - - - - - - - -

If: '*98 IS TOTAL PROFIT, LINES PLUS ADDED PROFIT *75

Then: 98=98+75

184 ------- - - - - - - - - - - - - - - - -

If: @sn co "ps"

Then: break off

185 ------- - - - - - - - - - - - - - - - -

If:

Then: display

186 ------- - - - - - - - - - - - - - - - -

If:

Then: return

187 ------- - - - - - - - - - - - - - - - -

CALCSHV If: 'CALCULATE SHIPPED VALUE

Then:

188 ------- - - - - - - - - - - - - - - - -

If:

Then: declare shipval(13,.2)

189 ------- - - - - - - - - - - - - - - - -

If: 'TOTAL VALUE OF GOODS SHIPPED NOW

Then: tl="0"

190 ------- - - - - - - - - - - - - - - - -

If: 'LOOK INTO DETAIL FILE

Then: lookup cdet = hcorddet k=1 i=a -nx

191 ------- - - - - - - - - - - - - - - - -

chloop If:

Then:

192 ------- - - - - - - - - - - - - - - - -

If: not cdet 'END OF FILE

Then: close cdet;return

193 ------- - - - - - - - - - - - - - - - -

If: cdet(1) ne 1 'INTO NEXT ORDER

Then: close cdet;return

194 ------- - - - - - - - - - - - - - - - -

If: 'CALC PROFIT 09/09/05 jlh

Then: 98=98+cdet(52)

195 ------- - - - - - - - - - - - - - - - -

If: 'VALUE OF THIS LINE ITEM=QUAN SHIPPED* AMT EACH

Then: shipval=cdet(12)*cdet(18)

196 ------- - - - - - - - - - - - - - - - -

If: 'TOTAL VALUE RECVD NOW, IE, UNPOSTED

Then: 'tn=tn+( (cdet(12)-cdet(11))*cdet(18) )

197 ------- - - - - - - - - - - - - - - - -

If: 'TOTAL VALUE OF SHIPPED

Then: tl=tl+shipval

198 ------- - - - - - - - - - - - - - - - -

If:

Then: getnext cdet;goto chloop

Nov 22, 2008 15:01 File Name: hcorder Page 12

Processing: Input

199 ------- - - - - - - - - - - - - - - - -

If: 'DECLARE VARIABLES

Then:

200 ------- - - - - - - - - - - - - - - - -

If: 'CREDIT HOLD FLAG 3.29.99 mjh

Then: hf(1,yesno,g)

201 ------- - - - - - - - - - - - - - - - -

If:

Then: rn(8,.0);da(22,allup)

202 ------- - - - - - - - - - - - - - - - -

If:

Then: uz(5,allup);z(1,*);dz(70,allup);pz(8,.2);sa(1,*)

203 ------- - - - - - - - - - - - - - - - -

If: 'COUNTERS

Then: x(3,.0); y(3,.0)

204 ------- - - - - - - - - - - - - - - - -

If:

Then: ky;ln(2,.0);lz(2,.0);yy(3,.0)

205 ------- - - - - - - - - - - - - - - - -

If:

Then: cr(13,,0);ep(6,.3);ta(1,*);tx(1,*);sz(1,*,g);u(2,.0);zp(5,zip)

206 ------- - - - - - - - - - - - - - - - -

If:

Then: ia(8,allup);ib(8,allup);ic(8,allup);id(8,allup);ie(8,allup)

207 ------- - - - - - - - - - - - - - - - -

If:

Then: if(8,allup);ig(8,allup);ih(8,allup);ii(8,allup);ij(8,allup)

208 ------- - - - - - - - - - - - - - - - -

If:

Then: pa(8,.2);pb(8,.2);pc(8,.2);pd(8,.2);pe(8,.2)

209 ------- - - - - - - - - - - - - - - - -

If:

Then: pf(8,.2);pg(8,.2);ph(8,.2);pi(8,.2);pj(8,.2)

210 ------- - - - - - - - - - - - - - - - -

If: 'PARTS SUBTOTAL fes

Then: pt(13,.2)

211 ------- - - - - - - - - - - - - - - - -

If: '<SHORT ARRAYS:>

Then:

212 ------- - - - - - - - - - - - - - - - -

If: 'ACTUAL EQUIPMENT fes

Then: dim equip[10](7,.0):ka

213 ------- - - - - - - - - - - - - - - - -

If:

Then: dim flag[10](1,*):a

214 ------- - - - - - - - - - - - - - - - -

If:

Then: dim items[10](15,allup):ia

215 ------- - - - - - - - - - - - - - - - -

If: 'LARGER DESCRIPTION

Then: dim ydesc[10](34,allup)

216 ------- - - - - - - - - - - - - - - - -

If:

Then: dim unit[10](5,allup):ua

Nov 22, 2008 15:01 File Name: hcorder Page 13

Processing: Input

217 ------- - - - - - - - - - - - - - - - -

If:

Then: dim price[10](8,.3):pa

218 ------- - - - - - - - - - - - - - - - -

If:

Then: dim exten[10](10,.2):ea

219 ------- - - - - - - - - - - - - - - - -

If:

Then: dim comment[15](70,*):ca

220 ------- - - - - - - - - - - - - - - - -

If: 'mjh 3.29.99

Then: dim lines[10](2,.0):la ':ya

221 ------- - - - - - - - - - - - - - - - -

If:

Then: dim sdate[10](8,mdy/):ya ':ya

222 ------- - - - - - - - - - - - - - - - -

If:

Then: 'dim invn[10](7,.0):xa

223 ------- - - - - - - - - - - - - - - - -

If:

Then: dim uom[10](5,allup):va

224 ------- - - - - - - - - - - - - - - - -

If:

Then: dim mquan[10](8,.1):ra

225 ------- - - - - - - - - - - - - - - - -

If:

Then: dim wgt[10](8,.1) ':ga

226 ------- - - - - - - - - - - - - - - - -

If: '<ARRAYS WITH POSSIBLE EDIT TYPE CHANGE FROM SYSTEM TO SYSTEM:>

Then: 'changed from 5,.1 to 6,.2 on 11/30/99 jlh sj

227 ------- - - - - - - - - - - - - - - - -

If:

Then: w(2,.0)

228 ------- - - - - - - - - - - - - - - - -

If:

Then: dim desc[10](16,allup):da

229 ------- - - - - - - - - - - - - - - - -

If:

Then: dim quan[10](6,.2):qa

230 ------- - - - - - - - - - - - - - - - -

If: 'AMOUNT SENT TO BACK ORDERS 06/24/05 jlh

Then: dim qubo[10](6,.2):xa

231 ------- - - - - - - - - - - - - - - - -

If:

Then: dim ship[10](6,.2):wa

232 ------- - - - - - - - - - - - - - - - -

If:

Then: dim recnow[10](6,.2):vk

233 ------- - - - - - - - - - - - - - - - -

If: 'QUAN BILLED 4/21/97 jlh

Then: dim billed[10](6,.2)':xa 'borrowed xa-xj for bo 06/24/05 jlh

234 ------- - - - - - - - - - - - - - - - -

If: 'QUANTITY ON ORDER

Then: dim onord[10](6,.2):ga

Nov 22, 2008 15:01 File Name: hcorder Page 14

Processing: Input

235 ------- - - - - - - - - - - - - - - - -

If:

Then: dim costs[10](11,.3)

236 ------- - - - - - - - - - - - - - - - -

If:

Then: dim profit[10](10,.2)

237 ------- - - - - - - - - - - - - - - - -

If:

Then: dim percent[10](6,.3)

238 ------- - - - - - - - - - - - - - - - -

If:

Then: dim commiss[10](10,.2)

239 ------- - - - - - - - - - - - - - - - -

If:

Then: dim location[10](10,allup)

240 ------- - - - - - - - - - - - - - - - -

If: '<EXTENDED ARRAYS:>

Then: '

241 ------- - - - - - - - - - - - - - - - -

If: 'ACTUAL EQUIPMENT fes

Then: dim xequip[100](7,.0)

242 ------- - - - - - - - - - - - - - - - -

If: 'QUANTITY ON ORDER

Then: dim xonord[100](12,.2)

243 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xrecnow[100](12,.2)

244 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xwgt[100](8,.1)

245 ------- - - - - - - - - - - - - - - - -

If: 'DISCOUNT AMOUNT

Then: dim xdisc[100](12,.3)

246 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xmquan[100](12,.2)

247 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xuom[100](5,allup)

248 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xflag[100](1,*)

249 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xitems[100](15,allup)

250 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xdesc[100](34,*)

251 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xunit[100](5,allup)

252 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xquan[100](12,.2)

Nov 22, 2008 15:01 File Name: hcorder Page 15

Processing: Input

253 ------- - - - - - - - - - - - - - - - -

If: 'QUAN SENT TO BACK ORDERS 06/24/05 jlh

Then: dim xqubo[100](12,.2)

254 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xprice[100](8,.3)

255 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xexten[100](10,.2)

256 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xcomment[150](70,*)

257 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xlines[100](2,.0)

258 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xship[100](12,.2)

259 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xsdate[100](8,mdy/)

260 ------- - - - - - - - - - - - - - - - -

If:

Then: 'dim xinvn[100](7,.0)

261 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xbilled[100](12,.2)

262 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xcommiss[100](10,.2)

263 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xpercent[100](6,.3)

264 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xprofit[100](10,.2)

265 ------- - - - - - - - - - - - - - - - -

If:

Then: dim xlocation[10](10,allup)

266 ------- - - - - - - - - - - - - - - - -

If: '<ARRAYS SPECIFIC TO INPUT PROCESSING:>

Then: '

267 ------- - - - - - - - - - - - - - - - -

If:

Then: dim notes[4](40,*):na

268 ------- - - - - - - - - - - - - - - - -

If: 'DET FIELD 41, QUAN ALLOCATED

Then: dim xalloc[100](12,.2)

269 ------- - - - - - - - - - - - - - - - -

If: 'DET FIELD 11, QUAN POSTED TO G/L

Then: dim xposted[100](12,.2)

270 ------- - - - - - - - - - - - - - - - -

If: 'DET FIELD 26, QUAN POSTED TO INVENTORY

Then: dim xivpost[100](12,.2)

Nov 22, 2008 15:01 File Name: hcorder Page 16

Processing: Input

271 ------- - - - - - - - - - - - - - - - -

If: 'RECORD COSTS NOT FOUND IN INVENTORY

Then: dim xcosts[100](11,.3)

272 ------- - - - - - - - - - - - - - - - -

GETSCRN If: 'GET SCREEN NUMBERS TO USE- *GETSCRN

Then:

273 ------- - - - - - - - - - - - - - - - -

If:

Then: sx(6,*);s(3,*,g);ss(3,*);sp(3,*)

274 ------- - - - - - - - - - - - - - - - -

If: 'may need fes call

Then: 'call xfesscrn

275 ------- - - - - - - - - - - - - - - - -

If:

Then: call "xgetscrn"

276 ------- - - - - - - - - - - - - - - - -

If: @sn co "ps" AND 6 ne ""

Then: break off

277 ------- - - - - - - - - - - - - - - - -

If: s ne "1vc" AND s ne "9"

Then: gosub SERVICE

278 ------- - - - - - - - - - - - - - - - -

If:

Then: return

279 ------- - - - - - - - - - - - - - - - -

service If: 3 eq "WS" OR 3 eq "SV" OR 3 eq "SC" OR 3 eq "SF" OR 3 eq "SD" OR 25

ne ""

Then:

280 ------- - - - - - - - - - - - - - - - -

svcord If: 25 eq "" AND 26 ne "" 'broke this up 04/18/00 jlh

Then: s="1vc";show("1","78") "SO"

281 ------- - - - - - - - - - - - - - - - -

If: service AND NOT svcord

Then: s="1v ";show("1","78") "S" 'took out wj 03/10/99 jlh

282 ------- - - - - - - - - - - - - - - - -

If:

Then: return

283 ------- - - - - - - - - - - - - - - - -

@keyF If: 'POP UP FINISH BOX

Then:

284 ------- - - - - - - - - - - - - - - - -

If: 76 ne "0" AND 79 ne "0" 'CALC EXISTING DISC % 10/23/07

Then: dp=abs(79)/76*"100";display

285 ------- - - - - - - - - - - - - - - - -

If: 107 gt "0" 'IF STORED, PULL IT IN 09/09/08 jlh

Then: dp=107;display

286 ------- - - - - - - - - - - - - - - - -

If: getenv("PFCOMP") eq "fulton" 'GET STATION THIS USER IS AT

Then: gosub GETSTA '02/14/06 jlh added here also

287 ------- - - - - - - - - - - - - - - - -

If:

Then: declare atkeyf(2,*)

288 ------- - - - - - - - - - - - - - - - -

If:

Then: atkeyf="on"

Nov 22, 2008 15:01 File Name: hcorder Page 17

Processing: Input

289 ------- - - - - - - - - - - - - - - - -

If: fx eq "" 'added this line 06/13/06 jlh

Then: gosub CLEAR;gosub LNLOAD;fx="x";yy="1";gosub LDMINI

290 ------- - - - - - - - - - - - - - - - -

If: 'SET DEFAULTS

Then: l="N";p="N";r="N"

291 ------- - - - - - - - - - - - - - - - -

If: 'CHECK FOR CREDIT CARD ON FILE

Then: gosub CHKCC

292 ------- - - - - - - - - - - - - - - - -

If: 3 ne "RT" AND 13 ne "Y"

Then: popup ("06","45") update - ,"posc" , 87;goto fend

293 ------- - - - - - - - - - - - - - - - -

If: 3 ne "RT" AND 13 eq "Y" 'POSTED SCREEN jlh 11/04/05

Then: popup ("06","45") update - ,"poscp" , 34;goto fend

294 ------- - - - - - - - - - - - - - - - -

If: 3 eq "RT" AND 13 ne "Y"

Then: popup ("06","45") update - ,"posr" , 87;goto fend

295 ------- - - - - - - - - - - - - - - - -

If: 3 eq "RT" AND 13 eq "Y"

Then: popup ("06","45") update - ,"posrpo" , 34;goto fend

296 ------- - - - - - - - - - - - - - - - -

fend If:

Then:

297 ------- - - - - - - - - - - - - - - - -

If: 'GET RID OF BITS OF SCREEN HANGING AROUND

Then: pushkey "[DRAW]"

298 ------- - - - - - - - - - - - - - - - -

If: fflag eq "Y"

Then: return

299 ------- - - - - - - - - - - - - - - - -

If:

Then: end

300 ------- - - - - - - - - - - - - - - - -

CHKCC If: 'CHECK FOR CREDIT CARD ON FILE

Then: '10/02/07 jlh

301 ------- - - - - - - - - - - - - - - - -

If: getenv("PFCOMP") ne "fulton"

Then: return

302 ------- - - - - - - - - - - - - - - - -

If: 3 ne "ST" 'STANDARD ORDERS ONLY

Then: return

303 ------- - - - - - - - - - - - - - - - -

If:

Then: declare global ccnum(19,*)

304 ------- - - - - - - - - - - - - - - - -

If:

Then: declare global ccend(4,*)

305 ------- - - - - - - - - - - - - - - - -

If:

Then: declare local cctype(2,*)

306 ------- - - - - - - - - - - - - - - - -

If: ''7 eq "COD" OR 36 eq "CO"

Then: show "Press \KE to Enter CC Info"

Nov 22, 2008 15:01 File Name: hcorder Page 18

Processing: Input

307 ------- - - - - - - - - - - - - - - - -

If:

Then: lookup cod = hcmoncod k=1 i=B -nx

308 ------- - - - - - - - - - - - - - - - -

If: not cod

Then: return

309 ------- - - - - - - - - - - - - - - - -

If: cod(4) eq ""

Then: return

310 ------- - - - - - - - - - - - - - - - -

If: 'STORED CREDIT CARD NUMBER

Then: ccnum=cod(4)

311 ------- - - - - - - - - - - - - - - - -

If: 'STORED CREDIT CARD TYPE

Then: cctype=cod(7)

312 ------- - - - - - - - - - - - - - - - -

hasdash If: ccnum co "-"

Then: ccend=mid(ccnum,"16","4")

313 ------- - - - - - - - - - - - - - - - -

If: NOT hasdash

Then: ccend=mid(ccnum,"13","4")

314 ------- - - - - - - - - - - - - - - - -

If:

Then: pu=""{cctype{"#:-"{ccend

315 ------- - - - - - - - - - - - - - - - -

If:

Then: show "Press \KE to Enter or Update CC Info \KB to Change Pay Type"

316 ------- - - - - - - - - - - - - - - - -

If:

Then: display;return

317 ------- - - - - - - - - - - - - - - - -

@key= If: 'SETUP BROWSE LOOKUP TO SIMULATE A BROWSE

Then: end 'disabled 08/29/05 jlh

318 ------- - - - - - - - - - - - - - - - -

If:

Then: call "xqbrw"

319 ------- - - - - - - - - - - - - - - - -

If:

Then: lookup - r=rn -n

320 ------- - - - - - - - - - - - - - - - -

If:

Then: end

321 ------- - - - - - - - - - - - - - - - -

@keyL If: 'VIEW LINE ITEMS

Then:

322 ------- - - - - - - - - - - - - - - - -

If:

Then: declare global unflg(3,*)

323 ------- - - - - - - - - - - - - - - - -

If:

Then: unflg=""

324 ------- - - - - - - - - - - - - - - - -

If:

Then: qk(5,.1)

Nov 22, 2008 15:01 File Name: hcorder Page 19

Processing: Input

325 ------- - - - - - - - - - - - - - - - -

lreloop If:

Then:

326 ------- - - - - - - - - - - - - - - - -

If: 3 ne "PS" OR 3 eq "RT" AND @sn ne "3"

Then: show "\KZ OR \r[X]\r-EXIT \r[V]\r-VIEW DETAIL \r[M]\r-MODIFY LINE

ITEMS \r[C]\r-SHOW COSTS"

327 ------- - - - - - - - - - - - - - - - -

If: 3 ne "PS" OR 3 eq "RT" AND @sn eq "3"

Then: show "\KZ OR \r[X]\r-EXIT \r[V]\r-VIEW DETAIL \r[M]\r-MODIFY LINE

ITEMS \r[U]\r-UNRECEIVED ONLY"

328 ------- - - - - - - - - - - - - - - - -

If: 3 eq "PS" OR 3 eq "RT"

Then: show "\KZ OR \r[X]\r-EXIT \r[V]\r-VIEW DETAIL"

329 ------- - - - - - - - - - - - - - - - -

If: @sn ne "3"

Then: lookup det = hcorddet k=1 i=B -nxm b="(brw=11,10,1 xkey=MXC pop

=1 prc=popkyl fill=asc,top)[LN# ITEM # DESCR

330 ------- - - - - - - - - - - - - - - - -

If:

Then: IPTION UNIT QUAN PRICE EXTENSION]*2 *8

*9 *17 *qa *pa *pz"

331 ------- - - - - - - - - - - - - - - - -

If: @sn eq "3"

Then: lookup det = hcorddet k=1 i=B -nxm b="(brw=16,5,1 xkey=MXU pop=

1 prc=popkyl fill=asc,top)[LN# ITEM # DESCR

332 ------- - - - - - - - - - - - - - - - -

If:

Then: IPTION UNIT ORDERED SHIPPED]*2 *8

*9 *17 *qa *qk"""

333 ------- - - - - - - - - - - - - - - - -

If: @bk eq "U"

Then: unflg="set";goto lreloop

334 ------- - - - - - - - - - - - - - - - -

If:

Then: clearb

335 ------- - - - - - - - - - - - - - - - -

If: not det

Then: end

336 ------- - - - - - - - - - - - - - - - -

If:

Then: yy=det(2);rx=@rn

337 ------- - - - - - - - - - - - - - - - -

If: @bk eq "C"

Then: goto SHOWCOS

338 ------- - - - - - - - - - - - - - - - -

If: @bk ne "M" AND @py ne ""

Then: exit

339 ------- - - - - - - - - - - - - - - - -

If: @bk ne "M"

Then: end

340 ------- - - - - - - - - - - - - - - - -

If: @bk eq "M" AND 3 eq "PS" 'DON'T ALLOW MODIFICATION OF LINES

Then: end 'ON POINT OF SALE ORDERS

341 ------- - - - - - - - - - - - - - - - -

If:

Then: gosub CLEAR

342 ------- - - - - - - - - - - - - - - - -

If:

Then: gosub LNLOAD

Nov 22, 2008 15:01 File Name: hcorder Page 20

Processing: Input

343 ------- - - - - - - - - - - - - - - - -

If:

Then: gosub LDMINI

344 ------- - - - - - - - - - - - - - - - -

If:

Then: gosub GETSCRN

345 ------- - - - - - - - - - - - - - - - -

If:

Then: close

346 ------- - - - - - - - - - - - - - - - -

If: @bk eq "M"

Then: screen (ss);goto from2

347 ------- - - - - - - - - - - - - - - - -

If:

Then: end

348 ------- - - - - - - - - - - - - - - - -

popkyl If:

Then:

349 ------- - - - - - - - - - - - - - - - -

If: det(1) ne 1

Then: drop all

350 ------- - - - - - - - - - - - - - - - -

If: unflg eq "set" AND det(10) eq det(12)

Then: drop

351 ------- - - - - - - - - - - - - - - - -

If:

Then: qa=det(10);pa=det(18);pz=det(19);qk=det(12)

352 ------- - - - - - - - - - - - - - - - -

If:

Then: end

353 ------- - - - - - - - - - - - - - - - -

SHOWCOS If: 'SHOW COSTS IN BROWSE

Then:

354 ------- - - - - - - - - - - - - - - - -

If: 3 ne "PS" OR 3 eq "RT" AND @sn ne "3"

Then: show "\KZ OR \r[X]\r-EXIT \r[V]\r-VIEW DETAIL \r[M]\r-MODIFY LINE

ITEMS \r[C]\r-SHOW PRICES"

355 ------- - - - - - - - - - - - - - - - -

If:

Then: lookup det = hcorddet k=1 i=B -nxm b="(brw=11,10,1 xkey=MXC pop

=1 prc=popkyc fill=asc,top)[LN# ITEM # DESCR

356 ------- - - - - - - - - - - - - - - - -

If:

Then: IPTION UNIT QUAN COST EXTENSION]*2 *8

*9 *17 *qa *pa *pz"

357 ------- - - - - - - - - - - - - - - - -

If:

Then: goto lreloop

358 ------- - - - - - - - - - - - - - - - -

popkyc If: 'SHOW COSTS ON POPUP

Then:

359 ------- - - - - - - - - - - - - - - - -

If: det(1) ne 1

Then: drop all

360 ------- - - - - - - - - - - - - - - - -

If: unflg eq "set" AND det(10) eq det(12)

Then: drop

Nov 22, 2008 15:01 File Name: hcorder Page 21

Processing: Input

361 ------- - - - - - - - - - - - - - - - -

If:

Then: qa=det(10);pa=det(21);pz=det(22);qk=det(12)

362 ------- - - - - - - - - - - - - - - - -

If:

Then: end

363 ------- - - - - - - - - - - - - - - - -

@keyP If: 'PRINT INVOICE

Then:

364 ------- - - - - - - - - - - - - - - - -

If: 107 ne "" 'LOAD FOR DISPLAY

Then: dp=107

365 ------- - - - - - - - - - - - - - - - -

If: @sn eq "1ps" AND 3 ne "RT" 'P.O.S. ONLY

Then: popup ("06","45") update - ,"posi" , p;end

366 ------- - - - - - - - - - - - - - - - -

If: @sn eq "1ps" AND 3 eq "RT" 'P.O.S. ONLY

Then: popup ("06","45") update - ,"posr" , p;end

367 ------- - - - - - - - - - - - - - - - -

If: @sn eq "1q" 'STANDARD ORDER

Then: popup ("06","45") update - ,"posi" , p;end

368 ------- - - - - - - - - - - - - - - - -

If: @sn eq "1ps"

Then: screen, 86; end

369 ------- - - - - - - - - - - - - - - - -

If: 'TELLS THE CALL WE'RE COMING FROM keyP

Then: hf="Y"

370 ------- - - - - - - - - - - - - - - - -

If: 'CHECK THIS CUST FOR CREDIT HOLD STATUS 3.25.99

Then: call "xchkhold";call "xnull"

371 ------- - - - -