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
 

Actualités

Version 8.01 Sage Gestion commerciale...

Sage Gestion Commerciale i7 version 8.01 s'enrichit de nouvelles fonctionnalités qui vont vous permettre de gérer plus efficacement votre...

En savoir plus...

Version 8 Sage étendue i7 Nouveautés

La version 8 de Sage Etendue est compatible avec les applications Sage 30 & Sage100 Génération i7 v8.01.

En savoir plus...

Version 8 Sage Notes de frais i7 Nouveautés

La version 8 de Sage Notes de frais est compatible avec les applications Sage 30 & Sage100 Génération i7 v8.01 et Sage Paie i7 v7.30 SGBDR.

En savoir plus...

Arrêt du protocole SSL

Le 1er juin 2015, le protocole SSL va être retiré de nos serveurs déclaratifs et bancaires (sage.fr).

En savoir plus...

Sage Bâtiment : Absence du menu "insertion"...

Ce comportement ne vient pas des droits d'accès sur les utilisateurs mais des options d'affichage des documents.

En savoir plus...

SAGE 100 : "Le format de la chaine d'entrée...

Si vous utilisez une ancienne version de Sage Direct (3.5 ou 3.6) et que vous venez d'installer Acrobat reader DC, alors au lancement de Sage...

En savoir plus...

SAGE Bâtiment : Comment afficher la RG et la...

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...

En savoir plus...

SAGE 30/100 : Comment est alimentée la colonne...

La colonne "Mouvements au dernier jour de l'exercice précédent" est alimentée en fonction de la colonne "type d'écriture" présente dans les...

En savoir plus...

SAGE Bâtiment : Augmenter dans un devis la...

Il est possible dans un devis d'augmenter la quantité de main d'œuvre prévu.

En savoir plus...

SAGE Bâtiment : Pourquoi la saisie d'un...

On peut constater que lorsqu'on saisit un pourcentage d'avancement sur une ligne d'ouvrage, cette valeur n'est pas tout le temps reprise sur la...

En savoir plus...

Création de sites à Lorient Propulsé par izi-media