BM_Constant, CI_Constant, CI_NextNumber, CI_TierCostCalc, CI_UpdateDetailToIM, SY_BatchUpdate |
LOCAL cReportFile$="BM_ProductionRegister.rpt" |
LOCAL cRegisterWrkFile$="BM_ProductionRegisterWrk" |
LOCAL cDailyPostingWorkFile$="BM_DailyPostingWork" |
LOCAL cIdxDisplayLen |
LOCAL cStandardPostingComment$ |
LOCAL cCarriageReturn$=$0A$ |
LOCAL cShortCommentLength=50 |
LOCAL cStandardUnitOfMeasureConvFactor |
LOCAL cBatchModule$="B/M" |
LOCAL cBatchType$="01" |
LOCAL cMaxLabelSeqNo=99999 |
PROPERTY ReportCaption$="Production Entry Register" |
PROPERTY ErrorLog |
FUNCTION GetSourceTables$(table$) |
cNoFifoLifoDate$ |
CalcCost(), ClearCCByBatch(), ClearCCByDeKey(), ClearCCByJournal(), ClearCCWorkFile(), PERFORM ClearCommits(), PERFORM PostTableReadCI_TierCostCalc(), PERFORM PreNextRecordCI_TierCostCalc(), PERFORM PreTableWriteCI_TierCostCalc(), PERFORM ProcessTierDistribution() |
GetSourceTables$(), PERFORM InitializeUpdateIMDtl(), PERFORM PostTableReadCI_UpdateDetailToIM(), PERFORM PreNextRecordCI_UpdateDetailToIM(), PERFORM PreTableWriteCI_UpdateDetailToIM(), PERFORM ProcessCostCalcRecord() |