ˇ
TAUDITFORM0â TPF0
TAuditForm	AuditFormLeftøTopsWidthºHeightbCaptionAudit DatabaseColor	clBtnFaceFont.CharsetDEFAULT_CHARSET
Font.ColorclWindowTextFont.Heightı	Font.Name
MS Sans Serif
Font.StyleOldCreateOrder	PositionpoScreenCenterOnClose	FormCloseOnShowFormShow
PixelsPerInch`
TextHeight
TPanelPanel1LeftTop)Width¥HeightAlignalClientTabOrderTDBGridDBGrid1LeftTopWidth≤Height	AlignalClient
DataSourceVTLogSourceTabOrderTitleFont.CharsetDEFAULT_CHARSETTitleFont.ColorclWindowTextTitleFont.HeightıTitleFont.Name
MS Sans SerifTitleFont.StyleTPanelPanel2LeftTopWidth¥Height)AlignalTopTabOrderTLabelLabel1LeftTopWidth.Height
CaptionDatabaseTEditedtDatabaseNameLeftPTopWidthyHeightColorclSilverReadOnly	TabOrderTextedtDatabaseNameTButtonbtnAuditLeftTopWidthKHeightCaptionDo the AuditTabOrderOnClick
btnAuditClickTBitBtnCloseBitBtnLeftXTopWidthSHeightCaptionCloseTabOrderOnClickCloseBitBtnClickKindbkClose
TStatusBar
StatusBar1LeftTop4Width¥HeightPanelsTextReadyWidth2SimplePanelTTableVTLogDatabaseNameStock	TableNameVTLOGLeft‡Top0
TIntegerFieldVTLogREFDisplayLabelRefDisplayWidth	FieldNameREFRequired	TDateTimeFieldVTLogDATEENTDisplayLabelDateDisplayWidth	FieldNameDATEENT
DisplayFormatdd/mm/yyyy hh:mmTStringFieldVTLogUSERENTDisplayLabelUser	FieldNameUSERENTSize
TStringFieldVTLogPROGRAMREFDisplayLabelProgamDisplayWidth	FieldName
PROGRAMREFSize
TStringFieldVTLogCHECKEDDisplayLabelCh	FieldNameCHECKEDEditMask>L;0;_SizeTStringField
VTLogTABLEREFDisplayLabelTableDisplayWidth	FieldNameTABLEREFSizeTStringField
VTLogDESCRDisplayLabelDescription	FieldNameDESCRSize<TDataSourceVTLogSourceDataSetVTLogLeftTop0TQueryCheckYnQueryDatabaseNameStockSQL.Stringsselect yt.yntype,sp.extprodref+from yarntype yt left join stdcostprices sp  on (yt.yntype=sp.extprodref  and sp.fromdate<=:daterqd  and sp.todate>=:daterqd)where sp.extprodref is nullorder by yt.yntypeLeft‡TopX	ParamDataDataTypeftDateNamedaterqd	ParamType	ptUnknownDataTypeftDateNamedaterqd	ParamType	ptUnknownTStringFieldCheckYnQueryYNTYPE	FieldNameYNTYPESize	TStringFieldCheckYnQueryEXTPRODREF	FieldName
EXTPRODREFSizeTStoredProc
SPVTLogRefDatabaseNameStockStoredProcName
SPVTLOGREFLeft Top0	ParamDataDataType	ftIntegerNameCODE	ParamTypeptOutputTQueryCheckRMQueryDatabaseNameStockSQL.Stringsselect pr.prodref,sp.extprodref*from product pr left join stdcostprices sp!  on (pr.extprodref=sp.extprodref  and sp.fromdate<=:daterqd  and sp.todate>=:daterqd)where sp.extprodref is nullorder by pr.prodrefLeftTopY	ParamDataDataTypeftDateNamedaterqd	ParamType	ptUnknownDataTypeftDateNamedaterqd	ParamType	ptUnknownTStringFieldCheckRMQueryPRODREF	FieldNamePRODREFSizeTQuery
CheckWIPQueryDatabaseNameStockSQL.Stringsselect ca.accname,sp.extprodref+from ctrlacct ca left join stdcostprices sp!  on (ca.extaccname=sp.extprodref  and sp.fromdate<=:daterqd  and sp.todate>=:daterqd)where sp.extprodref is nullorder by ca.accnameLeft TopY	ParamDataDataTypeftDateNamedaterqd	ParamType	ptUnknownDataTypeftDateNamedaterqd	ParamType	ptUnknownTStringFieldCheckWIPQueryACCNAME	FieldNameACCNAMESizeTStoredProcSPTxnDetSummaryDatabaseNameStockStoredProcNameSPTXNDETSUMMARYLeft@TopYTQueryCheckVBRcptQueryDatabaseNameStockSQL.Strings=select distinct vr.despno,vr.despdate,vh.despdate,vh.despsentfrom vbrcpt vr,vbdesphdr vhwhere vr.despno=vh.despnoand (vr.despdate<>vh.despdateor vr.despdate is null)and vh.despsent='Y'order by vr.despnoLeft‡TopÅ
TIntegerFieldCheckVBRcptQueryDESPNO	FieldNameDESPNOTDateTimeFieldCheckVBRcptQueryDESPDATE	FieldNameDESPDATETDateTimeFieldCheckVBRcptQueryDESPDATE_1	FieldName
DESPDATE_1TStringFieldCheckVBRcptQueryDESPSENT	FieldNameDESPSENTSizeTQuery
UnsentYNQueryDatabaseNameStockSQL.Stringsselect despno,despdatefrom yndesphdrwhere despsent='N'order by despnoLeftTopÅ
TIntegerFieldUnsentYNQueryDESPNO	FieldNameDESPNOTDateTimeFieldUnsentYNQueryDESPDATE	FieldNameDESPDATE
DisplayFormat
dd/mm/yyyyTQuery
UnsentVBQueryDatabaseNameStockSQL.Stringsselect despno,despdatefrom vbdesphdrwhere despsent='N'order by despnoLeft TopÅ
TIntegerFieldUnsentVBQueryDESPNO	FieldNameDESPNOTDateTimeFieldUnsentVBQueryDESPDATE	FieldNameDESPDATE
DisplayFormat
dd/mm/yyyyTQueryYnLessZeroQueryDatabaseNameStockSQL.Stringsupdate yarntype
set instock=0where instock<0LeftTop©TQuery
YnBalVT1QueryDatabaseNameStockSQL.Strings%select yt.ynstru,yt.yntwist,yt.yncol,'sum(td.qty) sumqty,yt.instock,yt.yntypefrom txndet td,yarntype yt+where (td.prodtype='YN' or td.prodtype='XN'*or td.prodtype='WXN' or td.prodtype='WYN')and td.extprodref=yt.yntype;group by yt.ynstru,yt.yntwist,yt.yncol,yt.instock,yt.yntype.having (cast(sum(td.qty+.000001) as integer)<>&  cast(yt.instock+.000001 as integer))&order by yt.ynstru,yt.yntwist,yt.yncolLeft‡Top…TStringFieldYnBalVT1QueryYNSTRU	FieldNameYNSTRUSizeTStringFieldYnBalVT1QueryYNTWIST	FieldNameYNTWISTSizeTStringFieldYnBalVT1QueryYNCOL	FieldNameYNCOLSizeTFloatFieldYnBalVT1QuerySUMQTY	FieldNameSUMQTYTFloatFieldYnBalVT1QueryINSTOCK	FieldNameINSTOCKTStringFieldYnBalVT1QueryYNTYPE	FieldNameYNTYPESize	TQueryFixYnZeroQueryDatabaseNameStockSQL.Stringsupdate yarntype
set instock=0%where instock>-0.05 and instock <0.05Left‡Top©TQuery
YnBalVT2QueryDatabaseNameStockSQL.Strings%select yt.ynstru,yt.yntwist,yt.yncol,'sum(td.qty) sumqty,yt.instock,yt.yntypefrom txndet td,yarntype yt.where (td.prodtype='WEF' or td.prodtype='WEW')and td.extprodref=yt.yntype;group by yt.ynstru,yt.yntwist,yt.yncol,yt.instock,yt.yntype.having (cast(sum(td.qty+.000001) as integer)<>&  cast(yt.instock+.000001 as integer))&order by yt.ynstru,yt.yntwist,yt.yncolLeftTop…TStringFieldYnBalVT2QueryYNSTRU	FieldNameYNSTRUSizeTStringFieldYnBalVT2QueryYNTWIST	FieldNameYNTWISTSizeTStringFieldYnBalVT2QueryYNCOL	FieldNameYNCOLSizeTFloatFieldYnBalVT2QueryINSTOCK	FieldNameINSTOCK
DisplayFormat0.0TFloatFieldYnBalVT2QuerySUMQTY	FieldNameSUMQTYTStringFieldYnBalVT2QueryYNTYPE	FieldNameYNTYPESize	TQueryFixYarnTypeQueryDatabaseNameStockSQL.Stringsupdate yarntypeset instock=:instockwhere ynstru=:ynstruand yntwist=:yntwistand yncol=:yncolLeft0Top…	ParamDataDataTypeftFloatNameinstock	ParamType	ptUnknownDataTypeftStringNameynstru	ParamType	ptUnknownDataTypeftStringNameyntwist	ParamType	ptUnknownDataTypeftStringNameyncol	ParamType	ptUnknownTQueryFindWIPBalancesQueryDatabaseNameStockLeft‡TopÈTQueryFixWIPBalancesQueryDatabaseNameStockLeftTopÈTQueryqryUpdateRMtoRMPDatabaseNameStockSQL.Strings
update txndetset prodtype='RMP'where prodtype='RM'and extprodref in(select extprodreffrom productwhere category='PAK')Left0TopÈTQuery
RMBalVT1QueryDatabaseNameStockSQL.Strings0select pr.prodref,pr.descr,pr.instock prodstock,  sum(td.qty) txndetstockfrom txndet td, product pr!where td.extprodref=pr.extprodref3group by pr.category,pr.prodref,pr.descr,pr.instock.having (cast(sum(td.qty+.000001) as integer)<>&  cast(pr.instock+.000001 as integer))order by pr.category,pr.prodrefLeft‡Top	TStringFieldRMBalVT1QueryPRODREF	FieldNamePRODREF	FixedChar	SizeTStringFieldRMBalVT1QueryDESCR	FieldNameDESCRSizeTFloatFieldRMBalVT1QueryPRODSTOCK	FieldName	PRODSTOCKTFloatFieldRMBalVT1QueryTXNDETSTOCK	FieldNameTXNDETSTOCKTQueryFixRawMatQueryDatabaseNameStockSQL.Stringsupdate productset instock=:instockwhere prodref=:prodrefLeft0Top		ParamDataDataTypeftFloatNameinstock	ParamType	ptUnknownDataTypeftStringNameprodref	ParamType	ptUnknown