Histórico da Página

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

...

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

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, 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

UserFunction WMSA5051()

    Local cAliasPRD :=  PARAMIXB[1]
    Local cAliasSD4 :=  PARAMIXB[2]
    Local cMenssagem         := ""
    Local lRet         := .T.
    Local  aAreaSD4  := (cAliasSD4)->(GetArea())
    Local  aAreaPRD   DbSelectArea:= (cAliasPRD)->(GetArea())
   
    DbSelectArea(cAliasPRD)->(DbGoTop())
   
    lRet := U_UWMS505V((cAliasPRD)->D4_COD)
    If !lRet
            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,"Seu Titulo")
            cMenssagem := ""

        DbSelectArea(cAliasSD4)
        RecLock(cAliasPRD,.F.)
(cAliasSD4)->(DbGoTop())

            cMenssagem += "Descrição:                  "+(cAliasPRDcAliasSD4)->D4_COD := "INSUMO VERDE LIMA"
DESC+" "+ PULAR
            cMenssagem += "Sub-Lote:             (MsUnlock())      "+(cAliasSD4)->D4_NUMLOTE+" "+ PULAR
            MsgAlert(cMenssagem,"Seu Titulo")
    EndIf
    RestArea((cAliasPRD)->D4_COD)
        
Return .T.aAreaSD4)
    RestArea(aAreaPRD)
Return lRet

UserFunction UWMS505V(lProduto)
    //função para validação
    Local lRet := .F.
    If lProduto = 'WMSZN100A'
        lRet := .T.
    Else
       lRet := .F.
    EndIf

Return lRet

-----------

09. ANEXO

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