01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

SIGAWMS - Gestão de Armazenagem

Função:

WMSA505 - Separação da Ordem de Produção

País:

Todos Países

Ticket:-
Requisito/Story/Issue (informe o requisito relacionado) :

DLOGWMSMSP-14131


02. DESCRIÇÃO

Permite a geração de um Ponto de Entrada na rotina WMSA505 (Separação da Ordem de Serviço), após clicar na opção Solicitar da grade inferior Produtos Requisição.

É enviado como parâmetro a tabela temporária que contém os dados da grade Produtos Requisição e Requisições Empenhadas.

A rotina padrão estará aguardando um valor lógico de retorno, para prosseguir ou não com o processo. 

03. LOCALIZAÇÃO

Localizado na função WMSA505MNU, na opção Solicitar.        

04. PARÂMETROS

NomeTipoObrigatório

cAliasPRD

cAliasSD4

Tabela Temporária

Tabela Temporária

Sim

Sim

05. RETORNO

NomeTipoDescrição
lContinuaBooleanRetorna o valor lógico do PE

06. VERSÕES

Protheus 12.

07. OBSERVAÇÃO

Foi passado como parâmetro a tabela temporária (cAliasPRD), que contêm todos os dados da grade Produtos Requisição, e foi passado também tabela temporária (cAliasSD4), que contêm todos os dados da grade Requisições Empenhadas. Portanto, para resgatar todos os dados de ambas as tabelas temporária, pode-se executar como no exemplo abaixo:

08. EXEMPLO

----------

#DEFINE PULAR Chr(10) // SALTO DE LINHA
User Function WMSA5051()

    Local cAliasPRD :=  PARAMIXB[1]
    Local cAliasSD4 :=  PARAMIXB[2]
    Local cMenssagem := ""

        DbSelectArea(cAliasPRD)
        (cAliasPRD)->(DbGoTop())

            cMenssagem += "Produto:                  "+(cAliasPRD)->D4_COD+" "+ PULAR
            cMenssagem += "Lote:                     "+(cAliasPRD)->D4_LOTECTL+" "+ PULAR
            cMenssagem += "Armazem de Origem:        "+(cAliasPRD)->D4_LOCORI+" "+ PULAR
            cMenssagem += "Endereço de Origem:       "+(cAliasPRD)->D4_ENDORI+" "+ PULAR
            cMenssagem += "Quantidade a Solicitar:   "+cValToChar((cAliasPRD)->D4_QUANT)+" "+ PULAR

            MsgAlert(cMenssagem)

        DbCloseArea(cAliasPRD)
        cMenssagem := ""

        DbSelectArea(cAliasSD4)
        (cAliasPRD)->(DbGoTop())

            cMenssagem += "Descrição:                  "+(cAliasSD4)->D4_DESC+" "+ PULAR
            cMenssagem += "Sub-Lote:                   "+(cAliasSD4)->D4_NUMLOTE+" "+ PULAR

            MsgAlert(cMenssagem)
        
        DbCloseArea(cAliasSD4)

        
Return .T.

-----------

09. ANEXO