01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

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


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