SAGE Bâtiment : Comment afficher la RG et la Caution sur les situations de travaux et les factures d'avancements

Depuis la version 4, les paramétrages d'édition des situations de travaux et des factures d'avancement, ne font plus apparaître le montant de la caution sur RG lorsque le montant de la caution est égal au montant de la retenue de garantie.

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 :

Pour permettre l'impression de ces informations il faudra réaliser une modification du script d'édition sur les paragraphes ImprimerRetenuesGaranties et GetListeRetenuesGaranties.

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

Retour