Ponto-de-Entrada: OX001AFS - Orçamento de Peças e Serviços - FieldOk de Serviços
| 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:
Este Ponto de Entrada está localizado na rotina Orçamento de Peças e Serviços (OFIXX001), executado ao clicar no FieldOk de Serviços, com a finalidade de questionar se deseja continuar ou abortar a operação.
Eventos
User Function OX001AFS()
return MsgYesNo("Deseja continuar?","")
Programa Fonte
OFIXX001.PRW
Sintaxe
OX001AFS - Orçamento de Peças e Serviços - FieldOk de Serviços ( [ ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
lRet (logico)
- .t. Continua Operação, .f. - Aborta Operação.
Observações
Function OX001FSOK()
Local lCalc := .f.
if M->VS1_TIPORC == "1"
MsgInfo(STR0045,STR0025)
return .f.
endif
// Verifica linha deletada
if oGetServ:aCols[oGetServ:nAt,Len(oGetServ:aCols[oGetServ:nAt])]
return .f.
endif
// obsoleto
// Ponto de entrada antes do FieldOk
if ExistBlock("OX001AFS")
if !ExecBlock("OX001AFS",.f.,.f.)
Return(.f.)
Endif
Endif
// Verifica se é obrigatorio usar o inconveniente
if lInconveniente .and. lInconvObr .and. (M->VS1_TIPORC == "2" ) .and. !OX001INCOBR()
Return(.f.)
endif
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |