Ponto-de-Entrada: P010GD2 - Validação da aba Despesas na Composição
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
Validação da aba Despesas no cadastro de Composições, no momento da inclusão, alteração e exclusão, após a validação padrão do sistema.
Programa Fonte
PMSA010.prw
Sintaxe
P010GD2 - Validação da aba Despesas na Composição ( [ aCols ], [ aHeader ] ) --> lRetorno
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| aCols | Array of Record | Contém os registros da aba Despesas | |||||||||||||||
| aHeader | Array of Record | Contém os campos do cabeçalho da aba Despesas. |
Retorno
-
lRetorno(logico)
- Retorno lógico, que indicará se a operação será validada( .t. ) ou será bloqueada (.f. )
Exemplos
User Function P010GD2Local nPosValor := aScan(paramixb[ 2 ],{|x|AllTrim(x[2])=="AE3_VALOR"})Local x := 0 Local Retornof := 0For x := 1 to Len( paramixb[ 1 ] ) If paramixb[ 1 ][x][nPosValor] > 50 Retornof += 1 EndIf Next If Retornof > 0 Alert( " VALOR MUITO ALTO " ) Return .f.Else Return .t.EndIf
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| oGD | Objeto | Privado | Não | Objeto com as informações das abas. |