| 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: | PCOA463 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46030 |
O ponto de entrada PCOA4634 é utilizado para validação ou execução de ações programadas pelo usuário no momento da gravação de registros na função de controle de roteiro de aprovação. Esse ponto de entrada permite que o comportamento padrão do sistema seja modificado ou estendido para incluir regras personalizadas de validação ou processamento.
If ExistBlock( "PCOA4634" )
If !ExecBlock("PCOA4634",.f.,.f.,{nCallOpcx,aEnchAuto,aColsAM7,aHeadAM7,aGetDAuto})
Return .F.
EndIf
EndIf
User Function PCOA4634
Local lContinue := .T.
Local nCallOpcx := PARAMIXB[1]
Local aEnchAuto := PARAMIXB[2]
Local aColsAM7 := PARAMIXB[3]
Local aHeadAM7 := PARAMIXB[4]
Local aGetDAuto := PARAMIXB[5]
// Validação personalizada antes da inclusão de registros
If nCallOpcx == 3
If Empty(M->AMA_DESCRI)
MsgStop("A descrição não pode estar vazia!", "Validação")
lContinue := .F.
EndIf
EndIf
Return lContinue
Importante !!