Histórico da Página

...

Produto:

Solucoes_totvs

Solucoes_totvs_cross

SolucaoCross	TOTVS Backoffice

Solucoes_totvs_parceiros

SolucaoParceiros

Solucoes_totvs_parceirosexptotvs

SolucaoParcsExpsTOTVS

Linha de Produto:

Linhas_totvs

Linha	Linha Protheus

Segmento:

Segmentos_totvs

Segmento	Serviços

Módulo:

Modulos_cross_segmentos

ModulosCrossSegmentos	TOTVS Backoffice (Linha Protheus) - Contabilidade Gerencial Ativo Fixo (SIGACTBSIGAATF)

Modulos_framework

Modulos_totvs_construcao

Modulos_totvs_juridico

Modulos_totvs_logistica

Modulos_totvs_manufatura

Modulos_totvs_rh

Modulos_totvs_saude

Modulos_totvs_prestadores_de_servicos

Função:

CTBA281ATFA012

País:

Brasil

Ticket:

Interno

Requisito/Story/Issue

DSERCTR1-46829

...

Bloco de código

language	cpp
theme	RDark
title	Manipulação de PE no sistema

If ! Execblock("CT281SKIP l012AltGr
	//PONTO DE ENTRADA PARA GUARDAR AHEADER / ACOLS ATUAL
	ExecBlock("A012ALTG",.F.,.F.)
	CTQ->(dbGoTo(nNxtRCTQ))
	Loop,{oAux:aHeader, oAux:aCols})
EndIf

Bloco de código

language	cpp
theme	RDark
title	Exemplo de PE

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

User Function A012ALTG()
	
	Local nx

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

	MsgAlert("Entrei no Ponto de Entrada A012ALTG")

	//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 A012RCOL()

	Local nx
	MsgAlert("Entrei no Ponto de Entrada A012RCOL")

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

Return

...

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave