Histórico da Página
...
Bloco de código | ||
---|---|---|
| ||
#INCLUDE 'protheus.ch' #INCLUDE 'parmtype.ch' #INCLUDE "FWMVCDEF.CH" User Function At470Cpo() Local aCabec := PARAMIXB[1] //Recebe o primeiro parâmetro "Cabeçalho" ou Nil Local aItens := PARAMIXB[2] //Recebe o segundo parâmetro "Itens" ou Nil Local nOpc := PARAMIXB[3] //Recebe o terceiro parâmetro "Ação" 3- Inclusão, 4- Alteração /*/ ↓↓ Variaveis a serem utilizadas ↓↓ /*/ Local cGerenc := "Teste" Local cTipomov := "Requisição" Local cEmail := "[email protected]" If nOpc == 3 // Adicionando campos no array aCabec Aadd(aCabec, {"CP_GERENC", cGerenc , Nil} ) // Adicionando campos no array aItens Aadd(aItens[1], {"CP_OBS", "Teste PE At470Cpo" , Nil} ) Aadd(aItens[1], {"CP_TIPOMOV", cTipomov , Nil} ) Aadd(aItens[1], {"CP_EMAIL", cEmail , Nil} ) // Verificar se existe campo no array aItens nPos := aScan( aItens[1], {|x| x[1] == "CP_CC" }) If nPos > 0 aItens[1,nPos,2] := "999999999" Else Aadd(aItens[1], {"CP_CC", "999999999" , Nil} ) EndIF EndIf EndIf Return {aCabec, aItens} |
04. DEMAIS INFORMAÇÕES
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas