/ Chip Hitware 7 / Chip_Hitware_Vol_07.iso / chiphit7 / business / datatron / disk1 / adress.clc

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 5c bc 00 00 00 05 00 | 04 00 1a 00 41 6b 74 75 |.\......|....Aktu|
|00000010| 65 6c 6c 65 20 53 61 74 | 7a 6e 75 6d 6d 65 72 20 |elle Sat|znummer |
|00000020| 7a 65 69 67 65 6e 00 00 | 6e 00 76 61 72 20 4e 75 |zeigen..|n.var Nu|
|00000030| 6d 6d 65 72 3a 3d 22 44 | 69 65 20 61 6b 74 75 65 |mmer:="D|ie aktue|
|00000040| 6c 6c 65 20 53 61 74 7a | 6e 75 6d 6d 65 72 20 69 |lle Satz|nummer i|
|00000050| 73 74 3a 20 22 20 26 20 | 41 6b 74 53 61 74 7a 4e |st: " & |AktSatzN|
|00000060| 72 20 26 20 22 20 76 6f | 6e 20 22 20 20 26 20 4c |r & " vo|n "  & L|
|00000070| 65 74 7a 74 65 53 61 74 | 7a 4e 72 3b 0d 0a 0d 0a |etzteSat|zNr;....|
|00000080| 4d 65 6c 64 75 6e 67 73 | 66 65 6e 73 74 65 72 28 |Meldungs|fenster(|
|00000090| 4e 75 6d 6d 65 72 29 3b | 10 00 45 69 6e 66 61 63 |Nummer);|..Einfac|
|000000a0| 68 65 20 4d 65 6c 64 75 | 6e 67 00 00 20 00 4d 65 |he Meldu|ng.. .Me|
|000000b0| 6c 64 75 6e 67 73 66 65 | 6e 73 74 65 72 28 22 48 |ldungsfe|nster("H|
|000000c0| 65 6c 6c 6f 20 57 6f 72 | 6c 64 21 22 29 3b 1a 00 |ello Wor|ld!");..|
|000000d0| 4b 6f 6d 70 6c 65 74 74 | 65 20 41 64 72 65 73 73 |Komplett|e Adress|
|000000e0| 65 20 65 72 7a 65 75 67 | 65 6e 30 00 49 6e 20 65 |e erzeug|en0.In e|
|000000f0| 69 6e 20 44 61 74 65 6e | 66 65 6c 64 20 64 69 65 |in Daten|feld die|
|00000100| 20 6b 6f 6d 70 6c 65 74 | 74 65 20 41 64 72 65 73 | komplet|te Adres|
|00000110| 73 65 20 65 69 6e 66 fc | 67 65 6e 2e e3 00 76 61 |se einf.|gen...va|
|00000120| 72 20 41 64 72 3a 3d 22 | 22 3b 0d 0a 0d 0a 41 64 |r Adr:="|";....Ad|
|00000130| 72 3a 3d 46 69 72 6d 61 | 20 26 20 43 52 20 26 20 |r:=Firma| & CR & |
|00000140| 41 6e 72 65 64 65 20 26 | 20 22 20 22 20 26 20 56 |Anrede &| " " & V|
|00000150| 6f 72 6e 61 6d 65 20 26 | 20 22 20 22 20 20 26 20 |orname &| " "  & |
|00000160| 4e 61 6d 65 20 26 20 43 | 52 3b 0d 0a 0d 0a 77 65 |Name & C|R;....we|
|00000170| 6e 6e 20 50 6f 73 74 66 | 61 63 68 20 3c 3e 20 22 |nn Postf|ach <> "|
|00000180| 22 20 64 61 6e 6e 20 41 | 64 72 3a 3d 41 64 72 20 |" dann A|dr:=Adr |
|00000190| 26 20 20 22 50 6f 73 74 | 66 61 63 68 20 22 20 26 |&  "Post|fach " &|
|000001a0| 20 50 6f 73 74 66 61 63 | 68 3b 0d 0a 73 6f 6e 73 | Postfac|h;..sons|
|000001b0| 74 20 41 64 72 3a 3d 41 | 64 72 20 26 20 53 74 72 |t Adr:=A|dr & Str|
|000001c0| 61 73 73 65 3b 0d 0a 0d | 0a 41 64 72 3a 3d 41 64 |asse;...|.Adr:=Ad|
|000001d0| 72 20 26 20 43 52 20 26 | 20 50 6c 7a 20 26 20 22 |r & CR &| Plz & "|
|000001e0| 20 22 20 26 20 4f 72 74 | 3b 0d 0a 4b 6f 6d 70 6c | " & Ort|;..Kompl|
|000001f0| 65 74 74 65 41 64 72 65 | 73 73 65 3a 3d 41 64 72 |etteAdre|sse:=Adr|
|00000200| 3b 11 00 53 63 68 6c 65 | 69 66 65 6e 62 65 69 73 |;..Schle|ifenbeis|
|00000210| 70 69 65 6c 00 00 66 00 | 76 61 72 20 61 3a 3d 30 |piel..f.|var a:=0|
|00000220| 3b 0d 0a 0d 0a 73 6f 6c | 61 6e 67 65 20 61 3c 31 |;....sol|ange a<1|
|00000230| 30 30 20 6d 61 63 68 65 | 0d 0a 7b 0d 0a 20 41 62 |00 mache|..{.. Ab|
|00000240| 62 72 75 63 68 4d 69 74 | 45 73 63 61 70 65 3b 0d |bruchMit|Escape;.|
|00000250| 0a 20 61 3a 3d 61 2b 31 | 3b 0d 0a 7d 0d 0a 0d 0a |. a:=a+1|;..}....|
|00000260| 4d 65 6c 64 75 6e 67 73 | 66 65 6e 73 74 65 72 28 |Meldungs|fenster(|
|00000270| 22 61 3d 22 20 26 20 61 | 29 3b 0d 0a 0d 0a 0e 00 |"a=" & a|);......|
|00000280| 53 75 63 68 65 20 75 6e | 73 65 72 69 f6 73 4d 00 |Suche un|seri.sM.|
|00000290| 41 6c 6c 65 20 75 6e 73 | 65 72 69 f6 73 65 6e 20 |Alle uns|eri.sen |
|000002a0| 4b 75 6e 64 65 6e 20 73 | 75 63 68 65 6e 20 75 6e |Kunden s|uchen un|
|000002b0| 64 20 64 65 72 65 6e 20 | 44 61 74 65 6e 20 69 6e |d deren |Daten in|
|000002c0| 20 64 69 65 20 5a 77 69 | 73 63 68 65 6e 61 62 6c | die Zwi|schenabl|
|000002d0| 61 67 65 20 61 75 73 67 | 65 62 65 6e 2e bd 01 76 |age ausg|eben...v|
|000002e0| 61 72 20 53 61 74 7a 4e | 72 3a 3d 31 3b 0d 0a 76 |ar SatzN|r:=1;..v|
|000002f0| 61 72 20 47 65 66 75 6e | 64 65 6e 3a 3d 30 3b 0d |ar Gefun|den:=0;.|
|00000300| 0a 76 61 72 20 42 6f 74 | 73 63 68 61 66 74 3a 3d |.var Bot|schaft:=|
|00000310| 22 22 3b 0d 0a 0d 0a 73 | 6f 6c 61 6e 67 65 20 28 |"";....s|olange (|
|00000320| 53 61 74 7a 4e 72 3c 3d | 4c 65 74 7a 74 65 53 61 |SatzNr<=|LetzteSa|
|00000330| 74 7a 4e 72 29 20 6d 61 | 63 68 65 0d 0a 7b 0d 0a |tzNr) ma|che..{..|
|00000340| 41 62 62 72 75 63 68 4d | 69 74 45 73 63 61 70 65 |AbbruchM|itEscape|
|00000350| 3b 0d 0a 47 65 68 65 5a | 75 28 53 61 74 7a 4e 72 |;..GeheZ|u(SatzNr|
|00000360| 29 3b 20 0d 0a 77 65 6e | 6e 20 55 6e 73 65 72 69 |); ..wen|n Unseri|
|00000370| f6 73 3e 30 20 64 61 6e | 6e 20 0d 0a 20 20 7b 0d |.s>0 dan|n ..  {.|
|00000380| 0a 20 20 20 20 42 6f 74 | 73 63 68 61 66 74 3a 3d |.    Bot|schaft:=|
|00000390| 20 56 6f 72 6e 61 6d 65 | 20 26 20 22 2c 20 22 20 | Vorname| & ", " |
|000003a0| 26 20 4e 61 6d 65 20 26 | 20 22 2c 20 22 20 26 20 |& Name &| ", " & |
|000003b0| 4b 75 6e 64 65 6e 6e 75 | 6d 6d 65 72 3b 0d 0a 20 |Kundennu|mmer;.. |
|000003c0| 20 20 20 53 63 68 72 65 | 69 62 65 49 6e 43 6c 69 |   Schre|ibeInCli|
|000003d0| 70 62 6f 61 72 64 28 42 | 6f 74 73 63 68 61 66 74 |pboard(B|otschaft|
|000003e0| 20 26 20 43 52 29 3b 0d | 0a 20 20 20 20 47 65 66 | & CR);.|.    Gef|
|000003f0| 75 6e 64 65 6e 3a 3d 31 | 3b 0d 0a 20 20 7d 0d 0a |unden:=1|;..  }..|
|00000400| 0d 0a 20 53 61 74 7a 4e | 72 3a 3d 53 61 74 7a 4e |.. SatzN|r:=SatzN|
|00000410| 72 2b 31 3b 0d 0a 7d 0d | 0a 0d 0a 77 65 6e 6e 20 |r+1;..}.|...wenn |
|00000420| 47 65 66 75 6e 64 65 6e | 20 64 61 6e 6e 20 4d 65 |Gefunden| dann Me|
|00000430| 6c 64 75 6e 67 73 66 65 | 6e 73 74 65 72 28 22 55 |ldungsfe|nster("U|
|00000440| 6e 73 65 72 69 f6 73 65 | 28 6e 29 20 4b 75 6e 64 |nseri.se|(n) Kund|
|00000450| 65 6e 20 67 65 66 75 6e | 64 65 6e 22 29 20 3b 73 |en gefun|den") ;s|
|00000460| 6f 6e 73 74 20 20 4d 65 | 6c 64 75 6e 67 73 66 65 |onst  Me|ldungsfe|
|00000470| 6e 73 74 65 72 28 22 55 | 6e 73 65 72 69 f6 73 65 |nster("U|nseri.se|
|00000480| 28 6e 29 20 4b 75 6e 64 | 65 6e 20 6e 69 63 68 74 |(n) Kund|en nicht|
|00000490| 20 67 65 66 75 6e 64 65 | 6e 22 29 3b             | gefunde|n");    |
+--------+-------------------------+-------------------------+--------+--------+