{"text_format":"dbase-jsonl-2026-09-30","columns":[{"name":"G_ZEILE","type":"character","width":255}],"n_rows":246,"rows_kept":246,"cut":false,"deleted_skipped":0,"read_ended":"whole","bounds":"16MiB/16384/4096/first_that_fit","version":"dbase_level_three","encoding_class":"enc_absent","reader":"statdb_count/12"}
["*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"]
["*³                                                               ³"]
["*³ Programm :Adressen                                       ³"]
["*³ Autor    :Bernd Haase                                                       ³"]
["*³ Inhaber  :Bernd Haase                                                       ³"]
["*³ Straáe   :Eichenweg 3 a                                                   ³"]
["*³ Wohnort  :2858 Schiffdorf-Wehdel                                 ³"]
["*³ Telefon  :04749-8238                                                ³"]
["*³ FAX      :04749-8238                                                ³"]
["*ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"]
["#include io.hdr"]
["#include date.hdr"]
["#include system.hdr"]
["#include string.hdr"]
["#include database.hdr"]
["#include colors.hdr"]
["#include data.hdr"]
["#include fileio.hdr"]
["#include memo.hdr"]
["#include browse.hdr"]
["#include keys.hdr"]
[null]
["#define clrmemo \"GR+/BR\""]
["#pragma w_func_proc-"]
["#pragma w_get_local-"]
["#pragma w_precision-"]
["#pragma w_indirect-"]
[null]
["*"]
["* Datenbankdefinitionen"]
["*"]
["dbfdef Adressen"]
["char(25)     vorname"]
["char(25)     strasse"]
["char(25)     ort"]
["char(16)     telefon"]
["char(16)     fax"]
["dbl(10: 2)     op"]
["char(25)     name"]
["enddef"]
["indexdef"]
["char(25)     name                          Adressen->name"]
["char(16)     fax                           Adressen->fax"]
["enddef"]
["vardef"]
["logical loesch"]
["enddef"]
["Procedure Daten_drucken_Adressen"]
["endpro"]
["function uint Tabelle_I_Adressen"]
["parameters value ulong   ulAdress, ;"]
["value  uint   uiCallType, ;"]
["char   chSayString"]
["vardef"]
["uint    uiEditScreen"]
["uint    uiMouseRow"]
["uint    uiMouseCol"]
["ulong   ulKorrRecord"]
["char(5) chMouseString"]
["dbl     dblBetragBackup"]
["enddef"]
["if uiCallType = 0"]
["chsaystring = ''"]
["chsaystring = chsaystring + Adressen->vorname+' ³'"]
["chsaystring = chsaystring + Adressen->strasse+' ³'"]
["chsaystring = chsaystring + Adressen->ort+' ³'"]
["chsaystring = chsaystring + Adressen->telefon+' ³'"]
["chsaystring = chsaystring + Adressen->fax+' ³'"]
["chsaystring = chsaystring + str(Adressen->op,10, 2)+' ³'"]
["chsaystring = chsaystring + Adressen->name+' ³'"]
["return 0"]
["else"]
["if lastkey()=&K_ESC"]
["return 3"]
["endif"]
["endif"]
["endpro"]
["Procedure Tabelle_II_Adressen"]
["vardef"]
["byte    bColor[3]"]
["char(74)  chTitel[3]"]
["char(74)  chFuss"]
["char    chFields"]
["ulong   ulTopRecord"]
["ulong   ulBottomRecord"]
["enddef"]
["save_screen"]
["chfields = space(75)"]
["chfuss = 'Ende mit ESC'"]
["chtitel[0]='Adressendatei'"]
["chtitel[1]=''"]
["chtitel[2]=''"]
["bcolor[0]=&black_light_grey"]
["bcolor[1]=&white_black"]
["bcolor[2]=&black_light_green"]
["browse(Adressen,10,05,18,76,chtitel[],chfuss,chfields,bcolor[],1,0,0,Tabelle_I_Adressen)"]
["restore_area"]
["endpro"]
["Procedure Daten_Aus_Adressen"]
["@ 6, 5 say \"Vorname                :\""]
["@ row(),col() say Adressen->vorname picture \"XXXXXXXXXXXXXXXXXXXXXXXXX\""]
["@ 7, 5 say \"Straáe                 :\""]
["@ row(),col() say Adressen->strasse picture \"XXXXXXXXXXXXXXXXXXXXXXXXX\""]
["@ 8, 5 say \"Wohnort                :\""]
["@ row(),col() say Adressen->ort picture \"XXXXXXXXXXXXXXXXXXXXXXXXX\""]
["@ 9, 5 say \"Telefon                :\""]
["@ row(),col() say Adressen->telefon picture \"XXXXXXXXXXXXXXXX\""]
["@10, 5 say \"FAX                    :\""]
["@ row(),col() say Adressen->fax picture \"XXXXXXXXXXXXXXXX\""]
["@12, 5 say \"Offene Posten          :\""]
["@ row(),col() say Adressen->op picture \"9999999.99\""]
["@ 5, 5 say \"Name                   :\""]
["@ row(),col() say Adressen->name picture \"XXXXXXXXXXXXXXXXXXXXXXXXX\""]
["if deleted()"]
["@ 21,02 say 'Gel\u0094scht'"]
["else"]
["@ 21,02 say '±±±±±±±±'"]
["endif"]
["endpro"]
["Procedure Daten_Ein_Adressen"]
["@ 6,29 get Adressen->vorname picture \"XXXXXXXXXXXXXXXXXXXXXXXXX\""]
["@ 7,29 get Adressen->strasse picture \"XXXXXXXXXXXXXXXXXXXXXXXXX\""]
["@ 8,29 get Adressen->ort picture \"XXXXXXXXXXXXXXXXXXXXXXXXX\""]
["@ 9,29 get Adressen->telefon picture \"XXXXXXXXXXXXXXXX\""]
["@10,29 get Adressen->fax picture \"XXXXXXXXXXXXXXXX\""]
["@12,29 get Adressen->op picture \"9999999.99\""]
["@ 5,29 get Adressen->name picture \"XXXXXXXXXXXXXXXXXXXXXXXXX\""]
["read"]
["endpro"]
["Procedure Datenbank_open_Adressen"]
["if .not. exist('Adressen.dbf')"]
["build 'Adressen.dbf' from alias Adressen"]
["endif"]
["open Adressen"]
["index name"]
["index fax"]
["set order to 1"]
["go top"]
["endpro"]
["Procedure Steuer_Adressen"]
["vardef"]
["int wahl,i_wahl"]
["char(25) zname"]
["char(16) zfax"]
["enddef"]
["set color to \"b+/w\",\"/w\",\"b+/w\""]
["clear"]
["store .f. to loesch"]
["Datenbank_open_Adressen()"]
["if iscolor()"]
["fill(1,1,23,79,&double_box,\"±\",&blue_green,&blue_green,6)"]
["else"]
["fill(1,1,23,79,&double_box,\"±\",0,1,6)"]
["endif"]
["@ 4, 4 clear to 13,54"]
["@ 4, 4 to 13,54"]
["@ 1,3 say \">>Arbeitsblatt Adressen<<\""]
["do while .t."]
["daten_aus_Adressen"]
["@ 24,01 say \"Befehle: Eingeben \u008endern L\u0094schen Tabelle Suchen Index Drucken + - Hauptmen\u0081\""]
["@ 24,10 prompt \"E\""]
["@ 24,19 prompt \"\u008e\""]
["@ 24,26 prompt \"L\""]
["@ 24,34 prompt \"T\""]
["@ 24,42 prompt \"S\""]
["@ 24,49 prompt \"I\""]
["@ 24,55 prompt \"D\""]
["@ 24,63 prompt \"+\""]
["@ 24,65 prompt \"-\""]
["@ 24,67 prompt \"H\""]
["menu to wahl"]
["do case"]
["case wahl=1"]
["append blank"]
["daten_ein_Adressen"]
["case wahl=2"]
["daten_ein_Adressen"]
["case wahl=3"]
["if deleted()"]
["recall"]
["else"]
["delete"]
["store .t. to loesch"]
["endif"]
["case wahl=4"]
["do Tabelle_II_Adressen"]
["case wahl=5"]
["if I_wahl= 1"]
["store Adressen->name                      to zname"]
["@  5,29 get zname"]
["read"]
["seek zname"]
["if .not. found()"]
["no_burn_key(\"Datum nicht gefunden\")"]
["go top"]
["endif"]
["endif"]
["if I_wahl= 2"]
["store Adressen->fax                       to zfax"]
["@ 10,29 get zfax"]
["read"]
["seek zfax"]
["if .not. found()"]
["no_burn_key(\"Datum nicht gefunden\")"]
["go top"]
["endif"]
["endif"]
["case wahl=6"]
["do save_screen"]
["@ 23, 2 prompt 'NAME'"]
["@ 23, 7 prompt 'FAX'"]
["menu to i_wahl"]
["if i_wahl= 1"]
["set order to  1"]
["endif"]
["if i_wahl= 2"]
["set order to  2"]
["endif"]
["do restore_area"]
["case wahl=7"]
["do Daten_drucken_Adressen"]
["case wahl=8"]
["skip"]
["if eof()"]
["go bottom"]
["endif"]
["case wahl=9"]
["skip -1"]
["if bof()"]
["go top"]
["endif"]
["case wahl=10"]
["if loesch"]
["pack"]
["endif"]
["close all"]
["set color to"]
["clear"]
["quit"]
["endcase"]
["enddo"]
["endpro"]
["Procedure FCO_Main"]
["set date german"]
["Steuer_Adressen()"]
["endpro"]