PV CELLS TO ARRAY

Version 6.8

PV CELLS TO ARRAY (Bereich; Richtung; Achse; Start; Array; Numerisch)

Der Befehl PV CELLS TO ARRAY füllt das Array mit dem Zelleninhalt, definiert durch Achse, Richtung, Start und Nummer.

Richtung gibt an, ob PV CELLS TO ARRAY die Kopie fortlaufender Zellen in horizontaler (0) oder vertikaler (1) Richtung ausführt. Je nach Wert in Richtung enthält der Parameter Achse die Zeilen- oder Spaltennummer.

Hinweis: Der Parameter Richtung arbeitet hier anders als für die Befehle PV GOTO NEXT CELL und PV GET NEXT FREE CELL, wo jede Richtung möglich ist. Für PV CELLS TO ARRAY läuft Richtung entweder nach rechts (0 = Zeile) oder nach unten (1=Spalte).

Im Eingabeformular für Kunden werden die verknüpften Kontakte in einem 4D View Bereich über Arrays (PV ARRAY TO CELLS) dargestellt. Der 4D View Bereich zeigt maximal 10 Zeilen an. Der Anwender ändert hier Kontakte ober gibt neue ein. Die aktuelle Zelle sollte A1 sein:

   ARRAY STRING(255;ContactsTab;0)  `Array mit Kundennamen
   C_LONGINT($Column;$Row)  `Koordinaten der Startzelle

   PV GET CURRENT CELL (Bereich;$Column;$Row)

      `Max. 10 Zeilen nach unten ausgehend von der aktuellen Zelle
   PV CELLS TO ARRAY (Bereich;1;$Column;$Row;ContactsTab;10)

   If (Size of array(ContactsTab)#0)  `Wurden Daten ins Array übertragen?      
      RELATE MANY([Clients]Code)  `Kontakte dieses Kunden laden
      DELETE SELECTION([Contacts])  `Lösche vorhandene Kontakte
      ARRAY TO SELECTION(ContactsTab;[Contacts]ContactName)  `Erstelle Kontakte neu
      APPLY TO SELECTION([Contacts];[Contacts]CodeClient:=[Clients]Code)  
                                          `Definiere Verknüpfung
      QUERY SELECTION([Contacts];[Contacts]ContactName="")  `Suche leere Kontakte
      DELETE SELECTION([Contacts]) `und löschen 
   End if 

PV ARRAY TO CELLS, PV FIELD TO CELLS.