/ com!online 2002 February / comcd0202.iso / geld / akad / Steuerprogramm / data.z / FACHLIT.adb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 44 42 20 34 2e 30 34 | d1 00 00 00 8e 01 00 00 |ADB 4.04|........|
|00000010| 5f 02 00 00 97 05 00 00 | 0d 00 00 00 17 00 00 00 |_.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 46 61 63 68 6c 69 74 | 47 65 6e 61 75 00 00 00 |.Fachlit|Genau...|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 44 47 01 00 00 00 00 | 00 20 05 01 00 00 00 00 |.DG.....|. ......|
|000000e0| 00 04 01 fa 00 00 00 09 | 00 01 00 56 57 80 00 ad |........|...VW...|
|000000f0| 00 80 04 02 00 00 00 00 | 00 00 00 00 00 0a 00 53 |........|.......S|
|00000100| 46 00 00 00 01 00 00 00 | 00 00 00 02 00 02 00 00 |F.......|........|
|00000110| 01 e5 00 00 00 54 41 b7 | 04 00 00 00 00 10 04 00 |.....TA.|........|
|00000120| 00 06 00 06 00 f2 00 a7 | 00 13 05 76 05 03 00 54 |........|...v...T|
|00000130| 54 bf 04 00 01 08 00 30 | 00 00 00 00 00 00 00 96 |T......0|........|
|00000140| 01 00 00 d5 04 76 05 c5 | 04 54 54 da 04 00 01 08 |.....v..|.TT.....|
|00000150| 00 30 00 00 00 00 00 00 | 00 96 01 00 00 fa 04 9c |.0......|........|
|00000160| 07 e5 04 54 4e 00 05 20 | 01 00 00 70 00 00 00 00 |...TN.. |...p....|
|00000170| 00 00 00 b7 00 00 00 10 | 05 77 05 07 05 05 20 53 |........|.w.... S|
|00000180| 54 00 00 00 00 00 00 20 | 00 00 00 06 00 b3 00 b1 |T...... |........|
|00000190| 00 0a 00 00 00 18 05 45 | 4e 31 05 21 01 00 00 40 |.......E|N1.!...@|
|000001a0| 00 00 00 c1 00 b1 00 2a | 00 0c 00 37 05 05 20 53 |.......*|...7.. S|
|000001b0| 54 00 00 00 00 00 00 20 | 00 00 00 06 00 c3 00 b1 |T...... |........|
|000001c0| 00 0a 00 00 00 3d 05 45 | 4e 00 00 21 01 00 00 40 |.....=.E|N..!...@|
|000001d0| 00 00 00 c1 00 c1 00 2a | 00 0c 00 64 05 05 20 42 |.......*|...d.. B|
|000001e0| 41 00 00 00 00 00 00 30 | 10 00 00 ee 00 c1 00 10 |A......0|........|
|000001f0| 00 0c 00 00 00 a3 07 6a | 05 c8 01 00 00 00 00 00 |.......j|........|
|00000200| 00 53 4c 00 00 00 00 00 | 00 00 00 00 00 06 00 d1 |.SL.....|........|
|00000210| 00 f8 00 01 00 00 00 53 | 54 00 00 00 00 00 00 20 |.......S|T...... |
|00000220| 00 00 00 06 00 d8 00 b1 | 00 0a 00 00 00 70 05 45 |........|.....p.E|
|00000230| 4e 00 00 21 01 00 00 40 | 00 00 00 c1 00 d6 00 2a |N..!...@|.......*|
|00000240| 00 0c 00 92 05 05 20 00 | 00 00 00 3a 00 2c 00 69 |...... .|...:.,.i|
|00000250| 42 00 00 00 00 04 00 03 | 00 04 00 05 00 0a 00 00 |B.......|........|
|00000260| 46 61 63 68 6c 69 74 00 | 22 46 61 63 68 6c 69 74 |Fachlit.|"Fachlit|
|00000270| 65 72 61 74 75 72 20 22 | 2b 5b 5e 2e 5e 2e 5e 2e |eratur "|+[^.^.^.|
|00000280| 24 31 30 37 2e 24 31 33 | 30 5d 00 22 66 61 63 68 |$107.$13|0]."fach|
|00000290| 6c 69 74 2e 66 72 77 22 | 00 69 66 28 4d 6f 64 75 |lit.frw"|.if(Modu|
|000002a0| 73 21 3d 32 2c 22 66 6f | 72 6d 6e 32 2e 66 72 77 |s!=2,"fo|rmn2.frw|
|000002b0| 22 2c 69 66 28 70 65 72 | 73 6f 6e 3d 3d 30 2c 22 |",if(per|son==0,"|
|000002c0| 66 6f 72 6d 61 6c 65 33 | 2e 66 72 77 22 2c 22 66 |formale3|.frw","f|
|000002d0| 6f 72 6d 61 6c 65 34 2e | 66 72 77 22 29 29 00 21 |ormale4.|frw")).!|
|000002e0| 28 74 62 6c 46 69 72 73 | 74 49 6e 64 65 78 28 5b |(tblFirs|tIndex([|
|000002f0| 24 31 38 33 5d 2c 5b 24 | 33 5d 3e 47 57 47 42 65 |$183],[$|3]>GWGBe|
|00000300| 74 72 61 67 45 72 6d 29 | 3e 30 29 00 22 53 69 65 |tragErm)|>0)."Sie|
|00000310| 20 68 61 62 65 6e 20 69 | 6e 20 64 65 72 20 22 2b | haben i|n der "+|
|00000320| 73 74 72 69 6e 67 28 74 | 62 6c 46 69 72 73 74 49 |string(t|blFirstI|
|00000330| 6e 64 65 78 28 5b 24 31 | 38 33 5d 2c 5b 24 33 5d |ndex([$1|83],[$3]|
|00000340| 3e 47 57 47 42 65 74 72 | 61 67 45 72 6d 29 29 2b |>GWGBetr|agErm))+|
|00000350| 22 2e 20 5a 65 69 6c 65 | 20 64 65 72 20 54 61 62 |". Zeile| der Tab|
|00000360| 65 6c 6c 65 20 7a 75 72 | 20 46 61 63 68 6c 69 74 |elle zur| Fachlit|
|00000370| 65 72 61 74 75 72 20 65 | 69 6e 65 6e 20 42 65 74 |eratur e|inen Bet|
|00000380| 72 61 67 20 69 6e 20 48 | f6 68 65 20 76 6f 6e 20 |rag in H|.he von |
|00000390| 22 2b 73 74 72 69 6e 67 | 28 5b 24 31 38 33 2e 30 |"+string|([$183.0|
|000003a0| 2e 24 33 5d 23 3d 28 74 | 62 6c 46 69 72 73 74 49 |.$3]#=(t|blFirstI|
|000003b0| 6e 64 65 78 28 5b 24 31 | 38 33 5d 2c 5b 24 33 5d |ndex([$1|83],[$3]|
|000003c0| 3e 47 57 47 42 65 74 72 | 61 67 45 72 6d 29 29 2c |>GWGBetr|agErm)),|
|000003d0| 22 25 73 20 25 63 22 29 | 2b 22 20 61 6e 67 65 67 |"%s %c")|+" angeg|
|000003e0| 65 62 65 6e 2e 5c 6e 20 | 5c 6e 22 2b 22 dc 62 65 |eben.\n |\n"+".be|
|000003f0| 72 73 74 65 69 67 74 20 | 64 65 72 20 4b 61 75 66 |rsteigt |der Kauf|
|00000400| 70 72 65 69 73 20 66 fc | 72 20 65 69 6e 20 41 72 |preis f.|r ein Ar|
|00000410| 62 65 69 74 73 6d 69 74 | 74 65 6c 20 28 7a 2e 42 |beitsmit|tel (z.B|
|00000420| 2e 20 66 fc 72 20 65 69 | 6e 20 46 61 63 68 62 75 |. f.r ei|n Fachbu|
|00000430| 63 68 29 20 64 65 6e 20 | 42 65 74 72 61 67 20 76 |ch) den |Betrag v|
|00000440| 6f 6e 20 22 2b 73 74 72 | 69 6e 67 28 47 57 47 42 |on "+str|ing(GWGB|
|00000450| 65 74 72 61 67 4f 68 6e | 65 55 53 74 2c 22 25 73 |etragOhn|eUSt,"%s|
|00000460| 20 25 43 22 2c 7e 54 29 | 2b 22 20 7a 7a 67 6c 2e | %C",~T)|+" zzgl.|
|00000470| 20 55 6d 73 61 74 7a 73 | 74 65 75 65 72 2c 20 73 | Umsatzs|teuer, s|
|00000480| 69 6e 64 20 64 69 65 20 | 41 6e 73 63 68 61 66 66 |ind die |Anschaff|
|00000490| 75 6e 67 73 6b 6f 73 74 | 65 6e 20 69 6d 20 4a 61 |ungskost|en im Ja|
|000004a0| 68 72 20 64 65 72 20 41 | 6e 73 63 68 61 66 66 75 |hr der A|nschaffu|
|000004b0| 6e 67 20 6e 69 63 68 74 | 20 76 6f 6c 6c 20 61 62 |ng nicht| voll ab|
|000004c0| 7a 75 67 73 66 e4 68 69 | 67 2e 20 22 2b 22 44 69 |zugsf.hi|g. "+"Di|
|000004d0| 65 20 41 75 66 77 65 6e | 64 75 6e 67 65 6e 20 6d |e Aufwen|dungen m|
|000004e0| fc 73 73 65 6e 20 64 61 | 6e 6e 20 61 75 66 20 64 |.ssen da|nn auf d|
|000004f0| 69 65 20 4e 75 74 7a 75 | 6e 67 73 64 61 75 65 72 |ie Nutzu|ngsdauer|
|00000500| 20 76 65 72 74 65 69 6c | 74 20 61 62 67 65 73 63 | verteil|t abgesc|
|00000510| 68 72 69 65 62 65 6e 20 | 77 65 72 64 65 6e 2e 20 |hrieben |werden. |
|00000520| 42 69 74 74 65 20 65 72 | 66 61 73 73 65 6e 20 53 |Bitte er|fassen S|
|00000530| 69 65 20 64 69 65 73 65 | 20 46 61 63 68 6c 69 74 |ie diese| Fachlit|
|00000540| 65 72 61 74 75 72 20 69 | 6d 20 44 69 61 6c 6f 67 |eratur i|m Dialog|
|00000550| 20 bb 41 72 62 65 69 74 | 73 6d 69 74 74 65 6c 3a | .Arbeit|smittel:|
|00000560| 20 41 62 73 63 68 72 65 | 69 62 75 6e 67 65 6e ab | Abschre|ibungen.|
|00000570| 2e 5c 6e 20 5c 6e 22 2b | 22 57 65 6e 6e 20 65 73 |.\n \n"+|"Wenn es|
|00000580| 20 73 69 63 68 20 62 65 | 69 20 64 65 6d 20 42 65 | sich be|i dem Be|
|00000590| 74 72 61 67 20 76 6f 6e | 20 22 2b 73 74 72 69 6e |trag von| "+strin|
|000005a0| 67 28 5b 24 31 38 33 2e | 30 2e 24 33 5d 23 3d 28 |g([$183.|0.$3]#=(|
|000005b0| 74 62 6c 46 69 72 73 74 | 49 6e 64 65 78 28 5b 24 |tblFirst|Index([$|
|000005c0| 31 38 33 5d 2c 5b 24 33 | 5d 3e 47 57 47 42 65 74 |183],[$3|]>GWGBet|
|000005d0| 72 61 67 45 72 6d 29 29 | 2c 22 25 73 20 25 63 22 |ragErm))|,"%s %c"|
|000005e0| 29 2b 22 20 75 6d 20 65 | 69 6e 65 20 53 61 6d 6d |)+" um e|ine Samm|
|000005f0| 65 6c 72 65 63 68 6e 75 | 6e 67 20 6d 65 68 72 65 |elrechnu|ng mehre|
|00000600| 72 65 72 20 42 fc 63 68 | 65 72 20 68 61 6e 64 65 |rer B.ch|er hande|
|00000610| 6c 74 2c 20 64 69 65 20 | 61 6c 6c 65 20 6a 65 77 |lt, die |alle jew|
|00000620| 65 69 6c 73 20 77 65 6e | 69 67 65 72 20 61 6c 73 |eils wen|iger als|
|00000630| 20 22 2b 73 74 72 69 6e | 67 28 47 57 47 42 65 74 | "+strin|g(GWGBet|
|00000640| 72 61 67 4f 68 6e 65 55 | 53 74 2c 22 25 73 20 25 |ragOhneU|St,"%s %|
|00000650| 43 22 29 2b 22 20 28 7a | 7a 67 6c 2e 20 55 6d 73 |C")+" (z|zgl. Ums|
|00000660| 61 74 7a 73 74 65 75 65 | 72 29 20 67 65 6b 6f 73 |atzsteue|r) gekos|
|00000670| 74 65 74 20 68 61 62 65 | 6e 2c 20 73 69 6e 64 20 |tet habe|n, sind |
|00000680| 64 69 65 73 65 20 69 6d | 20 4a 61 68 72 20 22 2b |diese im| Jahr "+|
|00000690| 73 56 4a 61 68 72 2b 22 | 20 76 6f 6c 6c 20 61 62 |sVJahr+"| voll ab|
|000006a0| 7a 75 67 73 66 e4 68 69 | 67 2e 5c 6e 20 5c 6e 22 |zugsf.hi|g.\n \n"|
|000006b0| 2b 22 4d f6 63 68 74 65 | 6e 20 53 69 65 20 49 68 |+"M.chte|n Sie Ih|
|000006c0| 72 65 20 41 6e 67 61 62 | 65 6e 20 7a 75 6d 20 42 |re Angab|en zum B|
|000006d0| 65 74 72 61 67 20 e4 6e | 64 65 72 6e 3f 22 00 22 |etrag .n|dern?"."|
|000006e0| 4b 65 69 6e 20 76 6f 6c | 6c 65 72 20 57 65 72 62 |Kein vol|ler Werb|
|000006f0| 75 6e 67 73 6b 6f 73 74 | 65 6e 61 62 7a 75 67 20 |ungskost|enabzug |
|00000700| 69 6d 20 4a 61 68 72 20 | 22 2b 73 56 4a 61 68 72 |im Jahr |"+sVJahr|
|00000710| 2b 22 20 3f 22 00 54 61 | 62 65 6c 6c 65 00 54 69 |+" ?".Ta|belle.Ti|
|00000720| 74 65 6c 00 22 54 69 74 | 65 6c 20 2f 20 41 75 74 |tel."Tit|el / Aut|
|00000730| 6f 72 22 00 24 31 30 39 | 00 46 61 63 68 67 65 62 |or".$109|.Fachgeb|
|00000740| 69 65 74 00 22 54 68 65 | 6d 61 20 2f 20 42 65 67 |iet."The|ma / Beg|
|00000750| 72 fc 6e 64 75 6e 67 22 | 00 24 34 38 35 35 00 42 |r.ndung"|.$4855.B|
|00000760| 65 74 72 61 67 00 22 42 | 65 74 72 61 67 22 00 24 |etrag."B|etrag".$|
|00000770| 33 00 24 31 38 33 00 22 | 53 75 6d 6d 65 20 64 65 |3.$183."|Summe de|
|00000780| 72 20 41 75 66 77 65 6e | 64 75 6e 67 65 6e 22 00 |r Aufwen|dungen".|
|00000790| 53 75 6d 6d 65 00 24 34 | 39 33 36 00 22 41 75 73 |Summe.$4|936."Aus|
|000007a0| 66 fc 68 72 6c 69 63 68 | 20 62 65 67 72 fc 6e 64 |f.hrlich| begr.nd|
|000007b0| 65 74 65 20 46 61 63 68 | 6c 69 74 65 72 61 74 75 |ete Fach|literatu|
|000007c0| 72 22 00 24 34 39 34 31 | 00 22 2e 2e 2e 22 00 22 |r".$4941|."..."."|
|000007d0| 47 65 73 61 6d 74 65 20 | 41 75 66 77 65 6e 64 75 |Gesamte |Aufwendu|
|000007e0| 6e 67 65 6e 20 28 67 65 | 72 75 6e 64 65 74 29 22 |ngen (ge|rundet)"|
|000007f0| 00 24 32 30 37 00       |                         |.$207.  |        |
+--------+-------------------------+-------------------------+--------+--------+