Histórico da Página
...
Nome | Tipo | Descrição | Default | Obrigatório | Referência |
|---|---|---|---|---|---|
| PARAMIXB | Numérico | Parâmetro com a numeração valor de controle para cancelamento. De maneira padrão, inicia com conteúdo igual a 1. |
05. RETORNO
Retorno | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| nOpcao | Numérico | Variável numérica usada para validar o cancelamento de orçamentos: 1 - Realiza o cancelamento. Qualquer outro valor, não cancelaserá cancelado. | Sim |
06. EXEMPLO
Neste exemplo validamos o cancelamento retornando mensagem de confirmação em tela, caso seja negado, o conteúdo enviado será zero, fazendo com que o cancelamento não ocorra.
...
| 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
Local nOpcao := PARAMIXB as numeric
Local cOrcamento := SCJ->CJ_NUM as character
Local lRet := .F. as logical
//Valida opção de cancelamento e não cancela se for ExecAuto
If !IsBlind()
lRet := If MsgYesNo("Confirme o cancelamento do orçamento: "+cOrcamento+"","Sim","Não")
nOpcao := 1
Else
lRet nOpcao := .F.0
EndIf
if !lRetElse
nOpcao := 0
endifEndIf
//Restaura o ambiente ativo no início da chamada
RestArea(aArea)
Return nOpcao |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas