Ok,
Here is the ASCII version of the code.Is there a maximum number of variables that can be in use at any given time? By the time this form is called (this is a variable form only,) There are probably nearly 250 variables that are in use.
$COMMAND
inform2
SET ERROR MESSAGES OFF
CLEAR V i*
SET V imessage = +
"You may search based on any known information. Just click +
on the field you do have information about and fill it in. Then hit enter. +
You only need to fill in one field"
-- form variables
SET V vprint TEXT = ""
-- armain variables
SET V icompany TEXT
SET V inam1 TEXT
SET V inam2 TEXT
SET V iaddress1 TEXT
SET V iaddress2 TEXT
SET V icity TEXT
SET V izcode TEXT
SET V iphon1 TEXT
SET V iphon2 TEXT
SET V iphon3 TEXT
SET V iphon4 TEXT
SET V iphon5 TEXT
SET V icust# TEXT
SET V icurr_bal CURRENCY
SET V ibuilder TEXT
-- jobsite variables
SET V tjobid INTEGER = 0
SET V ijcompany TEXT
SET V ijnam1 TEXT
SET V ijnam2 TEXT
SET V ijobadd1 TEXT
SET V ijobadd2 TEXT
SET V ijobadd3 TEXT
SET V iphon TEXT
SET V ijobid INTEGER = 0
SET V ijobnotes TEXT
SET V ijobmap TEXT
SET V totaljobids INTEGER = 0
-- joblist variables
SET V ijbnam1 TEXT
SET V ijbnam2 TEXT
SET V ijbladd1 TEXT
SET V ijbladd2 TEXT
SET V ijblphon TEXT
SET V ijbldr TEXT
SET V ijob# TEXT
SET V njob TEXT
SET V totaljobs INTEGER = 0
SET V imessage TEXT
SET ERROR V verr
ENTER USING informer2
RETURN
$COMMAND
company
SET V ijob# = ""
SET V ijobid = 0
SET V icust# = ""
CHOOSE icust# FROM #VALUES +
FOR (company & f_name & l_name & badr & badrst), custno FROM armain +
WHERE company CONTAINS .icompany TITLE "Choose a Company" LINES 10 FORMATTED
IF verr <> 0 THEN
SET V imessage = +
"Sorry, That company name isn't found in the ARMain table."
RUN varclear IN inform2.apx
ELSE
SELECT COUNT (jobid) INTO totaljobids FROM jobsite +
WHERE custno = .icust#
IF totaljobids > 1 THEN
SET V ijobid = 0
SET V imessage = "Found based on Company Name, but has multiple +
Jobsites please press 'Other Jobsites' for list"
RUN setvar IN inform2.apx
ELSE
SET V ijobid = jobid FROM jobsite WHERE custno = .icust#
SET V imessage = "Found based on Company Name."
RUN setvar IN inform2.apx
ENDIF
ENDIF
RETURN
$COMMAND
namer
SET V ijobid = 0
SET V icust# = ""
SET V ijob# = ""
CHOOSE icust# FROM #VALUES +
FOR (f_name & l_name & badr & badrst), custno FROM armain +
WHERE l_name CONTAINS .inam2 LINES 20
IF verr <> 0 THEN
SET V imessage = "Sorry, That name doesn't ring a bell."
RUN varclear IN inform2.apx
ELSE
SELECT COUNT (jobid) INTO totaljobids FROM jobsite +
WHERE custno = .icust#
IF totaljobids > 1 THEN
SET V ijobid = 0
SET V imessage = "Found based on Customer Name, but has multiple +
Jobsites please press 'Other Jobsites' for list"
RUN setvar IN inform2.apx
ELSE
SET V ijobid = jobid FROM jobsite WHERE custno = .icust#
SET V imessage = "Found based on Customer Name."
RUN setvar IN inform2.apx
ENDIF
ENDIF
RETURN
$COMMAND
customer
SET V ijobid = 0
SET V ijob# = ""
SET V icust# = custno IN armain WHERE custno = .icust#
IF verr <> 0 THEN
SET V imessage = +
"Sorry, That Customer number isn't present in the ArMain table."
RUN varclear IN inform2.apx
ELSE
SELECT COUNT (jobid) INTO totaljobids FROM jobsite +
WHERE custno = .icust#
IF totaljobids > 1 THEN
SET V ijobid = 0
SET V imessage = "Found based on Customer Number, but has multiple +
Jobsites please press 'Other Jobsites' for list"
RUN setvar IN inform2.apx
ELSE
SET V ijobid = jobid FROM jobsite WHERE custno = .icust#
SET V imessage = "Found based on Customer Number."
RUN setvar IN inform2.apx
ENDIF
ENDIF
RETURN
$COMMAND
addrb2
SET V ijobid = 0
SET V icust# = ""
SET V ijob# = ""
CHOOSE icust# FROM #VALUES +
FOR (company & f_name & l_name & badr & badrst), custno +
FROM armain WHERE badrst CONTAINS .iaddress2 TITLE +
"Pick a customer" LINES 10 FORMATTED
IF verr <> 0 THEN
SET V imessage = +
"Sorry, That address isn't present in the ArMain table."
RUN varclear IN inform2.apx
ELSE
SELECT COUNT (jobid) INTO totaljobids FROM jobsite +
WHERE custno = .icust#
IF totaljobids > 1 THEN
SET V ijobid = 0
SET V imessage = "Found based on Street Name, but has multiple +
Jobsites please press 'Other Jobsites' for list"
RUN setvar IN inform2.apx
ELSE
SET V ijobid = jobid FROM jobsite WHERE custno = .icust#
SET V imessage = "Found based on Street Name."
RUN setvar IN inform2.apx
ENDIF
ENDIF
RETURN
$COMMAND
addrb1
SET V ijobid = 0
SET V icust# = ""
SET V ijob# = ""
CHOOSE icust# FROM #VALUES +
FOR (company & f_name & l_name & badr & badrst), custno +
FROM armain WHERE badr = .iaddress1 TITLE "Pick the Customer" LINES 10 +
FORMATTED
IF verr <> 0 THEN
SET V imessage = +
"Sorry, That address isn't present in the ArMain table."
RUN varclear IN inform2.apx
ELSE
SELECT COUNT (jobid) INTO totaljobids FROM jobsite +
WHERE custno = .icust#
IF totaljobids > 1 THEN
SET V ijobid = 0
SET V imessage = "Found based on Street Address, but has multiple +
Jobsites please press 'Other Jobsites' for list"
RUN setvar IN inform2.apx
ELSE
SET V ijobid = jobid FROM jobsite WHERE custno = .icust#
SET V imessage = "Found based on Street Address."
RUN setvar IN inform2.apx
ENDIF
ENDIF
RETURN
$COMMAND
addrj1
SET V ijobid = 0
SET V ijobid TEXT
SET V icust# = ""
SET V ijob# = ""
CHOOSE ijobid FROM #VALUES +
FOR (jobname1 & jobname2 & jobcompany & jobadd2 & jobadd3), jobid +
FROM jobsite WHERE jobadd1 = .ijobadd1 TITLE "Pick a Streetname" LINES 10
IF verr <> 0 THEN
SET V imessage = "Sorry, That address isn't in the joblist."
RUN varclear IN inform2.apx
ELSE
SET V imessage = "Found based on Address"
SET V ijobid INTEGER
SET V icust# = custno IN jobsite WHERE jobid = .ijobid
RUN setvar IN inform2.apx
ENDIF
RETURN
$COMMAND
jobcomp
SET V ijobid TEXT = ""
SET V icust# = ""
SET V ijob# = ""
CHOOSE ijobid FROM #VALUES +
FOR (jobcompany & jobname1 & jobname2 & jobadd1 & jobadd2 &jobadd3), jobid +
FROM jobsite WHERE jobcompany CONTAINS .ijcompany +
TITLE "Pick the company" LINES 10
IF verr <> 0 THEN
RUN varclear IN inform2.apx
SET V imessage = "Sorry, That company isn't in the jobsite table."
ELSE
SET V imessage = "Found based on Company name"
SET V ijobid INTEGER
SET V icust# = custno IN jobsite WHERE jobid = .ijobid
RUN setvar IN inform2.apx
ENDIF
RETURN
$COMMAND
addrj2
SET V ijobid = ""
SET V ijobid TEXT
SET V icust# = ""
SET V ijob# = ""
CHOOSE ijobid FROM #VALUES +
FOR (jobcompany & jobname1 & jobname2 & jobadd1 & jobadd2 & jobadd3),+
jobid +
FROM jobsite WHERE jobadd2 CONTAINS .ijobadd2 TITLE +
"Pick Street Number" LINES 10 FORMATTED
IF verr <> 0 THEN
SET V imessage = "Sorry, That street isn't in the jobsite table"
RUN varclear IN inform2.apx
ELSE
SET V imessage = "Found based on Street Name"
SET V ijobid INTEGER
SET V icust# = custno IN jobsite WHERE jobid = .ijobid
RUN setvar IN inform2.apx
ENDIF
RETURN
$COMMAND
jobnub
SET V ijobids = 0
SET V icust# = ""
SET V ijobid = jobid IN joblist WHERE jobnum = .ijob#
IF ijobid = 0 THEN
SET V imessage = "Sorry, That jobnumber is not assigned to a job yet"
RUN varclear IN inform2.apx
ELSE
SET V imessage = "Found info based on Jobnumber"
-- SET V ijobid = .ijobids
SET V icust# = custno IN jobsite WHERE jobid = .ijobid
RUN setvar IN inform2.apx
ENDIF
RETURN
$COMMAND
phoner
SET V ijobid = 0
SET V icust# = ""
SET V ijob# = ""
SET V ijobid = jobid IN jobsite WHERE jobphone = .iphon
IF ijobid = 0 THEN
SET V imessage = +
"Sorry, That phone number isn't present in the Jobsite table."
RUN varclear IN inform2.apx
ELSE
SET V imessage = "Found info based on jobsite phone number"
SET V icust# = custno IN jobsite WHERE jobid = .ijobid
RUN setvar IN inform2.apx
ENDIF
RETURN
$COMMAND
phoner1
SET V ijobid = 0
SET V icust# = ""
SET V ijob# = ""
SET V icust# = custno IN armain WHERE hphone = .iphon1
IF verr <> 0 THEN
SET V imessage = "Sorry, That Home phone number isn't present."
RUN varclear IN inform2.apx
ELSE
SELECT COUNT (jobid) INTO totaljobids FROM jobsite +
WHERE custno = .icust#
IF totaljobids > 1 THEN
SET V ijobid = 0
SET V imessage = "Found based on Home Phone, but has multiple +
Jobsites please press 'Other Jobsites' for list"
RUN setvar IN inform2.apx
ELSE
SET V ijobid = jobid FROM jobsite WHERE custno = .icust#
SET V imessage = "Found based on Home Phone Number."
RUN setvar IN inform2.apx
ENDIF
ENDIF
RETURN
$COMMAND
phoner2
SET V ijobid = 0
SET V icust# = ""
SET V ijob# = ""
SET V icust# = custno IN armain WHERE wphone = .iphon2
IF verr <> 0 THEN
SET V imessage = "Sorry, That Work phone number isn't present."
RUN varclear IN inform2.apx
ELSE
SELECT COUNT (jobid) INTO totaljobids FROM jobsite +
WHERE custno = .icust#
IF totaljobids > 1 THEN
SET V ijobid = 0
SET V imessage = "Found based on Work Phone, but has multiple +
Jobsites please press 'Other Jobsites' for list"
RUN setvar IN inform2.apx
ELSE
SET V ijobid = jobid FROM jobsite WHERE custno = .icust#
SET V imessage = "Found based on Work Phone Number."
RUN setvar IN inform2.apx
ENDIF
ENDIF
RETURN
$COMMAND
phoner3
SET V ijobid = 0
SET V icust# = ""
SET V ijob# = ""
SET V icust# = custno IN armain WHERE mphone = .iphon3
IF verr <> 0 THEN
SET V imessage = "Sorry, That Mobile phone number isn't present."
RUN varclear IN inform2.apx
ELSE
SELECT COUNT (jobid) INTO totaljobids FROM jobsite +
WHERE custno = .icust#
IF totaljobids > 1 THEN
SET V ijobid = 0
SET V imessage = "Found based on Mobile Phone, but has multiple +
Jobsites please press 'Other Jobsites' for list"
RUN setvar IN inform2.apx
ELSE
SET V ijobid = jobid FROM jobsite WHERE custno = .icust#
SET V imessage = "Found based on Mobile Phone Number."
RUN setvar IN inform2.apx
ENDIF
ENDIF
RETURN
$COMMAND
phoner4
SET V ijobid = 0
SET V icust# = ""
SET V ijob# = ""
SET V icust# = custno IN armain WHERE pager = .iphon4
IF verr <> 0 THEN
SET V imessage = "Sorry, That pager number isn't present."
RUN varclear IN inform2.apx
ELSE
SELECT COUNT (jobid) INTO totaljobids FROM jobsite +
WHERE custno = .icust#
IF totaljobids > 1 THEN
SET V ijobid = 0
SET V imessage = "Found based on Pager Number, but has multiple +
Jobsites please press 'Other Jobsites' for list"
RUN setvar IN inform2.apx
ELSE
SET V ijobid = jobid FROM jobsite WHERE custno = .icust#
SET V imessage = "Found based on Pager Number."
RUN setvar IN inform2.apx
ENDIF
ENDIF
RETURN
$COMMAND
phoner5
SET V ijobid = 0
SET V icust# = ""
SET V ijob# = ""
SET V icust# = custno IN armain WHERE fax = .iphon5
IF verr <> 0 THEN
SET V imessage = "Sorry, That fax number isn't present."
RUN varclear IN inform2.apx
ELSE
SELECT COUNT (jobid) INTO totaljobids FROM jobsite +
WHERE custno = .icust#
IF totaljobids > 1 THEN
SET V ijobid = 0
SET V imessage = "Found based on Fax Number, but has multiple +
Jobsites please press 'Other Jobsites' for list"
RUN setvar IN inform2.apx
ELSE
SET V ijobid = jobid FROM jobsite WHERE custno = .icust#
SET V imessage = "Found based on Fax Number."
RUN setvar IN inform2.apx
ENDIF
ENDIF
RETURN
$COMMAND
morjobs
SET V ijob# = ""
CHOOSE ijob# FROM #VALUES FOR (jobnum & jadr & jadrst), jobnum +
FROM joblist WHERE jobid = .ijobid +
AND jobnum IS NOT NULL ORDER BY jadrst +
AT CENTER CENTER TITLE "All jobs for this jobsite" LINES 20
IF verr = 0 THEN
SET V imessage = +
"Found other jobs based on customer and jobsite number."
-- SET V ijobid = jobid FROM joblist WHERE jobnum = .ijob#
SET V icust# = custno IN jobsite WHERE jobid = .ijobid
RUN setvar IN inform2.apx
ENDIF
RETURN
$COMMAND
morjobids
SET V ijob# = ""
SET V ijobid TEXT
CHOOSE ijobid FROM #VALUES FOR (jobname1 & jobname2 & jobcompany & jobadd1 & +
jobadd2), jobid +
FROM jobsite WHERE custno = .icust# ORDER BY jobadd2 +
AT CENTER CENTER TITLE "All jobsites for this customer" LINES 20
IF verr = 0 THEN
SET V imessage = "Found other jobs"
SET V ijobid INTEGER
-- SET V ijobid = .ijobids
-- SET V icust# = custno IN jobsite WHERE jobid = .ijobid
RUN setvar IN inform2.apx
ENDIF
RETURN
$COMMAND
service
OUTPUT SCREEN
PRINT history WHERE jadr = .ijobadd1 AND jadrst = .ijobadd2 +
ORDER BY sdate DESC
IF vprint = "P" THEN
OUTPUT PRINTER
PRINT history WHERE jadr = .ijobadd1 AND jadrst = .ijobadd2 +
ORDER BY sdate DESC
OUTPUT SCREEN
ENDIF
RETURN
$COMMAND
jeditor
EDIT USING editjob WHERE jobnum = .ijob#
RETURN
$COMMAND
wrkordr1
-- SET VAR sstreet = (SGET(ijobadd2,4,1))
PRINT jirpt WHERE jobid = .ijobid
-- adr = .ijobadd1 AND adrst CONTAINS .sstreet
IF vprint = "P" THEN
OUTPUT PRINTER
PRINT jirpt WHERE jobid = .ijobid
OUTPUT SCREEN
ENDIF
RETURN
$COMMAND
womain
IF ijobid > 0 THEN
ENTER USING wrkmain
ENDIF
RETURN
$COMMAND
wrkordr2
-- SET VAR sstreet = (SGET(ijobadd2,4,1))
EDIT USING wrkorder WHERE jobid = .ijobid
--adr = .ijobadd1 AND adrst CONTAINS .sstreet
RETURN
$COMMAND
porder
SET VAR sstreet = (SGET(ijobadd2,4,1))
EDIT USING purchase WHERE adr = .ijobadd1 AND adrst CONTAINS .sstreet
RETURN
$COMMAND
addpo
-- SET VAR sstreet = (SGET(ijobadd2,4,1))
IF ijobid > 0 THEN
ENTER USING purchase1
ENDIF
RETURN
$COMMAND
servicecall
if caller = "service" then
load servcall using custno serdat sertech fname Lname hphone wphone +
cellno sadr sadrst control company dispatcher jobid serday +
sertim jobstrt
.icust# .vardate1 .tech .ijnam1 .ijnam2 .iphon .iphon2 .fc +
.ijobadd1 .ijobadd2 "out" .ijcompany .ulog .ijobid .vardat +
.stim .vdatim
end
run indone in inform2.apx
RETURN
endif
if caller = "sales" then
load salecall using custno saldate saltech fname lname hphone +
wphone serday sertim cellno saladr saladrst whotookcall city state +
zcode pager mobile fax badr badrst verified proposed sfname slastname +
phonefirst jobphone incommnig jobid
.icust# .saledat .vsaltech .inam1 .inam2 .iphon1 .iphon2 .sday .stim +
.ce .ijobadd1 .ijobadd2 .ulog .icity "MI" .izcode .iphon4 .iphon3 .iphon5 +
.iaddress1 .iaddress2 "f" "f" .ijnam1 .ijnam2 "f" .iphon .vdatim .ijobid
end
run indone in inform2.apx
return
endif
$COMMAND
indone
clear v i* except invono, invno, ijobid
closewindow
return
$COMMAND
porder2
SET VAR sstreet = (SGET(ijobadd2,4,1))
PRINT porders WHERE + -- jobid = .ijobid order by podate desc
adr = .ijobadd1 AND adrst CONTAINS .sstreet
IF vprint = "P" THEN
OUTPUT PRINTER
PRINT porders WHERE + -- jobid = .ijobid order by podate desc
adr = .ijobadd1 AND adrst CONTAINS .sstreet
OUTPUT SCREEN
ENDIF
RETURN
$COMMAND
labor
PRINT labor WHERE jobnum = .ijob#
IF vprint = "P" THEN
OUTPUT PRINTER
PRINT labor WHERE jobnum = .ijob#
OUTPUT SCREEN
ENDIF
RETURN
$COMMAND
credits
PRINT chist1 WHERE custno = .icust# ORDER BY sdate DESC
IF vprint = "P" THEN
OUTPUT PRINTER
PRINT chist1 WHERE custno = .icust# ORDER BY sdate DESC
OUTPUT SCREEN
ENDIF
RETURN
$COMMAND
medit
IF usec < 5 THEN
EDIT USING editmain3 WHERE custno = .icust#
-- Cant change important info
ENDIF
IF usec > 4 THEN
EDIT USING editmain6 WHERE custno = .icust# -- can change all info
ENDIF
RETURN
$COMMAND
edjobsite
EDIT USING addjobsite1 WHERE jobid = .ijobid
RETURN
$COMMAND
jobdir
SET V verr = 0
EDIT USING direct2 WHERE jobid = .ijobid
IF verr <> 0 THEN
ENTER USING direct2
ENDIF
RETURN
$COMMAND
addjob
-- set v vcustno = .icust#
-- set v vfname = .inam1
-- set v vlname = .inam2
-- set v vcompany = ""
-- set v vhphone = .ihphone
-- set v vadr = ""
-- set v vadrst = ""
ENTER USING addjobsite2
RUN setvar IN inform2.apx
RETURN
$COMMAND
jname
SET V ijobid = 0
SET V ijobid TEXT
SET V icust# = ""
SET V ijob# = ""
CHOOSE ijobid FROM #VALUES +
FOR (jobname1 & jobname2 & jobadd1 & jobadd2 & jobadd3), jobid +
FROM jobsite +
WHERE jobname2 CONTAINS .ijnam2 TITLE "Choose a customer" LINES 20
IF verr <> 0 THEN
SET V imessage = "Sorry, That name isn't present in the Jobsite table."
RUN varclear IN inform2.apx
ELSE
SET V imessage = "Found info based on Jobsite last name"
SET V ijobid INTEGER
SET V icust# = custno FROM jobsite WHERE jobid = .ijobid
RUN setvar IN inform2.apx
ENDIF
RETURN
$COMMAND
addjobnum
IF ijobid > 0 THEN
IF totaljobs > 0 THEN
SET V ilocale TEXT = ""
SELECT locale INTO ilocale INDICATOR iilocale FROM joblist +
WHERE jobid = .ijobid
ENDIF
cle v njob
ENTER USING addjinfo
IF njob is not null THEN
INSERT INTO makemod jobnum VALUES .njob
SET V ijob# = .njob
SET V icust# = custno IN joblist WHERE jobnum = .njob
run setvar in inform2.apx
ENDIF
ENDIF
RETURN
$COMMAND
matlist
PRINT materials WHERE jobnum = .ijob# ORDER BY product
RETURN
$COMMAND
firsnamb
SET V ijobid = 0
SET V icust# = ""
SET V ijob# = ""
CHOOSE icust# FROM #VALUES +
FOR (company & f_name & l_name & badr & badrst), custno FROM armain +
WHERE f_name CONTAINS .inam1 ORDER BY l_name LINES 20
IF verr <> 0 THEN
SET V imessage = ("Sorry, Don't have any" &inam1 + +
"'s in the ARMain table")
RUN varclear IN inform2.apx
ELSE
SELECT COUNT (jobid) INTO totaljobids FROM jobsite +
WHERE custno = .icust#
IF totaljobids > 1 THEN
SET V ijobid = 0
SET V imessage = "Found based on First Name, but has multiple +
Jobsites please press 'Other Jobsites' for list"
RUN setvar IN inform2.apx
ELSE
SET V ijobid = jobid FROM jobsite WHERE custno = .icust#
SET V imessage = "Found based on First Name."
RUN setvar IN inform2.apx
ENDIF
ENDIF
RETURN
$COMMAND
firsnamj
SET V ijobid = 0
SET V ijobid TEXT
SET V icust# = ""
SET V ijob# = ""
CHOOSE ijobid FROM #VALUES +
FOR (jobcompany & jobname1 & jobname2 & jobadd1 & jobadd2) ,jobid +
FROM jobsite +
WHERE jobname1 CONTAINS .ijnam1 ORDER BY jobname2 LINES 20
IF verr <> 0 THEN
SET V imessage = ("Sorry, Don't have any" &inam1 + +
"'s in the jobsite table")
RUN varclear IN inform2.apx
ELSE
SET V imessage = "Found info based on first name in jobsite"
SET V ijobid INTEGER
SET V icust# = custno FROM jobsite WHERE jobid = .ijobid
RUN setvar IN inform2.apx
ENDIF
RETURN
$COMMAND
varclear
SET V imessage = +
"You may search based on any known information. Just click +
on the field you do have information about and fill it in. Then hit enter. +
You only need to fill in one field (Yellowed fields are excluded)"
-- armain variables
SET V icompany = ""
SET V inam1 = ""
SET V inam2 = ""
SET V iaddress1 = ""
SET V iaddress2 = ""
SET V iphon1 = ""
SET V iphon2 = ""
SET V iphon3 = ""
SET V iphon4 = ""
SET V iphon5 = ""
SET V icity = ""
SET V izcode = ""
SET V icust# = ""
SET V ibuilder = ""
SET V icurr_bal = 0
SET V totaljobs = 0
SET V totaljobids = 0
SET V tjobid = 0
-- jobsite varibles
SET V ijnam1 = ""
SET V ijnam2 = ""
SET V ijcompany = ""
SET V ijobadd1 = ""
SET V ijobadd2 = ""
SET V ijobadd3 = ""
SET V iphon = ""
SET V ijobnotes = ""
SET V ijobid INTEGER = 0
SET V ijobmap = ""
-- joblist variables
SET V ijbnam1 = ""
SET V ijbnam2 = ""
SET V ijbladd1 = ""
SET V ijbladd2 = ""
SET V ijblphon = ""
SET V ijbldr = ""
SET V ijob# = ""
SET V njob = ""
RECALC VARIABLES
SET V verr = 0
SKIP TO totaljobs
RETURN
$COMMAND
eqmt1
EDIT USING eqmtfrm2 WHERE jobnum = .ijob#
RETURN
$COMMAND
eqmt
PRINT equipt1 WHERE jobnum = .ijob#
IF vprint = "P" THEN
OUTPUT PRINTER
PRINT equipt1 WHERE jobnum = .ijob#
OUTPUT SCREEN
ENDIF
RETURN
$COMMAND
transfer
DIALOG "Did you check for an existing customer? " vadddd vend YES AT 16
IF vend = "[ESC]" THEN
GOTO end2
ENDIF
IF vadddd = NO THEN
GOTO end2
ENDIF
IF vadddd = YES THEN
SET VAR scustno TEXT = .icust#
SET VAR vadr = .ijobadd1
SET VAR vadrst = .ijobadd2
SET VAR vcity = .icity
SET VAR vzip = .izcode
SET VAR vcompany = ""
SET VAR vfname = ""
SET VAR vlname = ""
SET VAR vphone = ""
ENTER USING editmain4
DIALOG "Do you want to transfer this job? " vaddd vend YES AT 16
IF vend = "[ESC]" THEN
GOTO end1
ENDIF
IF vaddd = NO THEN
GOTO end1
ENDIF
IF vaddd = YES THEN
UPDATE jobsite SET +
custno TO .vcustno, +
jobname1 TO .vfname, +
jobname2 TO .vlname, +
jobcompany TO .vcompany, +
jobphone TO .vhphone +
WHERE jobid = .ijobid
UPDATE joblist SET +
custno TO .vcustno +
f_name TO .vfname, +
l_name TO .vlname, +
jphone TO .vhphone, +
company TO .vcompany +
WHERE jobid = .ijobid
EDIT USING addjobsite1 WHERE jobid = .ijobid
ENDIF
LABEL end1
DIALOG "EDIT ORIGINAL OWNER INFO IN ARMAIN? " vedmain vnooo YES AT 10
IF vnooo = "[ESC]" THEN
GOTO end2
ENDIF
IF vedmain = NO THEN
GOTO end2
ENDIF
IF vedmain = YES THEN
SET RULES OFF
EDIT USING editmain5 WHERE custno = .scustno
SET RULES ON
ENDIF
ENDIF
LABEL end2
RETURN
$command
Service1
edit using scallnew where jobid = .ijobid
return
$command
Dispatch
edit using scallhist where jobid = .ijobid
return
$COMMAND
trans1
IF tjobid = 0 THEN
SET V tjobid = .ijobid
PAUSE 2 USING +
"Choose the Customer to transfer to then press 'Transfer job +
to existing customer' again"
SET V icust# = ""
SET V ijob# = ""
SET V ijobid = 0
RUN setvar IN inform2.apx
ELSE
PAUSE 3 USING "updating to new customer now"
UPDATE jobsite SET +
custno TO .icust#, +
jobname1 TO .inam1, +
jobname2 TO .inam2, +
jobcompany TO .icompany, +
jobphone TO .iphon1 +
WHERE jobid = .tjobid
UPDATE joblist SET +
custno TO .icust#, +
f_name TO .inam1, +
l_name TO .inam2, +
jphone TO .iphon1, +
company TO .icompany +
WHERE jobid = .tjobid
SET V tjobid = 0
SET V ijobid = .tjobid
RUN setvar IN inform2.apx
ENDIF
RETURN
$COMMAND
addnew
SET VAR vcity = ""
SET VAR vzip = ""
SET VAR vcompany = ""
SET VAR vfname = ""
SET VAR vlname = ""
ENTER USING editmain4
DIALOG "DO YOU WANT INFO PUT IN JOBSITE ALSO? " vaddd vend YES AT 16
IF vend = "[ESC]" THEN
GOTO end2
ENDIF
IF vaddd = NO THEN
GOTO end2
ENDIF
IF vaddd = YES THEN
INSERT INTO jobsite jobname1, jobname2, jobcompany, +
jobadd1, jobadd2, jobphone, custno +
VALUES .vfname, .vlname, .vcompany, .vadr, .vadrst, +
.vphone, .vcustno
SELECT jobid INTO ijobids INDICATOR iijobids FROM jobsite WHERE +
custno = .vcustno AND jobadd1 = .vadr AND jobadd2 = .vadrst
SET V ijobid = .ijobids
EDIT USING addjobsite1 WHERE jobid = .ijobids
SET V icust# = .vcustno
RUN setvar IN inform2.apx
ENDIF
LABEL end2
RETURN
$COMMAND
setvar
-- armain variables
SET V icompany = ""
SET V inam1 = ""
SET V inam2 = ""
SET V iaddress1 = ""
SET V iaddress2 = ""
SET V iphon1 = ""
SET V iphon2 = ""
SET V iphon3 = ""
SET V iphon4 = ""
SET V iphon5 = ""
SET V icity = ""
SET V izcode = ""
SET V ibuilder = ""
SET V vprint = "S"
SET V icurr_bal = 0
SET V totaljobs = 0
SET V totaljobids = 0
-- jobsite varibles
SET V ijnam1 = ""
SET V ijnam2 = ""
SET V ijcompany = ""
SET V ijobadd1 = ""
SET V ijobadd2 = ""
SET V ijobadd3 = ""
SET V iphon = ""
SET V ijobnotes = ""
SET V ijobmap = ""
SET V ijobids = 0
-- joblist variables
SET V ijbnam1 = ""
SET V ijbnam2 = ""
SET V ijbladd1 = ""
SET V ijbladd2 = ""
SET V ijblphon = ""
SET V ijbldr = ""
SET V njob = ""
-- RECALC VARIABLES
SET V verr = 0
-- ARMAIN info
SELECT company, f_name, l_name, badr, badrst, hphone, wphone, mphone, +
pager, fax, city, zcode, curr_bal, builder +
INTO icompany INDICATOR iicompany, inam1 INDICATOR iinam1, +
inam2 INDICATOR iinam2, iaddress1 INDICATOR iiaddress1, +
iaddress2 INDICATOR iiaddress2, iphon1 INDICATOR iiphon1, +
iphon2 INDICATOR iiphon2, iphon3 INDICATOR iiphon3, +
iphon4 INDICATOR iiphon4, iphon5 INDICATOR iiphon5, +
icity INDICATOR iicity, izcode INDICATOR iizcode, +
icurr_bal INDICATOR iicurbal, ibuilder INDICATOR iibuilder +
FROM armain WHERE custno = .icust#
SELECT COUNT (jobid) INTO totaljobids FROM jobsite +
WHERE custno = .icust#
compute iinvcur as sum invbal from ardetail where custno = .icust#
compute ipaycur as sum paycur from ardetail where custno = .icust#
set v icurr_bal = (.iinvcur - .ipaycur)
-- jobsite info
IF ijobid > 0 THEN
SELECT jobname1, jobname2, jobcompany, jobadd1, jobadd2, jobadd3, +
jobphone, jobnotes, jobmap INTO ijnam1 INDICATOR iijnam1, +
ijnam2 INDICATOR iijnam2, ijcompany INDICATOR iijcompany, +
ijobadd1 INDICATOR iijobadd1, ijobadd2 INDICATOR iijobadd2, +
ijobadd3 INDICATOR iijobadd3, iphon INDICATOR iiphon, +
ijobnotes INDICATOR iijobnotes, ijobmap INDICATOR iijobmap +
FROM jobsite WHERE jobid = .ijobid
If ijob# is not null or ijob# <> "" then
SELECT f_name, l_name, jadr, jadrst, jphone, builder +
INTO ijbnam1 INDICATOR iijbnam1, +
ijbnam2 INDICATOR iijbnam2, ijbladd1 INDICATOR iijbladd1, +
ijbladd2 INDICATOR iijbladd2, ijblphon INDICATOR iijblphone, +
ijbldr INDICATOR iijbldr FROM joblist WHERE jobnum = .ijob#
goto jobaround
endif
-- joblist info
SELECT COUNT (jobnum) INTO totaljobs FROM joblist +
WHERE jobid = .ijobid
if totaljobs >1 then
set v imessage "There are more than one JOB NUMBERS for this jobsite +
Please choose one."
goto jobaround
endif
if totaljobs > 0 then
SELECT f_name, l_name, jadr, jadrst, jphone, builder, jobnum +
INTO ijbnam1 INDICATOR iijbnam1, +
ijbnam2 INDICATOR iijbnam2, ijbladd1 INDICATOR iijbladd1, +
ijbladd2 INDICATOR iijbladd2, ijblphon INDICATOR iijblphone, +
ijbldr INDICATOR iijbldr, ijob# indicator iijobnum# +
FROM joblist WHERE jobid = .ijobid
endif
ENDIF
label jobaround
RECALC VARIABLES
SKIP TO totaljobs
RETURN
At 09:18 AM 2/21/03 -0500, you wrote:
At 08:54 AM 2/21/2003 -0500, Dan Champion wrote:One of my forms calls proceedures in a codelocked apx file. I have Debug trace in the file and debug is set to ON, But this is where it stops tracing.Dan, In that case, why don't you run the TRACE on ASCII version of your code to get to the bottom of the problem? You may also post the actual ASCII version of the code here for others (eagle eyes) to see if they can help you. Invalid command, misspelled/wrong syntax, thousand other things ... who knows? Very Best Regards, Razzak.
Dan Champion P.O. Box 223 Grandville, MI. 49428-0223 www.championsolutions.net
