ˇ
TWIPADJUSTFORM0dTPF0TWIPAdjustForm
WIPAdjustFormLeftÚTopºWidth∂Height,
ActiveControledtMonthEndDateCaption3Adjust computer's calculated WIP to real WIP at EOMColor	clBtnFaceFont.CharsetDEFAULT_CHARSET
Font.ColorclWindowTextFont.Heightı	Font.Name
MS Sans Serif
Font.StyleOldCreateOrder	PositionpoScreenCenterOnClose	FormClose
PixelsPerInch`
TextHeight
	TSplitter	Splitter1LeftTop}WidthÆHeightCursorcrVSplitAlignalBottomTPanelPanel1LeftTop!WidthÆHeight\AlignalClientTabOrderTDBGridDBGrid1LeftTopWidth¨HeightZAlignalClient
DataSourceWIPQuerySourceTabOrderTitleFont.CharsetDEFAULT_CHARSETTitleFont.ColorclWindowTextTitleFont.HeightıTitleFont.Name
MS Sans SerifTitleFont.Style
TStatusBar
StatusBar1LeftTop˛WidthÆHeightPanelsTextReadyWidth2SimplePanelTPanelPanel2LeftTopÄWidthÆHeight~AlignalBottomTabOrderTDBGridDBGrid2LeftTopWidth¨Height|AlignalClient
DataSourceTxnDetQuerySourceTabOrderTitleFont.CharsetDEFAULT_CHARSETTitleFont.ColorclWindowTextTitleFont.HeightıTitleFont.Name
MS Sans SerifTitleFont.StyleTPanelPanel3LeftTopWidthÆHeight!AlignalTopTabOrderTLabelLabel1LeftTopWidth4Height
Caption	Month EndTEditedtMonthEndDateLeftPTopWidthaHeightTabOrderOnExitedtMonthEndDateExitTBitBtnCloseBitBtnLeft@TopWidthKHeightTabOrderOnClickCloseBitBtnClickKindbkCloseTButton	btnAdjustLeftÿTopWidthKHeightCaption&Adjust WIPTabOrderOnClickbtnAdjustClickTDataSourceWIPQuerySourceDataSetWIPQueryLeft0Top0TQueryWIPQueryDatabaseNameStockSQL.Strings9SELECT cast(sum(WIPRCPT.NETWEIGHT) as integer) netweight,*PRODUCT.CTRLACCT,wiprcpt.issueto,'WIPRcpt'FROM WIPRCPT, PRODUCTWHERE (WIPRCPT.SHIFT='W')"AND (WIPRCPT.DATEMANU = :datemanu)&AND (WIPRCPT.PRODREF= PRODUCT.PRODREF)*and (wiprcpt.dateissued<>wiprcpt.datemanu))group by PRODUCT.CTRLACCT,wiprcpt.issueto:ORDER BY PRODUCT.CTRLACCT, PRODUCT.PRODREF,wiprcpt.issuetoLeftTop0	ParamDataDataTypeftDateNamedatemanu	ParamType	ptUnknownValueë·@TStringFieldWIPQueryCOLUMN4DisplayLabel	Prod TypeDisplayWidth		FieldNameCOLUMN4SizeTStringFieldWIPQueryCTRLACCTDisplayLabel'WIP'+CtrlAcctDisplayWidth	FieldNameCTRLACCTSize
TIntegerFieldWIPQueryNETWEIGHTDisplayLabelQtyDisplayWidth	FieldName	NETWEIGHTTStringFieldWIPQueryISSUETODisplayLabelIssue ToDisplayWidth	FieldNameISSUETOSizeTQueryTxnDetQueryDatabaseNameStockConstrained	SQL.StringsSELECT TXNDET.PRODTYPE, TXNDET.EXTPRODREF, TXNDET.QLTY,'cast(sum(TXNDET.QTY) as integer) sumqtyFROM TXNDET"WHERE (TXNDET.TXNDATE <= :txndate)and (txndet.prodtype='WIP')group by TXNDET.PRODTYPE,    TXNDET.EXTPRODREF, TXNDET.QLTY,having (cast(sum(TXNDET.QTY) as integer)<>0)+ORDER BY TXNDET.PRODTYPE, TXNDET.EXTPRODREFLeftTopà	ParamDataDataTypeftDateNametxndate	ParamType	ptUnknownValueë·@TStringFieldTxnDetQueryPRODTYPEDisplayLabel	Prod TypeDisplayWidth		FieldNamePRODTYPESizeTStringFieldTxnDetQueryEXTPRODREFDisplayLabelExt Prod RefDisplayWidth	FieldName
EXTPRODREFSize
TIntegerFieldTxnDetQuerySUMQTYDisplayLabelQtyDisplayWidth	FieldNameSUMQTYTStringFieldTxnDetQueryQLTYDisplayLabelQltyDisplayWidth	FieldNameQLTYSizeTDataSourceTxnDetQuerySourceDataSetTxnDetQueryLeft8TopàTQueryAdjTxnDetQueryDatabaseNameStockSQL.Strings&insert into txndet (ref,txnno,txncode,'  prodtype,extprodref,qlty,qty,txndate,  origtxncode,dateent,userent)values  (:ref,:txnno,:txncode,,  :prodtype,:extprodref,:qlty,:qty,:txndate,  0,:dateent,:userent)LeftêTopA	ParamDataDataType	ftIntegerNameref	ParamType	ptUnknownDataType	ftIntegerNametxnno	ParamType	ptUnknownDataTypeftStringNametxncode	ParamType	ptUnknownDataTypeftStringNameprodtype	ParamType	ptUnknownDataTypeftStringName
extprodref	ParamType	ptUnknownDataTypeftStringNameqlty	ParamType	ptUnknownDataTypeftFloatNameqty	ParamType	ptUnknownDataTypeftDateNametxndate	ParamType	ptUnknownDataTypeftDateNamedateent	ParamType	ptUnknownDataTypeftStringNameuserent	ParamType	ptUnknownTStoredProcSPGenTxnDetRefDatabaseNameStockStoredProcNameSPGENTXNDETREFLeftêTopa	ParamDataDataType	ftIntegerNameCODE	ParamTypeptOutputTStoredProcSPGenTxnDetTxnRefDatabaseNameStockStoredProcNameSPGENTXNDETTXNREFLeftêTopà	ParamDataDataType	ftIntegerNameCODE	ParamTypeptOutput