1. Presort the list as normal
2. Click LABELS from the Print Presort window.
3. In the print settings window select DISK FILE from the output drop-down option in the upper left corner of the screen.
4. Export ALL fields to an AccuZIP6 5x database.
5. Get back to the regular database and pull down File>Open Database, Open the newly created database.
6. Open the command window from the Edit>Commands option and paste one of the two commands at the bottom of this post into the command statement syntax area.
7. Click Run.
8. The Traymark_ indicator will now be in the first and last piece of the container.
9. Pull down File>Export
10. Select the fields you want to export.
11. After selecting the Endorse field, put this expression into the Expression text box
IIF(!EMPTY(traymark_),PADL(ALLT(Endorse),30,"*"),SPACE(30))
If you want to export the container number and bundle number on the same line as the endorsement info, use this expression:
IIF(!EMPTY(traymark_),ALLT(PADL(TRANSFORM(VAL(cont_id)),3," "))+"*"+ALLT(PADL(TRANSFORM(VAL(gpb_id)),3," "))+PADL(ALLT(Endorse),30,"*"),SPACE(40))
12. Choose your export format, then click Export. Give the file a name, decide where you want to save it, then click Save.
Use the code below for presorts sorted in FORWARD ORDER
Code: Select all
SET SAFETY OFF
PUBLIC com_alias
com_alias=alias()
copy to "C:\merge.dbf" for !EMPTY(traymark_) or !Empty(pkgmark_) fields sequence,traymark_,pkgmark_
USE ("C:\merge.dbf") IN 0 ALIAS "merge"
SELECT("merge")
REPLACE all sequence with PADL(TRANSFORM(VAL(sequence)-1),7,"0")
INDEX ON ALLT(UPPER(sequence)) TAG mytag
SELECT(com_alias)
REPLACE all sequence with PADL(TRANSFORM(VAL(sequence)),7,"0")
*replace all traymark_ with "" pkgmark_ with ""
REPLACE traymark_ with merge.traymark_ for SEEK(ALLT(UPPER(sequence)),"merge")
USE IN IIF(USED("merge"),SELECT("merge"),0)
SELECT(com_alias)
replace traymark_ with "**" for recno()=reccount()
Use the code below for presorts sorted in REVERSE ORDER
Code: Select all
SET SAFETY OFF
PUBLIC com_alias
com_alias=alias()
copy to "C:\merge.dbf" for !EMPTY(traymark_) or !Empty(pkgmark_) fields sequence,traymark_,pkgmark_
USE ("C:\merge.dbf") IN 0 ALIAS "merge"
SELECT("merge")
REPLACE all sequence with PADL(TRANSFORM(VAL(sequence)+1),7,"0")
INDEX ON ALLT(UPPER(sequence)) TAG mytag
SELECT(com_alias)
REPLACE all sequence with PADL(TRANSFORM(VAL(sequence)),7,"0")
*replace all traymark_ with "" pkgmark_ with ""
REPLACE traymark_ with merge.traymark_ for SEEK(ALLT(UPPER(sequence)),"merge")
USE IN IIF(USED("merge"),SELECT("merge"),0)
SELECT(com_alias)
replace traymark_ with "**" for recno()=1
If you want to export the endorsement line on the first piece of each bundle, read this topic.