REC-FAC-ACO : Acompte(s) consommé(s) sur facture produit

BUT

Dans la facturation clients, permet de connaître :

• Pour une facture, la liste des lignes d'acomptes rattachées avec leur montant

• Pour un acompte, la liste des factures auxquelles il est rattaché avec le montant affecté par ligne d’acompte

• Pour une facture et un acompte, le montant d’acompte affecté à chaque ligne d’acompte rattachée à la facture

TYPE

CARACTERE

SYNTAXE

Variable = REC-FAC-ACO(FAC=Numéro de facture, ACO=Numéro d’acompte)

PARAMETRES

NOTES

• Si la fonction s’est bien déroulée, la variable résultat est vide sinon elle contient le libellé de l’erreur détectée.

• La fonction renvoie une erreur si :

  • Les deux paramètres sont vides

  • Le numéro de facture est renseigné mais la facture n’existe pas

  • Le numéro d’acompte est renseigné mais l’acompte n’existe pas

  • Les deux sont renseignés et l’acompte n’est pas rattaché à la facture

• La fonction renvoie le résultat dans une liste standard WfFacAco qui contient

  • CdeFacRef : Numéro de facture

  • CdeFacAco : Numéro d’acompte

  • CdeAcoLig : Numéro de ligne d’acompte

  • CdeTvaRef : Code de TVA sur la ligne d’acompte

  • CdeTvaPou : Taux de TVA sur la ligne d’acompte

  • CdeAcoHT : Montant HT de la ligne d’acompte affecté à la facture

  • CdeAcoTTC : Montant TTC de la ligne d’acompte affecté à la facture

  • CdeFacDes : Libellé de la ligne d’acompte

  • CdeNumCom : Numéro de commande rattaché à l’acompte

  • AcoVal : Acompte validé ?

  • CdeAcoTotHT : Montant HT initial de la ligne d’acompte

  • CdeAcoTotTTC : Montant TTC initial de la ligne d’acompte

• La liste standard est vidée lors de chaque appel à la fonction

EXEMPLE

COMMENTAIRE : "Fonction REC-FAC-ACO : récapitulatif factures/acomptes"

COMMENTAIRE : "SCR.CdeFacRef contient un numéro de facture de produit"

COMMENTAIRE : "VCR.LBR_FacAco contient un numéro de facture d'acompte"

VLO.Fac = SCR.CdeFacRef

VLO.Aco = VCR.LBR_FacAco

COMMENTAIRE : "1. On récupère les lignes des acomptes rattachés à la facture de produit"

VLO.Res = REC-FAC-ACO( FAC= VLO.Fac , ACO= CLO."" )

SI VLO.Res = CLO.""

POUR CHAQUE LST WfFacAco :

CREATION Liste LST.FacAco :

PRENDRE FacAco FacAco = CLO."Acomptes pour Facture" + " " + VLO.Fac

PRENDRE FacAco Facture = WfFacAco.CdeFacRef

PRENDRE FacAco Acompte = WfFacAco.CdeFacAco

PRENDRE FacAco LigAco= WfFacAco.CdeAcoLig

PRENDRE FacAco MontHT = WfFacAco.CdeAcoHT

PRENDRE FacAco Montant = WfFacAco.CdeAcoTTC

PRENDRE FacAco Cde = WfFacAco.CdeNumCom

FIN_BLOC

FIN_BLOC

FIN_BLOC

SINON

CREATION Liste LST.FacAco :

PRENDRE FacAco FacAco = CLO."Acomptes pour Facture" + " " + VLO.Fac

PRENDRE FacAco Resultat = VLO.Res

FIN_BLOC

FIN_BLOC

COMMENTAIRE : "2. On récupère les factures rattachées à l'acompte"

VLO.Res = REC-FAC-ACO( FAC= CLO."" , ACO= VLO.Aco )

SI VLO.Res = CLO.""

POUR CHAQUE LST WfFacAco :

CREATION Liste LST.FacAco :

PRENDRE FacAco FacAco = CLO."Factures pour Acompte" + " " + VLO.Aco

PRENDRE FacAco Facture = WfFacAco.CdeFacRef

PRENDRE FacAco Acompte = WfFacAco.CdeFacAco

PRENDRE FacAco LigAco= WfFacAco.CdeAcoLig

PRENDRE FacAco MontHT = WfFacAco.CdeAcoHT

PRENDRE FacAco Montant = WfFacAco.CdeAcoTTC

PRENDRE FacAco Cde = WfFacAco.CdeNumCom

FIN_BLOC

FIN_BLOC

FIN_BLOC

SINON

CREATION Liste LST.FacAco :

PRENDRE FacAco FacAco = CLO."Factures pour Acompte" + " " + VLO.Aco

PRENDRE FacAco Resultat = VLO.Res

FIN_BLOC

FIN_BLOC

COMMENTAIRE : "3. On récupère le montant de chaque ligne des acompte affectés à la facture"

VLO.Res = REC-FAC-ACO( FAC= VLO.Fac , ACO= VLO.Aco )

SI VLO.Res = CLO.""

POUR CHAQUE LST WfFacAco :

CREATION Liste LST.FacAco :

PRENDRE FacAco FacAco = CLO."Montant Acompte" + " " + VLO.Aco + " " + CLO."affecté à la Facture" + " " + VLO.Fac

PRENDRE FacAco Facture = WfFacAco.CdeFacRef

PRENDRE FacAco Acompte = WfFacAco.CdeFacAco

PRENDRE FacAco LigAco= WfFacAco.CdeAcoLig

PRENDRE FacAco MontHT = WfFacAco.CdeAcoHT

PRENDRE FacAco Montant = WfFacAco.CdeAcoTTC

PRENDRE FacAco Cde = WfFacAco.CdeNumCom

FIN_BLOC

FIN_BLOC

FIN_BLOC

SINON

CREATION Liste LST.FacAco :

PRENDRE FacAco FacAco = CLO."Montant Acompte" + " " + VLO.Aco + " " + CLO."affecté à la Facture" + " " + VLO.Fac

PRENDRE FacAco Resultat = VLO.Res

FIN_BLOC

FIN_BLOC