| 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: | PCOA481 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46030 |
O ponto de entrada PCOA4812 permite a validação personalizada de uma linha na rotina de GetDados. Esse ponto de entrada é chamado dentro da função A481Lok e pode ser utilizado para incluir regras adicionais de validação, retornando um valor lógico que indicará se a linha é válida ou não.
If ExistBlock( "PCOA4812" )
//P_EÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//P_E³ Ponto de entrada utilizado para validação da linha da GetDados ³
//P_E³ ³
//P_E³ Parametros : Validação Padrão ³
//P_E³ Retorno : Logico ³
//P_E³ Ex. : User Function PCOA4812 ³
//P_E³ Return {.T.) ³
//P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ValType( lOk := ExecBlock( "PCOA4812", .F., .F. , lRet ) ) == "L"
lRet := lOk
EndIf
EndIf
User Function PCOA4812()
Local lRet := PARAMIB[1]
Local nPosPerc := aScan(aHeader , {|x| ALLTRIM(x[2])== "AM9_PERC" })
// Implementa a lógica de validação aqui
// Exemplo: Validar se um campo específico contém um valor válido
For nX := 1 To Len(aCols)
If aCols[nX,nPosPerc] > 0
lRet := .F. // Caso a condição de validação falhe
EndIf
Next nX
Return lRet
Importante !!