AT250AJU - Inclui Campos

Programa Fonte
TECA250.PRW

Sintaxe
AT250AJU - Inclui Campos ( ) --> aRet

Retorno
aRet(vetor)
aRet[1,1]Campo a ser acrescentado
aRet[1,2]Ordem do campo na tela

Exemplos

Este ponto de entrada acrescenta dois campos a partir da segunda coluna. Os campos que são acrescentados são a tabela de frete e o descrição da região de origem, criado especificamente para exemplificar a criação de um campo virtual, no caso, um campo para mostrar o nome da região de origem.  Já existe um campo virtual na tabela DVC que indica o nome da região de origem, porém, neste caso, criamos o DVC_DESREG como campo de usuário apenas para exemplificar. 

Obs: a variável cAt250Qry é a variável que deve ser usada para acessar as informações que são carregadas na tela. O programa carrega as informações da tela através de uma query, e nesta variável se encontra o alias que está com as informações trazidas nesta query. A macro no caso será carregada no while de leitura desta query.  

User Function At250Aju(cAt250Aju)
Local aRet := {}//--Formato do Array aRet
//aRet[1,1] == Nome do campo
//aRet[1,2] == Ordem do campo//aRet[1,3] == Caso o campo que esteja sendo passado seja virtual deverá ser passado o código que sera usado para alimentar o campo 
Aadd( aRet, {'DVC_TABFRE','01','' })
Aadd( aRet ,{'DVC_DESREG','02','Posicione( 'DUY' , 1, xFilial('DUY') + (cAt250Qry)->DVC_CDRORI, 'DUY_DESCRI')'})//-- O campo DVC_DESREG seria um exemplo de campo de usuário virtual, o conteúdo que sera mostrado na tela
//-- será montado com o código passado na terceira coluna do array aRet. No exemplo acima, seria mostrado
//-- o nome da região de origem que esta na tabela DUY.
//--IMPORTANTE
//-- caso o campo virtual utilize alguma informação das outras colunas da tabela DVC para montar seu conteúdo.
//-- e necessário utilizar o alias que esta sendo usado internamente no fonte padrão, no caso a variável que contém
//-- este alias e a cAt250AjuMsgStop(' Ponto de entrada AT250AJU() ' )
Return aRet