{{{  TEMPLATE: SuppCatIncrease,SuppCatIncrease,Increase supplier cat. prices,csh

{{{  DESCRIPTION:

This Wizard increases the SUPPLIER SPECIFIC prices by the percentage given.
.
.
.
Do you wish to continue?
}}}

SETPAD:,Void
   EXP:,MonitorStart('Supplier Catalogue Price Increase')
{{{  SECTION:Define variables

SETPAD:Ref:Yes            ,Flag      ,Yes
SETPAD:Ref:No             ,Flag      ,No

SETPAD:MCHNumberTotal     ,Int

SETFLD:MCS:Supplier       ,mcs   ,mcsLoop   ,Supplier
SETFLD:MCS:Price          ,mcs   ,mcsLoop   ,UnitPrice

}}}
!stop monitor before input required
EVAL:,=MonitorStop()

{{{  PAGE:Get supplier & increase

ASKFLD:Specify the supplier ,mcs ,MCSRec ,Supplier
   TIP: ,Specify the supplier for price increase

ASKPAD:Specify the percentage increase required ,Real
   TIP: ,Define the percentage increase to be applied to the supplier catalogue items

}}}
{{{  IF:PercentNotZero  ,Specify the percentage increase required

EVAL:,=MonitorStart('Supplier Catalogue Price Increase')

{{{  SECTION:Prepare list of supplier items

EVAL:,=MonitorStep('Prepare list of items for increase')
SETPAD:SuppItems               ,RecNoQ  ,=Find(Specify the supplier,Specify the supplier)

EVAL:,=MonitorStep('Filter all items without a price')

EVAL:,=Filter(SuppItems,Selected(SuppItems)[UnitPrice])

}}}

{{{  IF:ItemsToAdjust ,Items(SuppItems)

SETPAD:MultiplyFactor  ,Real  ,=(100 + Specify the percentage increase required)/100

EVAL:,=MonitorStep('Apply the modification')
{{{  SECTION:Apply the percentage

EVAL:,=MonitorStart()

{{{  SECTION:Setup transaction

EVAL:,=TransPrepare('Prepare transaction')
EVAL:,=TransInclude('mcs')
EVAL:,=TransBegin()

}}}

EVAL:
   EXP:       ,Iterate(Load(Item(Iteration(),SuppItems) ,MCS:Supplier);

   EXP:       ,      MCHNumberTotal + 1 @ MCHNumberTotal; MonitorStop(); MonitorStart(MCHNumberTotal & '...' & MCS:Supplier);

   EXP:       ,      MCS:Price * MultiplyFactor @ MCS:Price ;Update(MCS:Supplier),

   EXP:       ,Iteration() = Items(SuppItems))

EVAL:,=TransEnd()

EVAL:,=MonitorStop()

}}}

EXIT:  ,=MCS:Supplier

}}}

EVAL:,=MonitorStop()

EXIT: ,=Void()
 TIP: ,No supplier items to adjust


}}}

EXIT: ,=Void()
 TIP: ,Zero increase specified

}}}