Histórico da Página

01. DADOS GERAIS

02. DESCRIÇÃO

1. Permiti a criação de um ponto de entrada na rotina WMSA505 (Separação da Ordem de Serviço), após selecionar clicar a opção 'Solicitar' da grid inferior 'Produtos Requisição'
2. Na criação do Ponto de Entrada, será enviado os seguintes campos/variáveis como parâmetro: Produto, Lote, Armazém de Origem, Endereço de Origem e Quantidade a Solicitar;É enviado como parâmetro a tabela temporária que contem os dados GRID 'Produtos Requisição'
3. O programa padrão estará aguardando um valor lógico de retorno, para prosseguir ou não com o processo. 

03. LOCALIZAÇÃO

Localizado na function função WMSA505MNU, no modo de na opção 'Solicitar'        

04. PARÂMETROS

05. RETORNO

06. VERSÕES

Protheus 12

07. OBSERVAÇÃO

Como forma de otimização da fonte padrão, foi passado no PE como forma de parâmetro um arrayFoi passado como parâmetro uma tabela temporária (cAliasPRD) que contem todos os campos solicitados pelo Escopo da Propostadados da grid 'Produtos Requisição'. Portanto, para resgatar todos os valores dos campos solicitados desse arraydados da tabela temporária, pode-se fazer como logo exemplo abaixo no exemplo do print:

Image Removed

08. EXEMPLO

#DEFINE PULAR Chr(10) // SALTO DE LINHA

User Function WMSA5051()

    Local cAliasPRD :=  PARAMIXB[1 - Chamada do Ponto de  Entrada 

...

]
    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)

            RecLock(cAliasPRD,.F.)
                (cAliasPRD)->D4_COD := "INSUMO VERDE LIMA"
            (MsUnlock())

            MsgAlert((cAliasPRD)->D4_COD)
        
Return .T.

EndIf

2 - Ponto de Entrada 

User Function WMSA5051( )

          Local cAliasPRD := PARAMIXB[1]

...