PEMODSLO: Inhibiting the copy message of the lot complement on sub-lots

Use this entry point to deactivate the message "Do you want to copy this lot complement to the other sub-lots? ".

The deactivation is carried out via the GPE heading.

If GPE=0, the message is activated (standard case).

If GPE <> 0, the message is deactivated.

Context and operating mode

Available screen and file classes

Set the GPE global variable to 1 to deactivate the message.

MOD_ENTL Modifying the content of the STOENTLOT mask

Use this entry point to modify the content of the lot complement entry mask: STOENTLOT

Context and operating mode

This entry point is located at the end of the CHARGE-ENTL label of the SUBENTL processing.

It is used to modify or recalculate all the headings after the standard initialization of the lot complement entry mask.

Example: to modify the expiration reference date, it is necessary to modify the [M:ENTL]REFPER heading and to recalculate the expiration date, the use-by date and the recontrol date via the STKLIB processing sub-programs.

CALPER for the expiration date

CALDLU for the use-by date

CALLTI for the recontrol date

Example of syntax:

[M:ENTL]REFER = [JJ/MM/AAAA]   (specific date)

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