01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:SIGAWMS - Gestão de Armazenagem
Função:

WMSA150 - Execução de Serviços

País:Todos Países
Ticket:-
Requisito/Story/Issue (informe o requisito relacionado) :-


02. DESCRIÇÃO

Este Ponto de Entrada permite incrementar a validação padrão na seleção de endereços durante a execução de ordens de serviço de recebimento ou de transferência sem endereço de destino.

Válido somente para armazéns não unitizados.

03. LOCALIZAÇÃO

Localizado na função que avalia se o produto a ser endereçado pode compartilhar o endereço com o produto armazenado.

Na rotina de Execução de Serviço (WMSA150), após todas as validações já existentes no produto padrão e exatamente antes da gravação das movimentações (D12).

04. PARÂMETROS

NomeTipoDescrição
cArmazemCaractereCódigo do armazém destino do produto
cEnderecoCaractereCódigo do endereço a ser validado
cProdutoCaractereCódigo do produto a ser armazenado
cLoteCaractereNúmero do lote do produto a ser armazenado

05. RETORNO

NomeTipoDescrição
lRetLógico

Se .T. indica que o endereço pode ser utilizado.

Se .F. indica que o endereço não pode ser utilizado.

cMensagemCaractereCaso lRet seja .F., este conteúdo será exibido no relatório de busca de endereços.

06. VERSÕES

12.1.23 ou superiores.

07. OBSERVAÇÃO

Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização.

08. EXEMPLO

#INCLUDE "PROTHEUS.CH"

User Function WMSVLEND()
Local aRet := {.T.,''}
Local cArmazem  := PARAMIXB[1]
Local cEndereco := PARAMIXB[2]
Local cProduto  := PARAMIXB[3]
Local cLote     := PARAMIXB[4]

    If cEndereco = 'PICKING01'
        aRet[1] := .F.
        aRet[2] := 'Produto ' + AllTrim(cProduto) + '/Lote ' + AllTrim(cLote) + '/Armazém ' + AllTrim(cArmazem) + '/Endereço ' + AllTrim(cEndereco) + ' não pode ser endereçado.'
    ENDIF   
 
Return aRet




<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>