cT97 ;Cumul omzet LE bij opstarten ;%T97 ; [ 01/03/01 4:12 PM ] G 1 ; T0 ;Ingave gecumuleerde omzet bij het opstarten ; T1 ;U mag dit programma niet meer gebruiken ; T2 ; [] = ingave gecumuleerde omzet; T3 ;\".[] = printen lijst -[] = einde programma ![] = aanpassen omzetcijfer,..."; T4 ;Leverancier :; T5 ;Adres :; T6 ;Omzetcijfer :; T7 ;BTW :; T8 ;Luxe taks :; T9 ;De leverancier; T10 ;Omzetcijfer\; T11 ;"-[] = andere leverancier"; T12 ;BTW\; T13 ;Luxetaks\; T14 ;Gegevens ok\"[] = ok ,[] = hernemen"; T17 ;:--------------------------------------------------------------------------------:---------------:---------------:---------------:; T18 ;Controlelijst; T19 ;Blz ; T20 ;: Leverancier : Omzetcijfer : BTW : Luxetaks :; T21 ;".[] = aanpassen omzetcijfer ,[] = hernemen"; T22 ;Opgelet ! Het omzetcijfer kan maar 1 keer aangepast worden\; T23 ;De rekening is in gebruik ! [] = ok ; T24 ;\\\\\\\\\\\\\\\\\\\\\\; ; T0F ;Introduction du C.A. cumulé au départ ; T1F ;Vous ne pouvez plus utiliser ce programme ; T2F ; [] = introduction du C.A. cumulé; T3F ;\".[] = édition de la liste -[] = fin du prog. ![] = ajuster le C.A.,..."; T4F ;Fournisseur :; T5F ;Adresse :; T6F ;Chif. d'aff.:; T7F ;TVA :; T8F ;Taxe de luxe:; T9F ;Fournisseur; T10F ;Chiffre d'affaire\; T11F ;"-[] = autre fournisseur"; T12F ;TVA\; T13F ;Taxe de luxe\; T14F ;Données ok\"[] = ok ,[] = reprendre"; T17F ;:--------------------------------------------------------------------------------:---------------:---------------:---------------:; T18F ;Liste de contrôle; T19F ;page; T20F ;: Fournisseur : Chif. d'aff. : T.V.A. : Taxe de luxe :; T21F ;".[] = ajuster le chif. d'aff. ,[] = reprendre"; T22F ;Attention ! Le chiffre d'affaire ne peut être ajusté qu'une seule fois\; T23F ;Le compte est en consultation ! [] = ok ; T24F ;\\\\\\\\\\\\\\\\\\\\\\; ; T0E ;Input global turnover at start up ; T1E ;You are not longer allowed to use this program ; T2E ; [] = input global turnover; T3E ;\".[] = to print report -[] = end program ![] = modification of turnover,..."; T4E ;Supplier :; T5E ;Address :; T6E ;Turnover :; T7E ;VAT :; T8E ;Luxury tax :; T9E ;The supplier; T10E ;Turnover\; T11E ;"-[] = other supplier"; T12E ;VAT\; T13E ;Luxury tax\; T14E ;Data ok\"[] = ok ,[] = retry"; T17E ;:--------------------------------------------------------------------------------:---------------:---------------:---------------:; T18E ;Checklist; T19E ;Pge ; T20E ;: Supplier : Turnover : VAT : Luxury tax :; T21E ;".[] = modification of turnover ,[] = retry"; T22E ;Caution ! The turnover can only be modified once\; T23E ;The account is in use ! [] = ok ; T24E ;\\\\\\\\\\\\\\\\\\\\\\; ; R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0 R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) Q:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6) R3B W ?$P(R,D,3),$J(R0,R1),R4,R3 R3Z K R0,R1,R2,R3,R4,R5,R6 Q ;V2 20.11.86 ; ; alg.init. 1 S Q2="^"_Q_"L9(LC)",Q1="^"_Q_"LE(I1,0)" 10 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 12 S Z="^"_Q_"L9(0)" I $D(@Z) D E1 G YZ ; VJ-15.09.00 D ^cT489 I BPA>$P(BPB,D,$L(BPB,D)) D E1 G YZ 13 B 1 S R="K\22\03\"_$P($T(@("T2"_QT)),U,2)_$P($T(@("T3"_QT)),U,2)_"\1\\"".-!""[K\\\" D R0 G YZ:K="-",5:K=".",8:K="!" 15 S FP=603 W @F,$P($T(@("T4"_QT)),U,2),!?2,$P($T(@("T5"_QT)),U,2) S FP=1203 W @F,$P($T(@("T6"_QT)),U,2),!?2,$P($T(@("T7"_QT)),U,2),!?2,$P($T(@("T8"_QT)),U,2) ; ; leverancier 2 S I1=$$^cANSYN("LE") G 13:K="-" 20 S Z=@Q1,FP=617,LC=$P(Z,D) W @F,@F2,$P(Z,D,2)_" ("_LC_")" 21 S FP=717 W @F,@F2,$P(Z,D,5) S FP=817 W @F,@F2,$P(Z,D,6)_" "_$P(Z,D,7) S K="N" I $D(@("^"_Q_"BA(39)")),$L($P(^(39),D,2)) S K=$P(^(39),D,2) 22 S FP=917 W @F,@F2 I $P(Z,D,6)'?4N&$L($P(Z,D,8)) W $$LAND^cAFO1($P(Z,D,8)) 23 I '$D(@Q2) S @Q2="0\0\0" 25 S FP=1217,Z=@Q2 W @F,@F2,$P(Z,D) S FP=1317 W @F,@F2,$P(Z,D,2) S FP=1417 W @F,@F2,$P(Z,D,3) ; ; bedragen 3 S R="Z1\22\03\"_$P($T(@("T10"_QT)),U,2)_$P($T(@("T11"_QT)),U,2)_"\9\TST\\12\17" D R0 G 2:K="-" 31 S R="Z2\22\03\"_$P($T(@("T12"_QT)),U,2)_"\9\TST\\13\17\" D R0 I Z2="-" G 3 33 S R="Z3\22\03\"_$P($T(@("T13"_QT)),U,2)_"\9\TST\\14\17\" D R0 I Z3="-" G 31 34 S R="K\22\03\"_$P($T(@("T14"_QT)),U,2)_"\1\\"",-""[K\\\" D R0 G 33:K="-",3:K="," 35 S:Z1["-" Z1=-Z1 S:Z2["-" Z2=-Z2 S:Z3["-" Z3=-Z3 S @Q2=Z1_D_Z2_D_Z3 G 2 ; ; printen 5 D ^cAN3223("","1",">80") G 13:K="-" 52 S BLZ=1,I1=0,B1=@("^"_Q_"BA(99,2)"),B2=^(3) X F70 W @F80 D 7 53 S I1=$O(@("^"_Q_"LE(I1)")) G 59:I1="" S LC=$P(I1," ",2) G 53:'$D(@Q2) 54 S Z=@Q1 W !,":",$E(LC_" "_$P(Z,D,2)_" "_$P(Z,D,5)_" "_$P(Z,D,6)_" "_$P(Z,D,7),1,80),?81,":" 56 S Z1=@Q2,R=$P(Z1,D)_D_14_D_D_QD D R3 W ":" S R=$P(Z1,D,2)_D_14_D_D_QD D R3 W ":" S R=$P(Z1,D,3)_D_14_D_D_QD D R3 W ":" 57 S LN=LN+1 G 53:LN