Histórico da Página

User Function AT190FVI()
Local oView := PARAMIXB[1]  // Estrutura da View, passado por referência
Local aSubMdls := PARAMIXB[2] // Estrutura das tabelas, passado por referência
Local nX := 0

For nX := 1 To Len(aSubMdls)

    If aSubMdls[nX,2] == "TGY"

        aSubMdls[nX,1]:AddField("TGY_DESCPR",;
                                "06",;
                                "Descrição Produt.",;
                                "Descrição Produt.",;
                                {},;
                                "C",;
                                "@!",;
                                Nil,;
                                Nil,;
                                .T.,;
                                "",;
                                Nil,;
                                Nil,;
                                Nil,;
                                Nil,;
                                .T.,;
                                Nil)

    EndIf

Next nX

Return .T.