Histórico da Página
...
Bloco de código | ||
---|---|---|
| ||
#INCLUDE 'protheus.ch' #INCLUDE 'parmtype.ch' #INCLUDE "FWMVCDEF.CH" User Function At894Cpo() Local aRet := {} Local aCabec := PARAMIXB[1] //Recebe o primiero parâmetro "Cabeçalho" ou Nil Local aItens := PARAMIXB[2] //Recebe o primiero parâmetro "Itens" ou Nil /*/ ↓↓ Adicionar Campos ↓↓ /*/ Local cGerenc := Alltrim(TXC->TXC_GERENC) Local cTipouni := "Uniforme" Local cEmail := "[email protected]" If !EMPTY(aCabec) // Adicionando campos no array aCabec Aadd(aCabec, {"D3_GERENC", cGerenc , Nil} ) // Adicionando campos no aRet := aCabec Else array aItens Aadd(aItens[1], {"D3_TIPOUNI", cTipouni, Nil} ) Aadd(aItens[1], {"D3_OBSERVA", cEmail , Nil} ) Return aRet := aItens EndIf Return aRet{aCabec, aItens} |
04. DEMAIS INFORMAÇÕES
Não há.
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas