�
TVBBOXLABELFORM0TPF0TVBBoxLabelFormVBBoxLabelFormLeftTop¥WidthrHeightΞ
ActiveControlEditStartBoxNoCaptionPrint Carton LabelsColor	clBtnFaceFont.CharsetDEFAULT_CHARSET
Font.ColorclWindowTextFont.Heightσ	Font.NameSystem
Font.StyleOldCreateOrder	PositionpoScreenCenterOnClose	FormCloseOnShowFormShow
PixelsPerInch`
TextHeightTLabelLabel1LeftTopWidth½HeightCaptionEnter &Starting Carton NumberTLabelLabel2LeftTop6WidthΈHeightCaptionEnter &Ending Carton NumberTButtonClearFormBtnLeftTop\WidthYHeightCaptionC&lear FormTabOrderOnClickClearFormBtnClickTButtonPrintLabelsBtnLeft|Top\WidthYHeightCaption
&Print LabelsTabOrderOnClickPrintLabelsBtnClickTBitBtnCloseBitBtnLeftΰTop\WidthYHeightCaption&CloseModalResultTabOrderOnClickCloseBitBtnClick
Glyph.Data
βήBMήv($h€€€€€€€€€ΐΐΐ€€€������������8����wχχ‡ψ����ƒ33?DD@��τDD�����σ3��33MP�τ33�����38��33EΥ�τ3333���38σ?33M]�τ3333�x�38σ?33EΥοδ3333�‡�38σ?33M]�τ3333�x�38σ?33EΥοδ3333�‡�38σ?33M]�τ3333�x�38σ?33EΥοδ3333�‡�38σ?33M]ώτ3333�x�38σ?33EΥοδ3333�‡�38σ?33M]ώτ3333�x�38σ?33DDDDD3333����ψσ?33333333333�����3?333333333?��σ3?333
� 333333���σ3?333333333��ψσ3?	NumGlyphsTEditEditStartBoxNoLeftΨTopWidthFHeightTabOrderOnExitEditStartBoxNoExitTEditEditEndBoxNoLeftΨTop4WidthFHeightTabOrderOnExitEditEndBoxNoExitTButton
ChangePrinterLeftTopxWidthYHeightCaptionUBIEnabledTabOrderVisibleOnClickChangePrinterClickTButton
BarCodeFaultsLeftμTop�WidthmHeightCaptionBar Code FaultsTabOrderOnClickBarCodeFaultsClickTButtonScanOptionsBtnLeftTop�Width]HeightCaptionScan OptionsTabOrderOnClickScanOptionsBtnClick	TCheckBoxInclDespChkBoxLefthTop€WidthΡHeightCaptionInclude Despatched CartonsChecked	State	cbCheckedTabOrderTButtonFaultLengthBtnLeftxTop�WidthiHeightCaptionFault LengthTabOrder	OnClickFaultLengthBtnClickTQueryCheckBoxNoQueryDatabaseNameVBStockSQL.Stringsselect distinct boxnofrom vbrcptwhere boxno=:boxnoLeft0Top	ParamDataDataType	ftIntegerNameboxno	ParamType	ptUnknown
TIntegerFieldCheckBoxNoQueryBOXNO	FieldNameBOXNOTQueryFindBoxesQueryDatabaseNameVBStockSQL.Strings3select vr.boxno,vt.labeldescr,vr.faults,vr.stripno,<  vr.lotno,vr.datemanu,vr.qlty,vr.grosslength,vr.longlength,6  vw.metriclabeldescr,vw.imperialwidth,vr.metricwidth,&  vr.labelstru,vr.allowance,vr.vbstru,  vr.despno,vs.descr,'  vr.labelstrucustref,vr.vbcol,vr.vbfin2from vbrcpt vr,vbwidth vw,vbtype vt,vblabelstru vswhere vr.vbstru=vt.vbstruand vr.vbcol=vt.vbcoland vr.vbfin=vt.vbfin!and vr.metricwidth=vw.metricwidthand vr.boxno>=:startboxnoand vr.boxno<=:endboxnoand vr.labelstru=vs.labelstru%order by boxno,warpno,pieceno,stripnoLeft0Top$	ParamDataDataType	ftIntegerName
startboxno	ParamType	ptUnknownDataType	ftIntegerNameendboxno	ParamType	ptUnknown
TIntegerFieldFindBoxesQueryBOXNO	FieldNameBOXNOTStringFieldFindBoxesQueryLABELDESCR	FieldName
LABELDESCRSizeTSmallintFieldFindBoxesQueryFAULTS	FieldNameFAULTSTSmallintFieldFindBoxesQuerySTRIPNO	FieldNameSTRIPNO
TIntegerFieldFindBoxesQueryLOTNO	FieldNameLOTNOTDateTimeFieldFindBoxesQueryDATEMANU	FieldNameDATEMANUTStringFieldFindBoxesQueryQLTY	FieldNameQLTYSizeTStringFieldFindBoxesQueryMETRICLABELDESCR	FieldNameMETRICLABELDESCRSizeTStringFieldFindBoxesQueryIMPERIALWIDTH	FieldName
IMPERIALWIDTHSizeTFloatFieldFindBoxesQueryGROSSLENGTH	FieldNameGROSSLENGTHTFloatFieldFindBoxesQueryLONGLENGTH	FieldName
LONGLENGTHTSmallintFieldFindBoxesQueryMETRICWIDTH	FieldNameMETRICWIDTHTFloatFieldFindBoxesQueryALLOWANCE	FieldName	ALLOWANCETStringFieldFindBoxesQueryVBSTRU	FieldNameVBSTRUSizeTStringFieldFindBoxesQueryLABELSTRU	FieldName	LABELSTRUSize
TIntegerFieldFindBoxesQueryDESPNO	FieldNameDESPNOTStringFieldFindBoxesQueryDESCR	FieldNameDESCRSize(TStringFieldFindBoxesQueryLABELSTRUCUSTREF	FieldNameLABELSTRUCUSTREFSizeTStringFieldFindBoxesQueryVBCOL	FieldNameVBCOLSizeTStringFieldFindBoxesQueryVBFIN	FieldNameVBFINSizeTApdComPortDMXComPort2	ComNumberBaud€%InSize(
BufferFull(BufferResume	TraceNameAPD.TRCLogNameAPD.LOGUseEventWordLeft<TopHTApdComPortUBIComPort2	ComNumberStopBits
SWFlowOptionsswfBoth
BufferFullBufferResume	TraceNameAPD.TRCLogNameAPD.LOGUseEventWordLeft<TophTTimerTimer1Interval�OnTimerTimer1TimerLeftTop$TTablevbParamsDatabaseNameVBStock	TableNameVBPARAMSLeftHTopTStringFieldvbParamsBARCODEPRINTERTYPE	FieldNameBARCODEPRINTERTYPESizeTQueryqryCustPartDatabaseNameVBStockSQL.Stringsselect descr,styledescr,partno
from custpartwhere custref=:custrefand vbstru=:vbstruand vbcol=:vbcoland vbfin=:vbfinand vbwidth=:vbwidthLeftTop>	ParamDataDataTypeftStringNamecustref	ParamType	ptUnknownDataTypeftStringNamevbstru	ParamType	ptUnknownDataTypeftStringNamevbcol	ParamType	ptUnknownDataTypeftStringNamevbfin	ParamType	ptUnknownDataType	ftIntegerNamevbwidth	ParamType	ptUnknownTStringFieldqryCustPartDESCR	FieldNameDESCRSize
TStringFieldqryCustPartSTYLEDESCR	FieldName
STYLEDESCRSizeTStringFieldqryCustPartPARTNO	FieldNamePARTNOSizeTQueryqryVBTypeClientDatabaseNameVBStockSQL.Strings6select vc.partno,vc.styledescr,vc.colordescr,vc.vbstrufrom vbtypeclient vcwhere vc.vbstru=:vbstruand vc.vbcol=:vbcoland vc.vbfin=:vbfinand vc.labelstru=:labelstruLeftPTop@	ParamDataDataTypeftStringNamevbstru	ParamType	ptUnknownDataTypeftStringNamevbcol	ParamType	ptUnknownDataTypeftStringNamevbfin	ParamType	ptUnknownDataTypeftStringName	labelstru	ParamType	ptUnknownTStringFieldqryVBTypeClientPARTNO	FieldNamePARTNOSizeTStringFieldqryVBTypeClientSTYLEDESCR	FieldName
STYLEDESCRSizeTStringFieldqryVBTypeClientCOLORDESCR	FieldName
COLORDESCRSize	TStringFieldqryVBTypeClientVBSTRU	FieldNameVBSTRUSize