Linha Microsiga Protheus

Árvore de páginas

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