cT72 ;Verkoopdagboek ;%T72 ;%T72* ; [ 07/11/01 11:56 AM ] ; T0 ;Verkoopdagboek ; T1 ;Boekingsmaand\"-[] = einde programma jjjj.mm[] = bepaalde maand"; T2 ;Boekingsmaand : ; T3 ;Keuze;volledige print-out;enkel eindoverzicht; ; T0F ;Journal des ventes ; T1F ;Mois comptable\"-[] = fin du programme aaaa.mm[] = mois spécifique"; T2F ;Mois comptable: ; T3F ;Choix;liste complète;uniquement aperçu final; ; T0E ;Sales journal ; T1E ;Fiscal month\"-[] = end program yyyy.mm[] = particular month"; T2E ;Fiscal month : ; T3E ;Choice;full print out;only final summary; ; T0D ;Verkaufsjournal ; T1D ;Rechnungsmonat\"-[] = Programmende jjjj.mm[] = spezieller Monat"; T2D ;Rechnungsmonat : ; T3D ;Auswahl;vollständige Liste;nur Schlusszusammenfassung; ; ; Initialisatie 1 S ALT=$P(R,U,2),BPX=$E(@("^"_Q_"BA(7)")+.01_0,1,7) S:BPX#1=.13 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 ; ; Journalen ; 7e veld R - string op 19e veld BA39 : journalen BG ook selecteerbaar - FB - 09.02.07 2 S R="SRT\V\800\1\\\\1" S $P(R,D,7)=$P(@("^"_Q_"BA(39)"),D,19) D ^cA336 S:"."[SRT SRT="A" G YZ:K="-",3:"A"[SRT S K="V"_$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:SRT="" SRT=0 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) ; S R=1 D ^cA345 G 2:K=",",33:K="-" I K="." D S9 G YZ 37 S R=1 D ^cAN3223("","1#4#5",">80","") 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="V"_$E(SRT+1000,2,4) S:$D(@("^"_Q_"BA(""%T"",K)"))&(SRT'="V") TIT=$P(^(K),D) 42 I ALT,$D(@("^"_Q_"BA(18,""ALT"",ALT)")) D S1 G 45 43 D S1^cA305 45 S Q6="^"_Q_"VE(BP,I1)",BAIT=$D(@("^"_Q_"BA(""IT"")"))&1,(I1,SWF,BLZ)=0 I $D(^(39)),$P(^(39),D,3)="F" S SWF=1 47 S X=$O(@Q6) G Y:'X F X=0:1:3,10:1:13 S (FIT(X),CIT(X))="" 49 F X=6:1:10,12,13,15,20:1:39 S FT(X)="",CT(X)="" ; 5 G ^cT304:BP<1993 D:($G(PTS)'=4&($G(PTS)'=3)) ^cT720 D:($G(PTS)=4!($G(PTS)=3)) ^cT721 K ^HULP(boot,$J),^HULP(boot,$J+.01) ; Y I $G(PTS)'=4,'OVZ,BP'