Árvore de páginas

Versões comparadas

Chave

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

...

Bloco de código
languagecpp
themeRDark
titleManipulação de PE no sistema
linenumberstrue
aCpos := {"ALX_CO","ALX_CLASSE","ALX_OPER","ALX_CC","ALX_ITCTB","ALX_CLVLR","ALX_SEQ","ALX_REGRA","ALX_QTDTOT","ALX_VLTOT"}
If ExistBlock("PCOA4931")
	If VALTYPE(aCposUsr := ExecBlock("PCOA4931"))="A"
		aEval(aCposUsr , {|x| aAdd(aCpos , x ) } )
	EndIf
EndIf
aHeaderALX := GetAHeader("ALX",aCpos,)
aColsALX 	:= nil
Bloco de código
languagecpp
themeRDark
titleExemplo de PE
linenumberstrue
User Function PCOA4931

    Local aCampos := {"ALX_PLANEJ"}

Return  aCampos

...