Points d'entrée >  Module Stocks >  Script standard SUBENTL  

Afficher tout Masquer tout

PEMODSLO : Permet d'inhiber le msg de copie du complément lot sur les sous-lots

Permet de désactiver le message « Souhaitez vous copier ce complément lot sur les autres sous lots ? ».

La désactivation se fait par l intermédiaire de la  rubrique GPE  .

Si GPE =   0   le message est actif  (cas standard)

Si GPE <> 0   le message est inactif

Contexte et mode de fonctionnement

Classes fichiers et écrans disponibles

Mettre la variable globale GPE à 1 pour désactiver le message.

MOD_ENTL Permet de modifier le contenu du masque STOENTLOT

Permet de modifier le contenu du masque de saisie du complement lot : STOENTLOT

Contexte et mode de fonctionnement

Ce point d'entrée est situé à la fin de l'étiquette CHARGE-ENTL du traitement SUBENTL

il permet apres l initialisation standard du masque de la saisie du complément lot. ce PE permet de modifier et recalculer toutes les rubriques

exemple : si le besoin et de modifier la date de référence péremption il suffit de modifier la rubrique [M:ENTL]REFPER et de recalculer la date de péremption , la date limite utilisation et de recontrole en utilisant les sous-programmes du traitement STKLIB

CALPER pour la date de péremption

CALDLU pour la date limite utilisation

CALLTI pour la date de recontrole

exemple de programmation :

[M:ENTL]REFER = [JJ/MM/AAAA] (date spécifique)

Local Integer WCOD : WCOD = [F:ITM]EXYMGTCOD

Local Date WREF : WREF = [M:ENTL]REFER

Local Integer WSHL : WSHL = [M:ENTL]SHL

Local Integer WUOM : WUOM = [M:ENTL]SHLUOM

Local Decimal WDLU : WDLU = [M:ENTL]DLU

Local Date WPER

Local Date WEXY

Local Integer WLTI

Call CALPER(WCOD,WREF,WSHL,WUOM,"",WPER) From STKLIB

[M:ENTL]SHLDAT = WPER

WEXY = [M:ENTL]SHLDAT

Call CALDLU(WCOD,WREF,WEXY,WDLU,"",WPER,WLTI) From STKLIB

[M:ENTL]DLUDAT = WPER

[M:ENTL]DLULTI = WLTI

WSHL = [M:ENTL]SHLLTI

WUOM = [M:ENTL]SHLLTIUOM

Call CALLTI(WCOD,WREF,WSHL,WUOM,"",WPER) From STKLIB

[M:ENTL]NEWLTIDAT = WPER