Revisiting this topic, I can reliably recreate this issue on one by running the procedure below.
This procedure only triggers long number sequences when I have a particular form open. This form contains two tiles, set to the view-as-list format. The long number sequences are serial numbers from multiple records in one field, and then they are pasted into a second field.
Here is the aforementioned procedure:
local iwindow,iSelected,iSizer,iPitch,iLoop,iRollers,iSpirals,iClearance,iTurns
iwindow=info(“windowName”)
iSpirals=“yesorno”
Save
hide
select emptycell(“ShipDate”)=true()
Field Priority
SortUp
FirstRecord
iSelected=info(“selected”)
GoForm “Sizers on Order (Print)”
// Check for Spirals Database //
if info(“files”) notcontains “Spirals”
openfile “Spirals”
window “Work Orders:Sizers on Order (Print)”
iSpirals=“No”
endif
field Turns
formulafill lookup(“Spirals”,“Name”,striptoalpha(«Spiral»),“Turns”,“”)
firstrecord
// Start of Loop //
for iloop,1,iSelected
// Definitions //
if («Sizer» contains “S”) and («Sizer» notcontains “M”) and («Sizer» notcontains “L”) and («Sizer» notcontains “X”) and («Sizer» notcontains “T”)
iSizer=“S”
endif
if («Sizer» contains “M”)
iSizer=“M”
endif
if («Sizer» contains “L”)
iSizer=“L”
endif
if («Sizer» contains “X”)
iSizer=“X”
endif
if («Sizer» contains “T”)
iSizer=“T”
endif
if «Spiral» contains “-4-”
iPitch=“4”
endif
if «Spiral» contains “-6-”
iPitch=“6”
endif
if «Spiral» contains “-8-”
iPitch=“8”
endif
if «Spiral» contains “-10-”
iPitch=“10”
endif
iClearance=0
if («Special» contains “clearance”) and (iPitch=“4”)
iClearance=2
endif
if («Special» contains “clearance”) and (iPitch=“6”)
iClearance=1
endif
if («Special» contains “clearance”) and (iPitch=“8”)
iClearance=1
endif
if («Special» contains “clearance”) and (iPitch=“10”)
iClearance=1
endif
iTurns=0
iTurns=«Turns»
if iSizer=“S” and iPitch=“4” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“S” and iPitch=“6” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“S” and iPitch=“8” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“M” and iPitch=“4” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“M” and iPitch=“6” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“M” and iPitch=“8” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“L” and iPitch=“4” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“L” and iPitch=“6” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“L” and iPitch=“8” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“X” and iPitch=“4” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“X” and iPitch=“6” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“X” and iPitch=“8” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“T” and iPitch=“6” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“T” and iPitch=“8” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“L” and iPitch=“10” and iTurns≠0
«Turns»=(simple formula)
endif
if iSizer=“X” and iPitch=“10” and iTurns≠0
«Turns»=(simple formula)
endif
downrecord
endloop
window “Work Orders:Sizers on Order (Print)”
printtopdf “”,“Printer”,“”,“orientation”,“portrait”
if iSpirals=“No”
window “Spirals:Spiral Description”
closefile
endif
window “Work Orders:Sizers on Order (Print)”
goform “Sizers on Order”
if info(“windows”) notcontains “Production Specifications”
openform “Production Specifications”
endif
Also, I have tried quitting the database in question, and restarting. But, this does not solve the issue.
