01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

SIGAWMS - Gestão de Armazenagem

Função:

WMSA505.prw

País:

Todos Países

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


FSWSES-3956


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 clicar a opção 'Solicitar' da grid inferior 'Produtos Requisição'
  2. É 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 função WMSA505MNU, na opção 'Solicitar'        

04. PARÂMETROS

NomeTipoObrigatório
cAliasPRDTabela TemporáriaSim

05. RETORNO

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

06. VERSÕES

Protheus 12

07. OBSERVAÇÃO

Foi passado como parâmetro uma tabela temporária (cAliasPRD) que contem todos os dados da grid 'Produtos Requisição'. Portanto, para resgatar todos os dados da tabela temporária, pode-se fazer como no exemplo abaixo:


08. EXEMPLO


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

User Function WMSA5051()

    Local cAliasPRD :=  PARAMIXB[1]
    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.