Histórico da Página

#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)
    Aadd(aCabec, {"D3_GERENC", cGerenc , Nil} )
    aRet := aCabec
Else
    Aadd(aItens[1], {"D3_TIPOMOV",  cTipouni, Nil} )
    Aadd(aItens[1], {"D3_OBSERVA", cEmail , Nil} )
     aRet := aItens
EndIf

Return aRet