cT138 ;DOORBOEKING AANKOOPFAKTUREN ;%T138 ;Do naar %A104,%T120,%A336,%T163,%T164 ; [ 01/03/01  4:40 PM ]
 ;
T0 ;Doorboeking aankoopfacturen ;
T1 ;Journaal\"-[] = einde programma   xxx[] = bepaald journaal   .[] = vervolg overzicht";
T2 ;Starten doorboeking\"[] = starten doorboeking aankoopfacturen";
 ;
T0F ;Imputation factures d'achat ;
T1F ;Journal\"-[] = fin du programme   xxx[] = journal   .[] = suite";
T2F ;Imputation factures d'achat\"[] = ok";
 ;
T0E ; registration purchase vouchers ;
T1E ;Journal\"-[] = end program   xxx[] = particular joural   .[] = next";
T2E ;Start registration\"[] = start registration purchase vouchers";
 ;
1 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
 ;
2 S R="SRT\A\800" D ^cA336 G YZ:K="-",3: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 R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-""[K" D R0 G YZ:K="-"
31 L @("^"_Q_"AAD"):2 E  D TXT^cAFA1(14) G 3
33 D ^cT164 G YZ:'OK S BP=@("^"_Q_"BA(7)"),BF="BF",EXBA="",BPEC="",Q91="^"_Q_"BA(BJ,""AFNR"_SRT_""")"
35 S:$D(^("SWBP")) BPEC=^("SWBP") S:$D(^(39)) BF=$P(^(39),D) S:$D(^(79)) EXBA=^(79)
 ;
4 S BP=$E(BP+.01_0,1,7) S:BP#1>.12 BP=BP+.88 G YZ:BP-2>DJ,4:'$D(@("^"_Q_"AAD(BP)")) S I2=0,R=BP#1*100,FP=603 W @F,BP,@F1 D ^cT163 S BH=1_BP*100
41 S BPE="",K=$D(@("^"_Q_"BA(""SWBP"")")) D:K @^("SWBP")
 ;
5 S I2=$O(@("^"_Q_"AAD(BP,I2)")) G 4:'I2 W "." S K=^(I2,0),I3=0 K ^HULP(boot,$J)
51 F I=1:1:15 S R="S "_$P("KC\FC\FDT\VVD\NET\AFBTW\NABTW\ONBTW\NLBTW\INV\VGBTW\COM\KKB\VM\MPAR",D,I)_"="""_$P(K,D,I)_"""" X R
53 S I1=@("^"_Q_"L1(KC)"),KN=$P(@("^"_Q_"LE(I1,0)"),D,2),TTB=NET+AFBTW+NABTW-ONBTW-NLBTW+INV S:'MPAR MPAR=1
55 I VVD="" S R=FDT_D_$P(^(0),D,18) D ^cA104 S VVD=R
57 S I3=$O(@("^"_Q_"AAD(BP,I2,I3)")) I I3 S ^HULP(boot,$J,0,I3)=^(I3) G 57
 ;
6 I $L(EXBA) S K="S1"_EXBA D @K
63 L (@Q91,@("^"_Q_"AAD")) S:'$D(@Q91) @Q91=$E(BJ,3,4)_"0001" S FP=460,@%Q1=0,FNR=@Q91-1
65 S FNR=FNR+1,K=0 S:FNR>989999 FNR=100000 G 65:$D(@("^"_Q_"AF(FNR)")),65:$D(@("^"_Q_"LE(I1,FNR)"))
67 S K=$O(@("^"_Q_"AA(K)")) I $L(K) G 65:$D(^(K,FNR)),67
69 S @Q91=FNR+1 W @F,FNR L @("^"_Q_"AAD")
 ;
7 D ^cT120 K @("^"_Q_"AAD(BP,I2)") S @%Q1=1 G 5
 ;
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84