/ com!online 2002 February / comcd0202.iso / geld / akad / Steuerprogramm / data.z / EinkVVMietEinErstes.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 78 02 00 00 |ADB 4.04|....x...|
|00000010| 49 03 00 00 f4 06 00 00 | 14 00 00 00 35 01 00 00 |I.......|....5...|
|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 45 69 6e 6b 56 56 4d | 69 65 74 45 69 6e 45 72 |.EinkVVM|ietEinEr|
|000000a0| 73 74 65 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |stes....|........|
|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 ea 00 00 00 15 | 00 04 00 56 57 f7 01 23 |........|...VW..#|
|000000f0| 02 d3 02 02 00 00 00 00 | 00 00 00 00 00 56 57 ed |........|.....VW.|
|00000100| 02 1a 03 c9 03 02 00 00 | 00 00 00 00 00 00 00 56 |........|.......V|
|00000110| 57 e1 03 0d 04 be 04 0a | 00 00 00 00 00 00 00 00 |W.......|........|
|00000120| 00 56 57 d9 04 06 05 b6 | 05 0a 00 00 00 00 00 00 |.VW.....|........|
|00000130| 00 00 00 0c 00 53 54 00 | 00 00 00 00 00 21 00 00 |.....ST.|.....!..|
|00000140| 00 06 00 06 00 da 00 0a | 00 00 00 00 01 cf 05 54 |........|.......T|
|00000150| 41 df 05 00 00 00 00 00 | 04 00 00 06 00 11 00 dc |A.......|........|
|00000160| 00 4e 00 46 06 04 00 54 | 4e eb 05 00 01 00 00 70 |.N.F...T|N......p|
|00000170| 00 00 00 00 00 00 00 64 | 00 00 00 f6 05 84 03 ef |.......d|........|
|00000180| 05 03 00 54 54 fc 05 00 | 01 08 00 30 00 00 00 00 |...TT...|...0....|
|00000190| 00 00 00 ea 01 00 00 12 | 06 83 03 04 06 54 4e 18 |........|.....TN.|
|000001a0| 06 20 01 00 00 70 00 00 | 00 00 00 00 00 cd 00 00 |. ...p..|........|
|000001b0| 00 2e 06 82 03 25 06 06 | a0 54 4e 34 06 21 01 00 |.....%..|.TN4.!..|
|000001c0| 00 60 00 00 00 00 00 00 | 00 cd 00 00 00 43 06 3b |.`......|.....C.;|
|000001d0| 06 06 20 53 54 00 00 00 | 00 00 00 20 00 00 00 06 |.. ST...|... ....|
|000001e0| 00 64 00 96 00 0a 00 00 | 00 4c 06 45 4e 00 00 21 |.d......|.L.EN..!|
|000001f0| 01 00 00 40 00 00 00 ab | 00 62 00 2a 00 0c 00 62 |...@....|.b.*...b|
|00000200| 06 06 20 53 54 00 00 00 | 00 00 00 21 00 00 00 06 |.. ST...|...!....|
|00000210| 00 73 00 da 00 0a 00 00 | 00 00 01 6a 06 54 41 91 |.s......|...j.TA.|
|00000220| 06 00 00 00 00 00 04 00 | 00 06 00 7e 00 dc 00 41 |........|...~...A|
|00000230| 00 b5 06 04 00 54 4e 99 | 06 00 01 00 00 70 00 00 |.....TN.|.....p..|
|00000240| 00 00 00 00 00 64 00 00 | 00 f6 05 81 03 ef 05 03 |.....d..|........|
|00000250| 00 54 54 9e 06 00 01 08 | 00 30 00 00 00 00 00 00 |.TT.....|.0......|
|00000260| 00 ea 01 00 00 12 06 80 | 03 04 06 54 4e a7 06 20 |........|...TN.. |
|00000270| 01 00 00 70 00 00 00 00 | 00 00 00 cd 00 00 00 2e |...p....|........|
|00000280| 06 7f 03 25 06 06 a0 54 | 4e 00 00 21 01 00 00 60 |...%...T|N..!...`|
|00000290| 00 00 00 00 00 00 00 cd | 00 00 00 43 06 3b 06 06 |........|...C.;..|
|000002a0| 20 53 54 00 00 00 00 00 | 00 20 00 00 00 06 00 c4 | ST.....|. ......|
|000002b0| 00 96 00 0a 00 00 00 bb | 06 45 4e 00 00 21 01 00 |........|.EN..!..|
|000002c0| 00 40 00 00 00 ab 00 c2 | 00 2a 00 0c 00 b5 06 06 |.@......|.*......|
|000002d0| 20 53 4c 00 00 00 00 00 | 00 00 00 00 00 06 00 d2 | SL.....|........|
|000002e0| 00 cf 00 01 00 00 00 53 | 54 00 00 00 00 00 00 20 |.......S|T...... |
|000002f0| 00 00 00 06 00 d9 00 96 | 00 0a 00 00 00 cb 06 45 |........|.......E|
|00000300| 4e 00 00 21 01 00 00 40 | 00 00 00 ab 00 d7 00 2a |N..!...@|.......*|
|00000310| 00 0c 00 ed 06 06 20 53 | 46 00 00 00 01 00 00 00 |...... S|F.......|
|00000320| 00 00 00 02 00 02 00 e2 | 00 e6 00 00 00 00 00 00 |........|........|
|00000330| 00 9a 01 8d 01 89 90 00 | 00 00 00 06 00 03 00 04 |........|........|
|00000340| 00 05 00 0b 00 0c 00 0d | 00 00 45 69 6e 6b 56 56 |........|..EinkVV|
|00000350| 4d 69 65 74 45 69 6e 45 | 72 73 74 65 73 00 22 4d |MietEinE|rstes."M|
|00000360| 69 65 74 65 69 6e 6e 61 | 68 6d 65 6e 20 22 2b 76 |ieteinna|hmen "+v|
|00000370| 61 6c 69 64 56 61 6c 28 | 5b 5e 2e 24 32 35 33 36 |alidVal(|[^.$2536|
|00000380| 5d 2c 22 76 6f 6e 20 41 | 6e 67 65 68 f6 72 69 67 |],"von A|ngeh.rig|
|00000390| 65 6e 22 29 2b 69 66 28 | 76 61 6c 69 64 28 5b 5e |en")+if(|valid([^|
|000003a0| 2e 24 32 35 33 36 5d 29 | 2c 69 66 28 5b 5e 2e 5e |.$2536])|,if([^.^|
|000003b0| 2e 5e 2e 5e 2e 24 31 31 | 30 5d 3d 3d 22 22 26 5b |.^.^.$11|0]==""&[|
|000003c0| 5e 2e 5e 2e 5e 2e 5e 2e | 24 38 31 5d 3d 3d 22 22 |^.^.^.^.|$81]==""|
|000003d0| 2c 22 3a 20 22 2b 28 73 | 74 72 69 6e 67 28 72 65 |,": "+(s|tring(re|
|000003e0| 63 4e 75 6d 29 29 2b 22 | 2e 20 4f 62 6a 65 6b 74 |cNum))+"|. Objekt|
|000003f0| 22 2c 22 20 22 2b 5b 5e | 2e 5e 2e 5e 2e 5e 2e 24 |"," "+[^|.^.^.^.$|
|00000400| 31 31 30 5d 2b 69 66 28 | 5b 5e 2e 5e 2e 5e 2e 5e |110]+if(|[^.^.^.^|
|00000410| 2e 24 38 31 5d 21 3d 22 | 22 26 5b 5e 2e 5e 2e 5e |.$81]!="|"&[^.^.^|
|00000420| 2e 5e 2e 24 31 31 30 5d | 21 3d 22 22 2c 22 2c 20 |.^.$110]|!="",", |
|00000430| 22 2c 22 22 29 2b 5b 5e | 2e 5e 2e 5e 2e 5e 2e 24 |","")+[^|.^.^.^.$|
|00000440| 38 31 5d 29 2c 69 66 28 | 5b 5e 2e 5e 2e 5e 2e 24 |81]),if(|[^.^.^.$|
|00000450| 31 31 30 5d 3d 3d 22 22 | 26 5b 5e 2e 5e 2e 5e 2e |110]==""|&[^.^.^.|
|00000460| 24 38 31 5d 3d 3d 22 22 | 2c 22 3a 20 22 2b 28 73 |$81]==""|,": "+(s|
|00000470| 74 72 69 6e 67 28 72 65 | 63 4e 75 6d 29 29 2b 22 |tring(re|cNum))+"|
|00000480| 2e 20 4f 62 6a 65 6b 74 | 22 2c 22 20 22 2b 5b 5e |. Objekt|"," "+[^|
|00000490| 2e 5e 2e 5e 2e 24 31 31 | 30 5d 2b 69 66 28 5b 5e |.^.^.$11|0]+if([^|
|000004a0| 2e 5e 2e 5e 2e 24 38 31 | 5d 21 3d 22 22 26 5b 5e |.^.^.$81|]!=""&[^|
|000004b0| 2e 5e 2e 5e 2e 24 31 31 | 30 5d 21 3d 22 22 2c 22 |.^.^.$11|0]!="","|
|000004c0| 2c 20 22 2c 22 22 29 2b | 5b 5e 2e 5e 2e 5e 2e 24 |, ","")+|[^.^.^.$|
|000004d0| 38 31 5d 29 29 00 22 65 | 69 6e 6b 76 76 2e 66 72 |81]))."e|inkvv.fr|
|000004e0| 77 22 00 69 66 28 21 5b | 2f 2e 24 39 30 2e 24 31 |w".if(![|/.$90.$1|
|000004f0| 30 37 2e 24 31 31 37 2e | 24 34 34 33 38 5d 2c 22 |07.$117.|$4438],"|
|00000500| 66 6f 72 6d 76 31 2e 66 | 72 77 22 2c 69 66 28 5b |formv1.f|rw",if([|
|00000510| 5e 2e 5e 2e 5e 2e 5e 2e | 24 31 36 38 30 5d 21 3d |^.^.^.^.|$1680]!=|
|00000520| 32 2c 22 66 6f 72 6d 76 | 6d 31 2e 66 72 77 22 2c |2,"formv|m1.frw",|
|00000530| 22 66 6f 72 6d 76 66 31 | 2e 66 72 77 22 29 29 00 |"formvf1|.frw")).|
|00000540| 74 62 6c 53 75 6d 28 5b | 24 32 35 33 38 5d 2c 5b |tblSum([|$2538],[|
|00000550| 24 33 34 39 31 5d 21 3d | 30 2e 63 26 5b 24 33 5d |$3491]!=|0.c&[$3]|
|00000560| 3d 3d 30 2e 63 2c 30 29 | 3d 3d 30 00 22 53 69 65 |==0.c,0)|==0."Sie|
|00000570| 20 68 61 62 65 6e 20 69 | 6e 20 64 65 72 20 22 2b | haben i|n der "+|
|00000580| 73 74 72 69 6e 67 28 74 | 62 6c 46 69 72 73 74 49 |string(t|blFirstI|
|00000590| 6e 64 65 78 28 5b 24 32 | 35 33 38 5d 2c 5b 24 33 |ndex([$2|538],[$3|
|000005a0| 34 39 31 5d 21 3d 30 2e | 63 26 5b 24 33 5d 3d 3d |491]!=0.|c&[$3]==|
|000005b0| 30 2e 63 29 29 2b 22 2e | 20 5a 65 69 6c 65 20 64 |0.c))+".| Zeile d|
|000005c0| 69 65 20 41 6e 7a 61 68 | 6c 20 64 65 72 20 65 72 |ie Anzah|l der er|
|000005d0| 68 61 6c 74 65 6e 65 6e | 20 4d 69 65 74 65 6e 20 |haltenen| Mieten |
|000005e0| 6e 69 63 68 74 20 65 69 | 6e 67 65 67 65 62 65 6e |nicht ei|ngegeben|
|000005f0| 2e 5c 6e 20 5c 6e 57 6f | 6c 6c 65 6e 20 53 69 65 |.\n \nWo|llen Sie|
|00000600| 20 49 68 72 65 20 41 6e | 67 61 62 65 6e 20 6b 6f | Ihre An|gaben ko|
|00000610| 72 72 69 67 69 65 72 65 | 6e 3f 22 00 22 41 6e 7a |rrigiere|n?"."Anz|
|00000620| 61 68 6c 20 64 65 72 20 | 4d 69 65 74 65 6e 20 66 |ahl der |Mieten f|
|00000630| 65 68 6c 74 22 00 74 62 | 6c 53 75 6d 28 5b 24 32 |ehlt".tb|lSum([$2|
|00000640| 35 33 38 5d 2c 5b 24 33 | 34 39 31 5d 3d 3d 30 2e |538],[$3|491]==0.|
|00000650| 63 26 5b 24 32 34 38 36 | 5d 21 3d 30 2c 30 29 3d |c&[$2486|]!=0,0)=|
|00000660| 3d 30 00 22 53 69 65 20 | 68 61 62 65 6e 20 69 6e |=0."Sie |haben in|
|00000670| 20 64 65 72 20 22 2b 73 | 74 72 69 6e 67 28 74 62 | der "+s|tring(tb|
|00000680| 6c 46 69 72 73 74 49 6e | 64 65 78 28 5b 24 32 35 |lFirstIn|dex([$25|
|00000690| 33 38 5d 2c 5b 24 33 34 | 39 31 5d 3d 3d 30 2e 63 |38],[$34|91]==0.c|
|000006a0| 26 5b 24 32 34 38 36 5d | 21 3d 30 29 29 2b 22 2e |&[$2486]|!=0))+".|
|000006b0| 20 5a 65 69 6c 65 20 64 | 69 65 20 48 f6 68 65 20 | Zeile d|ie H.he |
|000006c0| 64 65 72 20 65 72 68 61 | 6c 74 65 6e 65 6e 20 4d |der erha|ltenen M|
|000006d0| 69 65 74 65 6e 20 6e 69 | 63 68 74 20 65 69 6e 67 |ieten ni|cht eing|
|000006e0| 65 67 65 62 65 6e 2e 5c | 6e 20 5c 6e 57 6f 6c 6c |egeben.\|n \nWoll|
|000006f0| 65 6e 20 53 69 65 20 49 | 68 72 65 20 41 6e 67 61 |en Sie I|hre Anga|
|00000700| 62 65 6e 20 6b 6f 72 72 | 69 67 69 65 72 65 6e 3f |ben korr|igieren?|
|00000710| 22 00 22 48 f6 68 65 20 | 64 65 72 20 4d 69 65 74 |"."H.he |der Miet|
|00000720| 65 6e 20 66 65 68 6c 74 | 22 00 74 62 6c 53 75 6d |en fehlt|".tblSum|
|00000730| 28 5b 24 32 36 31 37 5d | 2c 5b 24 33 34 39 31 5d |([$2617]|,[$3491]|
|00000740| 21 3d 30 2e 63 26 5b 24 | 33 5d 3d 3d 30 2e 63 2c |!=0.c&[$|3]==0.c,|
|00000750| 30 29 3d 3d 30 00 22 53 | 69 65 20 68 61 62 65 6e |0)==0."S|ie haben|
|00000760| 20 69 6e 20 64 65 72 20 | 22 2b 73 74 72 69 6e 67 | in der |"+string|
|00000770| 28 74 62 6c 46 69 72 73 | 74 49 6e 64 65 78 28 5b |(tblFirs|tIndex([|
|00000780| 24 32 36 31 37 5d 2c 5b | 24 33 34 39 31 5d 21 3d |$2617],[|$3491]!=|
|00000790| 30 2e 63 26 5b 24 33 5d | 3d 3d 30 2e 63 29 29 2b |0.c&[$3]|==0.c))+|
|000007a0| 22 2e 20 5a 65 69 6c 65 | 20 64 69 65 20 41 6e 7a |". Zeile| die Anz|
|000007b0| 61 68 6c 20 64 65 72 20 | 65 72 68 61 6c 74 65 6e |ahl der |erhalten|
|000007c0| 65 6e 20 55 6d 6c 61 67 | 65 6e 20 6e 69 63 68 74 |en Umlag|en nicht|
|000007d0| 20 65 69 6e 67 65 67 65 | 62 65 6e 2e 5c 6e 20 5c | eingege|ben.\n \|
|000007e0| 6e 57 6f 6c 6c 65 6e 20 | 53 69 65 20 49 68 72 65 |nWollen |Sie Ihre|
|000007f0| 20 41 6e 67 61 62 65 6e | 20 6b 6f 72 72 69 67 69 | Angaben| korrigi|
|00000800| 65 72 65 6e 3f 22 00 22 | 41 6e 7a 61 68 6c 20 64 |eren?"."|Anzahl d|
|00000810| 65 72 20 55 6d 6c 61 67 | 65 6e 20 66 65 68 6c 74 |er Umlag|en fehlt|
|00000820| 22 00 74 62 6c 53 75 6d | 28 5b 24 32 36 31 37 5d |".tblSum|([$2617]|
|00000830| 2c 5b 24 33 34 39 31 5d | 3d 3d 30 2e 63 26 5b 24 |,[$3491]|==0.c&[$|
|00000840| 32 34 38 36 5d 21 3d 30 | 2c 30 29 3d 3d 30 00 22 |2486]!=0|,0)==0."|
|00000850| 53 69 65 20 68 61 62 65 | 6e 20 69 6e 20 64 65 72 |Sie habe|n in der|
|00000860| 20 22 2b 73 74 72 69 6e | 67 28 74 62 6c 46 69 72 | "+strin|g(tblFir|
|00000870| 73 74 49 6e 64 65 78 28 | 5b 24 32 36 31 37 5d 2c |stIndex(|[$2617],|
|00000880| 5b 24 33 34 39 31 5d 3d | 3d 30 2e 63 26 5b 24 32 |[$3491]=|=0.c&[$2|
|00000890| 34 38 36 5d 21 3d 30 29 | 29 2b 22 2e 20 5a 65 69 |486]!=0)|)+". Zei|
|000008a0| 6c 65 20 64 69 65 20 48 | f6 68 65 20 64 65 72 20 |le die H|.he der |
|000008b0| 65 72 68 61 6c 74 65 6e | 65 6e 20 55 6d 6c 61 67 |erhalten|en Umlag|
|000008c0| 65 6e 20 6e 69 63 68 74 | 20 65 69 6e 67 65 67 65 |en nicht| eingege|
|000008d0| 62 65 6e 2e 5c 6e 20 5c | 6e 57 6f 6c 6c 65 6e 20 |ben.\n \|nWollen |
|000008e0| 53 69 65 20 49 68 72 65 | 20 41 6e 67 61 62 65 6e |Sie Ihre| Angaben|
|000008f0| 20 6b 6f 72 72 69 67 69 | 65 72 65 6e 3f 22 00 22 | korrigi|eren?"."|
|00000900| 48 f6 68 65 20 64 65 72 | 20 55 6d 6c 61 67 65 6e |H.he der| Umlagen|
|00000910| 20 66 65 68 6c 74 22 00 | 22 4d 69 65 74 65 69 6e | fehlt".|"Mietein|
|00000920| 6e 61 68 6d 65 6e 22 00 | 4d 69 65 74 45 69 6e 57 |nahmen".|MietEinW|
|00000930| 6f 68 6e 00 41 6e 7a 00 | 22 41 6e 7a 2e 22 00 24 |ohn.Anz.|"Anz.".$|
|00000940| 32 34 38 36 00 42 65 7a | 65 69 63 68 00 22 42 65 |2486.Bez|eich."Be|
|00000950| 7a 65 69 63 68 6e 75 6e | 67 22 00 24 31 31 34 39 |zeichnun|g".$1149|
|00000960| 00 45 69 6e 7a 65 6c 42 | 65 74 72 61 67 00 22 42 |.EinzelB|etrag."B|
|00000970| 65 74 72 61 67 22 00 24 | 33 34 39 31 00 42 65 74 |etrag".$|3491.Bet|
|00000980| 72 61 67 00 22 53 75 6d | 6d 65 22 00 24 33 00 24 |rag."Sum|me".$3.$|
|00000990| 32 35 33 38 00 22 53 75 | 6d 6d 65 20 4d 69 65 74 |2538."Su|mme Miet|
|000009a0| 65 69 6e 6e 61 68 6d 65 | 6e 22 00 5e 2e 24 31 38 |einnahme|n".^.$18|
|000009b0| 31 34 00 22 55 6d 6c 61 | 67 65 6e 2c 20 76 65 72 |14."Umla|gen, ver|
|000009c0| 72 65 63 68 6e 65 74 20 | 6d 69 74 20 45 72 73 74 |rechnet |mit Erst|
|000009d0| 61 74 74 75 6e 67 65 6e | 22 00 55 6d 6c 61 67 65 |attungen|".Umlage|
|000009e0| 6e 00 41 6e 7a 32 00 42 | 65 7a 65 69 63 68 32 00 |n.Anz2.B|ezeich2.|
|000009f0| 45 69 6e 7a 65 6c 42 65 | 74 72 61 67 32 00 24 32 |EinzelBe|trag2.$2|
|00000a00| 36 31 37 00 22 53 75 6d | 6d 65 20 55 6d 6c 61 67 |617."Sum|me Umlag|
|00000a10| 65 6e 22 00 22 53 75 6d | 6d 65 20 4d 69 65 74 65 |en"."Sum|me Miete|
|00000a20| 69 6e 6e 61 68 6d 65 6e | 20 75 6e 64 20 55 6d 6c |innahmen| und Uml|
|00000a30| 61 67 65 6e 22 00 5e 2e | 24 31 37 33 00          |agen".^.|$173.   |
+--------+-------------------------+-------------------------+--------+--------+