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 Atual

changes.mady.by.user William Pianheri Batista Silva

Gravado em

Chave

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

...

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:SIGAFAT - Faturamento
Função:MATA415 - Orçamentos de Venda
Abrangências:Microsiga Protheus 12
Versões:Microsiga Protheus 12
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível com as Bases de Dados:Todos
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Todos

02. DESCRIÇÃO

Este ponto Ponto de entrada Entrada pertence à rotina de atualização de orçamentos Orçamentos de venda, Venda (MATA415().

Está localizado na rotina de cancelamento, A415CANCEL(). É usado para processo de cancelamento e visa a implementação de regra de negocio própria na qual é possível validar o cancelamento do orçamento.

...

M415CANC - Validação de cancelamento ( ) --> nOpcao


04. PARÂMETROS

Nome

Tipo

Descrição

Default

Obrigatório

Referência

PARAMIXBNumérico

Parâmetro com valor de controle para cancelamento. Sendo:
1 - Cancelamento confirmado;

Ou

0 - Cancelamento interrompido.


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 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
languagecpp
titleExemplo:
#INCLUDE 'PROTHEUS.CH'

User Function M415CANC()

    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 se processo esta sendo executado em tela

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

	Else
		nOpcao  := 0 // 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