ˇ
TCUSTPARTFORM0TPF0
TCustPartFormCustPartFormLeft∫TopdWidthZHeightkCaptionPart Numbers By CustomerColor	clBtnFaceFont.CharsetDEFAULT_CHARSET
Font.ColorclWindowTextFont.Heightı	Font.Name
MS Sans Serif
Font.StyleOldCreateOrder	PositionpoScreenCenterOnClose	FormCloseOnShowFormShow
PixelsPerInch`
TextHeight
TPanelPanel2LeftTopWidthRHeightPAlignalClientTabOrderTSpeedButtonspdAddSelectionLeft–Top®WidthaHeightCaption
Add Selection
Glyph.Data
‚ﬁBMﬁv(

høøøøøøøøø¿¿¿ÄÄÄˇˇˇˇˇˇˇˇˇˇˇˇwwwwwwpwwwwwwpwwpwwpwwp¿wwpwwp¿wwpw¿pwÃÃÃpw¿pwwp¿wwpwwp¿wwpwwpwwpwwwwwwpwwwwwwpOnClickspdAddSelectionClickTSpeedButtonPrintSpdBtnLeft Top(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	OnClickPrintSpdBtnClickTLabelLabel1Left TopÉWidthgHeightCaption)This Style and Colour Prints On the LabelColorclYellowParentColorWordWrap	TDBGridSupplierGridLeftTop	WidthEHeightx
DataSourceCustQuerySourceOptionsdgTitlesdgIndicatordgColumnResize
dgColLines
dgRowLinesdgTabsdgRowSelectdgAlwaysShowSelectiondgConfirmDeletedgCancelOnExitReadOnly	TabOrderTitleFont.CharsetDEFAULT_CHARSETTitleFont.ColorclWindowTextTitleFont.HeightıTitleFont.Name
MS Sans SerifTitleFont.StyleTDBGrid
VBTypeGridLeftPTopWidth˙Heightx
DataSourceVBTypeQuerySourceOptionsdgTitlesdgIndicatordgColumnResize
dgColLines
dgRowLinesdgTabsdgRowSelectdgAlwaysShowSelectiondgConfirmDeletedgCancelOnExitReadOnly	TabOrderTitleFont.CharsetDEFAULT_CHARSETTitleFont.ColorclWindowTextTitleFont.HeightıTitleFont.Name
MS Sans SerifTitleFont.StyleTDBGridCustPartGridLeftTopàWidthπHeightâ
DataSourceCustPartSourceTabOrderTitleFont.CharsetDEFAULT_CHARSETTitleFont.ColorclWindowTextTitleFont.HeightıTitleFont.Name
MS Sans SerifTitleFont.StyleTDBNavigatorCustPartNavigatorLeftêTopWidthÊHeight
DataSourceCustPartSourceTabOrderTBitBtnCloseBitBtnLeft–Top»WidthIHeightTabOrderOnClickCloseBitBtnClickKindbkCloseTStaticTextStaticText1LeftTop8Width¸HeightBorderStyle	sbsSunkenCaptionnThis Style and Colour Prints On the Invoice (unless LabelStru='CU' in which case this prints on label as well)ColorclYellowParentColorTabOrderTTableCustPartBeforeInsertCustPartBeforeInsert
BeforeEditCustPartBeforeEdit	AfterPostCustPartAfterPostBeforeCancelCustPartBeforeCancelAfterCancelCustPartAfterCancelBeforeDeleteCustPartBeforeDeleteAfterDeleteCustPartAfterDelete
OnDeleteErrorCustPartDeleteErrorDatabaseNameVBStockIndexFieldNamesCUSTREFMasterFieldsSUPREFMasterSourceCustQuerySource	TableNameCUSTPARTLeft¿TopŸTStringFieldCustPartCUSTREFDisplayLabelCust RefDisplayWidth	FieldNameCUSTREFRequired	EditMask>Aaaaaa;0;_SizeTStringFieldCustPartVBSTRUDisplayLabelStruDisplayWidth	FieldNameVBSTRURequired	EditMask>LAA;0;_SizeTStringField
CustPartVBCOLDisplayLabelColDisplayWidth	FieldNameVBCOLRequired	EditMask>Aaa;0;_SizeTStringField
CustPartVBFINDisplayLabelFinDisplayWidth	FieldNameVBFINRequired	EditMask>AA;0;_Size
TIntegerFieldCustPartVBWIDTHDisplayLabelmmDisplayWidth	FieldNameVBWIDTHRequired	TStringFieldCustPartSTYLEDESCRDisplayLabelStyle Descr	FieldName
STYLEDESCRSizeTStringField
CustPartDESCRDisplayLabelColour Descr	FieldNameDESCRSize
TStringFieldCustPartPARTNODisplayLabelPart NoDisplayWidth	FieldNamePARTNOSizeTDataSourceCustQuerySourceDataSet	CustQueryLeft∏TopaTDataSourceVBTypeQuerySourceDataSetVBTypeQueryLeftòTopYTDataSourceCustPartSourceDataSetCustPartLeft‡TopŸTQuery	CustQueryDatabaseNameVBStockSQL.Stringsselect supref,supdescr
from supplierwhere sctype='CU'order by suprefLeftêTopaTStringFieldCustQuerySUPREFDisplayLabelCust RefDisplayWidth	FieldNameSUPREFSizeTStringFieldCustQuerySUPDESCRDisplayLabelDescription	FieldNameSUPDESCRSize(TQueryVBTypeQueryDatabaseNameVBStockSQL.Strings7select vm.vbstru||vm.vbcol||vm.vbfin vbtype,vm.vbwidth,  vc.styledescr,vc.colordescr,*  vm.vbstru,vm.vbcol,vm.vbfin,vc.labelstru,from vbstockmin vm,vbtype vt,vbtypeclient vcwhere vm.vbstru=vt.vbstruand vm.vbcol=vt.vbcoland vm.vbfin=vt.vbfinand vm.vbstru=vc.vbstruand vm.vbcol=vc.vbcoland vm.vbfin=vc.vbfin/order by vm.vbstru,vm.vbcol,vm.vbfin,vm.vbwidthLeftÄTopYTStringFieldVBTypeQueryVBTYPEDisplayLabelTypeDisplayWidth		FieldNameVBTYPESizeTSmallintFieldVBTypeQueryVBWIDTHDisplayLabelmmDisplayWidth	FieldNameVBWIDTHTStringFieldVBTypeQuerySTYLEDESCRDisplayLabelStyleDisplayWidth	FieldName
STYLEDESCRSizeTStringFieldVBTypeQueryCOLORDESCRDisplayLabelColourDisplayWidth	FieldName
COLORDESCRSize	TStringFieldVBTypeQueryVBSTRU	FieldNameVBSTRUVisibleSizeTStringFieldVBTypeQueryVBCOL	FieldNameVBCOLVisibleSizeTStringFieldVBTypeQueryVBFIN	FieldNameVBFINVisibleSizeTQueryCheckExistsQueryDatabaseNameVBStockSQL.Stringsselect count(*)
from custpartwhere custref=:custrefand vbstru=:vbstruand vbcol=:vbcoland vbfin=:vbfinand vbwidth=:vbwidthLeftTop¿	ParamDataDataTypeftStringNamecustref	ParamType	ptUnknownDataTypeftStringNamevbstru	ParamType	ptUnknownDataTypeftStringNamevbcol	ParamType	ptUnknownDataTypeftStringNamevbfin	ParamType	ptUnknownDataType	ftIntegerNamevbwidth	ParamType	ptUnknown