01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

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


If ExistBlock("PCOA1202")
	ExecBlock("PCOA1202",.F.,.F.)
EndIf   
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)
  • 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