| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | WMSA170 - Geração de Endereços |
| País: | Brasil |
| Ticket: | 23156287 |
| Requisito/Story/Issue (informe o requisito relacionado) : | DLOGWMSMSP-17451 / DLOGWMSMSP-17497 |
Inclusão de novos pontos de entrada no momento da gravação de novos endereços (tabela SBE).
Efetuada a inclusão de um ponto de entrada WMA170EN para que seja executado antes da gravação dos endereços, de modo com que seja possível realizar consistências anteriores à inclusão e se necessário barrar a geração de determinados endereços.
Efetuada a inclusão de um ponto de entrada WMA170FI para que seja executado no final da geração de cada endereço gerado pelo programa WMSA170.
Exemplo de uso:
#INCLUDE "PROTHEUS.CH"
User Function WMA170FI()
MsgStop("Novo endereço gravado com sucesso!", "Atenção!")
Return |
#INCLUDE "PROTHEUS.CH"
User Function WMA170EN()
Local cFilSBE := PARAMIXB[1]
Local cArmazem := PARAMIXB[2]
Local cCodEst := PARAMIXB[3]
Local cCodCfg := PARAMIXB[4]
Local cCodZon := PARAMIXB[5]
Local cEndereco := PARAMIXB[6]
Local cCodExc := PARAMIXB[7]
Local nAltura := PARAMIXB[8]
Local nLargura := PARAMIXB[9]
Local nComprim := PARAMIXB[10]
Local nCapacid := PARAMIXB[11]
Local lRet := .T.
If nAltura > 100
lRet := .F.
EndIf
Return lRet |