cT33 ;Aankoopventilaties ;%T33 ;%T33* ; [ 07/11/01 12:18 PM ] G 1 ; T0 ;Aankoopventilaties ; T1 ;Analytische ventilaties\"[] = ja .[] = neen";analytisch; T2 ;Boekingsmaand\"-[] = einde jjjj.mm[] = bepaalde maand xxxxxx[] = document op scherm"; T3 ;Selectie datum\"[] = volledige maand dd.mm.jj[] = bepaalde datum"; T4 ;Selectie document\"[] = allemaal xxxxxx[] = document xxxxxx"; T5 ;Informatie\"[] = op het scherm .[] = op de printer"; T6 ;Boekingsmaand : ; T7 ;Factuur ; ; T0F ;Ventilations des achats ; T1F ;Ventilations analytiques\"[] = oui .[] = non";analytique; T2F ;Mois comptable\"-[] = fin aaaa.mm[] = mois spécifique xxxxxx[] = document à l'écran"; T3F ;Sélection date\"[] = mois entier jj.mm.aa[] = date spécifique"; T4F ;Sélection document\"[] = tous xxxxxx[] = document xxxxxx"; T5F ;Info\"[] = à l'écran .[] = sur l'imprimante"; T6F ;Mois comptable: ; T7F ;Facture; ; T0E ;Purchase ventilations ; T1E ;Analytical ventilations\"[] = yes .[] = no";analytical; T2E ;Fiscal month\"-[] = end yyyy.mm[] = particular month xxxxxx[] = document on screen"; T3E ;Date selection\"[] = full month dd.mm.yy[] = particular date"; T4E ;Document selection\"[] = all xxxxxx[] = document xxxxxx"; T5E ;Information\"[] = on screen .[] = on printer"; T6E ;Fiscal month : ; T7E ;Invoice ; ; T0D ;Aufteilung Einkäufe ; T1D ;Analytische Aufteilung\"[] = ja .[] = nein";analytisch; T2D ;Rechnungsmonat\"-[] = Ende aaaa.mm[] = spez. Monat xxxxxx[] = Dokument am Bildschirm"; T3D ;Datum auswählen\"[] = volständige Monat dd.mm.jj[] = bestimmte Datum";; T4D ;Dokument auswählen\"[] = alle xxxxxx[] = Dokument xxxxxx"; T5D ;Information\"[] = auf Schirm .[] = auf den Drucker"; T6D ;Rechnungsmonat : ; T7D ;Rechnung ; ; 1 S BPX=$E(@("^"_Q_"BA(7)")+.01_0,1,7) S:BPX#1>.12 BPX=BPX+.88 11 S SWAN=$P($G(@("^"_Q_"BA(300)"),0),D),SWAV=0 13 I 'QP S BP=PP(1),SRT=PP(2),SWD=$G(PP(3)),SWU=$G(PP(4)),SWAV=$G(PP(5)),PTS=0 G 5 15 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 ; ; 7e veld R - string = 19e veld BA39 : journalen BG ook selecteerbaar - FB - 09.02.07 2 S R="SRT\A\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="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 ; 3 S BP=BPX,R="BP\22\3\"_$P($T(@("T2"_QT)),U,2)_"\7\\K?4N1"".""2N&(K#1)&(K#1<.13)!(K?6N&$E(K))!(K=""-"")\\\\\1" D R0 G YZ:K="-",6:K?6N 31 S PP(1)=BP,PP(2)=SRT,FP=450 W @F,$P($T(@("T6"_QT)),U,2),BP 33 S R="SWD\22\3\"_$P($T(@("T3"_QT)),U,2)_"\8\DCTR" D R0 G 2:K=",",3:K="-" S FP=568,PP(3)=SWD W @F,SWD 35 S R="SWU\22\3\"_$P($T(@("T4"_QT)),U,2)_"\6\\K?6N!(""-,""[K)" D R0 G 2:K=",",33:K="-" S FP=668,PP(4)=SWU W @F,SWU,@F2 37 I SWAN S R="SWAV\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 2:K=",",35:K="-" S SWAV='$L(K) 39 S PP(5)=SWAV,FP=768 W @F,$P($T(@("T1"_QT)),U,4-SWAV),@F2 ; 4 ; S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 2:K=",",37:K="-"&SWAN,35:K="-" S PTS='$L(K) ; I 'PTS S R=1 D ^cA345 G 2:K=",",4:K="-" I K="." S QPT=$T(+0) D ^cA109 G YZ 41 S R=1 D ^cAN3223("","1#2#4#5",">80","") G 37:K="-"&SWAN,35:K="-",2:K="," I K="." S QPT=$T(+0) D ^cA109 G YZ ; 5 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) 50 S BJ=$$BJ^cAFE1(Q,BP),MUNT=$$MNTC^cAFE1(Q,BJ),QD=$P(MUNT,D,2),MUNT=$P(MUNT,D) 51 S TIT="",K="A"_$E(SRT+1000,2,4) S:$D(@("^"_Q_"BA(""%T"",K)"))&(SRT'="A") TIT=$P(^(K),D) 53 S Q41="^"_Q_"AR(BR,0)",Q42="^"_Q_"ARA(BRA,0)",Q6="^"_Q_"AA(BP,I1)",I1=0,X=$O(@Q6) G YZ:'X 55 S (BLZ,T1,T2,LF,LC,ABF,ABC,ICF,ICC,OBF,OBC,VLF,VLC,MCF,MCC)=0 K ^HULP(boot,$J),^($J+.01),PP 57 G ^cT333:(PTS&(PTS'=4)&(PTS'=3)),^cT330 ; 6 S SWD="",SWU=K,BP="",SWAV=SWAN,PTS=1 61 F S BP=$O(@("^"_Q_"AA(BP)")) Q:BP="" Q:$D(^(BP,SWU)) 63 G 5:BP S RA=$P($T(@("T7"_QT)),U,2)_SWU,R=8 D F2 K RA G 3 ; Y X F71 I $G(PTS)'=4,BP'