Histórico da Página

User Function EFFBA160()
Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))

If cParam == "ADD_WORK_STRU"
                 /*Nome do Campo, Tipo, Tamanho, Decimais */
    AADD(aEstru,{ "NOVO_CAMPO"  , "C" , 30      , 0 } )
                    /*Descrição para a coluna no Excel */
    AADD(aDescCpo,{ "Novo Campo"} )

ElseIf cParam == "GRAVA_WORK_SINTETICO"
    Work->NOVO_CAMPO := "Conteudo Novo Campo Sintetico"

ElseIf cParam == "GRAVA_WORK_ANALITICO"
    Work->NOVO_CAMPO := "Conteudo Novo Campo Analitico"

EndIf

Return