DT PE WMSA5051 - Botão 'Solicitar' na grade 'Produtos Requisição'

01. DADOS GERAIS

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.

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

05. RETORNO

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. Portanto, para resgatar todos os dados da tabela 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 aArea     := GetArea()
    Local cMsg         := ""
    Local lRet         := .T.

    lRet := U_UWMS505V()
    If lRet
        cMsg += "Produto:                  "+(cAliasPRD)->D4_COD+" "+ PULAR
        cMsg += "Lote:                     "+(cAliasPRD)->D4_LOTECTL+" "+ PULAR
        cMsg += "Armazem de Origem:        "+(cAliasPRD)->D4_LOCORI+" "+ PULAR
        cMsg += "Endereço de Origem:       "+(cAliasPRD)->D4_ENDORI+" "+ PULAR
        cMsg += "Quantidade a Solicitar:   "+cValToChar((cAliasPRD)->D4_QUANT)+" "+ PULAR
        MsgAlert(cMsg,"Seu Titulo")
    Else
        MsgAlert("Msg NOK","Seu Titulo")
    EndIf
    RestArea(aArea)
Return lRet

User Function UWMS505V()
    Local lRet := .F.

    //Alguma validação aqui

Return lRet

-----------

09. ANEXO

• DT PE WMSA5051 - Botão Solicitar na grade Produtos Requisição.pdf