Tratamento SUBENTL : Detalhe lotes

PEMODSLO : Permite inibir a "msg" de cópia do complemento lote sobre o

Permite desativar a mensagem "Deseja copiar este complemento lote sobre os outros sub lotes ?"

A desativação se faz pelo intermédio da rubrica GPE.

Se GPE = 0 a mensagem está ativa (caso standard)

Se GPE <> 0 a mensagem está inativa.

Contexto e modo de funcionamento

Classes ficheiros e ecrãs disponíveis

Colocar a variável global GPE a 1 para desativar a mensagem.

MOD_ENTL Permite de modificar o conteúdo da máscara STOENTLOT

Permite modificar o conteúdo da máscara de registo do complemento lote : STOENTLOT

Contexto e modo de funcionamento

Este ponto de entrada está situado no fim da etiqueta CHARGE-ENTL do tratamento SUBENTL

Permite após I inicialização standard da máscara de registo do complemento lot. Este PE permite modificar e recalcular todas as rubricas.

exemplo : se a necessidade e de modificar a data de referência preempção chega modificar a rubrica [M:ENTL]REFPER e de recalcular a data de preempção, a data limite utilização e o recontrolo em utilizando os sub-programas do tratamento STKLIB.

CALPER para a data de preempção

CALDLU para a data limite utilização.

CALLTI para a data de recontrolo

exemplo de programação :

[M:ENTL]REFER = [DD/MM/AAAA] (data específica)

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