| 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/Issue | DSERCTR1-46030 |
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.
If ExistBlock( "PCOA4624" )
If !ExecBlock("PCOA4624",.f.,.f.,{nCallOpcx,aEnchAuto,aColsAM6,aHeadAM6})
Return .F.
EndIf
EndIf
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 !!