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

Produto:
Linha de Produto:
Segmento:
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ção	Tipo	Descrição
PARAMIXB[1]	lógico	Valor lógico que informa se a quebra vai ocorrer
PARAMIXB[2]	objeto da classe MPFormModel	Modelo do CNTA300/CNTA301
PARAMIXB[3]	caractere	Campo sendo modificado(CNB_VLUNIT ou CNB_DESC)
PARAMIXB[4]	numérico	Valor antigo
PARAMIXB[5]	numérico	Novo valor
PARAMIXB[6]	caractere	Mensagem padrão

Retorno:

Valor

Tipo

Descrição

aAux

vetor

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

Posição

Tipo

Utilidade

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]

Caractere

Mensagem que será exibida para o usuário caso a quebra vá ocorrer

#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:

Linha Microsiga Protheus > A300BREAK - Altera mensagem ou momento da quebra itens do contrato > image2021-2-26_15-44-43.png

#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)

    If lQuebra .And. A300GTpRev() == "3" //3=Realinhamento
        lQuebra := .F.
    EndIf
 
    aAux[1] := lQuebra
    aAux[2] := cMsgAtual
Return(aAux)

03. ASSUNTOS RELACIONADOS

Não há