Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Usuário desconhecido (alessandro.honda)

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Philipe dos Santos Pompeu

Gravado em

Chave

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

01. A300BREAK - Alterar mensagem ou momento da quebra dos itens do contrato na revisão


Produto:

Solucoes_totvs_cross
SolucaoCrossTOTVS Backoffice

Linha de Produto:

Linhas_totvs
SegmentoDistribuição
RegionConstrução Projetos
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoBackoffice

Módulo:Gestão de Contratos
Função:CNTA300R - Revisões de Contrato
Ponto de Entrada:A300BREAK

02. DETALHES


Descrição:

Possibilita que o desenvolvedor altere a mensagem exibida para o usuário ou se deve prosseguir com a quebra do item

Eventos:

Executado antes da quebra dos itens da planilha(CNB) que tenham sido medidos no momento da revisão

Programa Fonte:

CNTA300R.PRW

Função:

A300VlrCNB

Parâmetros:
PosiçãoTipoDescrição
PARAMIXB[1]lógicoValor lógico que informa se a quebra vai ocorrer
PARAMIXB[2]objeto da classe MPFormModel Modelo do CNTA300/CNTA301
PARAMIXB[3]caractereCampo sendo modificado(CNB_VLUNIT ou CNB_DESC)
PARAMIXB[4]numéricoValor antigo
PARAMIXB[5]numéricoNovo valor
PARAMIXB[6]caractereMensagem padrão
Retorno:
ValorTipoDescrição
aAuxvetor

Deve ser retornado um vetor unidimensional com duas posições seguindo o formato abaixo:

PosiçãoTipoUtilidade
aAux[1]Lógico

Deve ou não ser realizada a quebra do item.

Verdadeiro, prossegue com a quebra

Falso, não realiza a quebra do item

aAux[2]CaractereMensagem que será exibida para o usuário caso a quebra vá ocorrer


 

Bloco de código
titleExemplo
linenumberstrue
#INCLUDE "Protheus.ch"

/*{Protheus.doc} A300BREAK()
	Possibilita que o desenvolvedor altere a mensagem exibida para o usuário ou se deve ou não ser realizada a quebra do item
*/
User Function A300BREAK()
	Local lQuebra	:= PARAMIXB[1]
	Local oModel	:= PARAMIXB[2]
	Local cField	:= PARAMIXB[3]
	Local nOldValue	:= PARAMIXB[4]
	Local nNewValue	:= PARAMIXB[5]
	Local cMsgAtual	:= PARAMIXB[6]
	Local aAux 		:= Array(2)

	aAux[1] := lQuebra
	aAux[2] := "Essa é uma mensagem customizada."
Return(aAux)

Alerta exibido no momento da quebra com base no exemplo apresentado:


03. ASSUNTOS RELACIONADOS

  • Não há