Traitement STKVALREG : Régularisation des prix
BEFREGITV : Avant réécriture de l'enreg [ITV] lors d'une régularisation de prix
Ce point d'entrée est appelé juste avant la réécriture de l'enregistrement [ITV] lors d'une régularisation de prix. L'enregistrement contient déjà les nouvelles valeurs.
Contexte et mode de fonctionnement
Les tables suivantes ont été mises à jour :
STOJOU [STJ] ; STOLOT [STL]; STOCOST [STP]; ITMMVTHIS [ITH]
Transaction
Il y a une transaction en cours
Fichier trace
Il peut y avoir un fichier trace ouvert (tester GTRACE) .
Différents cas d’appel
La régularisation de prix est appelée lors de la validation d'une facture d'achat, du calcul du prix de revient ou de la régularisation sous-traitance (prise en compte de facture de sous-traitance validées après le calcul du prix de revient)
Variables
Variable ou masque |
Définition |
||
Masque SAIDECPRI [SDPD] |
|
Contient la décomposition de la différence de montant qui était à absorber |
|
Masque STKREGW [SRW] |
LOT (Char) |
Lots concernés par la régularisation |
Le quadruplet est unique |
VCRTYP (Integer) |
Type de document qui a créé l'entrée |
||
VCRNUM(Char) |
N° de document qui a créé l'entrée |
||
VCRLIN (Integer) |
N° de ligne du document qui a créé l'entrée |
||
QTYSTU (Decimal) |
Quantité mouvementée pour le quadruplet donné |
||
AMTABS (Decimal) |
Montant absorbé par le quadruplet |
||
AMTNABS (Decimal) |
Montant non absorbé par le quadruplet |
||
QTYSTOLOT (Decimal) |
Quantité en stock du lot |
En cas d'erreur nécessitant l'arrêt du traitement standard, positionner GOK à 0.
Tables ouvertes
ITMMASTER; ITMFACILIT; STOJOU; TABCOSTMET; TABCOSTMVT; STOCOST; STOLOT; ITMMVT; ITMMVTHIS
NULAMTADJ : forcer la régularisation
Ce point d'entrée va permettre de forcer la régularisation des mouvements et des tables de cumuls même si le montant à absorber est nul, ceci dans le but de modifier d'autres montants spécifiques
Contexte et mode de fonctionnement
Ce point d'entrée est appelé juste après le calcul du montant total à absorber.
Transaction
Il y a une transaction en cours
Fichier trace
Il peut y avoir un fichier trace ouvert (tester GTRACE) .
Différents cas d’appel
La régularisation de prix est appelée lors de la validation d'une facture d'achat, du calcul du prix de revient ou de la régularisation sous-traitance (prise en compte de facture de sous-traitance validées après le calcul du prix de revient)
Variables
Variable ou masque |
Définition |
||
Masque STKREGW [SRW] |
LOT (Char) |
Lots concernés par la régularisation |
Le quadruplet est unique |
VCRTYP (Integer) |
Type de document qui a créé l'entrée |
||
VCRNUM(Char) |
N° de document qui a créé l'entrée |
||
VCRLIN (Integer) |
N° de ligne du document qui a créé l'entrée |
||
QTYSTU (Decimal) |
Quantité mouvementée pour le quadruplet donné |
||
AMTABS (Decimal) |
Montant absorbé par le quadruplet |
||
AMTNABS (Decimal) |
Montant non absorbé par le quadruplet |
||
QTYSTOLOT (Decimal) |
Quantité en stock du lot |
||
Masque SAIDECPRI [SDPD] |
AMTTOT (Decimal) |
Montant total à absorber |
|
MATCST (Decimal dimensionné) |
Montant matière (par famille statistique) à absorber |
||
MACCST (Decimal dimensionné) |
Montant machine (par famille statistique) à absorber |
||
LABCST (Decimal dimensionné) |
Montant main d'oeuvre (par famille statistique) à absorber |
||
SCOTOT (Decimal) |
Montant sous-traitance (par famille statistique) à absorber |
||
OVExxxCST (Decimal) |
Montant frais généraux (par type de composante) à absorber |
||
GPE |
Positionner à 1 pour forcer la régularisation |
En cas d'erreur nécessitant l'arrêt du traitement standard, positionner GOK à 0.
Tables ouvertes
ITMMASTER; ITMFACILIT; STOJOU; TABCOSTMET; TABCOSTMVT; STOCOST; STOLOT; ITMMVT; ITMMVTHIS
Selon le contexte, les fichiers concernant les réceptions ou les factures peuvent être ouverts et positionnés.
BEFADJCPT : Pour avoir la main avant le calcul de régularisation des mouvements
Ce point d'entrée va permettre d’agir sur le masque SRW contenant les valeurs servant à calculer les régularisations à effectuer.
Il sera aussi possible d'éviter la régularisation de l'entrée.
Contexte et mode de fonctionnement
Ce point d'entrée est appelé juste avant le calcul de la régularisation des prix.
Transaction
Il y a une transaction en cours
Fichier trace
Il peut y avoir un fichier trace ouvert (tester GTRACE) .
Différents cas d’appel
La régularisation de prix est appelée lors de la validation d'une facture d'achat, du calcul du prix de revient ou de la régularisation sous-traitance (prise en compte de facture de sous-traitance validée après le calcul du prix de revient)
Variables
Variable ou masque |
Définition |
||
GPE |
Initialisée à 0. Mettre 1 pour stopper la régularisation sans déclencher d’erreur |
||
Masque STKREGW [SRW] |
LOT (Char) |
Lots concernés par la régularisation |
Le quadruplet est unique |
VCRTYP (Integer) |
Type de document qui a créé l'entrée |
||
VCRNUM(Char) |
N° de document qui a créé l'entrée |
||
VCRLIN (Integer) |
N° de ligne du document qui a créé l'entrée |
||
QTYSTU (Decimal) |
Quantité mouvementée pour le quadruplet donné |
||
AMTABS (Decimal) |
Montant absorbé par le quadruplet |
||
AMTNABS (Decimal) |
Montant non absorbé par le quadruplet |
||
QTYSTOLOT (Decimal) |
Quantité en stock du lot |
||
Masque SAIDECPRI [SDPD] |
AMTTOT |
Montant total à absorber |
|
MATCST(x), MACCST(x)… |
Détail du montant à absorber |
||
WRND_SOC |
Arrondi des montants = 10^-(nombre de décimales) |
En cas d'erreur nécessitant l'arrêt du traitement standard, positionner PRET à 1.
Tables ouvertes
ITMMASTER; ITMFACILIT; STOJOU; TABCOSTMET; TABCOSTMVT; STOCOST; STOLOT; ITMMVT; ITMMVTHIS
BEFREGUL : Pour agir sur la façon de maj les tables lors d'une régularisation
Ce point d'entrée va permettre de mettre à jour en spécifique les tables concernées par la régularisation de prix, où de choisir une des différentes méthodes proposées par le standard.
Contexte et mode de fonctionnement
Ce point d'entrée est appelé juste avant la mise à jour des tables lors de la régularisation des prix.
Transaction
Il y a une transaction en cours
Fichier trace
Il peut y avoir un fichier trace ouvert (tester GTRACE) .
Différents cas d’appel
La régularisation de prix est appelée lors de la validation d'une facture d'achat, du calcul du prix de revient ou de la régularisation sous-traitance (prise en compte de facture de sous-traitance validées après le calcul du prix de revient)
Variables
Variable ou masque |
Définition |
||
Masque STKREGW [SRW] |
LOT (Char) |
Lots concernés par la régularisation |
Le quadruplet est unique |
VCRTYP (Integer) |
Type de document qui a créé l'entrée |
||
VCRNUM(Char) |
N° de document qui a créé l'entrée |
||
VCRLIN (Integer) |
N° de ligne du document qui a créé l'entrée |
||
QTYSTU (Decimal) |
Quantité mouvementée pour le quadruplet donné |
||
AMTABS (Decimal) |
Montant absorbé par le quadruplet |
||
AMTNABS (Decimal) |
Montant non absorbé par le quadruplet |
||
QTYSTOLOT (Decimal) |
Quantité en stock du lot |
||
LMODSTP (Integer) |
Méthode de mise à jour de la pile FIFO: Par défaut, LMODSTP=4 si la méthode de valorisation de l'article est FIFO ou LIFO, sinon LMODSTP=0 |
||
LUPDTAB (Integer) |
Tables à mettre à jour: Par défaut, LUPDTAB=1+2+4+8+16 = 31 |
En cas d'erreur nécessitant l'arrêt du traitement standard, positionner GOK à 0.
Tables ouvertes
ITMMASTER; ITMFACILIT; STOJOU; TABCOSTMET; TABCOSTMVT; STOCOST; STOLOT; ITMMVT; ITMMVTHIS
ORI_TRK : PE pour gérer la traçabilité sur le suivi au lieu de l'OF
Ce point d'entrée permet de gérer la traçabilité sur le suivi au lieu de l'OF
Contexte et mode de fonctionnement
Transaction
Il y a une transaction en cours
Fichier trace
Il peut y avoir un fichier trace ouvert (tester GTRACE) .
Différents cas d’appel
La régularisation de prix est appelée lors de la validation d'une facture d'achat, du calcul du prix de revient ou de la régularisation sous-traitance (prise en compte de facture de sous-traitance validées après le calcul du prix de revient).
Ce point d'entrée est appelé dans l'étiquette MAJ_STOTRK_REGFLG du traitement STKVALREG. Normalement, le même code doit être utilisé dans ce point d'entrée et le point d'entrée ORI_TRK de STKLIB.
#--- Séquence à écrire dans le point d'entrée
If find([F:STJ]TRSTYP,5,6,19)
WTYP = [F:STJ]VCRTYP
WNUM = [F:STJ]VCRNUM
WLIN = [F:STJ]VCRLIN
WTYPORI = [F:STJ]VCRTYPORI
WNUMORI = [F:STJ]VCRNUMORI
WLINORI = [F:STJ]VCRLINORI
Endif