%Prod.Product 1 %CHUI.TForm 0 %CHUI.TKader %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLijst %CHUI.TDataSetList %CHUI.TFrame %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TContextMenu %CHUI.TMenuItem %CHUI.TMenuItem %CHUI.TMenuItem %CHUI.TMenuItem %CHUI.TForm %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %Date BL.Derde.Agenda.Agenda %String 1 %Integer 1 %Integer 2 %Integer 3 %Integer 4 %Integer 5 %Integer 6 In te vullen door de GUI applicatie 0 Sender:%CHUI.TControlBasis,Continue:%Boolean 0)!(Sender.Caption="-0") Set $LI(XFormat,$$$xfFGColor)=$$$clRed,Sender.XFormat=XFormat ]]> Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis $$CALCDATE^vhDTyp($H,"W",52,"MD") ..pRefWeek=$$CALCDATE^vhDTyp($H,"W",52,"MD") ; Maximaal 52 weken verder Do ..UpdateForm() ]]> Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis