~CREATE;CASE
LFORM6;62
/* ----------------------------------------
/*
/* ---- special customer case label
/* ---- ray -- 01/2002
/*
/* ----------------------------------------
/*
/* ---- box containing customer product:
BOX
1;7;47.5;43;58
STOP
/* ---- there is an implied box for qty:
/* ---- formed by product & producer:
/* ----
/* ---- lines for text desc which sort of form a box:
HORZ
1;26;37.5;47.5
1;30;18;28
1;43;18;47.5
STOP
/* ----
VERT
1;28;26;30
STOP
/* ---- producer box:
BOX
1;7;28;26;37.5
STOP
/* ---- there is an implied box for customer unit id:
/* ---- formed by dillon bottom box & producer:
/* ----
/* ---- dillon left info box:
BOX
1;3;18;7;58
STOP
/* ---- dillon bottom info box:
BOX
1;3;13;43;18
STOP
/* ---- show text:
ALPHA
CW;10.3;50.5;0;0;'PROD NO.'
CW;10.3;49.1;0;0;'(X)'
CW;10.3;40.5;0;0;'QUANTITY'
CW;12;36.6;0;0;'PRODUCER I.D.'
CW;15;27.4;0;0;'UNIT I.D.'
CW;35.5;28.3;0;0;'LBS.'
CW;40.5;28.3;0;0;'KGS.'
CW;30.5;26.3;0;0;'GROSS'
CW;30.5;24.3;0;0;'TARE'
CW;30.5;22.3;0;0;'NET'
STOP
/* ---- data fields:
ALPHA
/* ---- customer product id:
AF1;15;CW;15.5;49.2;2;2
/* ---- net weight:
AF2;11;CW;16;40;2;1
/* ---- producer id:
AF3;11;CW;13;29.6;1;1
/* ---- customer case id:
AF4;10;CW;10.6;19.4;2;2
/* ---- titan product #:
AF5;6;CW;9.8;16;2;2
/* ---- top of titan case #:
AF6;6;CW;4.1;56;2;1
/* ---- bottom of titan case #:
AF7;6;CW;4.1;53;2;1
/* ---- dillon lot #:
AF8;24;CW;31;16;2;1
/* ---- gross lbs:
AF9;7;CW;33.5;26.3;1;1
/* ---- gross kgs:
AF10;7;CW;38.5;26.3;1;1
/* ---- tare lbs:
AF11;7;CW;33.5;24.3;1;1
/* ---- tare kgs:
AF12;7;CW;38.5;24.3;1;1
/* ---- net lbs:
AF13;7;CW;33.5;22.2;1;1
/* ---- net kgs:
AF14;7;CW;38.5;22.3;1;1
/* ---- order.brd (product desc):
AF15;20;CW;28;46;1;1
/* ---- order.tex (tex):
AF16;9;CW;26;43;1;1
/* ---- order.spx/siz (tkt - size prefix/size):
AF17;12;CW;35;43;1;1
/* ---- order.yrd (yardage):
AF18;20;CW;28;40;1;1
/* ---- order.fin.desc (finish):
AF19;20;CW;28;37;1;1
/* ---- order.cld (new color):
AF20;23;CW;28;34;1;1
/* ---- order.icr (old color code):
AF21;20;CW;29;31;1;1
STOP
/* ---- customer product barcode:
BARCODE
C3/9;VSCAN;X1A;H7;BF1;16;10.2;51.2
STOP
/* ---- qty barcode:
BARCODE
C3/9;VSCAN;X1A;H7;BF2;11;9.7;41
STOP
/* ---- producer barcode:
BARCODE
C3/9;VSCAN;X1A;H7;BF3;6;9.7;29.3
STOP
/* ---- customer case id:
BARCODE
C3/9;VSCAN;X1A;H7;BF4;9;9.7;20.2
STOP
/* ---- titan product:
BARCODE
C3/9;VSCAN;X1A;H5;BF5;6;18;13.2
STOP
/* ---- titan case (9):
BARCODE
C3/9;X1A;H6;BF6;9;3.2;27
STOP
END
~EXECUTE;CASE