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 |