cT32 ;Aankoopdagboek ;%T32 ;%T32* ; [ 01/02/01 2:38 PM ] ; T0 ;Aankoopdagboek ; T1 ;Boekingsmaand\"-[] = einde programma jjjj.mm[] = bepaalde maand"; T2 ;Boekingsmaand : ; T3 ;Keuze;volledige print-out;enkel eindoverzicht; ; T0F ;Journal des achats ; T1F ;Mois comptable\"-[] = fin du programme aaaa.mm[] = mois spécifique"; T2F ;Mois comptable : ; T3F ;Choix;liste complète;uniquement aperçu final; ; T0E ;Purchase journal ; T1E ;Fiscal month\"-[] = end program yyyy.mm[] = particular month"; T2E ;Fiscal month : ; T3E ;Choice;full report;only final report; ; ; Initialisatie 1 S BPX=$E(@("^"_Q_"BA(7)")+.01_0,1,7) S:BPX#1>.12 BPX=BPX+.88 11 I 'QP S BP=PP(1),SRT=PP(2),OVZ=$G(PP(3)) G 4 13 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 ; ; journaal 2 S R="SRT\A\800\1" D ^cA336 S:SRT="." SRT="A" G YZ:K="-",3:"A"[SRT S K="A"_$E(1000+SRT,2,4) 29 S FP=403 W @F,$J("",31),@F93,@F,@F92,$P(^(K),D),@F93 S FP=801 W @F,@F1 ; ; vraagstelling 3 S BP=BPX,R="BP\22\3\"_$P($T(@("T1"_QT)),U,2)_"\7\\K?4N1"".""2N&($P(K,""."",2)<13&$P(K,""."",2))!(K=""-"")\\\\\1" D R0 G YZ:K="-" 31 S PP(1)=BP,PP(2)=SRT,FP=450 W @F,$P($T(@("T2"_QT)),U,2),BP 33 S K=$T(@("T3"_QT)),R="K\22\3\"_$P(K,U,2)_"\""[] = "_$P(K,U,3)_" .[] = "_$P(K,U,4)_"""\1\\""-.,""[K" D R0 G 3:K="-",2:K="," 35 S OVZ=$L(K),PP(3)=OVZ,FP=603 W @F,@F1,$P($T(@("T3"_QT)),U,3+OVZ) 37 S R=1 D ^cA345 G 2:K=",",33:K="-" I K="." D S9 G YZ ; ; start 4 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),MNM=$P($T(@("T0"_QT)),U,2)_": "_^cBA(2,$E(QT_"N"),BP#1*100)_" "_(BP\1) 40 S BJ=$$BJ^cAFE1(Q,BP),MUNT=$$MNTC^cAFE1(Q,BJ),QD=$P(MUNT,D,2),MUNT=$P(MUNT,D) 41 S TIT="",K="A"_$E(SRT+1000,2,4) S:$D(@("^"_Q_"BA(""%T"",K)"))&(SRT'="A") TIT=$P(^(K),D) 43 S Q6="^"_Q_"AA(BP,I1)",BLZ=0,I1=0,X=$O(@Q6) G Y:'X 45 F X=1:1:11 S FT(X)="",CT(X)="" ; 5 G ^cT300:BP<1993 D ^cT320 F I=0:1:4 K ^HULP(boot,I/100+$J) ; Y I 'OVZ,BP'