0 0 serial 0 KeyCodesCNTs STRING 0 Default %Library.TMFormClass 0 %Library.Integer 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 %Library.TMForm 0 0 "" 0 0 0 0 0 %Library.Boolean 0 0 0 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 %TMSpeedButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMSpeedButton 0 0 "" 0 0 0 0 0 %TMButton 0 0 "" 0 0 0 0 0 %TMComboBox 0 0 "" 0 0 0 0 0 %Library.String 0 0 $LB("Januari","Februari","Maart","April","Mei","Juni","Juli","Augustus","September","Oktober","November","December") 0 0 0 0 0 Bij opstarten wordt dit ingevuld, naargelang de inhoud van cntMonths %Library.String 0 0 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMPanel 0 0 "" 0 0 0 0 0 %TMPanel 0 0 "" 0 0 0 0 0 %TMPanel 0 0 "" 0 0 0 0 0 %TMShape 0 0 "" 0 0 0 0 0 %TMShape 0 0 "" 0 0 0 0 0 %TMShape 0 0 "" 0 0 0 0 0 %TMShape 0 0 "" 0 0 0 0 0 %TMShape 0 0 "" 0 0 0 0 0 %TMEdit 0 0 "" 0 0 0 0 0 0 0 code initvalue:%String 0 %Status 0 0 0 code 0 0 0 0 code 0 0 0 0 code 0 0 0 0 code Delta:%Integer 0 0 0 0 code initvalue:%String 0 0 0 0 code initvalue:%String 0 %Library.Status 0 'Januari 2002', afhankelijk van opgegeven $H en ..cntMonthsAsStr ;------------------------------------------------------------------------------ #Define ConvHToDate(%H) $P($ZDATE(%H,2,..cntMonthsAsStr)," ",2,3) ;---=[ Default CumulatieType ]=--- Set ..cbbCumulatieType.ItemIndex=0 ;---=[ cntMonths->cntMonthsAsStr ]=--- ;Wordt gebruikt bij $ZDATEH (MonthList) Set ..cntMonthsAsStr="" New Loop For Loop=1:1:12 Do . Set ..cntMonthsAsStr=..cntMonthsAsStr_" "_$LI(..cntMonths,Loop) ;---=[ Startdatum instellen op 'nu' ]=--- ;Do ..SetHuidigeDatum($H) q $$$OK ]]> 0 0 code H:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code 0 0 'Januari 2002', afhankelijk van opgegeven $H en ..cntMonthsAsStr ;------------------------------------------------------------------------------ #Define ConvHToDate(%H) $P($ZDATE(%H,2,..cntMonthsAsStr)," ",2,3) ;------------------------------------------------------------------------------ ; CALC DATES ;------------------------------------------------------------------------------ ; Maand If ..cbbCumulatieType.ItemIndex=0 Do . Set (..BeginVan,..BeginTot)=HuidigeDatumToH . Set (..EindeVan,..EindeTot)=$$CALCDATE^vhDTyp(HuidigeDatumToH,"M",-12,"MD") ; Boekjaar lopend boekjaar tov volledig vorig boekjaar If ..cbbCumulatieType.ItemIndex=1 Do . Set ..BeginVan=$$CALCDATE^vhDTyp($$CALCDATE^vhDTyp(HuidigeDatumToH,"BJ","FD"),"M") . Set ..BeginTot=HuidigeDatumToH . Set ..EindeVan=$$CALCDATE^vhDTyp($$CALCDATE^vhDTyp(HuidigeDatumToH,"BJ",-1,"FD"),"M") . Set ..EindeTot=$$CALCDATE^vhDTyp(HuidigeDatumToH,"M",-12,"MD") ; Cumul van 12 maanden tov vorig boekjaar If ..cbbCumulatieType.ItemIndex=2 Do . Set ..BeginTot=HuidigeDatumToH . Set ..BeginVan=$$CALCDATE^vhDTyp(HuidigeDatumToH,"M",-11,"MD") . Set ..EindeVan=$$CALCDATE^vhDTyp(HuidigeDatumToH,"BJ",-1,"FD") . Set ..EindeTot=$$CALCDATE^vhDTyp(HuidigeDatumToH,"BJ",-1,"LD") ; Cumul van 12 maanden tov 12 maanden ervoor If ..cbbCumulatieType.ItemIndex=3 Do . Set ..BeginTot=HuidigeDatumToH . Set ..BeginVan=$$CALCDATE^vhDTyp(HuidigeDatumToH,"M",-11,"MD") . Set ..EindeVan=$$CALCDATE^vhDTyp(HuidigeDatumToH,"M",-23,"MD") . Set ..EindeTot=$$CALCDATE^vhDTyp(HuidigeDatumToH,"M",-12,"MD") ; Cumul van 12 maanden tov 1 maand ervoor If ..cbbCumulatieType.ItemIndex=4 Do . Set ..BeginTot=HuidigeDatumToH . Set ..BeginVan=$$CALCDATE^vhDTyp(HuidigeDatumToH,"M",-11,"MD") . Set ..EindeVan=$$CALCDATE^vhDTyp(HuidigeDatumToH,"M",-12,"MD") . Set ..EindeTot=$$CALCDATE^vhDTyp(HuidigeDatumToH,"M",-1,"MD") ;------------------------------------------------------------------------------ ; INVULLEN IN LABELs ;------------------------------------------------------------------------------ Set ..lblBeginVan.Caption=$$$ConvHToDate(..BeginVan) Set ..lblBeginTot.Caption=$$$ConvHToDate(..BeginTot) Set ..lblEindeVan.Caption=$$$ConvHToDate(..EindeVan) Set ..lblEindeTot.Caption=$$$ConvHToDate(..EindeTot) Quit ]]> 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 %Library.CacheSerialState listnode "%Library.TMFormClass" Address Form ComboBox1 GroupBox5 Label15 Label3 Shape2 btnDecMaand btnIncMaand editHuidigeDatum Label16 Label17 Label18 Label19 Label20 Label21 Panel1 Panel2 Shape3 Shape4 ComboBox2 Edit1 Label22 Label23 Panel3 Shape5 Shape6 Button1 btnNavHuidigeDatum cbbCumulatieType txtHuidigeDatum Button2 BtnIsDown SpeedButton1 SpeedButton2 pnlHeader pnlHuidigeDatum pnlReferentieDatum shBack shHeader shHuidigeDatum shReferentieDatum XOffs YOffs IsInMove Shape1 btnNextHuidigeDatum btnPrevHuidigeDatum tmrBtnClickRepeat BtnToRepeat btnAnnuleren btnOk shButtons Months cntMonths Label24 Label25 Label26 Label27 lblBeginTot lblBeginVan lblEindeTot lblEindeVan cntMonthsToStr cntMonthsAsStr btnHuidigeDatumNu BeginTot BeginVan EindeTot EindeVan