Árvore de páginas

Ponto de Entrada

Descrição:

A012FNG - Ponto de Entrada na rotina ATFA012 (Cadastro de ativos), permitir gatilhar campos customizados da tabela FNG quando informado o grupo de bens, chamado a cada linha da SN3 criada a partir do grupo de bens.

Localização:

SIGAATF>Atualizações>Cadastros>Ativos

Eventos:

If ExistBlock("A012FNG")

ExecBlock("A012FNG",.F.,.F.,{oAux:aHeader, oAux:aCols, oAux})

EndIf

Exemplo:

#Include "protheus.ch"
Static aHeadx
Static aColx
Static aAuxx

User Function A012FNG()
Local oModel := FWModelActive()
Local oAux      := oModel:GetModel( 'SN3DETAIL' )
//------------------------------------------------------------------------------------------------

// EXEMPLO UTILIZANDO CAMPOS CUSTOMIZADOS: 'N3_VMXDEPR',

// 'FNG_YPMXDP', 'N3_PERDEPR' ,FNG_YPERDP.

//-----------------------------------------------------------------------------------------------
oAux:LoadValue('N3_VMXDEPR' ,FNG->FNG_YPMXDP)
oAux:LoadValue('N3_PERDEPR' ,FNG->FNG_YPERDP)

Return

Programa Fonte:

Cadastro de Ativos (ATFA012)