Pour la mise en place de la certification FSC & PEFC pour un client, il faut que j'initialise un nouveau champ de la table SINVOICED (ZCERTFORET) avec le certificat associé à l'article dans le champ ZCERTFORET de ITMMASTER lors de la génération de facture.
0
1 Réponse
0
Meilleure réponse
Bonjour, je vais faire les questions et les réponses afin de charger mon forum.
Donc voici la solution que j'ai adopté :
Modification du traitement SPESIH afin d'effectuer une recherche de l'article et initialiser le nouveau champ avec la donnée de la table article.
$ACTION
Case ACTION
When "CREATION" : Gosub CREATION
When "APRES_CRE" : Gosub APRES_MOD
When "APRES_MOD" : Gosub APRES_MOD
When "MODIF" : Gosub CREATION
When "INIMOD_LIG" : Gosub INIMOD_LIG
When "INICRE_LIG" : Gosub INICRE_LIG
When default
Endcase
Return
######################################################################################
$CREATION
#@NCH-10/06/2015 - Modification de l'arrondi du champ xvamt afin de toucher le champ AMTVAT de la table SVCRVAT
[M:SIHV]XVAMT = arr([M:SIHV]XVAMT,0.01)
[F:SIH]AMTTAX(0) = arr([F:SIH]AMTTAX(0),0.01)
[F:SIH]AMTATI = arr([F:SIH]AMTATI,0.01)
[F:SIH]AMTATIL = arr([F:SIH]AMTATIL,0.01)
[F:SIH]AMTNOT = arr([F:SIH]AMTNOT,0.01)
[F:SIH]AMTNOTL = arr([F:SIH]AMTNOTL,0.01)
Return
######################################################################################
$INICRE_LIG
#@NCH-10/06/2015 - Modification de l'arrondi du champ AMTTAXLIN1
[M:SIH4]AMTTAXLIN1 = arr([M:SIH4]AMTTAXLIN1,0.01)
[F:SID]AMTATILIN = arr([F:SID]AMTATILIN,0.01)
#@GBA-27/06/2022 - Initialisation des champs de certification FEC PEFC
Read [F:ITM]ITM0=[F:SID]ITMREF
[F:SID]ZCERTFORET = [F:ITM]ZCERTFORET
[M:SIH4]ZCERTFORET = [F:ITM]ZCERTFORET
Return
