Ponto-de-Entrada: OX001VPO - Exportação da O.S
| 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 na rotina Orçamento de Peças e Serviços (OFIXX001) executado na exportação da O.S. para questionar se o usuário deseja continuar ou abortar a operação.
Eventos
User Function OX001VPO()
lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)
return lRet
Programa Fonte
OFIXX001.PRW
Sintaxe
OX001VPO - Exportação da O.S ( [ ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
lRet(logico)
- Continua ou Aborta Operação.
Observações
// ##########################################################################
// # I N I C I A O P R O C E S S O D E F A T U R A M E N T O #
// ##########################################################################
if M->VS1_TIPORC == "2"
// Dar o tratamento aqui para verificar pendência de O.S.
if ExistBlock("OX001VPO") // Antes da Exportacao
lRet := ExecBlock("OX001VPO",.f.,.f.)
If !lRet
Return (lRet)
Endif
Endif
if VS1->VS1_STATUS == "P"
MsgStop(STR0185,STR0025)
oDlgXX001:end()
return .f.
endif
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |