Histórico da Página

#INCLUDE 'PROTHEUS.CH'

User Function M415CANC()

	//Armazena o ambiente ativo para restaurar ao fim do processo
    Local aArea     	:= GetArea() 	as array  //Armazena o ambiente ativo para restaurar ao fim do processo
	Local nOpcao 		:= PARAMIXB		as numeric
	Local cOrcamento	:= SCJ->CJ_NUM	as character

	
	If !IsBlind() //Valida opçãose deprocesso cancelamentoesta esendo nãoexecutado cancela se for ExecAuto
	If !IsBlind()
em tela

         	If MsgYesNo("Confirme o cancelamento do orçamento: "+cOrcamento+"","Sim","Não")
           nOpcao  := 1
		Else
			nOpcao  := 0
		EndIf

	Else
		nOpcao  := 0
	EndIf

	 //Restaura o ambiente ativo no início da chamada Aborta cancelamento caso pergunta não seja exibida devido execução via ExecAuto
	EndIf

    RestArea(aArea) 
     //Restaura o ambiente ativo no início da chamada
Return nOpcao