cT168 ;Basisrekeningen ;%T168 ; [ 07/12/09 13:58:32 ] G 1 ; ; T0 ;Basisrekeningen ; T1 ;Klanten uitgaande facturen;Leveranciers ink. facturen; T2 ;Klanten uitgaande creditn.;Leveranciers ink. creditn.; T3 ;Versch. BTW uitg. facturen;Aftr. BTW ink. facturen; T4 ;Aftrekb. BTW uitg. creditn.;Versch. BTW ink. creditn.; T5 ;Versch. egalis. uitg. fact.;Versch. BTW IC ink. fact.; T6 ;Aftr. egalis. uitg. creditn.;Aftr. BTW IC ink. creditn.; T7 ;Versch. luxetaks uitg. fact.;Versch. BTW MC ink. fact.; T8 ;Aftr. luxetaks uitg. creditn.;Aftr. BTW MC ink. creditn.; T9 ;Versch. ins.taks uitg. fact.;Versch. BTW verl. ink. fact.; T10 ;Aftr. ins.taks uitg. creditn.;Aftr. BTW verl. ink. creditn.; T11 ;Korting contant klanten;Korting contant leveranciers; T12 ;Analytische rekening;Analytische rekening; T13 ;Er zijn reeds cumuls aanwezig, rekening wijzigen via 3.11 ; T14 ;;Dit is een financiële rekening ;Dit is een wisselrekening ;Dit is een BTW-rekening ; T15 ;Keuze basisrekeningen\"[] = klanten (verkoop) .[] = leveranciers (aankoop) -[] = einde programma"; T16 ;Nummer element\"xx[] = bepaald element .[] = alle elementen"; ; T0F ;Comptes de base ; T1F ;Centralisation fact. de sortie;Centralisation fact. d'entrée; T2F ;Centralisation N.C. de sortie;Centralisation N.C. d'entrée; T3F ;TVA à payer factures de sortie;TVA déduct. fact. d'entrée; T4F ;TVA déduct. N.C. de sortie;TVA à payer N.C. d'entrée; T5F ;Egalisation fact. de sortie;TVA IC factures d'entrée; T6F ;Egalis. déduct. N.C. de sortie;TVA IC déduct. N.C. d'entrée; T7F ;Taxe de luxe à payer fact. sortie;TVA Immob. à payer fact.entrée; T8F ;Taxe de luxe déduct. N.C. sortie;TVA Immob. déduct. N.C. entrée; T9F ;Taxe d'inscr. fact. sortie;TVA report à payer fact. entrée; T10F ;Taxe d'inscr. déductible;TVA déduct. rep. N.C. d'entrée; T11F ;Esc. accordés au clients;Esc. obtenus des fournisseurs; T12F ;Compte analytique;Compte analytique; T13F ;Il y a déjà des cumuls, il faut modifier le compte via le 3.11 ; T14F ;;Le compte choisi est un compte financier ;Le compte choisi est un compte de traite ;Le compte choisi est un compte de TVA ; T15F ;Choix des comptes de base\"[] = Vente .[] = Achat -[] = fin du programme"; T16F ;Numéro d'élément\"xx[] = élément spécifique .[] = tous les éléments"; ; T0E ;Basis accounts sales and purchasing ; T1E ;Customers outgoing invoices;Suppliers incoming vouchers; T2E ;Customers outgoing creditn.;Suppliers incoming creditn.; T3E ;Due VAT invoices;Deductible VAT vouchers; T4E ;Deduct. VAT outg. creditn.;Due VAT inc. creditn.; T5E ;Due egal. invoices;Due VAT InCo vouchers; T6E ;Deduct. egal. outg. creditn.;Deduct. VAT InCo inc. creditn.; T7E ;Due luxury tax invoices;Due VAT ImCh inc. inv.; T8E ;Deduct. luxury tax outg. creditn.;Deduct. VAT ImCh inc. creditn.; T9E ;Due ins.tax outg. invoices;Due VAT TrCh vouchers; T10E ;Deduct. ins.tax outg.creditn.;Deduct. VAT TrCh inc. creditn.; T11E ;In cash discount customers;In cash discount suppliers; T12E ;Analytical account;Analytical account; T13E ;There already are global amounts at present, change account via 3.11; T14E ;;This is a financial account ;This is a bill of exchange account ;This is a VAT-account ; T15E ;Choice basis accounts\"[] = customers (sales) .[] = suppliers (purchase) -[] = end program"; T16E ;Number element\"xx[] = particular element .[] = all elements"; ; ; vraag element I van reeks Z S1 S FP=I>10+I+3*100+1 W @F,"->" I Z=14&(I=9!(I=10)) G S1Z S1A S I1=Z(Z,I)_" " I $D(@("^"_Q_"AR(I1,0)")) D S3 I 'OK S K="-" G S1Z S1B S I1=$$^cANSYN($S(I=12:"ARA",1:"AR"),17,Z(Z,I)) G S1Z:K="-" S S1=^(I1,0),FP=2203 W @F,$P(S1,D)," ",$P(S1,D,2),@F1 S1C I $P(S1,D,13)!$P(S1,D,30) S R=200 D F2 G S1B S1D I $L($P(S1,D,9))!$L($P(S1,D,10)) S K=$P($T(@("T14"_QT)),U,3) D F1 G S1B S1E I $P(S1,D,17) S K=$P($T(@("T14"_QT)),U,4) D F1 G S1B S1F I I<3,$P(S1,D,18) S K=$P($T(@("T14"_QT)),U,5) D F1 G S1B S1G S Z(Z,I)=$P(S1,D) D S2 S1Z S FP=I>10+I+3*100+1 W @F," " K S1 Q ; ; tonen element I van reeks Z S2 S FP=I>10+I+3*100+40,I1=Z(Z,I)_" " W @F,@F2,I1 S K=$$SIGN^cAFA1($S(I=12:"ARA",1:"AR"),I1,0) W $E($P(K,D,2),1,30) S2A I $P(K,D,30) S FP=FP+24 W @F,@F94,$$NIV^cAFO1($P(K,D,30)),@F95 S2Z Q ; ; test op cumuls S3 S OK=1 F S1=BJ-1:1:BJ+1 I OK F S2=S1,S1+.02 I OK,$D(^(S2)) F S3=1:1:24 I OK,$P(^(S2),D,S3) S OK=0 S3A I 'OK S K=$P($T(@("T13"_QT)),U,2) D F1 S3Z K S1,S2,S3 Q ; ; initialisatie 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 11 S SWAN=$G(@("^"_Q_"BA(300)")),SWAN(14)=$P(SWAN,D,5)=1,SWAN(15)=$P(SWAN,D,4)=1 13 F I=12,13 S Z=I+2,K=$G(@("^"_Q_"BA(I)")),Z(Z,11)=$P(K,D) I SWAN(Z) S Z(Z,12)=$P(K,D,2) 15 F Z=14,15 F I=0:1:9 S Z(Z,I+1)=$P($G(@("^"_Q_"BA(Z,I)")),D) 17 S BJ=DJ I $D(@("^"_Q_"BA(2)")) S BJ=$P(^(2),D,2)\1 19 L (@("^"_Q_"AR"),@("^"_Q_"BA")):5 E S R=14 D F2 G YZ ; KO - 18.09.08 - Ilocken ^DATA(,"Q" 190 ; I '$$LOCKFRM^cTN901(Q) G YZ ; ; reeks Z 2 S R="K\22\3\"_$P($T(@("T15"_QT)),U,2)_"\1\\""-.""[K" D R0 G Y:K="-" S Z=$L(K)+14 21 F I=1:1:11+SWAN(Z) S FP=I>10+I+3*100+1 W @F,@F1 I '(Z=14&(I=9!(I=10))) W $J(I,4),". ",$P($T(@("T"_I_QT)),U,Z=15+2) S FP=FP+34 W @F," : " D S2 ; ; element I 3 S R="I\22\3\"_$P($T(@("T16"_QT)),U,2)_"\2\\""-.""[K&$L(K)!(K?.N&K&(K<(12+SWAN(Z))))" D R0 G 2:K="-" 31 I I S I=+I D S1 G 3 33 F I=1:1:11+SWAN(Z) D S1 I K="-" S I=I-2 Q:I<0 35 G 3 ; ; einde Y S Z(14,9)=Z(14,7),Z(14,10)=Z(14,8) YA S OK=1 F Z=14,15 Q:'OK F I=1:1:11+SWAN(Z) Q:'OK D . S K=Z(Z,I) I K="" S OK=0 Q . S I1=K_" " I '$D(@("^"_Q_$S(I=12:"ARA",1:"AR")_"(I1,0)")) S OK=0 YB G E1:'OK F Z=14,15 Q:'OK F I=3:1:11 Q:'OK S K=Z(Z,I) I K=Z(14,1)!(K=Z(14,2))!(K=Z(15,1))!(K=Z(15,2)) S OK=0 YC G E2:'OK F I=1,2 Q:'OK S K=Z(14,I) I K=Z(15,1)!(K=Z(15,2)) S OK=0 YD G E2:'OK F Z=14,15 F I=1:1:11+SWAN(Z) D . S K=Z(Z,I) I I<11 S @("^"_Q_"BA(Z,I-1)")=K_D Q . S $P(@("^"_Q_"BA(Z-2)"),D,I-10)=K,$P(^(Z-2),D,3)="" ; KO - 18.09.08 - gegevens overzetten naar ^DATA(,"Q" YE ; S OK=$$BREK^cTN901(Q,2) YZ K Z L Q ; E1 S R=175 D F2 G 21 ; er ontbreken enkele rekeningen E2 S R=179 D F2 G 2 ; rekening KL, LE en BTW moeten verschillend zijn ; R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; F1 S R=250 F2 D TXT^cAFA1(R) FZ K R Q ; ZZ ; 05.02.01 - 16 u 23 * V7.84