WDForge.org - Forums

Re: Parcours programmé sur une table

Sujet: Re: Parcours programmé sur une table
par Anonyme sur 1/3/2004 15:41:56

utilise un filtre avec condition !!!
testé et approuvé(temps de réponse divisé par 10 !!!)

HFiltre( , )

dans le code initialisation de la table

et tableaffiche(Table,taInit)

ex :

wlcond=construitcond()
HFiltre(DPXENP,wlcond)

avec construitcond() :

wlcond est une chaîne
wlcond=""
SI SAI_DENUCDPX <> 0 ALORS
SI SansEspace(wlcond)<>"" ALORS
wlcond=wlcond+" ET "
FIN
wlcond=wlcond+"DENUCDPX >= "+SAI_DENUCDPX
FIN

SI SansEspace(SAI_DECREPRE) <> "" ALORS
SI SansEspace(wlcond)<>"" ALORS
wlcond=wlcond+" ET "
FIN
wlcond=wlcond+"DECREPRE='"+SAI_DECREPRE+"'"
FIN

SI SansEspace(SAI_DECODCLI) <> "" ALORS
SI SansEspace(wlcond)<>"" ALORS
wlcond=wlcond+" ET "
FIN
wlcond=wlcond+"DECORIGI = '"+Gauche(SAI_DECODCLI,1)+"'"
wlcond=wlcond+" ET "
wlcond=wlcond+"DECAFFEC = '"+Milieu(SAI_DECODCLI,2,3)+"'"
wlcond=wlcond+" ET "
wlcond=wlcond+"DENUMCLI = '"+Droite(SAI_DECODCLI,4)+"'"
FIN

SI SansEspace(wlcond)<>"" ALORS
wlcond=wlcond+" ET "
FIN
wlcond=wlcond+"DETYARTI='K' "

SI SansEspace(SAI_DETYPTRA) <> ""
SI SansEspace(wlcond)<>"" ALORS
wlcond=wlcond+" ET "
FIN
wlcond=wlcond+"DESOARTI='"+SAI_DETYPTRA+"'"
FIN

SI SansEspace(SAI_DELIBPRO) <> "" ALORS
SI SansEspace(wlcond)<>"" ALORS
wlcond=wlcond+" ET "
FIN
wlcond=wlcond+"DELIBPRO ~] '"+SAI_DELIBPRO+"'"
FIN

RENVOYER wlcond