| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: OX001AFS - Orçamento de Peças e Serviços - FieldOk de Serviços
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:
Retorno
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
|
