Linha Microsiga Protheus

Árvore de páginas

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


Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

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


 

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


Exemplo 2
#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á