Prod.Product 1 TCHUI.TForm TCHUI.TKader TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLijst TCHUI.TDataSetList TCHUI.TFrame TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TContextMenu TCHUI.TMenuItem TCHUI.TMenuItem TCHUI.TMenuItem TCHUI.TMenuItem TCHUI.TForm TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.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:TCHUI.TControlBasis,Continue:%Boolean 0)!(Sender.Caption="-0") Set $LI(XFormat,$$$xfFGColor)=$$$clRed,Sender.XFormat=XFormat ]]> Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis $$CALCDATE^vhDTyp($H,"W",52,"MD") ..pRefWeek=$$CALCDATE^vhDTyp($H,"W",52,"MD") ; Maximaal 52 weken verder Do ..UpdateForm() ]]> Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis