Ponto-de-Entrada: OX001CAN - Cancelamento do Orçamento
| 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:
Estte Ponto de Entrada está localizado na rotina Orçamento de Peças e Serviços (OFIXX001), executado antes do cancelamento do orçamento, com a finalidade de questionar se deseja continuar ou abortar a operação.
Eventos
User Function OX001CAN()
lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)
return lRet
Programa Fonte
OFIXX001.PRW
Sintaxe
OX001CAN - Cancelamento do Orçamento ( [ ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
lRet(logico)
- Continua ou aborta operaçao
Observações
BEGIN TRANSACTION
//
if ExistBlock("OX001CAN")
if !ExecBlock("OX001CAN",.f.,.f.)
Return(.f.)
Endif
Endif
If !lOX001Auto
If VS1->(FieldPos("VS1_MOTIVO")) > 0
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ¿
//³ Motivo do Cancelamento do Orcamento ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Ù
While !lOk
lOk := PERGUNTE("OFI151",.t.)
EndDo
cMotCancel := MV_PAR01
EndIf
EndIf
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |