Histórico da Página
...
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) : | DLOGWMSMSP-14131/FSWSES-3956 |
02. DESCRIÇÃO
- Permiti Permite a criação de um ponto de entrada na rotina WMSA505 (Separação da Ordem de Serviço), após clicar a na opção 'Solicitar' da grid inferior 'Produtos Requisição'
- É enviado como parâmetro a tabela temporária que contem os dados GRID 'Produtos Requisição'
- O programa padrão estará aguardando um valor lógico de retorno, para prosseguir ou não com o processo.
...
Foi passado como parâmetro uma a 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:
...
Local cAliasPRD := PARAMIXB[1]
Local aArea := GetArea()
Local cMenssagem cMsg := ""
Local lRet DbSelectArea(cAliasPRD)
:= .T.
lRet := U_UWMS505V(cAliasPRD)->(DbGoTop())
If lRet
cMenssagem cMsg += "Produto: "+(cAliasPRD)->D4_COD+" "+ PULAR
cMenssagem cMsg += "Lote: "+(cAliasPRD)->D4_LOTECTL+" "+ PULAR
cMenssagem cMsg += "Armazem de Origem: "+(cAliasPRD)->D4_LOCORI+" "+ PULAR
cMenssagem cMsg += "Endereço de Origem: "+(cAliasPRD)->D4_ENDORI+" "+ PULAR
cMenssagem cMsg += "Quantidade a Solicitar: "+cValToChar((cAliasPRD)->D4_QUANT)+" "+ PULAR
MsgAlert(cMenssagemcMsg,"Seu Titulo")
Else
RecLock(cAliasPRD,.F.MsgAlert("Msg NOK","Seu Titulo")
EndIf
(cAliasPRD)->D4_COD := "INSUMO VERDE LIMA"
(MsUnlock()) MsgAlert((cAliasPRD)->D4_COD)
Return .T.RestArea(aArea)
Return lRet
User Function UWMS505V()
Local lRet := .F.
//Alguma validação aqui
Return lRet