/ com!online 2002 February / comcd0202.iso / geld / akad / Steuerprogramm / data.z / TKFZAFA.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 9e 03 00 00 |ADB 4.04|........|
|00000010| 6f 04 00 00 b7 06 00 00 | 1f 00 00 00 b6 00 00 00 |o.......|........|
|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 54 4b 46 5a 41 66 41 | 00 00 00 00 00 00 00 00 |.TKFZAfA|........|
|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 e6 00 b8 00 00 00 44 | 00 02 00 56 45 aa 00 be |.......D|...VE...|
|000000f0| 00 00 00 07 00 00 00 00 | 00 00 00 00 00 56 57 ed |........|.....VW.|
|00000100| 00 53 01 00 00 b4 00 fb | 02 00 00 00 00 00 00 06 |.S......|........|
|00000110| 00 53 54 00 00 00 00 00 | 00 20 00 00 00 06 00 08 |.ST.....|. ......|
|00000120| 00 ad 00 0a 00 00 00 02 | 03 52 47 34 03 00 00 00 |........|.RG4....|
|00000130| 00 10 04 00 00 00 00 00 | 00 00 00 00 00 45 03 f1 |........|.....E..|
|00000140| 04 02 00 52 49 00 00 00 | 00 00 00 20 40 00 00 b0 |...RI...|... @...|
|00000150| 00 07 00 15 00 0c 00 00 | 00 49 03 01 00 52 49 00 |........|.I...RI.|
|00000160| 00 00 00 00 00 20 40 00 | 00 c6 00 07 00 1d 00 0c |..... @.|........|
|00000170| 00 00 00 4e 03 00 00 47 | 52 55 03 00 00 00 00 02 |...N...G|RU......|
|00000180| 04 00 00 00 00 00 00 00 | 00 00 00 00 00 60 03 02 |........|.....`..|
|00000190| 00 53 54 6d 03 00 00 00 | 00 20 00 00 00 29 00 78 |.STm....|. ...).x|
|000001a0| 00 47 00 0a 00 00 00 73 | 03 45 44 88 03 00 01 00 |.G.....s|.ED.....|
|000001b0| 00 50 01 00 00 73 00 76 | 00 17 00 0c 00 96 03 f8 |.P...s.v|........|
|000001c0| 04 00 80 01 00 56 45 9a | 03 b3 03 00 00 00 00 00 |.....VE.|........|
|000001d0| 00 00 00 00 00 00 00 47 | 52 f1 03 00 00 00 00 02 |.......G|R.......|
|000001e0| 04 00 00 00 00 00 00 00 | 00 00 00 00 00 01 04 10 |........|........|
|000001f0| 00 53 54 0a 04 00 00 00 | 00 20 00 00 00 06 00 9f |.ST.....|. ......|
|00000200| 00 b2 00 10 00 00 00 10 | 04 53 54 62 04 00 00 00 |........|.STb....|
|00000210| 00 20 00 00 00 06 00 6a | 00 af 00 0a 00 00 00 68 |. .....j|.......h|
|00000220| 04 53 54 93 04 00 00 00 | 00 20 00 00 00 99 00 43 |.ST.....|. .....C|
|00000230| 00 22 00 0a 00 00 00 99 | 04 53 54 a2 04 00 00 00 |."......|.ST.....|
|00000240| 00 20 00 00 00 06 00 43 | 00 73 00 0a 00 00 00 a8 |. .....C|.s......|
|00000250| 04 53 54 c7 04 00 00 00 | 00 20 00 00 00 06 00 32 |.ST.....|. .....2|
|00000260| 00 5c 00 0a 00 00 00 cd | 04 53 54 e8 04 00 00 00 |.\......|.ST.....|
|00000270| 00 20 00 00 00 06 00 20 | 00 7f 00 0a 00 00 00 ee |. ..... |........|
|00000280| 04 45 4e 12 05 21 01 00 | 00 40 00 00 00 b5 00 a1 |.EN..!..|.@......|
|00000290| 00 2a 00 0c 00 1d 05 06 | 20 45 4e 21 05 00 01 00 |.*......| EN!....|
|000002a0| 00 50 01 00 00 84 00 41 | 00 10 00 0c 00 28 05 f5 |.P.....A|.....(..|
|000002b0| 04 03 00 01 00 56 45 2c | 05 33 05 00 00 00 00 00 |.....VE,|.3......|
|000002c0| 00 00 00 00 00 00 00 45 | 4e 74 05 20 01 00 00 50 |.......E|Nt. ...P|
|000002d0| 00 00 00 b4 00 1e 00 2a | 00 0c 00 7d 05 f3 04 07 |.......*|...}....|
|000002e0| 20 45 44 81 05 00 01 00 | 00 10 01 00 00 84 00 30 | ED.....|.......0|
|000002f0| 00 2a 00 0c 00 8b 05 f4 | 04 01 00 56 45 8f 05 b3 |.*......|...VE...|
|00000300| 05 00 00 00 00 00 00 00 | 00 00 00 00 00 52 47 ea |........|.....RG.|
|00000310| 05 00 00 00 00 10 04 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 f7 05 f7 04 02 00 52 | 49 00 00 00 00 00 00 20 |.......R|I...... |
|00000330| 40 00 00 0a 00 76 00 14 | 00 0c 00 00 00 49 03 01 |@....v..|.....I..|
|00000340| 00 52 49 00 00 00 00 00 | 00 20 40 00 00 0a 00 83 |.RI.....|. @.....|
|00000350| 00 1c 00 0c 00 00 00 4e | 03 00 00 42 43 fb 05 00 |.......N|...BC...|
|00000360| 00 00 00 38 00 00 00 06 | 00 56 00 b7 00 0c 00 0a |...8....|.V......|
|00000370| 06 04 06 f6 04 0e 06 53 | 46 3f 06 00 01 00 00 00 |.......S|F?......|
|00000380| 00 00 00 02 00 66 00 e2 | 00 31 00 00 00 53 46 46 |.....f..|.1...SFF|
|00000390| 06 00 01 00 00 00 00 00 | 00 02 00 53 00 e2 00 11 |........|...S....|
|000003a0| 00 00 00 53 46 4e 06 00 | 01 00 00 00 00 00 00 02 |...SFN..|........|
|000003b0| 00 19 00 e2 00 38 00 00 | 00 53 46 56 06 00 01 00 |.....8..|.SFV....|
|000003c0| 00 00 00 00 00 02 00 9a | 00 e2 00 1a 00 00 00 47 |........|.......G|
|000003d0| 52 5e 06 00 00 00 00 02 | 04 00 00 00 00 00 00 00 |R^......|........|
|000003e0| 00 00 00 00 00 6c 06 03 | 00 53 54 72 06 00 00 00 |.....l..|.STr....|
|000003f0| 00 20 00 00 00 05 00 20 | 00 7f 00 0a 00 00 00 78 |. ..... |.......x|
|00000400| 06 45 4e a0 06 20 01 00 | 00 50 00 00 00 b4 00 1e |.EN.. ..|.P......|
|00000410| 00 2a 00 0c 00 ab 06 f2 | 04 05 20 53 46 af 06 00 |.*......|.. SF...|
|00000420| 01 00 00 00 00 00 00 02 | 00 19 00 e2 00 16 00 00 |........|........|
|00000430| 00 53 46 00 00 00 01 00 | 00 00 00 00 00 02 00 02 |.SF.....|........|
|00000440| 00 e2 00 15 00 00 00 00 | 00 00 00 a7 00 9c 00 b9 |........|........|
|00000450| 0b 00 00 02 00 09 00 0e | 00 19 00 1f 00 08 00 02 |........|........|
|00000460| 00 11 00 12 00 10 00 16 | 00 13 00 07 00 1d 00 00 |........|........|
|00000470| 54 4b 46 5a 41 66 41 00 | 5a 61 68 6c 00 6e 75 6d |TKFZAfA.|Zahl.num|
|00000480| 49 6e 54 62 6c 28 29 00 | 4c 69 73 74 65 00 74 62 |InTbl().|Liste.tb|
|00000490| 6c 47 65 74 43 6f 6e 64 | 4c 69 73 74 28 5b 5e 2e |lGetCond|List([^.|
|000004a0| 5e 5d 2c 5b 24 31 34 32 | 31 2e 24 32 38 5d 21 3d |^],[$142|1.$28]!=|
|000004b0| 30 29 00 22 46 61 68 72 | 7a 65 75 67 6b 6f 73 74 |0)."Fahr|zeugkost|
|000004c0| 65 6e 20 66 fc 72 20 22 | 2b 69 66 28 4d 6f 64 75 |en f.r "|+if(Modu|
|000004d0| 73 3d 3d 30 7c 4d 6f 64 | 75 73 3d 3d 31 7c 4d 6f |s==0|Mod|us==1|Mo|
|000004e0| 64 75 73 3d 3d 32 2c 5b | 5e 2e 24 32 37 5d 2c 5b |dus==2,[|^.$27],[|
|000004f0| 5e 2e 5e 2e 24 39 5d 29 | 2b 22 20 3a 20 41 62 73 |^.^.$9])|+" : Abs|
|00000500| 63 68 72 65 69 62 75 6e | 67 22 00 22 74 6b 66 7a |chreibun|g"."tkfz|
|00000510| 2e 66 72 77 22 00 22 22 | 00 21 5b 24 35 30 5d 7c |.frw".""|.![$50]||
|00000520| 76 61 6c 69 64 28 5b 24 | 35 31 5d 29 00 22 44 61 |valid([$|51])."Da|
|00000530| 73 20 44 61 74 75 6d 20 | 64 65 73 20 56 65 72 6b |s Datum |des Verk|
|00000540| 61 75 66 73 20 6d 75 df | 20 61 6e 67 65 67 65 62 |aufs mu.| angegeb|
|00000550| 65 6e 20 77 65 72 64 65 | 6e 2e 22 00 4d 6f 64 75 |en werde|n.".Modu|
|00000560| 73 3d 3d 33 7c 4d 6f 64 | 75 73 3d 3d 35 7c 69 66 |s==3|Mod|us==5|if|
|00000570| 28 66 69 72 73 74 45 51 | 49 6e 64 65 78 28 6e 65 |(firstEQ|Index(ne|
|00000580| 78 74 44 6c 67 2c 31 38 | 31 2c 31 38 32 2c 31 38 |xtDlg,18|1,182,18|
|00000590| 33 2c 31 38 34 2c 31 38 | 38 2c 31 38 39 2c 31 39 |3,184,18|8,189,19|
|000005a0| 30 29 3d 3d 30 2c 6c 69 | 73 74 49 74 65 6d 43 6f |0)==0,li|stItemCo|
|000005b0| 75 6e 74 28 4c 69 73 74 | 65 29 3d 3d 30 2c 7e 54 |unt(List|e)==0,~T|
|000005c0| 29 00 22 46 fc 72 20 66 | 6f 6c 67 65 6e 64 65 20 |)."F.r f|olgende |
|000005d0| 46 61 68 72 7a 65 75 67 | 65 20 77 75 72 64 65 20 |Fahrzeug|e wurde |
|000005e0| 65 69 6e 20 4b 69 6c 6f | 6d 65 74 65 72 73 61 74 |ein Kilo|metersat|
|000005f0| 7a 20 65 72 66 61 73 73 | 74 2c 20 64 65 72 20 6e |z erfass|t, der n|
|00000600| 69 65 64 72 69 67 65 72 | 20 69 73 74 20 61 6c 73 |iedriger| ist als|
|00000610| 20 64 69 65 20 67 65 73 | 65 74 7a 6c 69 63 68 65 | die ges|etzliche|
|00000620| 20 50 61 75 73 63 68 61 | 6c 65 3a 5c 6e 20 5c 6e | Pauscha|le:\n \n|
|00000630| 22 2b 5b 5e 2e 5e 2e 30 | 2e 24 32 31 5d 23 33 3d |"+[^.^.0|.$21]#3=|
|00000640| 28 69 6e 74 28 6c 69 73 | 74 47 65 74 49 74 65 6d |(int(lis|tGetItem|
|00000650| 28 4c 69 73 74 65 2c 31 | 29 29 29 2b 69 66 28 6c |(Liste,1|)))+if(l|
|00000660| 69 73 74 49 74 65 6d 43 | 6f 75 6e 74 28 4c 69 73 |istItemC|ount(Lis|
|00000670| 74 65 29 3e 31 2c 22 5c | 6e 22 2b 5b 5e 2e 5e 2e |te)>1,"\|n"+[^.^.|
|00000680| 30 2e 24 32 31 5d 23 33 | 3d 28 69 6e 74 28 6c 69 |0.$21]#3|=(int(li|
|00000690| 73 74 47 65 74 49 74 65 | 6d 28 4c 69 73 74 65 2c |stGetIte|m(Liste,|
|000006a0| 32 29 29 29 2c 22 22 29 | 2b 69 66 28 6c 69 73 74 |2))),"")|+if(list|
|000006b0| 49 74 65 6d 43 6f 75 6e | 74 28 4c 69 73 74 65 29 |ItemCoun|t(Liste)|
|000006c0| 3e 32 2c 22 5c 6e 22 2b | 5b 5e 2e 5e 2e 30 2e 24 |>2,"\n"+|[^.^.0.$|
|000006d0| 32 31 5d 23 33 3d 28 69 | 6e 74 28 6c 69 73 74 47 |21]#3=(i|nt(listG|
|000006e0| 65 74 49 74 65 6d 28 4c | 69 73 74 65 2c 33 29 29 |etItem(L|iste,3))|
|000006f0| 29 2c 22 22 29 2b 69 66 | 28 6c 69 73 74 49 74 65 |),"")+if|(listIte|
|00000700| 6d 43 6f 75 6e 74 28 4c | 69 73 74 65 29 3e 33 2c |mCount(L|iste)>3,|
|00000710| 22 5c 6e 22 2b 5b 5e 2e | 5e 2e 30 2e 24 32 31 5d |"\n"+[^.|^.0.$21]|
|00000720| 23 33 3d 28 69 6e 74 28 | 6c 69 73 74 47 65 74 49 |#3=(int(|listGetI|
|00000730| 74 65 6d 28 4c 69 73 74 | 65 2c 34 29 29 29 2c 22 |tem(List|e,4))),"|
|00000740| 22 29 2b 22 5c 6e 20 5c | 6e 57 6f 6c 6c 65 6e 20 |")+"\n \|nWollen |
|00000750| 53 69 65 20 49 68 72 65 | 20 41 6e 67 61 62 65 6e |Sie Ihre| Angaben|
|00000760| 20 e4 6e 64 65 72 6e 3f | 22 00 46 61 68 72 7a 31 | .ndern?|".Fahrz1|
|00000770| 00 22 49 73 74 20 64 69 | 65 20 48 f6 68 65 20 64 |."Ist di|e H.he d|
|00000780| 65 73 20 41 62 73 63 68 | 72 65 69 62 75 6e 67 73 |es Absch|reibungs|
|00000790| 62 65 74 72 61 67 65 73 | 20 62 65 6b 61 6e 6e 74 |betrages| bekannt|
|000007a0| 3f 22 00 41 62 62 65 74 | 72 61 67 5f 62 65 6b 61 |?".Abbet|rag_beka|
|000007b0| 6e 6e 74 00 24 34 35 00 | 22 4a 61 22 00 22 4e 65 |nnt.$45.|"Ja"."Ne|
|000007c0| 69 6e 22 00 67 72 70 56 | 65 72 6b 61 75 66 00 21 |in".grpV|erkauf.!|
|000007d0| 5b 24 34 35 5d 26 5b 24 | 35 30 5d 00 73 74 41 74 |[$45]&[$|50].stAt|
|000007e0| 37 00 22 44 61 74 75 6d | 20 64 65 73 20 56 65 72 |7."Datum| des Ver|
|000007f0| 6b 61 75 66 73 22 00 56 | 65 72 6b 61 75 66 5f 64 |kaufs".V|erkauf_d|
|00000800| 61 74 75 6d 00 24 35 31 | 00 21 76 61 6c 69 64 28 |atum.$51|.!valid(|
|00000810| 73 65 6c 66 29 7c 73 65 | 6c 66 3e 3d 5b 24 34 38 |self)|se|lf>=[$48|
|00000820| 5d 00 22 44 61 73 20 44 | 61 74 75 6d 20 64 65 73 |]."Das D|atum des|
|00000830| 20 56 65 72 6b 61 75 66 | 73 20 6b 61 6e 6e 20 6e | Verkauf|s kann n|
|00000840| 69 63 68 74 20 76 6f 72 | 20 64 65 6d 20 4b 61 75 |icht vor| dem Kau|
|00000850| 66 64 61 74 75 6d 20 6c | 69 65 67 65 6e 2e 22 00 |fdatum l|iegen.".|
|00000860| 67 72 70 41 62 5f 75 6e | 62 65 6b 61 6e 6e 74 00 |grpAb_un|bekannt.|
|00000870| 21 28 5b 24 34 35 5d 29 | 00 73 74 41 74 38 00 22 |!([$45])|.stAt8."|
|00000880| 41 75 73 20 64 65 6e 20 | 6f 62 69 67 65 6e 20 41 |Aus den |obigen A|
|00000890| 6e 67 61 62 65 6e 20 65 | 72 67 69 62 74 20 73 69 |ngaben e|rgibt si|
|000008a0| 63 68 20 64 69 65 20 66 | fc 72 20 22 2b 73 56 4a |ch die f|.r "+sVJ|
|000008b0| 61 68 72 2b 22 20 61 6e | 7a 75 73 65 74 7a 65 6e |ahr+" an|zusetzen|
|000008c0| 64 65 20 41 62 73 63 68 | 72 65 69 62 75 6e 67 22 |de Absch|reibung"|
|000008d0| 00 73 74 41 74 36 00 22 | 57 75 72 64 65 20 64 61 |.stAt6."|Wurde da|
|000008e0| 73 20 46 61 68 72 7a 65 | 75 67 20 22 2b 73 56 4a |s Fahrze|ug "+sVJ|
|000008f0| 61 68 72 2b 22 20 76 65 | 72 6b 61 75 66 74 20 3f |ahr+" ve|rkauft ?|
|00000900| 22 00 73 74 41 74 35 00 | 22 4d 6f 6e 61 74 65 22 |".stAt5.|"Monate"|
|00000910| 00 73 74 41 74 34 00 22 | 4e 75 74 7a 75 6e 67 73 |.stAt4."|Nutzungs|
|00000920| 64 61 75 65 72 20 64 65 | 73 20 46 61 68 72 7a 65 |dauer de|s Fahrze|
|00000930| 75 67 65 73 22 00 73 74 | 41 74 33 00 22 4b 61 75 |uges".st|At3."Kau|
|00000940| 66 64 61 74 75 6d 20 64 | 65 73 20 46 61 68 72 7a |fdatum d|es Fahrz|
|00000950| 65 75 67 65 73 22 00 73 | 74 41 74 32 00 22 41 6e |euges".s|tAt2."An|
|00000960| 73 63 68 61 66 66 75 6e | 67 73 6b 6f 73 74 65 6e |schaffun|gskosten|
|00000970| 20 64 65 73 20 46 61 68 | 72 7a 65 75 67 65 73 22 | des Fah|rzeuges"|
|00000980| 00 44 73 70 5f 61 62 73 | 63 68 32 00 24 35 34 00 |.Dsp_abs|ch2.$54.|
|00000990| 4e 64 61 75 65 72 00 24 | 33 34 00 73 65 6c 66 3e |Ndauer.$|34.self>|
|000009a0| 30 00 22 42 69 74 74 65 | 20 67 65 62 65 6e 20 53 |0."Bitte| geben S|
|000009b0| 69 65 20 64 69 65 20 4e | 75 74 7a 75 6e 67 73 64 |ie die N|utzungsd|
|000009c0| 61 75 65 72 20 64 65 73 | 20 46 61 68 72 7a 65 75 |auer des| Fahrzeu|
|000009d0| 67 73 20 69 6e 20 4d 6f | 6e 61 74 65 6e 20 61 6e |gs in Mo|naten an|
|000009e0| 2e 22 00 41 6e 73 63 68 | 6b 73 74 00 24 34 37 00 |.".Ansch|kst.$47.|
|000009f0| 4b 61 75 66 64 61 74 75 | 6d 00 24 34 38 00 21 76 |Kaufdatu|m.$48.!v|
|00000a00| 61 6c 69 64 28 73 65 6c | 66 29 7c 73 65 6c 66 3c |alid(sel|f)|self<|
|00000a10| 64 61 74 65 28 31 2c 31 | 2c 56 4a 61 68 72 2b 31 |date(1,1|,VJahr+1|
|00000a20| 29 00 22 44 61 73 20 44 | 61 74 75 6d 20 64 61 72 |)."Das D|atum dar|
|00000a30| 66 20 73 70 e4 74 65 73 | 74 65 6e 73 20 64 65 72 |f sp.tes|tens der|
|00000a40| 20 33 31 2e 31 32 2e 22 | 2b 73 56 4a 61 68 72 2b | 31.12."|+sVJahr+|
|00000a50| 22 20 73 65 69 6e 2e 22 | 00 56 65 72 6b 61 75 66 |" sein."|.Verkauf|
|00000a60| 5f 6e 65 69 6e 00 24 35 | 30 00 56 72 65 67 65 6c |_nein.$5|0.Vregel|
|00000a70| 5f 31 00 5b 24 35 30 5d | 00 24 34 39 00 22 44 69 |_1.[$50]|.$49."Di|
|00000a80| 65 20 56 65 72 65 69 6e | 66 61 63 68 75 6e 67 73 |e Verein|fachungs|
|00000a90| 72 65 67 65 6c 20 73 6f | 6c 6c 20 61 6e 67 65 77 |regel so|ll angew|
|00000aa0| 65 6e 64 65 74 20 77 65 | 72 64 65 6e 22 00 66 72 |endet we|rden".fr|
|00000ab0| 6d 41 74 39 00 66 72 6d | 41 74 31 33 00 66 72 6d |mAt9.frm|At13.frm|
|00000ac0| 41 74 31 32 00 66 72 6d | 41 74 31 30 00 67 72 70 |At12.frm|At10.grp|
|00000ad0| 41 62 5f 62 65 6b 61 6e | 6e 74 00 5b 24 34 35 5d |Ab_bekan|nt.[$45]|
|00000ae0| 00 73 74 41 74 31 00 22 | 41 6e 7a 75 73 65 74 7a |.stAt1."|Anzusetz|
|00000af0| 65 6e 64 65 20 41 62 73 | 63 68 72 65 69 62 75 6e |ende Abs|chreibun|
|00000b00| 67 20 66 fc 72 20 22 2b | 73 56 4a 61 68 72 00 44 |g f.r "+|sVJahr.D|
|00000b10| 73 70 5f 61 62 73 63 68 | 31 00 24 34 36 00 66 72 |sp_absch|1.$46.fr|
|00000b20| 6d 41 74 31 31 00       |                         |mAt11.  |        |
+--------+-------------------------+-------------------------+--------+--------+