Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (tp.luiz.caj_dupli) em 17 out, 2024

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

02. DESCRIÇÃO

O ponto de entrada PCOA4624 permite adicionar uma validação ou ação personalizada durante o processo de gravação, alteração ou exclusão de registros da tabela AM6. Ele é chamado durante a execução das operações (inclusão, alteração, exclusão) para que o usuário possa inserir uma lógica específica conforme a necessidade.

03. DEMAIS INFORMAÇÕES


Manipulação de PE no sistema
If ExistBlock( "PCOA4624" )
	If !ExecBlock("PCOA4624",.f.,.f.,{nCallOpcx,aEnchAuto,aColsAM6,aHeadAM6})
		Return .F.
	EndIf	
EndIf
Exemplo de PE
User Function PCOA4624()

    Local nCallOpcx := PARAMIXB[1]
    Local aEnchAuto := PARAMIXB[2]
    Local aColsAM6  := PARAMIXB[3]
    Local aHeadAM6  := PARAMIXB[4]
	Local lRet      := .T.
	
    // Exemplo de uso
    If nCallOpcx == 3

		//Campos do Cabecalho
		For nX := 1 To Len(aEnchAuto)
			nPosField := FieldPos(aEnchAuto[nX][2])
			If nPosField > 0
				//validação do cliente
			EndIf	
		Next nX
	
	EndIf

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.