ΚΚ` --------------------------------------------Lang----
ΚΚ` Anwender (OS): oz
ΚΚ` Datum und Zeit: 17.11.04, 14:38:23
ΚΚ` ----------------------------------------------------
ΚΚ` Methode: ReadWrite_Enable
ΚΚ` Beschreibung
ΚΚ` 
ΚΚ` siehe auch   ReadOnly_Enable
ΚΚ` Parameter
ΚΚ` 1..N P_Table
ΚΚ` 2 
ΚΚ` 3 
ΚΚ` => 
ΚΚ` ----------------------------------------------------

C_LONGINT($i;$N;$winRef;$recNbr_L)
C_POINTER($P_Table)

For ($i;1;Count parameters)
$P_Table:=${$i}ΚΚ`liest sich besser, viel besser
Case of 
: (Nil($P_Table))
: (Read only state($P_Table->))
ΚΚ`wenn es nicht READ WRITE war, mu§ der Datensatz sowieso neu geladen werden
ΚΚ`sichern ist nicht nštig, sind ja read only
$recNbr_L:=Record number($P_Table->)ΚΚ`₯₯₯₯  oz (20.04.2008) 
UNLOAD RECORD($P_Table->)ΚΚ`₯₯₯₯  oz (13.03.2007)  
READ WRITE($P_Table->)
If ($recNbr_L>=0)ΚΚ`₯₯₯₯  oz (20.04.2008) 
ΚΚ`wenn ein Datensatz aktuell war, laden wir ihn wieder
GOTO RECORD($P_Table->;$recNbr_L)
End if 
End case 
End for 

ΚΚ`Anwendung1   ReadWrite_Enable (->[LIEFERANTEN])
ΚΚ`Anwendung2   ReadWrite_Enable (->[LIEFERANTEN];->[Adressen];->[Korrespondenz])
ΚΚ` *****  Ende der Methode: ReadWrite_Enable  *****