Linha Microsiga Protheus

Árvore de páginas

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