Linha Microsiga Protheus

Árvore de páginas

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