Histórico da Página
...
Produto: | TOTVS Logística WMS |
---|---|
Linha de Produto: | Linha Protheus |
Segmento: | Logística |
Módulo: | TOTVS WMS - Linha Protheus - WMS Protheus (SIGAWMS) |
Função: | |
País: | Todos Países |
Ticket: | 18590948 |
Requisito/Story/Issue (informe o requisito relacionado) : | DLOGWMSMSP-15902 |
02. DESCRIÇÃO
Necessidade de realizar uma nova validação ao informar o campo "Endereço Origem".
03. LOCALIZAÇÃO
Localizado na rotina WMSV095 (Transferência de Produtos Entre Endereços), na validação do endereço origem.
04. PARÂMETROS
Nome | Tipo | Descrição |
---|---|---|
cArmOri | Caractere | Armazém Origem |
cEnderOri | Caractere | Endereço Origem |
cProduto | Caractere | Produto |
cLote | Caractere | Lote |
cSubLote | Caractere | Sublote |
nQuantid | Numérico | Quantidade digitada |
05. RETORNO
Nome | Tipo | Descrição |
---|---|---|
lRet | Lógico | Indica se o sistema irá permitir prosseguir ou não para informação do próximo campo. |
06. VERSÕES
Protheus 12.1.17 ou superiores.
...
User Function WMS095VL()
Local lRet := .T.
Local cArmOri := PARAMIXB[1] //armazém origem
Local cEnderOri := PARAMIXB[2] //endereço origem
Local cArmDes cProduto := PARAMIXB[3] //armazém destino
Local cEnderDes := PARAMIXB[4] //endereço destino
Local cProduto := PARAMIXB[5] //produto
Local cLote := PARAMIXB[64] //lote
Local cSubLote := PARAMIXB[75] //sub-lote
Local nQuantid:= PARAMIXB[86] //Quantidade digitada
If Alltrim(cEnderDescEnderOri ) == "Teste"
WMSVTAviso("WMS","Transferência não permitida.")
lRet := .F.
EndIf
...