Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
OX001AFS - Orçamento de Peças e Serviços - FieldOk de Serviços
OX001AFS - Orçamento de Peças e Serviços - FieldOk de Serviços

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:
NomeTipoDescriçãoDefaultObrigatórioReferê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
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão