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 PCODELITM é executado no momento da exclusão de itens da planilha orçamentária, dentro da função PcoWriteIt. Este ponto é acionado após a chamada da rotina de lançamentos do PCO (PcoDetLan) e antes da execução das funções responsáveis pela exclusão dos itens.

Ele permite que o usuário realize manipulações adicionais antes que os itens sejam efetivamente removidos, oferecendo maior controle e flexibilidade sobre o processo de exclusão de itens de planilhas orçamentárias.

03. DEMAIS INFORMAÇÕES


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

	Local aArea := GetArea()
	Local cChave := AK2->(AK2_ORCAME+AK2_VERSAO+AK2_CO+DTOS(AK2_PERIOD)+AK2_ID)

	DbSelectArea("P01")

	DbSetOrder(1)

	While P01->(DbSeek(xFilial("P01")+cChave))

		PcoDetLan("000252","05","PCOEQTDE",.T.)

		If P01->(RecLock("P01",.F.,.T.))

			P01->(DbDelete())

			P01->(MsUnlock())

		EndIf 
		
	EndDo

	RestArea(aArea)

Return ()

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.