Á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  := "[email protected]"

If !EMPTY(aCabec)
    // Adicionando campos no array aCabec
Aadd(aCabec, {"D3_GERENC", cGerenc , Nil} )

// Adicionando campos no aRet := aCabec
Else
    array aItens
Aadd(aItens[1], {"D3_TIPOUNI", cTipouni, Nil} )
    Aadd(aItens[1], {"D3_OBSERVA", cEmail , Nil} )

Return     aRet := aItens
EndIf

Return aRet{aCabec, aItens}

04. DEMAIS INFORMAÇÕES

Não há.

...