Árvore de páginas

Versões comparadas

Chave

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

...

Bloco de código
languagetext
#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  := "gestaogerencia.uniforme@gmailempresa@gmail.com"

If !EMPTY(aCabec)
    Aadd(aCabec, {"D3_GERENC", cGerenc , Nil} )
    aRet := aCabec
Else
    Aadd(aItens[1], {"D3_TIPOMOVTIPOUNI",  cTipouni, Nil} )
    Aadd(aItens[1], {"D3_OBSERVA", cEmail , Nil} )
     aRet := aItens
EndIf

Return aRet

...