Linha Microsiga Protheus

Árvore de páginas

01. CN260OBRIG - Alterar a medição automática antes da sua gravação


Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:Gestão de Contratos
Função:CNTA260 - Medição Automática
Ponto de Entrada:CN260OBRIG

02. DETALHES


Descrição:

Possibilita ao desenvolvedor alterar o modelo do CNTA121 antes da gravação dos dados

Eventos:

Executado uma vez para cada planilha marcada durante a geração das medições automáticas. Exemplo: caso uma mesma medição tenha duas planilhas, o ponto de entrada será chamada uma vez para cada uma das planilhas

Programa Fonte:

CNTA260.PRW

Função:

CN260Exc121

Parâmetros:
PosiçãoTipoDescrição
PARAMIXB[1]Instância da classe MPFormModelmodelo do CNTA121
Retorno:
ValorTipoDescrição
Nuloindefinido

Não é necessário nenhum retorno



 

Exemplo
#INCLUDE "Protheus.ch"

/*{Protheus.doc} CN260OBRIG()
	Possibilita ao desenvolvedor alterar o modelo do CNTA121 antes da gravação dos dados
*/
User Function CN260OBRIG()
	Local oModel 	:= PARAMIXB[1] //Modelo do CNTA121 após a seleção da CXN
	Local oModelCNE	:= Nil
	Local nX := 0

	If !(oModel:HasErrorMessage())
		/*
			Submodelos: CXNDETAIL, CNEDETAIL, CNUDETAIL, CXMDETAIL, CNQDETAIL, CNZDETAIL etc. 
		*/
		oModelCNE := oModel:GetModel("CNEDETAIL")
		For nX := 1 to oModelCNE:Length()
			oModelCNE:GoLine(nX)
			If Empty(oModelCNE:GetValue("CNE_CC"))
				oModelCNE:SetValue("CNE_CC", "GCT000001")
			EndIf
		Next nX
	EndIf

Return Nil //Não é necessário retornar nenhuma informação

03. ASSUNTOS RELACIONADOS

  • Não há