ÿ
TVBSTOCKMINFORM0±3TPF0TVBStockMinFormVBStockMinFormLeftÆTop£Width’HeightyCaptionVB Minimum Stock RqdColor	clBtnFaceFont.CharsetDEFAULT_CHARSET
Font.ColorclBlackFont.Heightõ	Font.Name
MS Sans Serif
Font.StyleOldCreateOrder	PositionpoScreenCenterOnClose	FormCloseOnShowFormShow
PixelsPerInch`
TextHeight
TPanelPanel1LeftTopWidthŠHeightIAlignalTopTabOrderTSpeedButtonPrintSpdBtnLeftFTop	WidthHeightHintPrint this form
Glyph.Data
zvBMvv( €€€€€€€€€¿¿¿ÿÿÿÿÿÿÿÿÿÿÿÿ0?ÿÿÿÿÿÿÿˆˆˆˆˆˆ€wwwwwwwˆˆˆˆˆˆ€wwwwwwwÿÿÿÿÿÿÿÿ������€wwwwwwwøøøøøùðwwwwwww������€wwwwwwwwwwwww30ÿÿÿÿ337óÿÿ?330ð337÷wss330ÿÿÿÿ337óÿ?ÿ330ð337÷swws330ÿÿð3337óÿ73330ð�3337÷ss3330ÿÿ33337ÿÿw3333033337wws333	NumGlyphsParentShowHintShowHint	OnClickPrintSpdBtnClickTLabelLabel4LefthTopWidth*Height
CaptionVB StrucVisibleTLabelLabel2LeftTop#WidthHeight
CaptionStruTLabelLabel3Left8Top#WidthHeight
CaptionColTLabelLabel5LeftpTop#WidthHeight
CaptionFinTLabelLabel6Left¨Top#WidthHeight
CaptionWidthTLabelLabel7LeftàTop#Width5Height
Caption
Sale GroupTLabelLabel12Left�Top(WidthwHeight
CaptionSales Per Month AnalysisTLabelLabel13Left�Top8WidthoHeight
CaptionUsing Data WarehouseTDBNavigatorDBNavigatorLeftTopWidthêHeight
DataSourceVBStockMinSourceVisibleButtonsnbFirstnbPriornbNextnbLastnbInsertnbDeletenbEditnbPostnbCancelCtl3DParentCtl3DTabOrderTBitBtnCloseBitBtnLeftôTopWidthAHeightCaption&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?	NumGlyphsTEdit
EditVBStruLeft˜TopWidth"HeightTabOrderVisibleOnChangeEditVBStruChangeTEditedtStruLeftTop0Width)HeightTabOrderOnExitedtStruExitTEditedtColLeft8Top0Width1HeightTabOrderOnExitedtStruExitTEditedtFinLeftpTop0Width1HeightTabOrderOnExitedtStruExitTEditedtWidthLeft¨Top0Width1HeightTabOrderOnExitedtStruExitTEditedtSaleGroupLeftàTop0Width9HeightTabOrderOnExitedtStruExitTButton	btnUpdateLeft8Top(WidthKHeightHint!Update others in group to currentCaptionUpdateTabOrderVisibleOnClickbtnUpdateClickTStaticTextStaticText1LeftTopWidthrHeightCaptionSOQ is Sales Order QtyColorclYellowParentColorTabOrder	TButton
btnAddMissingLeftTop(WidthaHeightCaptionAdd Missing ItemsTabOrder
OnClickbtnAddMissingClickTPanelPanel2LeftTopIWidthŠHeightßAlignalClient
BevelInner	bvLoweredBorderWidthCaptionPanel2TabOrder	TSplitter	Splitter1LeftyTopWidthHeightÓCursorcrHSplitTDBGridDBGrid1LeftTopWidthsHeightÓAlignalLeftBorderStylebsNone
DataSourceVBStockMinSourceTabOrderTitleFont.CharsetDEFAULT_CHARSETTitleFont.ColorclBlackTitleFont.HeightõTitleFont.Name
MS Sans SerifTitleFont.StyleTPanelPanel4Left|TopWidthHeightÓAlignalClientTabOrderTPanelPanel5LeftTopWidthHeight¥AlignalClientCaptionPanel5TabOrderTDBGridDBGrid2LeftTopWidthHeight£AlignalClient
DataSourcedatSalesPerMonthTabOrderTitleFont.CharsetDEFAULT_CHARSETTitleFont.ColorclBlackTitleFont.HeightõTitleFont.Name
MS Sans SerifTitleFont.StyleTPanelPanel6LeftTop¦WidthHeight,AlignalBottomTabOrderTLabelLabel8LeftTopWidthRHeight
CaptionAve Sale:        89TLabelLabel9LeftxTopWidthHeight
Caption127TLabelLabel10Left TopWidthHeight
CaptionFWTLabelLabel11LeftÈTopWidth-Height
CaptionFW ConvTLabelLabel14LeftTopWidthCHeight
CaptionFrom VBMakeTDBEditDBEdit1LeftPTopWidth(Height	DataField	AVESALE89
DataSource
datVBMake_FinTabOrderTDBEditDBEdit2LeftxTopWidth(Height	DataField
AVESALE127
DataSource
datVBMake_FinTabOrderTDBEditDBEdit3Left TopWidth(Height	DataFieldAVESALE2070
DataSource
datVBMake_FinTabOrderTDBEditDBEdit4LeftÈTopWidth(Height	DataFieldFWCONV
DataSource
datVBMake_FinTabOrderTPanelPanel3LeftTop(WidthŠHeight6AlignalBottomTabOrderTLabelLabel1LeftTopWidthˆHeight!AlignalClientCaptionÿNotes: Stock Min: enter -1 for use Average Sales; 0 means stock min is zero; 0.1 to 4.9 means multiply the average sales by this number; 5 or higher means this is the stock minimum in metres.  If no sales then stock min = 0. MakeStk is a simple multiplierColorclInfoBkParentColorWordWrap	
TStatusBar	StatusBarLeftTop"WidthˆHeightPanelsSimplePanel	TDataSourceVBStockMinSourceDataSet
VBStockMinLeft£Top…TTable
VBStockMinBeforeInsertVBStockMinBeforeInsert
BeforeEditVBStockMinBeforeEdit	AfterPostVBStockMinAfterPostAfterCancelVBStockMinAfterCancelBeforeDeleteVBStockMinBeforeDeleteAfterDeleteVBStockMinAfterDelete
OnDeleteErrorVBStockMinDeleteErrorOnNewRecordVBStockMinNewRecordDatabaseNameVBStock	TableName
VBSTOCKMINLeftˆTop‰TStringFieldVBStockMinVBSTRUDisplayLabelStruDisplayWidth	FieldNameVBSTRURequired	EditMask>LAA;0;_SizeTStringFieldVBStockMinVBCOLDisplayLabelColDisplayWidth	FieldNameVBCOLRequired	EditMask>aaa;0;_SizeTStringFieldVBStockMinVBFINDisplayLabelFinDisplayWidth	FieldNameVBFINRequired	EditMask>AA;0;_SizeTSmallintFieldVBStockMinVBWIDTHDisplayLabelWidthDisplayWidth	FieldNameVBWIDTHRequired	TStringFieldVBStockMinSALEGROUPDisplayLabel
Sale Group	FieldName	SALEGROUPRequired	EditMask>Laaaaa;0;_SizeTFloatFieldVBStockMinMINCALCMULTIPLIERDisplayLabelMin CalcDisplayWidth	FieldNameMINCALCMULTIPLIER
DisplayFormat0.0TFloatFieldVBStockMinMAKESTKMULTIPLIERDisplayLabelMake StkDisplayWidth	FieldNameMAKESTKMULTIPLIER
DisplayFormat0.0
TIntegerFieldVBStockMinSTKMIN	FieldNameSTKMINRequired	VisibleTFloatFieldVBStockMinMINSALESORDERQTYDisplayLabelMin SOQ (m)	FieldNameMINSALESORDERQTYTQuery	qryUpdateDatabaseNameVBStockLeftÐTop‰TQueryqrySalesPerMonthDatabaseNameVBStock
DataSourceVBStockMinSourceSQL.Strings7select vbwidth,yearno,periodno,warptype,warpcol,vbstru,  vbcol,vbfin,9  sum(netlength) netlength,sum(pcsnetlength) pcsnetlengthfrom whsalespercustomerwhere vbstru=:vbstruand vbcol=:vbcoland vbfin=:vbfin9group by vbwidth,yearno,periodno,warptype,warpcol,vbstru,
  vbcol,vbfin order by vbwidth,yearno,periodnoLeft<Top_	ParamDataDataTypeftStringNameVBSTRU	ParamType	ptUnknownDataTypeftStringNameVBCOL	ParamType	ptUnknownDataTypeftStringNameVBFIN	ParamType	ptUnknown
TIntegerFieldqrySalesPerMonthVBWIDTHDisplayLabelmmDisplayWidth	FieldNameVBWIDTHOriginWHSALESPERCUSTOMER.VBWIDTH
TIntegerFieldqrySalesPerMonthYEARNODisplayLabelYearDisplayWidth	FieldNameYEARNOOriginWHSALESPERCUSTOMER.YEARNO
TIntegerFieldqrySalesPerMonthPERIODNODisplayLabelMthDisplayWidth	FieldNamePERIODNOOriginWHSALESPERCUSTOMER.PERIODNOTStringFieldqrySalesPerMonthWARPTYPEDisplayLabelWpDisplayWidth	FieldNameWARPTYPEOriginWHSALESPERCUSTOMER.WARPTYPESizeTStringFieldqrySalesPerMonthWARPCOLDisplayLabelWpColDisplayWidth	FieldNameWARPCOLOriginWHSALESPERCUSTOMER.WARPCOLSizeTStringFieldqrySalesPerMonthVBSTRUDisplayLabelStruDisplayWidth	FieldNameVBSTRUOriginWHSALESPERCUSTOMER.VBSTRUSizeTStringFieldqrySalesPerMonthVBCOLDisplayLabelColDisplayWidth	FieldNameVBCOLOriginWHSALESPERCUSTOMER.VBCOLSizeTStringFieldqrySalesPerMonthVBFINDisplayLabelFin	FieldNameVBFINOriginWHSALESPERCUSTOMER.VBFINSize
TIntegerFieldqrySalesPerMonthNETLENGTHDisplayLabelNetDisplayWidth	FieldName	NETLENGTHOriginWHSALESPERCUSTOMER.NETLENGTH
DisplayFormat0TFloatFieldqrySalesPerMonthPCSNETLENGTHDisplayLabelpcsDisplayWidth	FieldNamePCSNETLENGTHOriginWHSALESPERCUSTOMER.PCSNETLENGTH
DisplayFormat0.0TDataSourcedatSalesPerMonthDataSetqrySalesPerMonthLeft\Top_TQuery
qryVBMake_FinDatabaseNameVBStock
DataSourceVBStockMinSourceSQL.Strings(select avesale89,avesale127,avesale2070,3  (avesale89/23)+(avesale127/16)+avesale2070 fwconvfrom vbmake_finwhere vbstru=:vbstruand vbcol=:vbcoland vbfin=:vbfinLeftETop»	ParamDataDataType	ftUnknownNamevbstru	ParamType	ptUnknownDataType	ftUnknownNamevbcol	ParamType	ptUnknownDataType	ftUnknownNamevbfin	ParamType	ptUnknownTFloatFieldqryVBMake_FinAVESALE89	FieldName	AVESALE89OriginVBMAKE_FIN.AVESALE89
DisplayFormat0TFloatFieldqryVBMake_FinAVESALE127	FieldName
AVESALE127OriginVBMAKE_FIN.AVESALE127
DisplayFormat0TFloatFieldqryVBMake_FinAVESALE2070	FieldNameAVESALE2070OriginVBMAKE_FIN.AVESALE2070
DisplayFormat0TFloatFieldqryVBMake_FinFWCONV	FieldNameFWCONV
DisplayFormat0TDataSource
datVBMake_FinDataSet
qryVBMake_FinLefteTop»TQueryqryGetVBTypeDatabaseNameVBStockSQL.Stringsselect *from vbtypeorder by vbstru,vbcol,vbfinLeftTopITStringFieldqryGetVBTypeVBSTRU	FieldNameVBSTRUOriginVBSTOCK.VBTYPE.VBSTRU	FixedChar	SizeTStringFieldqryGetVBTypeVBCOL	FieldNameVBCOLOriginVBSTOCK.VBTYPE.VBCOL	FixedChar	SizeTStringFieldqryGetVBTypeLABELDESCR	FieldName
LABELDESCROriginVBSTOCK.VBTYPE.LABELDESCR	FixedChar	SizeTStringFieldqryGetVBTypeWARPCOL	FieldNameWARPCOLOriginVBSTOCK.VBTYPE.WARPCOL	FixedChar	SizeTStringFieldqryGetVBTypeWEFTSTRU	FieldNameWEFTSTRUOriginVBSTOCK.VBTYPE.WEFTSTRU	FixedChar	SizeTStringFieldqryGetVBTypeWEFTTWIST	FieldName	WEFTTWISTOriginVBSTOCK.VBTYPE.WEFTTWIST	FixedChar	SizeTStringFieldqryGetVBTypeWEFTCOL	FieldNameWEFTCOLOriginVBSTOCK.VBTYPE.WEFTCOL	FixedChar	SizeTStringFieldqryGetVBTypeWARPTYPE	FieldNameWARPTYPEOriginVBSTOCK.VBTYPE.WARPTYPE	FixedChar	SizeTDateTimeFieldqryGetVBTypeDATEENT	FieldNameDATEENTOriginVBSTOCK.VBTYPE.DATEENTTStringFieldqryGetVBTypeUSERENT	FieldNameUSERENTOriginVBSTOCK.VBTYPE.USERENT	FixedChar	SizeTDateTimeFieldqryGetVBTypeDATEMOD	FieldNameDATEMODOriginVBSTOCK.VBTYPE.DATEMODTStringFieldqryGetVBTypeUSERMOD	FieldNameUSERMODOriginVBSTOCK.VBTYPE.USERMOD	FixedChar	SizeTStringFieldqryGetVBTypeVBFIN	FieldNameVBFINOriginVBSTOCK.VBTYPE.VBFIN	FixedChar	SizeTStringFieldqryGetVBTypeEXTPRODREF	FieldName
EXTPRODREFOriginVBSTOCK.VBTYPE.EXTPRODREF	FixedChar	Size

TIntegerFieldqryGetVBTypeFWONLY	FieldNameFWONLYOriginVBSTOCK.VBTYPE.FWONLYTQueryqryInsertStockMinDatabaseNameVBStockSQL.Stringsinsert into VBSTOCKMINvalues2(:VBSTRU,:VBCOL,:VBWIDTH,0,:VBFIN,-1,0,'NORMAL',0)LeftXTopH	ParamDataDataTypeftStringNameVBSTRU	ParamType	ptUnknownDataTypeftStringNameVBCOL	ParamType	ptUnknownDataType	ftIntegerNameVBWIDTH	ParamType	ptUnknownDataTypeftStringNameVBFIN	ParamType	ptUnknownTQueryqryCheckExistsInMinDatabaseNameVBStockSQL.Stringsselect *from vbstockminwhere vbstru=:vbstruand vbcol=:vbcoland vbfin=:vbfinand vbwidth=:vbwidthLeft8TopH	ParamDataDataTypeftStringNameVBSTRU	ParamType	ptUnknownDataTypeftStringNameVBCOL	ParamType	ptUnknownDataTypeftStringNameVBFIN	ParamType	ptUnknownDataType	ftIntegerNameVBWIDTH	ParamType	ptUnknownTStringFieldqryCheckExistsInMinVBSTRU	FieldNameVBSTRUOriginVBSTOCK.VBSTOCKMIN.VBSTRU	FixedChar	SizeTStringFieldqryCheckExistsInMinVBCOL	FieldNameVBCOLOriginVBSTOCK.VBSTOCKMIN.VBCOL	FixedChar	SizeTSmallintFieldqryCheckExistsInMinVBWIDTH	FieldNameVBWIDTHOriginVBSTOCK.VBSTOCKMIN.VBWIDTH
TIntegerFieldqryCheckExistsInMinSTKMIN	FieldNameSTKMINOriginVBSTOCK.VBSTOCKMIN.STKMINTStringFieldqryCheckExistsInMinVBFIN	FieldNameVBFINOriginVBSTOCK.VBSTOCKMIN.VBFIN	FixedChar	SizeTFloatField$qryCheckExistsInMinMINCALCMULTIPLIER	FieldNameMINCALCMULTIPLIEROrigin$VBSTOCK.VBSTOCKMIN.MINCALCMULTIPLIERTFloatField$qryCheckExistsInMinMAKESTKMULTIPLIER	FieldNameMAKESTKMULTIPLIEROrigin$VBSTOCK.VBSTOCKMIN.MAKESTKMULTIPLIERTStringFieldqryCheckExistsInMinSALEGROUP	FieldName	SALEGROUPOriginVBSTOCK.VBSTOCKMIN.SALEGROUP	FixedChar	SizeTFloatField#qryCheckExistsInMinMINSALESORDERQTY	FieldNameMINSALESORDERQTYOrigin#VBSTOCK.VBSTOCKMIN.MINSALESORDERQTY