cT434 ;KONTROLE VERKOOPFAKTUREN ;%T43 ;overlay %T43* ; [ 01/03/01 7:25 PM ] G 1 ; T0 ;Controle verkoopfacturen ; 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 ;Klantnummer onbekend : ; T8 ;Klantnaam foutief : ; T9 ;Totaal BTW is niet gelijk aan BTW + netto : ; T10 ;Uitsplitsing BTW verschillend : ; T11 ;BTW-bedrag is verschillend tov berekening via basis : ; T12 ;Grootboekrekening is niet ingevuld : ; T13 ;Grootboekrekening onbekend : ; T14 ;Totaal netto is verschillend van totaal ventilatie rekeningen : ; T15 ;Eindrecord niet gevonden; T16 ;Totaal aantal facturen foutief : ; T17 ;Percentage BTW onbekend : ; T18 ;Boeking op onbekende BTW-code : ; T19 ;Boekingsmaand verschilt van boekingsdatum : ; ; T0F ;Contrôle des factures de ventes ; T1F ;page:; ipv ; --> inscription non autorisée; T2F ;Type d'enregistrement ne suit pas : ; T3F ;Année comptable est déjà clôturée : ; T4F ;Facture est déjà inscrite; T5F ;Code facture fautif : ; T6F ;Mois comptable déjà clôturé : ;mois comptable n'est pas dans l'année comptable : ; T7F ;Numéro de client inconnu : ; T8F ;Nom de client fautif : ; T9F ;Total facture n'est pas égale au total TVA + net : ; T10F ;Repartion TVA différente : ; T11F ;Montant de TVA diffère par rapport au calcul via la base : ; T12F ;Compte du grand-livre n'est pas rempli : ; T13F ;Compte du grand-livre inconnu : ; T14F ;Total net diffère du total des comptes de ventilation : ; T15F ;Enregistrement final introuvable; T16F ;Nombre total de factures fautif : ; T17F ;Pourcentage de TVA inconnu : ; T18F ;Imputation avec code de TVA inconnu : ; T19F ;Mois comptable diffère de la date d'imputation : ; ; T0E ;Check sales invoices ; T1E ;pge :; ipv ; --> accounting is not allowed; T2E ;Record type not in sequence : ; T3E ;Fiscal year has already been closed : ; T4E ;Invoice has already been registered; T5E ;Wrong invoice code : ; T6E ;Fiscal month has already been closed : ;Fiscal month not in fiscal year : ; T7E ;Customer number unknown : ; T8E ;Wrong customer name : ; T9E ;VAT total differs from VAT + net : ; T10E ;Categorization VAT differs : ; T11E ;VAT amount differs from calculation via basis : ; T12E ;General account not entered : ; T13E ;General account unknown : ; T14E ;Net total differs from total ventilation accounts : ; T15E ;End record not found; T16E ;Wrong total number of invoices : ; T17E ;VAT Percentage unknown : ; T18E ;Accounting on unknown VAT code : ; T19E ;Fiscal month differs from fiscal date : ; ; 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_"VE(S1)")) I S1 G 21:'$D(^(S1,FNR)),25 23 I '$D(@("^"_Q_"VF(FNR)")) S S1=+$E(K,3,8) G 3:'$D(@("^"_Q_"K1(S1)")),3:'$D(@("^"_Q_"KL(^(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=15 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(@("T19"_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_"K1(+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_"KL(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,79,90) D S1 S B3=S1,S1=$E(K,55,66) D S1 S B4=S1,S1=$E(K,91,102) 41 D S1 S B5=S1,S1=$E(K,43,54) D S1 S B6=S1,I=B1-S1-B2-B3-B5 S:'SWF B6=B6-B4 I I S S9=$P($T(@("T9"_QT)),U,2)_I,ER=1 D S2 43 S B4=S1,(B3,B7,S2)=0,K2=$E(K2,3,102) F I=0:1:9 S S1=$E(K2,1,10),K2=$E(K2,11,999) I S1 D S1,F2:'$D(PBTW(I)) S:$D(PBTW(I)) S2=S2+S1,B7=$J(PBTW(I)*S1/100,0,QD)+B7 45 I B6'=S2 S S9=$P($T(@("T10"_QT)),U,2)_S2_$P($T(@("T1"_QT)),U,3)_B6 S:'ER ER=2 D S2 46 I B7'=B2 S S9=$P($T(@("T11"_QT)),U,2)_B7_$P($T(@("T1"_QT)),U,3)_B2 S:'ER ER=2 D S2 ; 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(@("T12"_QT)),U,2)_S1,ER=1 D S2 G 59 55 I '$D(@("^"_Q_"AR(S2,0)")) S S9=$P($T(@("T13"_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(@("T14"_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(@("T15"_QT)),U,2),ER=1 D S2 G YZ 91 S S1=+$E(^(I1),3,8) I S1'=AF S S9=$P($T(@("T16"_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 F1 S S9=$P($T(@("T17"_QT)),U,2)_PBTW(I),ER=1 D S2 G YZ F2 S S9=$P($T(@("T18"_QT)),U,2)_I_" "_S1,ER=1 D S2 Q ; Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84