...
| 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 |
...
Necessidade de realizar uma nova validação ao informar o campo "Endereço Origem".
...
Incluir o novo Ponto de Entrada WMS095EO, para que seja possível efetuar a validação após informação do campo "Endereço Origem"
Tabela Utilizada
...
Localizado na rotina WMSV095 (Transferência de Produtos Entre Endereços), na validação do endereço origem.
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 |
Nome | Tipo | Descrição |
|---|---|---|
| lRet | Lógico | Indica se o sistema irá permitir prosseguir ou não para informação do próximo campo. |
Protheus 12.1.17 ou superiores.
Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta em Execblock / Customização.
------
User Function WMS095VL()
Local lRet := .T.
Local cArmOri := PARAMIXB[1] //armazém origem
Local cEnderOri := PARAMIXB[2] //endereço origem
Local cArmDes := PARAMIXB[3] //armazém destino
Local cEnderDes := PARAMIXB[4] //endereço destino
Local cProduto := PARAMIXB[5] //produto
Local cLote := PARAMIXB[6] //lote
Local cSubLote := PARAMIXB[7] //sub-lote
Local nQuantid:= PARAMIXB[8] //Quantidade digitada
If Alltrim(cEnderDes) == "Teste"
WMSVTAviso("WMS","Transferência não permitida.")
lRet := .F.
EndIf
Return lRet
------
| Templatedocumentos |
|---|
