Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Tiago Dias dos Santos

Gravado em

comparado com

Nova versão 6

changes.mady.by.user Tiago Dias dos Santos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Nome

Tipo

Descrição

Default

Obrigatório

Referência

PARAMIXBNuméricoParâmetro com a numeração para cancelamento



05. RETORNO

Retorno

Tipo

Descrição

Obrigatório

nOpcaoNumérico

Variável numérica usada para validar o cancelamento de orçamentos:

1 - Realiza o cancelamento.

Qualquer outro valor, não cancela.

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
languagecpp
titleExemplo:
#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
	
	//ArmazenaValida oopção ambiente ativo para restaurar ao fim do processo
 


    RestArea(aArea) de cancelamento
	If !IsBlind()
		lRet	:= MsgYesNo("Confirme o cancelamento do orçamento: "+cOrcamento+"","Sim","Não")
	Else
		lRet	:= .F.
	EndIf

	if !lRet
		nOpcao 	:= 0
	endif

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