Linha Microsiga Protheus

Árvore de páginas

TLGMQ_AF251LNK_Manipula_dados_de_abas superiores_e_inferiores

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Serviços.

Módulo:

Ativo Fixo.

Rotina:

Rotina

Nome Técnico

Aquisição por transferência

ATFA251.PRX

Ponto de Entrada:

AF251LNK.

Chamados Relacionados

TTLGMQ.

País(es):

Todos.

Banco(s) de Dados:

Todos.

Tabelas Utilizadas:

SN1,SN3.

Sistema(s) Operacional(is):

Todos.

Versões/Release:

11.80.

Versão Corrigida:11.80.
Versão Expedida:11.80

Descrição

Este ponto de entrada permite manipular os dados  das abas inferiores Totais do Rateio e Detalhes dos Impostos. São passados para o PE os objetos oGetDadTot e oGetDadImp que permitem a manipulação das abas inferiores respectivamente citadas acima.

As variáveis da aba superior Dados do Bem e  Complementos são, respectivamente,  o array aCols e o objeto oGetDadosC que estão declaradas como private.

Ponto de Entrada

Descrição:

Este ponto de entrada permite manipular os dados das abas superiores e das abas "Totais do Rateio" e "Detalhes dos Impostos".

Localização:

É uma rotina customizada, portanto, não faz parte do menu padrão

Eventos:

AF251LNK

Programa Fonte:

ATFA251

Função:

Af251LinOK

Retorno:

Vetor de 2 elementos como no exemplo. O primeiro elemento com oGetDadTot,o segundo com oGetDadImp manipulados ou não.

 

Exemplo:

#Include 'Protheus.ch'

User function AF251LNK()
Local oGetDTot := paramixb[1]                      /* recebe o Objeto oGetDadTot  */
Local oGetDadImp := paramixb[2]                 /* recebe o Objeto oGetDadImp */


/* ------------------------------------------------------------------------------------------------------------------------

   chamada - ExecBlock( 'AF251LNK', .F., .F., {@oGetDadTot, @oGetDadImp})

   Obs: oGetDadosC, objeto da aba superior "Complementos" e o array aCols

  que contém os dados da aba "Dados do Bem" são variáveis private

  ------------------------------------------------------------------------------------------------------------------------  */

Alert("Ponto de Entrada Executado")
oGetDTot:aCols[1,4] := 16550
oGetDTot:ForceRefresh()

Return ({ oGetDTot, oGetDadImp })