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:PCOA120
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-46748

02. DESCRIÇÃO

O ponto de entrada PCOA1202 é acionado na finalização da revisão de orçamentos. Ele permite que os itens posicionados na revisão sejam utilizados para manipulações posteriores, possibilitando customizações específicas conforme as necessidades do usuário. Esse ponto é ideal para ajustes adicionais ou validações no encerramento do processo de revisão orçamentária.

03. DEMAIS INFORMAÇÕES


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

	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.