Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas