Árvore de páginas

Versões comparadas

Chave

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

01. A300MLDR - Liberar/Bloquear campos na

revisão

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

02. DETALHES


Descrição:

Possibilita ao desenvolvedor alterar a configuração das tabelas e campos durante uma revisão

Eventos:
  • Antes da inclusão de uma nova revisão
  • Inicio de uma alteração de revisão
  • Após atualização de cronogramas durante a revisão
  • Ao alterar o tipo da revisão
  • Após a execução do reajuste


Programa Fonte:

CNTA300R.PRW

Função:

A300Revisa

Parâmetros:
PosiçãoTipoDescrição
PARAMIXB[1]caractere

Tipo da Revisão

ValorRevisão
1Aditivo
2Reajuste
3Realinhamento
4Readequação
5Paralisação
6Reinicio
7Clausulas
8Contábil
9Índice
AFornecedor/Cliente
BGrupo de Aprovação
CRenovação
DMulta/Bonificação
ECaução
FOrçamento de Serviços GS
GAberta
PARAMIXB[2]Objeto do tipo MPFormModelModelo completo do CNTA300
Retorno:
ValorTipoDescrição
Nilindefinido

Não é necessário retornar nenhum dado



 

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

/*{Protheus.doc} A300MLDR()
	Possibilita ao desenvolvedor alterar a configuração das tabelas e campos durante uma revisão
*/
User Function A300MLDR()
	Local cTipRev	:= PARAMIXB[1]//Tipo de Revisão
	Local oModel	:= PARAMIXB[2]//Instância da classe MPFormModel do modelo do CNTA300/301
	Local oModelCNU	:= Nil
	Local oStruCNU	:= Nil


	if oModel:GetValue("CN9MASTER" ,"CN9_ESPCTR") == "1"//Contrato de venda		
		Do Case
			Case(cTipRev == "1")//Aditivo
				oModelCNU  := oModel:GetModel('CNUDETAIL')
				oStruCNU   := oModelCNU:GetStruct()

				oStruCNU:SetProperty('*',MODEL_FIELD_WHEN,{||.T.})//Permite alterar todos os campos

				oModelCNU:SetNoDeleteLine(.F.)
				oModelCNU:SetNoInsertLine(.F.)
				oModelCNU:SetNoUpdateLine(.F.)

			Case(cTipRev == "2")//Reajuste
			Case(cTipRev == "3")//Realinhamento
			Case(cTipRev == "4")//Readequação
			Case(cTipRev == "5")//Paralisação
			Case(cTipRev == "6")//Reinicio
			Case(cTipRev == "7")//Clausulas
			Case(cTipRev == "8")//Contabil
			Case(cTipRev == "9")//Indice
			Case(cTipRev == "A")//Fornecedor/Cliente
			Case(cTipRev == "B")//Grupo de Aprovação
			Case(cTipRev == "C")//Renovação
			Case(cTipRev == "D")//Multa/Bonificação
			Case(cTipRev == "E")//Caução
			Case(cTipRev == "F")//Orçamento de Serviços GS
			Case(cTipRev == "G")//Aberta		

		EndCase
	endif
	
Return Nil