cT296 ;KONTROLE AANKOOPFAKTUREN ;%T291;Do uit %T291, Do naar %A218 [ 04/12/00 9:06 AM ] G 1 ; T0 ;Controle aankoopfacturen ; T1 ;blz :; ipv ; --> inboeken is niet toegelaten; T2 ;Recordtype niet in volgorde : ; T3 ;Boekjaar is reeds afgesloten : ; T4 ;Factuur is reeds ingeboekt; T5 ;Factuurcode foutief : ; T6 ;Boekingsmaand is reeds afgesloten : ;boekingsmaand niet in boekjaar : ; T7 ;Leveranciersnummer onbekend : ; T8 ;Leveranciersnaam foutief : ; T9 ;Totaal netto + BTW is niet gelijk aan totaal factuur : ; T10 ;Grootboekrekening is niet ingevuld : ; T11 ;Grootboekrekening onbekend : ; T12 ;Totaal netto is verschillend van totaal ventilatie rekeningen : ; T13 ;Eindrecord niet gevonden; T14 ;Totaal aantal facturen foutief : ; T15 ;Boekingsmaand verschilt van boekingsdatum : ; ; T0F ;Contrôle factures d'achat ; T1F ;page:; ipv ; --> Inscription n'est pas autorisée; T2F ;Type de record pas dans l'ordre : ; T3F ;Année comptable déjà clôturée : ; T4F ;Facture est déjà inscrite; T5F ;Code facture fautif : ; T6F ;Mois comptable est déjà clôturé : ;Mois comptable pas dans l'année comptable : ; T7F ;N° de fournisseur inconnu : ; T8F ;Nom de fournisseur fautif : ; T9F ;Total net + TVA n'est pas égal au total de la facture : ; T10F ;Compte de grand-livre n'est pas rempli : ; T11F ;Compte du grand-livre inconnu : ; T12F ;Total net est différent du total des comptes de ventilation : ; T13F ;Record final introuvable; T14F ;Nombre total de factures est fautif : ; T15F ;Mois comptable différent de la date d'imputation : ; ; T0E ;Controle aankoopfacturen ; T1E ;blz :; ipv ; --> inboeken is niet toegelaten; T2E ;Recordtype niet in volgorde : ; T3E ;Boekjaar is reeds afgesloten : ; T4E ;Factuur is reeds ingeboekt; T5E ;Factuurcode foutief : ; T6E ;Boekingsmaand is reeds afgesloten : ;boekingsmaand niet in boekjaar : ; T7E ;Leveranciersnummer onbekend : ; T8E ;Leveranciersnaam foutief : ; T9E ;Totaal netto + BTW is niet gelijk aan totaal factuur : ; T10E ;Grootboekrekening is niet ingevuld : ; T11E ;Grootboekrekening onbekend : ; T12E ;Totaal netto is verschillend van totaal ventilatie rekeningen : ; T13E ;Eindrecord niet gevonden; T14E ;Totaal aantal facturen foutief : ; T15E ;Boekingsmaand verschilt van boekingsdatum : ; ; S1 S:$E(S1,$L(S1))="-" S1=-S1 S S1=S1/DEC Q ; S2 I 'BLZ D 8 W !,?30,OM,! S2A S LN=LN+1 I LN>LNMAX W $$FF^cA334 D 8 S2B W !,FNR," - ",S9 I ER=1 W $P($T(@("T1"_QT)),U,4) S ER=3 S2Z Q ; S3 I S1'=S2 S S9=$P($T(@("T2"_QT)),U,2)_S1_$P($T(@("T1"_QT)),U,3)_S2,ER=1 D S2 S3Z Q ; 1 S K=^HULP("RC",Q,TNR,10),FNR="",AF=-1,(ER,BLZ)=0 S OM=$E(K,51,70),JR=$E(K,44,47),K=@("^"_Q_"BA(2)"),I1=10,BP=^(7) K PBT 11 I $P(K,D,2)\1>JR S S9=$P($T(@("T3"_QT)),U,2)_JR,ER=1 D S2 G YZ 13 S BP1=$P(K,D,3),BP2=$P(K,D,2) I BP2989999) 21 S S1=$O(@("^"_Q_"AA(S1)")) I S1 G 21:'$D(^(S1,FNR)),25 23 I '$D(@("^"_Q_"AF(FNR)")) S S1=+$E(K,3,8) G 3:'$D(@("^"_Q_"L1(S1)")),3:'$D(@("^"_Q_"LE(^(S1),FNR)")) 25 S I1=I1+3,S9=$P($T(@("T4"_QT)),U,2) S:'ER ER=2 D S2 27 S I1=$O(^HULP("RC",Q,TNR,I1)) G 9:I1="" S K=$E(^(I1),1,2) G 27:K=20 S I1=I1-1 G 2 ; 3 S S1=$E(K,1,2),S2=10 D S3 G 2:S1'=S2 S S1=$E(K1,1,2),S2=11 D S3 S S1=$E(K2,1,2),S2=13 D S3 31 S S1=$E(K,12),I1=I1+2 I S1'="F"&(S1'="C") S S9=$P($T(@("T5"_QT)),U,2)_S1,ER=1 D S2 32 S S1=$E(K,119,122)_"."_$E(K,123,124),J=19_$E(K,23,24)_"."_$E(K,21,22) S:J<1950 J=J+100 S:'(J#1) J=DJ_"."_DM S:'S1 S1=J 33 I J'=S1 S S9=$P($T(@("T15"_QT)),U,2)_S1_$P($T(@("T1"_QT)),U,3)_J S:'ER ER=2 D S2 34 I S1'>BP S S9=$P($T(@("T6"_QT)),U,2)_S1,ER=1 D S2 35 I S1'>BP1!(S1>BP2) S S9=$P($T(@("T6"_QT)),U,3)_S1_" <> "_JR,ER=1 D S2 37 S B(1)=+$E(K,3,8)_D_$E(K1,3,30) I '$D(@("^"_Q_"L1(+B(1))")) S S9=$P($T(@("T7"_QT)),U,2)_B(1),ER=1 D S2 G 4 39 S S1=^(+B(1)),S1=@("^"_Q_"LE(S1,0)") I $P(B(1),D,2)'?." " D ^cA218 S J=I,S9=B(1),B(1)=S1 D ^cA218 I I'=J S S9=$P($T(@("T8"_QT)),U,2)_S9_$P($T(@("T1"_QT)),U,3)_$P(S1,D,2),ER=1 D S2 ; 4 S S1=$E(K,31,42) D S1 S B1=S1,S1=$E(K,67,78) D S1 S B2=S1,S1=$E(K,91,102) D S1 S B3=0,S1=$E(K2,3,14) D S1 S B4=S1,S1=$E(K2,39,50) 41 D S1 S B5=S1,S1=$E(K2,15,26) D S1 S B6=S1,S1=$E(K2,27,38) D S1 S B7=S1,S1=$E(K,43,54) D S1 43 S B2=B2+B3+B4+B5+S1-B6-B7 I B2'=B1 S S9=$P($T(@("T9"_QT)),U,2)_B2_$P($T(@("T1"_QT)),U,3)_B1,ER=1 D S2 45 S B4=B4+B5+S1,B3=0 ; 5 S I1=$O(^HULP("RC",Q,TNR,I1)) G 9:I1="" S K=^(I1) 51 S S1=$E(K,1,2) G 6:S1'=20 S S1=$E(K,3,9),S2="" F I=1:1:7 S:$E(S1,I)?1N S2=S2_$E(S1,I) 53 S S2=S2_" " I 'S2 S S9=$P($T(@("T10"_QT)),U,2)_S1,ER=1 D S2 G 59 55 I '$D(@("^"_Q_"AR(S2,0)")) S S9=$P($T(@("T11"_QT)),U,2)_S2 S:'ER ER=2 D S2 57 S S1=$E(K,10,21) D S1 S B3=B3+S1 59 S K=$E(K,65,128) G 51:$L(K),5 ; 6 I B4'=B3 S S9=$P($T(@("T12"_QT)),U,2)_B3_$P($T(@("T1"_QT)),U,3)_B2,ER=1 D S2 61 S:$L(K)>99 I1=I1-1 G 2 ; 8 S BLZ=BLZ+1,LN=0 W !,NM1,?122,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334 W ?122,DT,!,NM3,?123,TD,! 81 Q ; 9 S FNR="" I I1="" S S9=$P($T(@("T13"_QT)),U,2),ER=1 D S2 G YZ 91 S S1=+$E(^(I1),3,8) I S1'=AF S S9=$P($T(@("T14"_QT)),U,2)_AF_$P($T(@("T1"_QT)),U,3)_S1,ER=1 D S2 ; YZ K B1,B2,B3,B4,B5,B6,B7,B,AF,S9,BP1,BP2 W:BLZ $$FF^cA334 Q ; Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84