Move Tray & Pack mark to the last record in bundle

Build your list of AccuZIP6 commands by requesting commands and sharing commands with other users

Moderators: Chrissy, Steve, Terry, Donna, Dave, Eric, MartyH, Kristen, Geoff, Vince

Post Reply
User avatar
Dave
Site Admin
Posts: 620
Joined: Wed Sep 20, 2006 3:20 pm

Move Tray & Pack mark to the last record in bundle

Post by Dave » Mon Jan 14, 2008 3:46 pm

>>>>THIS COMMAND WORKS IN VER.5.0 ONLY<<<<<

1. Presort your database as normal.
2. Click on LABELS
3. Change the label format to DISK FILE
4. Change the format to AccuZIP6 5.x Database
5. Export the list.
6. Open the new list from the File>Open Database option in AccuZIP6
7. Run the command from the Edit>Commands option.
8. The command will move the original marks to the last record in the bundle.


COMMAND

Code: Select all

SET SAFETY OFF 
PUBLIC com_alias 
com_alias=alias() 
copy to "C&#58;\merge.dbf" for !EMPTY(traymark_) or !Empty(pkgmark_) fields sequence,traymark_,pkgmark_ 
USE ("C&#58;\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 pkgmark_ with merge.pkgmark_  traymark_ with merge.traymark_ for SEEK(ALLT(UPPER(sequence)),"merge") 
USE IN IIF(USED("merge"),SELECT("merge"),0)
SELECT(com_alias) 
replace traymark_ with "**" , pkgmark_ with "*" for recno()=reccount()

Post Reply