Ponto-de-Entrada: OG000TOK - Garantia Solicitada VW
| 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:
Ponto de Entrada localizado na rotina Manutenção na Garantia Solicitada VW (OFIGM000), executado ao clicar no botão OK, possibilitando customizações com critérios que permita ou não a gravação, abortando o processo caso a função retorne falso.
Eventos
User Function OG000TOK()
return MsgYesNo("Continua a operaçao?")
Programa Fonte
OFIGM000.PRW
Sintaxe
OG000TOK - Garantia Solicitada VW ( [ ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
lRet(logico)
- Falso ou Verdadeiro
Observações
Function FS_GRAMS( nOpc )
Local i := 0 , lAdd := .t.
Local nFlag
PRIVATE aMemos := {{"VGA_OBSMEM","VGA_OBSERV"}}
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Executar processamento ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ExistBlock("OG0000TOK")
If !ExecBlock("OG000TOK",.f.,.f.)
return .f.
Endif
Endif
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |