cT50 ;BTW-overeenstemming ;%T50 ;go naar %T500 ; [ 01/03/01 10:28 AM ] G 1 ; T0 ;BTW-overeenstemming ; T1 ;Het verkoopdagboek ;bevat :;is leeg ; T2 ;Listing\"[] = op jaarbasis .[] = op maandbasis";op jaarbasis;op maandbasis; T3 ;Jaartal\"jjjj[] = bepaald jaartal [] = "_A; T4 ;Beginmaand\"jjjj.mm[] = bepaalde maand [] = "_A; T5 ;Eindmaand\"jjjj.mm[] = bepaalde maand [] = "_A; ; T0F ;Concordance de TVA ; T1F ;Le journal de vente ;contient :;est vide ; T2F ;Liste\"[] = annuelle .[] = mensuelle";annuelle;mensuelle; T3F ;Année\"aaaa[] = année spécifique [] = "_A; T4F ;Mois initial\"aaaa.mm[] = mois spécifique [] = "_A; T5F ;Mois final\"aaaa.mm[] = mois spécifique [] = "_A; ; T0E ;VAT-correspondence ; T1E ;The sales journal ;contains :;is empty ; T2E ;Report\"[] = by year .[] = by month";by year;by month; T3E ;Year\"yyyy[] = particular year [] = "_A; T4E ;Initial month\"yyyy.mm[] = particular month [] = "_A; T5E ;Final month\"yyyy.mm[] = particular month [] = "_A; ; ; schermopbouw 1 I 'QP S MUNT=PP(5)_D_PP(6) G 45 11 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 13 S BP="",K=$T(@("T1"_QT)) I $O(@("^"_Q_"VE(BP)"))="" S K=$P(K,U,2)_$P(K,U,4) D F1 G YZ 15 K A S FP=403 W @F,$P(K,U,2),$P(K,U,3),! F K=1:1 S BP=$O(^(BP)) Q:BP="" S A(BP\1)="" 17 S A="" F K=1:1 S A=$O(A(A)) Q:A="" W !?2,A," = " F B=1:1:12 S BP=$E(B/100+A_0,1,7) W $J($S($D(^(BP)):B,1:""),3) ; ; jaarbasis 2 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,.""[K" D R0 G YZ:K="-"!(K=",") 21 S PP(1)=$L(K),FP=1602 W @F,@F1,@F6,$P($P($T(@("T2"_QT)),U,2),D),@F9 S FP=FP+15 W @F,": ",$P($T(@("T2"_QT)),U,3+PP(1)) 23 S (PP(2),PP(3),PP(4))=0 G 3:PP(1) F A=DJ:-1 Q:$D(A(A)) 25 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\4\\""-,""[K!(K?4N&K&(K'>DJ))" D R0 G 2:K="-",1:K="," 27 S PP(2)=$S(K:K,1:A),FP=1802 W @F,@F6,$P($P($T(@("T3"_QT)),U,2),D),@F9 S FP=FP+15 W @F,": ",PP(2) G 4 ; ; van maand / tot maand 3 S A=PP(3) I 'A F R=DJ:-1 Q:$D(^(A)) F K=12:-1:1 S A=$E(K/100+R_0,1,7) Q:$D(^(A)) 31 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\7\C1" D R0 G 2:K="-",1:K="," 33 S PP(3)=$S(K:K,1:A),FP=1802 W @F,@F6,$P($P($T(@("T4"_QT)),U,2),D),@F9 S FP=FP+15 W @F,": ",PP(3) 35 S A=$S(PP(4)>PP(3):PP(4),1:PP(3)) 37 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\7\C2" D R0 G 3:K="-",1:K="," 39 S PP(4)=$S(K:K,1:A),FP=1902 W @F,@F6,$P($P($T(@("T5"_QT)),U,2),D),@F9 S FP=FP+15 W @F,": ",PP(4) ; ; muntcode / breed papier 4 S BJ=$$BJ^cAFE1(Q,DJ_"."_DM),MUNT=$$MNT^cAFE1(Q,BJ,1) I K="-" G 35:PP(1),23 41 D ^cAN3223("","1#4#5#9",">80","") G 4:K="-" 43 I K="." S QPT=$T(+0),PP(5)=MUNT D ^cA109 G YZ 45 G ^cT500 ; YZ Q ; R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; C1 ;K?4N1"."2N&(K#1)&(K#1<.13)!("-,"[K) C2 ;K?4N1"."2N&(K#1)&(K#1<.13)&(K'