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 |
