Linha Microsiga Protheus

Árvore de páginas

TTKSOG_DT_A010ALTG_Salva_aCols_aHeader_quando_altera_grupo

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Ativo Fixo

Rotina:

Rotina

Nome Técnico

ATFA010A.

inclusal/classificacao de ativos

Ponto de Entrada:

A010ALTG

Chamados relacionados

TTKSOG

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas utilizadas:

SN1/SN3

Sistema(s) operacional(is):

Todos

Versões/Release:

11.80

 

 

Descrição

O ponto de entrada A010ALTG permite salvar aHeader/aCols quando o grupo é alterado.

 

Ponto de Entrada

Descrição:

O ponto de entrada A010ALTG salva aHeader/aCols ao alterar grupo

Localização:

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

Eventos:

A010ALTG

Programa Fonte:

ATFA010A.PRW

Função:

AF010AFNG()

Parametros:

Nome

Tipo

Descrição

Obrigatório

aHeader

array

 

 

aCols 

array

 

 

Sem Retorno do ponto entrada

 

Exemplo:

#include "Protheus.ch"
Static aHeadx
Static aColx
Static lSalvei := .F.

User Function A010ALTG()
Local nx

aHeadx := ParamIxb[1]
aColx := ParamIxb[2]
lSalvei := .T.

MsgAlert("Entrei no Ponto de Entrada A010ALTG")

//exibe 3 primeiros campos do aHeadx
For nX := 1 TO 3
MsgAlert( "Campo " +Alltrim(Str(nX))+": "+aHeadx[nX,2])
Next

Return

//acols pode ser manipulado pelo ponto de entrada baixo
User Function A010RCOL()
Local nx
MsgAlert("Entrei no Ponto de Entrada A010RCOL")

If lSalvei
//exibe 3 primeiros campos do aHeadx
For nX := 1 TO 3
MsgAlert("Campo "+Alltrim(Str(nX))+": "+aHeadx[nX,2])
Next
EndIf

Return