Menü

Mail Listen Archiv | Code Startseite | Anzeige aller Code Fragmente 

4D Code Library

4D Support Center - 4D Code Beispiel zum Thema:

FülleFeld - Optimierte "Apply to Selection" für Servereinsatz

 

Erfaßt von: Thomas Maul (eMail: Thomas.Maul@de.4D.com ) am 27.04.2001 ; -
Letzte Änderung: 14.05.2008

 

Kurzbeschriebung: FülleFeld erlaubt eine Auswahl von Datensätzen mit dem gleichen Wert zu füllen. Dabei ist die Netzwerklast gegenüber ApplyToSelection deutlich reduziert.;

---

Beschreibung Hinweis: der nachstehende Text stimmt für 4D v11 SQL nicht mehr, der Aufwand ist nicht mehr erforderlich. Entweder (ab 4D v11 SQL Release 2 (11.2)) für die Methode einfach die Option "Auf Server ausführen" aktivieren oder per Begin SQL/Update.../End SQL arbeiten. nur für v2004 oder älter erforderlich: Um eine Auswahl von Datensätzen mit dem gleichen Wert zu füllen (wie z. B. auf 0 setzen) wird oft Apply To Selection angewandt. Dazu wird jeder Datensatz über das Netz zum Client übertragen, geändert und wieder zurückgeschickt, die Netzwerklast ist dementsprechend hoch. Alternativ könnte man einen Serverprozeß starten, bei wenigen Datensätzen lohnt sich der Startaufwand (der bis zu 2 Sekunden den Server hoch belasten kann) jedoch nicht. Dieser Code erzeugt ein Array in der gewünschten Größe und schickt das (mittels Array to Selection) zum Server. 1000 Datensätze auf 0 setzen hat somit eine Netzwerklast von 4 Kilobyte. Aufruf mit: FülleFeld(->[Kunden];->[Kunden]Umsatz;0) Beschreibung ändern (nur für Autor - Kennwort geschützt) Keine Beschreibung für FülleFeld - Optimierte "Apply to Selection" für Servereinsatz

---

4D Code Beispiel ` Methode FülleFeld(»Datei;»Feld;»Wert) READ WRITE($1->) CREATE EMPTY SET($1->;"LockedSet") $anz:=Records in selection($1->) $typ:=Type($3->) Case of : (($typ=0) | ($typ=2) | ($typ=24)) ARRAY STRING(79;$tabAlpha;$anz) For ($i;1;$anz) $tabAlpha{$i}:=$3-> End for ARRAY TO SELECTION($tabAlpha;$2->) : (($typ=9) | ($typ=8)) ARRAY LONGINT($TabGanz;$anz) For ($i;1;$anz) $TabGanz{$i}:=$3-> End for ARRAY TO SELECTION($TabGanz;$2->) : ($typ=1) ARRAY REAL($tabZahl;$anz) For ($i;1;$anz) $tabZahl{$i}:=$3-> End for ARRAY TO SELECTION($tabZahl;$2->) Else ALERT("Fehler in FülleTab, Unbekannter Typ = "+String($typ)) CREATE SET($1->;"LockedSet") End case While (MyRecordsInSet ("LockedSet")#0) MESSAGE(String(MyRecordsInSet ("LockedSet"))+" Datensätze sind gesperrt, bitte warten") WarteVarZeit (2) USE SET("LockedSet") CREATE EMPTY SET($1->;"LockedSet") APPLY TO SELECTION($1->;$2->:=$3->) End while UNLOAD RECORD($1->) Code ändern (nur für Autor - Kennwort geschützt)

---

Zurück

 

 

International | Firmenprofil | Kontakt | Site Map | © 4D 1995 - 2007 | Schriftgröße ändern: [A] [A] [A] | - * Externer Link