Discussion :

[yorgh1234]

Bonjour,

Je remercie le forum pour sa participation et sa réactivité !

Sinon, je travaille sur le point d'entrée BEFWRISOI du traitement RELAUTO de génération des relevés d'échéances.
J'ai construit des critères pour sélectionner les relevés que je veux laisser créer.
Du coup comment annuler la création des autres ?
J'ai testé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[V]GOK=0

sans succès ...

Si quelqu'un à une idée ... n'est-ce pas piotr.n !

[hado34]

il existe un point d entre FILTRE dans RELAUTO qui permet de filtrer les echeances donc pas besoin d annuler la creation

[yorgh1234]

Merci Hado64.

J'ai déjà implémenté le point d'entrée FILTRE, mais la condition que je doit implémenter porte sur le montant final du relevé.
Je pensai donc, qu'une fois le relevé construit, on pouvait en fonction de son montant annuler ou pas sa création.
Ainsi cela permettait de ne pas avoir à parcourir les échéances de chaque client pour calculer le montant final et de profiter du fait que le standard le fait pour construire le relevé.

Bien sûr si personne n'a d'idée sur comment annuler la création, ou si cela n'est pas possible, je ferai le calcul dans le point d'entrée FILTRE.

[hado34]

il y a un champ au lancement de la fonction permettant de saisir un montant minimum pour le releve pour eviter la creation d un releve

ca ne vous convient pas?

[yorgh1234]

Bonjour, merci pour ton aide

Non ce champs permet d'exclure des relevés dont le montant est inférieur à un montant donné, mais il ne prend pas en compte le sens (avoir ou facture).
Ainsi, par exemple, si on entre 5,00 dans ce champs, des relevés pour 10,00 euros d'avoir pourront être édités.
Le comportement que je recherche est de n'éditer des relevés que pour un montant supérieur à 5,00, soit aucun montant "négatif".

En fait je suis en train de coder cette fonctionnalité dans le point d'entrée FILTRE.
Je posterai la démarche complète quand j'aurai quelque chose de satisfaisant.

[hado34]

si ca peut aider

[yorgh1234]

Encore merci pour ton aide.

De mon côté, j'ai construit une solution basée sur une fonction

En premier lieu, j'ai défini une fonction pour calculer le montant du futur relevé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Funprog MONTANT_RELEVE(CLIENT, PAM, DATEMAX)
  Value Char CLIENT
  Value Char PAM
  Value Date DATEMAX
 
  Local Integer F_DUD
  Local Decimal RETOUR
  Local Char F(250)
 
#  les  ne doivent pas être soldées, ni déjà sur un relevé, possiblement sur un relevé, bonnes à payer, dont l'état est OK
  [L]F = "AMTCUR<>PAYCUR & SOINUM='' & SOI=2 & FLGPAZ=4 & DUDSTA=2 "
#  EN FONCTION DU MOYEN DE PAIEMENT ET DE LA Date max D'échéance
  If PAM<>'' Then
    [L]F += " & PAM = '"+PAM+"' "
  Endif
  If DATEMAX<>[0/0/0] Then
    [L]F += " & DUDDAT<DATEMAX "
  Endif
 
  #ouverture conditionnelle de la table GACCDUDATE
  If !clalev([F:DUDZ]) Then
    Local File GACCDUDATE [F:DUDZ]
    [L]F_DUD = 1
  Endif
  #somme des échéances du client en fonction du filtre sur les échéances
  Filter [F:DUDZ] Where evalue([L]F)
    For [F:DUDZ] Where [F:DUDZ]BPRPAY = CLIENT
      RETOUR += [F:DUDZ]SNS * [F:DUDZ]AMTCUR
    Next
  Filter [F:DUDZ]
 
  If [L]F_DUD = 1 Then
    Close Local File [F:DUDZ]
  Endif
 
End RETOUR

Ensuite, j'ai modifié dans le point d'entrée FILTRE, le filtre SPE en utilisant cette fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
If [M:DIA]ZMONTANTMINI>0
    If FILTSPE<>""
      FILTSPE  += " & "
    Endif
    # il faut écrire dans le filtre la valeur des variables locales car ces variables ne sont plus disponible dans la suite de l'éxécussion du standard
    FILTSPE  += "func ZSPERELAUTO.MONTANT_RELEVE(BPRPAY, '"+PAM_+"', [M:DIA]DATMAX) >= [M:DIA]ZMONTANTMINI "
  Endif

Si ça peut aider quelqu'un...

A noter que pour ce développement je n'ai pris en compte que les échéances des clients.