Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

TOTVS Backoffice (Linha Protheus) - Planejamento e Controle Orçamentário (SIGAPCO)

Função:PCOXINC
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-46748

02. DESCRIÇÃO

O ponto de entrada PCOAK2GRV é executado após a gravação da tabela AK2 na função PcoWriteIt. Ele permite utilizar os itens posicionados para manipulações posteriores, possibilitando a aplicação de regras customizadas ou ajustes adicionais de acordo com as necessidades do usuário ou processos específicos.

Esse ponto é ideal para cenários onde é necessário realizar tratamentos específicos ou complementar as informações gravadas na tabela AK2.

03. DEMAIS INFORMAÇÕES


Manipulação de PE no sistema
If ExistBlock("PCOAK2GRV")
	ExecBlock("PCOAK2GRV",.F.,.F.)
EndIf
Exemplo de PE
User Function PCOAK2GRV()

	Local aArea := GetArea()
	Local lRet := .F.
	Public _nQtdeLct := 0

	DbSelectArea("P01")

	P01->(DbSetOrder(1))

	If (lRet := P01->(Dbseek(xFilial("P01")+AK2->AK2_ORCAME+AK2->AK2_VERSAO+AK2->AK2_CO+DTOS(AK2->AK2_PERIOD)+AK2->AK2_ID)))

		While P01->(!EOF()) .and. P01->P01_FILIAL+P01->P01_ORCAME+P01->P01_VERSAO+P01->P01_CO+DTOS(P01->P01_PERIOD)+P01->P01_ID == AK2->AK2_FILIAL+AK2->AK2_ORCAME+AK2->AK2_VERSAO+AK2->AK2_CO+DTOS(AK2->AK2_PERIOD)+AK2->AK2_ID

			_nQtdeLct += P01->P01_QTDE

			P01->(DbSkip())
		EndDo

	EndIf

	RestArea(aArea)

Return (lRet)

Importante !!

  • Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
  • Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.

04. ASSUNTOS RELACIONADOS

  • Não se aplica.