ÿ
TFRMGENINVOICE0RTPF0TfrmGenInvoice
frmGenInvoiceLeftàTop}WidthHeightRCaptionGenerate InvoiceColor	clBtnFaceFont.CharsetDEFAULT_CHARSET
Font.ColorclWindowTextFont.Heightõ	Font.Name
MS Sans Serif
Font.StyleOldCreateOrder	PositionpoScreenCenterShowHint	OnClose	FormCloseOnShowFormShow
PixelsPerInch`
TextHeight
TPanelPanel1LeftTopWidthûHeight™AlignalTopTabOrderTLabelLabel9LeftTopWidth.Height
CaptionDespatchTLabelLabel1Left8TopWidth2Height
Caption	ReferenceTLabelLabel3Left˜TopWidthHeight
CaptionDateFocusControlEditDESPDATETSpeedButton	CalSpdBtnLeftÀTopWidthHeightHint
Despatch Date
Glyph.Data
RNBMNv(Ø¿¿¿¿¿¿¿¿¿ÀÀÀ€€€ÿÿÿÿÿÿÿÿÿÿÿÿ33333333333333333338ˆˆˆˆˆˆ33@@@H33ÿÿÿÿÿÿH33ÿÿÿÿÿÿH33ÿÿH33ÿğÿpÿH33ÿğÿÿğÿH33ÿğÿÿH33ÿÿÿÿH33ÿğÿÿH33ÿÿÿÿÿÿH33ÿÿÿÿÿÿH33÷wwwwH3333333333333333333333TLabelLabel4LeftæTopWidthHeight
CaptionByTLabelLabel15Left0TopWidth&Height
CaptionSupplierTLabelLabel24Left€TopWidth#Height
CaptionInvoiceTSpeedButton
InvDateSpdBtnLeftªTopWidthHeightHintInvoice Date
Glyph.Data
RNBMNv(Ø¿¿¿¿¿¿¿¿¿ÀÀÀ€€€ÿÿÿÿÿÿÿÿÿÿÿÿ33333333333333333338ˆˆˆˆˆˆ33@@@H33ÿÿÿÿÿÿH33ÿÿÿÿÿÿH33ÿÿH33ÿğÿpÿH33ÿğÿÿğÿH33ÿğÿÿH33ÿÿÿÿH33ÿğÿÿH33ÿÿÿÿÿÿH33ÿÿÿÿÿÿH33÷wwwwH3333333333333333333333TLabelLabel10LeftTop>Width,Height
CaptionCustomerTLabelLabel18Left8Top-Width2Height
Caption	ReferenceTLabelLabel11LeftTopfWidthHeight
CaptionTotalTLabelLabel21Left8TopTWidth2Height
CaptionPallet ListsTLabelLabel22LeftpTopTWidth$Height
CaptionCartonsTLabelLabel6Left TopTWidth5Height
Caption
Net LengthFocusControl
EditNetLengthTLabelLabel2LeftTopBWidthRHeight
CaptionLocal / OverseasTLabelLabel5LeftxTop.Width3Height
Caption
Price TypeTSpeedButtonbtnFindDespatchLeftpTopWidthHeightHint
Find Despatch
Glyph.Data
FBBMBv(Ì¿¿¿¿¿¿¿¿¿ÀÀÀ€€€ÿÿÿÿÿÿÿÿÿÿÿÿ333?¿ÿÿÿğ3333û¿ÿûğ333?¿ÿûÿş333?¿ÿûûö3333û¿ÿÿ÷3334Dûÿûö333DƒO¿ÿñ334„„¿ÿö334HO„û¿°334�tH?óö33Dÿ÷C3303D�„D33304H÷C333304�w3333304÷t33333?4DC333330333333337OnClickbtnFindDespatchClickTDBEdit
EditDESPNOLeft8TopWidth2HeightTabStopColorclSilver	DataFieldDESPNO
DataSource
datDespHdrReadOnly	TabOrderTDBEditEditDESPDATELeft˜TopWidthFHeightColorclSilver	DataFieldDESPDATE
DataSource
datDespHdrReadOnly	TabOrderTDBEdit
EditDespByLeftæTopWidthFHeightTabStopColorclSilver	DataFieldDESPBY
DataSource
datDespHdrReadOnly	TabOrderTDBEditEditInvDateLeft€TopWidthFHeightColorclSilver	DataFieldINVDATE
DataSource
datDespHdrReadOnly	TabOrderTDBEditEditCustRefLeft8Top<WidthPHeightColorclSilver	DataFieldCUSTREF
DataSource
datDespHdrReadOnly	TabOrderTDBEditEditPalletsLeft8TopdWidth#HeightTabStopColorclSilver	DataFieldPALLETS
DataSource
datDespHdrReadOnly	TabOrderTDBEdit	EditBoxesLeftpTopdWidth#HeightColorclSilver	DataFieldBOXES
DataSource
datDespHdrReadOnly	TabOrderTDBEdit
EditNetLengthLeft TopdWidth<HeightColorclSilver	DataField
NETLENGTHDESP
DataSource
datDespHdrReadOnly	TabOrderTDBCheckBoxEditDespSentLeft–Top>Width_HeightCaption
Despatch SentColorclSilver	DataFieldDESPSENT
DataSource
datDespHdrParentColorReadOnly	TabOrderValueCheckedYValueUncheckedNTDBNavigatorDBNavigator1LeftøTop`WidtháHeight
DataSource
datDespHdrVisibleButtonsnbFirstnbPriornbNextnbLast	nbRefreshTabOrder	TDBEditDBEdit1Left0TopWidthIHeightColorclSilver	DataFieldEXPORTER
DataSource
datDespHdrReadOnly	TabOrder
	TComboBoxcbxPriceTypeLeftxTop>WidthAHeight
DropDownCount
ItemHeight
TabOrder
Items.StringsCIFFOBTDBEditDBEdit2LeftXTop?WidthHeightColorclSilver	DataField
LOCALOVERSEAS
DataSource
datDespHdrReadOnly	TabOrderTPanelPanel2LeftTop™WidthûHeightuAlignalClientTabOrderTDBGriddbgVBInvHdrLeftTopWidthùHeightsAlignalClientColorclSilver
DataSourcedatVBInvHdrTabOrderTitleFont.CharsetDEFAULT_CHARSETTitleFont.ColorclWindowTextTitleFont.HeightõTitleFont.Name
MS Sans SerifTitleFont.StyleTPanelPanel3LeftTopWidthûHeight)AlignalBottomTabOrderTButtonbtnGenerateLeft€TopWidthcHeightCaption&Generate InvoiceTabOrderOnClickbtnGenerateClickTBitBtnbtnCloseLefthTopWidthKHeightTabOrderOnClick
btnCloseClickKindbkCloseTButton	btnDeleteLeftøTopWidthQHeightCaptionDelete InvoiceTabOrderOnClickbtnDeleteClickTTabletabVBInvHdrDatabaseNameVBStockIndexFieldNamesDESPNOMasterFieldsDESPNOMasterSource
datDespHdrReadOnly		TableNameVBINVHDRLefthTop€
TIntegerFieldtabVBInvHdrDESPNODisplayLabelDespatch	FieldNameDESPNORequired	
TIntegerFieldtabVBInvHdrINVNODisplayLabelInvoice	FieldNameINVNORequired	TDateTimeFieldtabVBInvHdrINVDATEDisplayLabelInv Date	FieldNameINVDATE
DisplayFormat
dd/mm/yyyyTFloatFieldtabVBInvHdrNETLENGTHDisplayLabelNet m	FieldName	NETLENGTH
DisplayFormat0.0TFloatFieldtabVBInvHdrLOC_GRAND_TOTALDisplayLabelLocal Total	FieldNameLOC_GRAND_TOTAL
DisplayFormat0.00TFloatFieldtabVBInvHdrACC_GRAND_TOTALDisplayLabel	Acc Total	FieldNameACC_GRAND_TOTAL
DisplayFormat0.00TStringFieldtabVBInvHdrINVSENTDisplayLabelSentDisplayWidth	FieldNameINVSENTSizeTDataSource
datDespHdrDataSet
qryDespHdrOnDataChangedatDespHdrDataChangeLeft8Top€TDataSourcedatVBInvHdrDataSettabVBInvHdrLeftˆTop€TQueryqryInsertInvHdrDatabaseNameVBStockSQL.Stringsinsert into vbinvhdr(>despno,invno,custref,invdate,termsfromdate,termsdays,currency,;agentref,ourref,yourref,exportcode,pallets,boxes,netlength,Aloc_total,acc_total,palletprice,palletvalue,freightdocumentation,<freightboxes,loc_grand_total,acc_grand_total,vatamt,vatrate,exchrate,invby,invsent,/metricorimperial,physicalpallets,localoverseas,2additionallocamt,additionalaccamt,overridefreight,-  acc_totalbeforefreight,acc_totalinclfreight)values(E:despno,:invno,:custref,:invdate,:termsfromdate,:termsdays,:currency,B:agentref,:ourref,:yourref,:exportcode,:pallets,:boxes,:netlength,F:loc_total,:acc_total,:palletprice,:palletvalue,:freightdocumentation,A:freightboxes,:loc_grand_total,:acc_grand_total,:vatamt,:vatrate,:exchrate,:invby,:invsent,2:metricorimperial,:physicalpallets,:localoverseas,5:additionallocamt,:additionalaccamt,:overridefreight,-:acc_totalbeforefreight,:acc_totalinclfreight)LeftÀTopÉ	ParamDataDataType	ftIntegerNamedespno	ParamType	ptUnknownDataType	ftIntegerNameinvno	ParamType	ptUnknownDataTypeftStringNamecustref	ParamType	ptUnknownDataTypeftDateNameinvdate	ParamType	ptUnknownDataTypeftDateName
termsfromdate	ParamType	ptUnknownDataType	ftIntegerName	termsdays	ParamType	ptUnknownDataTypeftStringNamecurrency	ParamType	ptUnknownDataTypeftStringNameagentref	ParamType	ptUnknownDataTypeftStringNameourref	ParamType	ptUnknownDataTypeftStringNameyourref	ParamType	ptUnknownDataTypeftStringName
exportcode	ParamType	ptUnknownDataType	ftIntegerNamepallets	ParamType	ptUnknownDataType	ftIntegerNameboxes	ParamType	ptUnknownDataTypeftFloatName	netlength	ParamType	ptUnknownDataTypeftFloatName	loc_total	ParamType	ptUnknownDataTypeftFloatName	acc_total	ParamType	ptUnknownDataTypeftFloatNamepalletprice	ParamType	ptUnknownDataTypeftFloatNamepalletvalue	ParamType	ptUnknownDataTypeftFloatNamefreightdocumentation	ParamType	ptUnknownDataTypeftFloatNamefreightboxes	ParamType	ptUnknownDataTypeftFloatNameloc_grand_total	ParamType	ptUnknownDataTypeftFloatNameacc_grand_total	ParamType	ptUnknownDataTypeftFloatNamevatamt	ParamType	ptUnknownDataTypeftFloatNamevatrate	ParamType	ptUnknownDataTypeftFloatNameexchrate	ParamType	ptUnknownDataTypeftStringNameinvby	ParamType	ptUnknownDataTypeftStringNameinvsent	ParamType	ptUnknownDataTypeftStringNamemetricorimperial	ParamType	ptUnknownDataType	ftIntegerNamephysicalpallets	ParamType	ptUnknownDataType	ftUnknownName
localoverseas	ParamType	ptUnknownDataTypeftFloatNameadditionallocamt	ParamType	ptUnknownDataTypeftFloatNameadditionalaccamt	ParamType	ptUnknownDataTypeftFloatNameoverridefreight	ParamType	ptUnknownDataTypeftFloatNameacc_totalbeforefreight	ParamType	ptUnknownDataTypeftFloatNameacc_totalinclfreight	ParamType	ptUnknownTQueryqryInsertInvDetDatabaseNameVBStockSQL.Stringsinsert into vbinvdet(@despno,invno,lineno,vbstru,vbfin,metricwidth,imperialwidth,qlty,8vbstrudescr,labeldescr,custpartstyledescr,custpartdescr,4vtordno,custordno,grosslengthmetres,netlengthmetres,#netlengthyards,pricetype,loc_price,/loc_value,boxes,loc_freight,override_loc_price,itemno)values(H:despno,:invno,:lineno,:vbstru,:vbfin,:metricwidth,:imperialwidth,:qlty,<:vbstrudescr,:labeldescr,:custpartstyledescr,:custpartdescr,8:vtordno,:custordno,:grosslengthmetres,:netlengthmetres,&:netlengthyards,:pricetype,:loc_price,3:loc_value,:boxes,:loc_freight,:override_loc_price,:itemno)LeftTopÉ	ParamDataDataType	ftIntegerNamedespno	ParamType	ptUnknownDataType	ftIntegerNameinvno	ParamType	ptUnknownDataType	ftIntegerNamelineno	ParamType	ptUnknownDataTypeftStringNamevbstru	ParamType	ptUnknownDataTypeftStringNamevbfin	ParamType	ptUnknownDataType	ftIntegerNamemetricwidth	ParamType	ptUnknownDataTypeftFloatName
imperialwidth	ParamType	ptUnknownDataTypeftStringNameqlty	ParamType	ptUnknownDataTypeftStringNamevbstrudescr	ParamType	ptUnknownDataTypeftStringName
labeldescr	ParamType	ptUnknownDataTypeftStringNamecustpartstyledescr	ParamType	ptUnknownDataTypeftStringName
custpartdescr	ParamType	ptUnknownDataType	ftIntegerNamevtordno	ParamType	ptUnknownDataTypeftStringName	custordno	ParamType	ptUnknownDataTypeftFloatNamegrosslengthmetres	ParamType	ptUnknownDataTypeftFloatNamenetlengthmetres	ParamType	ptUnknownDataTypeftFloatNamenetlengthyards	ParamType	ptUnknownDataTypeftStringName	pricetype	ParamType	ptUnknownDataTypeftFloatName	loc_price	ParamType	ptUnknownDataTypeftFloatName	loc_value	ParamType	ptUnknownDataType	ftIntegerNameboxes	ParamType	ptUnknownDataTypeftFloatNameloc_freight	ParamType	ptUnknownDataTypeftFloatNameoverride_loc_price	ParamType	ptUnknownDataType	ftIntegerNameitemno	ParamType	ptUnknownTQueryqryFetchHdrInfoDatabaseNameVBStockSQL.Strings@select vh.despno,vh.custref,vh.invdate,te.termsdays,su.currency,0vh.transby,vh.pallets,vh.boxes,vh.netlengthdesp,Dcu.exchrate,su.streetadd1,su.streetadd2,su.streetadd3,su.streetadd4,su.streetadd5,Fsu.postaladd1,su.postaladd2,su.postaladd3,su.postaladd4,su.postaladd5,,su.placeload,su.placedischarge,su.incoterms,$su.placedestline1,su.placedestline2,Bsu.carriagebyline1,su.carriagebyline2,su.termsline1,su.termsline2,<su.notifyline1,su.notifyline2,su.notifyline3,su.notifyline4, su.tarriffwide,su.tarriffnarrow,5su.metricorimperial,su.specialinfo,vh.physicalpallets2from vbdesphdr vh,supplier su,terms te,currency cuwhere vh.custref=su.suprefand su.terms=te.termsand su.currency=cu.currefand vh.despno=:despnoLeftÀTop©	ParamDataDataType	ftIntegerNamedespno	ParamType	ptUnknownTQueryqryLocalDetDatabaseNameVBStockSQL.Strings)select vr.vbstru,vr.vbfin,vr.metricwidth,*  vr.qlty,vs.descr vbstrudescr,vr.vtordno,  vo.custordno,vo.pricetype,  vl.price,!  count(distinct vr.boxno) boxes,  pt.descr pricedescr,<  af.freightperbox,af.freightpermetre,af.freightperdespatch,  sum(vr.netlength) netlength,"  sum(vr.grosslength) grosslength,D  cp.descr colourdescr,cp.styledescr,vw.imperialwidth,vt.labeldescr,0  avg(af.freightperdespatch) freightperdespatch,  vr.vbcol,vr.daterqd,  vs.pcefinlength(FROM VBDESPHDR vh, vbstru vs, vblsp vl, 4  pricetype pt,agentfreight af,vbwidth vw,vbtype vt,F  (vbrcpt vr left join vbordhdr vo on vbrcpt.vtordno=vbordhdr.vtordno);    left join custpart cp on (vbrcpt.vbstru=custpart.vbstru:                           and vbrcpt.vbcol=custpart.vbcol:                           and vbrcpt.vbfin=custpart.vbfinB                           and vbrcpt.metricwidth=custpart.vbwidth;                           and custpart.custref=vh.custref)"WHERE (VBDESPHDR.DESPNO = :despno)&AND (VBDESPHDR.DESPNO= VBRCPT.DESPNO )!and (vbrcpt.vbstru=vbstru.vbstru) and (vbrcpt.vbstru=vblsp.vbstru)and (vbrcpt.vbfin=vblsp.vbfin)&and (vbrcpt.metricwidth=vblsp.vbwidth)and (vbrcpt.qlty=vblsp.qlty)(and (vbordhdr.pricetype=vblsp.pricetype)'and (vblsp.fromdate<=vbdesphdr.invdate)%and (vblsp.todate>=vbdesphdr.invdate)%and (vbordhdr.pricetype=pt.pricetype)#and (vbdesphdr.transby=af.agentref)#and (vbrcpt.metricwidth=af.vbwidth)$and (vbdesphdr.invdate>=af.fromdate)"and (vbdesphdr.invdate<=af.todate)#and (vr.metricwidth=vw.metricwidth)and (vr.vbstru=vt.vbstru)and (vr.vbcol=vt.vbcol)and (vr.vbfin=vt.vbfin)group by$  vr.vbstru,vr.vbfin,vr.metricwidth,  vr.qlty,vs.descr,vr.vtordno,  vo.custordno,vo.pricetype,  vl.price,  pt.descr,<  af.freightperbox,af.freightpermetre,af.freightperdespatch,8  cp.descr,cp.styledescr,vw.imperialwidth,vt.labeldescr,  vr.vbcol,vr.daterqd,  vs.pcefinlengthLeftàTop©	ParamDataDataType	ftIntegerNamedespno	ParamType	ptUnknownTQueryqryOverseasDetDatabaseNameVBStockSQL.Strings)select vr.vbstru,vr.vbfin,vr.metricwidth,*  vr.qlty,vs.descr vbstrudescr,vr.vtordno,  vo.custordno,  vl.price,!  count(distinct vr.boxno) boxes,  sum(vr.netlength) netlength,"  sum(vr.grosslength) grosslength,D  cp.descr colourdescr,cp.styledescr,vw.imperialwidth,vt.labeldescr,  vr.vbcol,vr.daterqd(FROM VBDESPHDR vh, vbstru vs, vbosp vl,   vbwidth vw,vbtype vt,F  (vbrcpt vr left join vbordhdr vo on vbrcpt.vtordno=vbordhdr.vtordno);    left join custpart cp on (vbrcpt.vbstru=custpart.vbstru:                           and vbrcpt.vbcol=custpart.vbcol:                           and vbrcpt.vbfin=custpart.vbfinB                           and vbrcpt.metricwidth=custpart.vbwidth;                           and custpart.custref=vh.custref)"WHERE (VBDESPHDR.DESPNO = :despno)&AND (VBDESPHDR.DESPNO= VBRCPT.DESPNO )!and (vbrcpt.vbstru=vbstru.vbstru) and (vbrcpt.vbstru=vbosp.vbstru)and (vbrcpt.vbfin=vbosp.vbfin)&and (vbrcpt.metricwidth=vbosp.vbwidth)and (vbrcpt.qlty=vbosp.qlty)(and (vbosp.fromdate<=vbdesphdr.despdate)&and (vbosp.todate>=vbdesphdr.despdate)%and (vbosp.custref=vbdesphdr.custref) and (vbosp.pricetype=:pricetype)#and (vr.metricwidth=vw.metricwidth)and (vr.vbstru=vt.vbstru)and (vr.vbcol=vt.vbcol)and (vr.vbfin=vt.vbfin)group by$  vr.vbstru,vr.vbfin,vr.metricwidth,  vr.qlty,vs.descr,vr.vtordno,  vo.custordno,vo.pricetype,  vl.price,8  cp.descr,cp.styledescr,vw.imperialwidth,vt.labeldescr,  vr.vbcol,vr.daterqdLeftTop©	ParamDataDataType	ftIntegerNamedespno	ParamType	ptUnknownDataTypeftStringName	pricetype	ParamType	ptUnknownTQuery
qryDespHdrDatabaseNameVBStockSQL.Strings3select vh.despno,vh.custref,vh.despsent,vh.pallets,2  vh.boxes,vh.netlengthdesp,vh.despdate,vh.despby,)  vh.exporter,vh.invdate,su.localoverseasfrom vbdesphdr vh,supplier suwhere vh.custref=su.suprefand vh.despno>=:despnoorder by vh.despnoLeftTop€	ParamDataDataType	ftIntegerNamedespno	ParamType	ptUnknown
TIntegerFieldqryDespHdrDESPNO	FieldNameDESPNOTStringFieldqryDespHdrCUSTREF	FieldNameCUSTREFSizeTStringFieldqryDespHdrDESPSENT	FieldNameDESPSENTSizeTSmallintFieldqryDespHdrPALLETS	FieldNamePALLETSTSmallintFieldqryDespHdrBOXES	FieldNameBOXESTFloatFieldqryDespHdrNETLENGTHDESP	FieldName
NETLENGTHDESPTDateTimeFieldqryDespHdrDESPDATE	FieldNameDESPDATE
DisplayFormat
dd/mm/yyyyTStringFieldqryDespHdrDESPBY	FieldNameDESPBYSizeTStringFieldqryDespHdrEXPORTER	FieldNameEXPORTERSizeTDateTimeFieldqryDespHdrINVDATE	FieldNameINVDATE
DisplayFormat
dd/mm/yyyyTStringFieldqryDespHdrLOCALOVERSEAS	FieldName
LOCALOVERSEASSizeTQueryqryInsertInvHdrExtraDatabaseNameVBStockSQL.Stringsinsert into vbinvhdrextra(
despno,invno,7streetadd1,streetadd2,streetadd3,streetadd4,streetadd5,7postaladd1,postaladd2,postaladd3,postaladd4,postaladd5,Aplaceload,placedischarge,incoterms,placedestline1,placedestline2,6carriagebyline1,carriagebyline2,termsline1,termsline2,>notifyline1,notifyline2,notifyline3,tarriffwide,tarriffnarrow,specialinfo)values(:despno,:invno,<:streetadd1,:streetadd2,:streetadd3,:streetadd4,:streetadd5,<:postaladd1,:postaladd2,:postaladd3,:postaladd4,:postaladd5,F:placeload,:placedischarge,:incoterms,:placedestline1,:placedestline2,::carriagebyline1,:carriagebyline2,:termsline1,:termsline2,C:notifyline1,:notifyline2,:notifyline3,:tarriffwide,:tarriffnarrow,:specialinfo)LeftàTopÉ	ParamDataDataType	ftIntegerNamedespno	ParamType	ptUnknownDataType	ftIntegerNameinvno	ParamType	ptUnknownDataTypeftStringName
streetadd1	ParamType	ptUnknownDataTypeftStringName
streetadd2	ParamType	ptUnknownDataTypeftStringName
streetadd3	ParamType	ptUnknownDataTypeftStringName
streetadd4	ParamType	ptUnknownDataTypeftStringName
streetadd5	ParamType	ptUnknownDataTypeftStringName
postaladd1	ParamType	ptUnknownDataTypeftStringName
postaladd2	ParamType	ptUnknownDataTypeftStringName
postaladd3	ParamType	ptUnknownDataTypeftStringName
postaladd4	ParamType	ptUnknownDataTypeftStringName
postaladd5	ParamType	ptUnknownDataTypeftStringName	placeload	ParamType	ptUnknownDataTypeftStringNameplacedischarge	ParamType	ptUnknownDataTypeftStringName	incoterms	ParamType	ptUnknownDataTypeftStringNameplacedestline1	ParamType	ptUnknownDataTypeftStringNameplacedestline2	ParamType	ptUnknownDataTypeftStringNamecarriagebyline1	ParamType	ptUnknownDataTypeftStringNamecarriagebyline2	ParamType	ptUnknownDataTypeftStringName
termsline1	ParamType	ptUnknownDataTypeftStringName
termsline2	ParamType	ptUnknownDataTypeftStringNamenotifyline1	ParamType	ptUnknownDataTypeftStringNamenotifyline2	ParamType	ptUnknownDataTypeftStringNamenotifyline3	ParamType	ptUnknownDataTypeftStringNametarriffwide	ParamType	ptUnknownDataTypeftStringName
tarriffnarrow	ParamType	ptUnknownDataTypeftStringNamespecialinfo	ParamType	ptUnknownTQueryqryDeleteInvHdrDatabaseNameVBStockSQL.Stringsdelete from vbinvhdrwhere despno=:despnoand invno=:invnoLeft`Top©	ParamDataDataType	ftIntegerNamedespno	ParamType	ptUnknownDataType	ftIntegerNameinvno	ParamType	ptUnknownTQueryqryDeleteInvHdrExtraDatabaseNameVBStockSQL.Stringsdelete from vbinvhdrextrawhere despno=:despnoand invno=:invnoLeft€Top©	ParamDataDataType	ftIntegerNamedespno	ParamType	ptUnknownDataType	ftIntegerNameinvno	ParamType	ptUnknownTQueryqryDeleteInvDetDatabaseNameVBStockSQL.Stringsdelete from vbinvdetwhere despno=:despnoand invno=:invnoLeft Top©	ParamDataDataType	ftIntegerNamedespno	ParamType	ptUnknownDataType	ftIntegerNameinvno	ParamType	ptUnknownTQueryqryGetItemNoDatabaseNameVBStockSQL.Strings
select itemno
from vborddetwhere vtordno= :vtordnoand vbstru= :vbstruand vbcol= :vbcoland vbfin= :vbfinand vbwidth= :vbwidthand daterqd= :daterqdLeft Top©	ParamDataDataType	ftIntegerNamevtordno	ParamType	ptUnknownDataTypeftStringNamevbstru	ParamType	ptUnknownDataTypeftStringNamevbcol	ParamType	ptUnknownDataTypeftStringNamevbfin	ParamType	ptUnknownDataType	ftIntegerNamevbwidth	ParamType	ptUnknownDataType
ftDateTimeNamedaterqd	ParamType	ptUnknown
TIntegerFieldqryGetItemNoITEMNO	FieldNameITEMNO