4D Doc Center : PV CELLULES VERS TABLEAU

4D View v14

PV CELLULES VERS TABLEAU


PV CELLULES VERS TABLEAU ( zone ; direction ; colonne ; ligne ; tableau ; nombre )

Paramètre	Type	Description
zone	Entier long	Zone 4D View
direction	Entier	0 = Ligne; 1 = Colonne
colonne	Entier long	Numéro de la colonne de départ
ligne	Entier long	Numéro de la ligne de départ
tableau	Tableau	Nom de la variable de type tableau
nombre	Entier long	Nombre de cellules à utiliser

Description

La commande PV CELLULES VERS TABLEAU remplit le tableau avec le contenu des cellules désignées par sens, colonne, ligne et nombre.

sens spécifie si la commande PV CELLULES VERS TABLEAU doit effectuer une copie de cellules contiguës dans le sens horizontal (0) ou vertical (1), à partir de la cellule définie par colonne et ligne.

Note : L'usage du paramètre sens est différent de celui du paramètre direction des commandes PV ALLER A CELLULE SUIVANTE et PV LIRE CELL LIBRE SUIVANTE, pour lesquelles la direction peut être dans n'importe quel sens. En ce qui concerne la commande PV CELLULES VERS TABLEAU, le sens est soit vers la droite (0 = ligne), soit vers le bas (1 = colonne).

Exemple

Prenons pour exemple une zone 4D View incluse dans un masque de saisie de la table des clients : ce tableau, contenant 10 lignes au plus, servira à saisir ou modifier les contacts chez ce client. La zone de saisie est donc constituée de dix cellules disposées en colonne à partir de la cellule courante.

 TABLEAU ALPHA(255;$TabContacts;0) `Tableau des noms de contacts

 C_ENTIER LONG($Colonne;$Ligne) `Coordonnées de la cellule de départ

 

 PV LIRE CELLULE COURANTE(Zone;$Colonne;$Ligne)

 

  `10 lignes maximum à partir de la cellule courante vers le bas

 PV CELLULES VERS TABLEAU(Zone;1;$Colonne;$Ligne;$TabContacts;10)

 

 Si(Taille tableau($TabContacts)#0) `Quelque chose a été récupéré ?

    LIEN RETOUR([Clients]Code) `Récupération des enregistrements liés

    SUPPRIMER SELECTION([Contacts]) `Purge de l'existant

  `Mise à jour des contacts (nouveaux, modifiés ou supprimés)

    TABLEAU VERS SELECTION($TabContacts;[Contacts]NomDuContact) `Création des contacts

    APPLIQUER A SELECTION([Contacts];[Contacts]CodeClient:=[Clients]Code) `Pour conserver le lien

    CHERCHER DANS SELECTION([Contacts];[Contacts]NomDuContact="") `Purge des contacts vides

    SUPPRIMER SELECTION([Contacts])

 Fin de si