Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

02. EXEMPLO DE UTILIZAÇÃO


Bloco de código
languagecppdelphi
themeEclipse
firstline1
titleExemplo de Utilização
linenumberstrue
User functionFunction EFFMV160()
    Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))
DO
    Do Case
case        Case cParam == "ADD_WORK_STRU"//cria um campo novo
Adiciona novos campos ao array para serem criados na tabela temporária
            AADD(aEstru,{ "EF1_MDPDES" , "C", 50, 0})
case
        Case cParam == "GRAVA_WORK"//grava dados no campo novo
Permite gravar informações nos campos da tabela temporária work
            Work->EF1_MDPDES := "gravado via ponto de entrada"

        Case cParam == "ADD_COLUNA_ARQUIVO" //Adiciona as colunas criadas no aEstru para geraçãoAo criar novos campos na tabela temporária, estes devem ser adicionados ao array aTitulos para que sejam exibidos no relatório em arquivo
            aAdd(aTitulos,{"Campo PE","C","",""})

    EndCase

returnReturn

03. Parâmetros

Outras Ações / Ações relacionadas

...