Script à remplacer dans le paramétrage existant
|
Rem ----------------------------------------------------------------------- Rem -------------------- ImprimerRetenuesGaranties ------------------------ Rem ----------------------------------------------------------------------- Function ImprimerRetenuesGaranties(ImpressionReelle : Booleen) as Nombre Hauteur = 0 ImprimerRet = Faux RetenuesGar.Filtre = "CLEDOC = " & ListeDocuments.CLEDOC RetenuesGar.ORDRE = "NUMORDRE" Si Non(RetenuesGar est vide) Alors Rem --- Regarder si il y a au moins une retenue à imprimer Parcourir RetenuesGar rem Si (RetenuesGar.MTRET <> 0) Alors Rem -- BF 01/10/2012 M#285036 ou RetenuesGar.PC <> 0) Alors ImprimerRet = Vrai Sortir rem Fin Si Boucler Rem --- Imprimer le TTC Net si il y a des Postes TTC et des Retenues Si ((ImprimerRet = Vrai) ET (NbPosteTTCImprimé > 0)) Alors Hauteur = Hauteur + ImprimerOuEvaluer(ImpressionReelle, "Total TTC Net") Fin Si Rem --- Imprimer les RG Si (ImprimerRet = Vrai) Alors Hauteur = Hauteur + ImprimerOuEvaluer(ImpressionReelle, "DébutRG") Parcourir RetenuesGar Hauteur = Hauteur + ImprimerOuEvaluer(ImpressionReelle, "InterRG") rem Si(RetenuesGar.MTRET <>0) Alors Rem -- BF 01/10/2012 M#285036 Hauteur = Hauteur + ImprimerOuEvaluer(ImpressionReelle, "RG") Hauteur = Hauteur + ImprimerOuEvaluer(ImpressionReelle, "MtCautionRG") rem Si (RetenuesGar.MTCAUTIONIMPUTE <> 0) Alors Hauteur = Hauteur + ImprimerOuEvaluer(ImpressionReelle, "MtCautionRG") rem Fin Si rem Fin Si Boucler Hauteur = Hauteur + ImprimerOuEvaluer(ImpressionReelle, "FinRG") Fin Si Rem --- Imprimer le Total Net uniquement si il y a des Postes TTC ou des RG Si ((ImprimerRet = Vrai) OU (NbPosteTTCImprimé > 0)) Alors Hauteur = Hauteur + ImprimerOuEvaluer(ImpressionReelle, "Total Net") Fin Si Fin Si Résultat = Hauteur End Function Rem ----------------------------------------------------------------------- Rem ------------------ GetListeRetenuesGaranties -------------------------- Rem ----------------------------------------------------------------------- Function GetListeRetenuesGaranties() as Texte var List : Texte ImprimerRet = Faux RetenuesGar.Filtre = "CLEDOC = " & ListeDocuments.CLEDOC RetenuesGar.ORDRE = "NUMORDRE" Si Non(RetenuesGar est vide) Alors Rem --- Regarder si il y a au moins une retenue à imprimer Parcourir RetenuesGar rem Si (RetenuesGar.MTRET <> 0) Alors Rem -- BF 01/10/2012 M#285036 ou RetenuesGar.PC <> 0) Alors ImprimerRet = Vrai Sortir rem Fin Si Boucler Rem --- Imprimer le TTC Net si il y a des Postes TTC et des Retenues Si ((ImprimerRet = Vrai) ET (NbPosteTTCImprimé > 0)) Alors List = List & ", Total TTC Net" Fin Si Rem --- Imprimer les RG Si (ImprimerRet = Vrai) Alors List = List & ", DébutRG" Parcourir RetenuesGar List = List & ", InterRG" rem Si(RetenuesGar.MTRET <>0) Alors Rem -- BF 01/10/2012 M#285036 List = List & ", RG" Si (RetenuesGar.MTCAUTIONIMPUTE <> 0) Alors List = List & ", MtCautionRG" Fin Si rem Fin Si Boucler List = List & ", FinRG" Fin Si Rem --- Imprimer le Total Net uniquement si il y a des Postes TTC ou des RG Si ((ImprimerRet = Vrai) OU (NbPosteTTCImprimé > 0)) Alors List = List & ", Total Net" Fin Si Fin Si Résultat = List End Function |
SAGE Bâtiment : Comment afficher la RG et la Caution sur les situations de travaux et les factures d'avancements
A l'inverse lorsque la caution est partielle cette information et bien affichée sur l'édition.
Alors comment faire apparaître le montant de la caution sur retenue de garantie lorsque la caution couvre le montant de la retenue?
Réponse :