// Compte nombre de bl à reprendre dans fiche client
    @VIndex                := COMPTE(@RefClient.MDésignations)

// met à 0 les variables
    @VIndexEcriture        := 0
    @VIndexLecture         := 0

// Remplissages généraux de la facture
    @Concerne              := ""

    @DateBulletinLivr      := AUJOURDHUI()
    @CodeBanque            := 1
    @SDocument             := 0
    @FraisEmballage        := @RefClient.MFraisPortEmballage

// Remplis la liste des éléments dans la fiche client
// combien de lignes sont à lire, combien sont déjà écrites
    @VIndexLecture         := 0
    @VIndexEcriture        := COMPTE(@ADésignation)


// boucle d'écriture
// toutes les lignes à recopier...

    #TANTQUE @VIndexLecture < COMPTE(@RefClient.MQuantités)
         @ACodeTVA[@VIndexEcriture]               := "TVA"
         @RefArticles[@VIndexEcriture]            := @RefClient.MRefArticles[@VIndexLecture]
         @AQuantité[@VIndexEcriture]              := @RefClient.MQuantités[@VIndexLecture]
         @ADésignation[@VIndexEcriture]           := @RefClient.MDésignations[@VIndexLecture]
         @APrix[@VIndexEcriture]                  := @RefClient.MPrix[@VIndexLecture]
         @RefBulletinLivr[@VIndexEcriture]        := @RefClient.MNuméro[@VIndexLecture]
         @ASpécialDate[@VIndexEcriture]           := @RefClient.MDate[@VIndexLecture]
         @VIndexLecture                           := @VIndexLecture + 1
         @VIndexEcriture                          := @VIndexEcriture + 1
   #REPETE

// Vide la fiche client
// d'abord le tableau

   @VIndex     := COMPTE(@RefClient.MQuantités)
   #TANTQUE @VIndex > 0
      @RefClient.MNuméro[@VIndex-1]              := VIDE()
      @RefClient.MQuantités[@VIndex-1]           := VIDE()
      @RefClient.MDésignations[@VIndex-1]        := VIDE()
      @RefClient.MPrix[@VIndex-1]                := VIDE()
      @RefClient.MDate[@VIndex-1]                := VIDE()
      @RefClient.MRefArticles[@VIndex-1]         := VIDE()
      @VIndex     := @VIndex-1
   #REPETE

// puis les autres rubriques
   @RefClient.MFraisPortEmballage                 := VIDE()