bonsoir, svp aidez moi je suis debutant en windev. merci d'avance
ci-dessous le code fait en windev 5.5
HLitPremier("GDCPF101","NumBranchement")
//Code WinDev 5.5 remplacé par la migration :
//tantque pas h.endehors
TANTQUE PAS HEnDehors()
SI PB.MontantinitialEcheancier > 0
// Création vue sur les factures écheances du branchement sélectionné
SI VueSurFacture <> 0 ALORS HDétruitVue(VueSurFacture)
VueSurFacture=0
SI PB.MontantinitialEcheancier <> PB.MontantEcheancesPayees ALORS
// 2. Maj Echeancier
// 2.1. Création vue sur les factures écheances du branchement sélectionné
//Code WinDev 5.5 remplacé par la migration :
// VueSurFacture=hcreevue("GDCPF104","","NumFacture","NumClient='"+pb.NumClient+...
VueSurFacture=HCréeVue("GDCPF104","","NumFacture","NumClient='"+PB.NumClient+...
"' et NumBranchement='"+PB.NumBranchement+...
"' et EtatFactureEcheance='N'"+...
//Code WinDev 5.5 remplacé par la migration :
// "' et (TypeFacture='04' ou TypeFacture='06'",vueblocage)
"' et (TypeFacture='04' ou TypeFacture='06'",hVueBlocage)
SI PF.DateMiseEnRecouvrement <= vgJourneeDeTravail ALORS
HLitPremier(VueSurFacture)
//Code WinDev 5.5 remplacé par la migration :
// tantque pas h.endehors
TANTQUE PAS HEnDehors()
SI PF.EtatFactureEcheance = "N" ALORS
// 2.2. Mise à jour Facture
PF.EtatFactureEcheance = "D"
HModifie(VueSurFacture)
// 2.3. Mise à jour Branchement
PB.MontantEcheancesEchues=PB.MontantEcheancesEchues+GDCPF104.MontantFacture
PB.NbreEcheancesEchues++
PB.SoldeEcheancesEchues=PB.SoldeEcheancesEchues+GDCPF104.MontantFacture
PB.NbreEcheancesEchuesDues++
FIN
HLitSuivant(VueSurFacture)
FIN
FIN
SINON
// 3. Echeancier soldé
// 3.1. Création vue sur les factures écheances du branchement sélectionné
//Code WinDev 5.5 remplacé par la migration :
// VueSurFacture=hcreevue("GDCPF104","","NumFacture","NumClient='"+pb.NumClient+...
VueSurFacture=HCréeVue("GDCPF104","","NumFacture","NumClient='"+PB.NumClient+...
"' et NumBranchement='"+PB.NumBranchement+...
//Code WinDev 5.5 remplacé par la migration :
// "' et (TypeFacture='04' ou TypeFacture='06'",vueblocage)
"' et (TypeFacture='04' ou TypeFacture='06'",hVueBlocage)
// 3.2. Suppression des factures écheances
HLitPremier(VueSurFacture)
//Code WinDev 5.5 remplacé par la migration :
// tantque pas h.endehors
TANTQUE PAS HEnDehors()
HSupprime(VueSurFacture)
HLitSuivant(VueSurFacture)
FIN
// 3.3. Mise à jour Branchement
GDCPF101.NumEcheancier=NumEcheancier
GDCPF101.NbreInitialEcheances=0
GDCPF101.NombreFactures=0
GDCPF101.DateDebut=""
GDCPF101.DateFin=""
GDCPF101.CodeUserEcheancier=vgCodeUtilisateur
GDCPF101.DateAnnulationEcheancier=vgJourneeDeTravail
GDCPF101.MontantEcheancesEchues=0
GDCPF101.NbreEcheancesEchues=0
GDCPF101.SoldeEcheancesEchues=0
GDCPF101.NbreEcheancesEchuesDues=0
GDCPF101.MontantEcheancesPayees=0
GDCPF101.NbreEcheancesPayees=0
FIN
HVueVersFichier(VueSurFacture)
HModifie("GDCPF101")
SI VueSurFacture <> 0 ALORS HDétruitVue(VueSurFacture)
VueSurFacture=0
FIN
HLitSuivant("GDCPF101","NumBranchement")
FIN |