| 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 PCOA4813 é utilizado para validar o status de "Tudo Ok" na tela de GetDados, que controla as operações de exclusão e validação de campos e itens. Este ponto permite que o usuário implemente validações customizadas em adição às validações padrão já existentes no sistema.
If ExistBlock( "PCOA4813" )
//P_EÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//P_E³ Ponto de entrada utilizado para validação do tudo Ok da tela. ³
//P_E³ ³
//P_E³ Parametros : Validação Padrão ³
//P_E³ Retorno : Logico ³
//P_E³ Ex. : User Function PCOA4813 ³
//P_E³ Return {.T.) ³
//P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ValType( lOk := ExecBlock( "PCOA4813", .F., .F. ,lRet) ) == "L"
lRet := lOk
EndIf
EndIf
User Function PCOA4813(lRet) Local lRet := .F. Local _nX := 0 For _nX := 1 To Len(aCols) If !aCols[_Nx][Len(aCols[_Nx])] // Não Deletada lRet := .T. EndIf Next Return lRet
Importante !!