#Include 'Protheus.ch'
#INCLUDE "FWMVCDEF.CH"
User Function CN300AUTO()
Local aErro := {}
Local oModel := FWLoadModel("CNTA300") //Carrega o modelo

oModel:SetOperation(MODEL_OPERATION_INSERT) // Seta operação de inclusão

oModel:Activate() // Ativa o Modelo 

//Cabeçalho do contrato
oModel:SetValue( 'CN9MASTER'	, 'CN9_DTINIC'	, Ctod("24/02/2017")	)
oModel:SetValue( 'CN9MASTER'	, 'CN9_NUMERO'	, '000000000000069'	)
oModel:SetValue( 'CN9MASTER'	, 'CN9_UNVIGE'	, '3'					)
oModel:SetValue( 'CN9MASTER'	, 'CN9_VIGE'		, 1						)
oModel:SetValue( 'CN9MASTER'	, 'CN9_MOEDA'		, 1						)
oModel:SetValue( 'CN9MASTER'	, 'CN9_CONDPG'	, '001'				)
oModel:SetValue( 'CN9MASTER'	, 'CN9_TPCTO'		, '001'				)

//Cliente/Fornecedor do Contrato
oModel:SetValue( 'CNCDETAIL'	, 'CNC_CODIGO'	, '001   '	)
oModel:SetValue( 'CNCDETAIL'	, 'CNC_LOJA'		, '01'		)

//Planilhas do Contrato
oModel:LoadValue(	'CNADETAIL'	, 'CNA_CONTRA'	, '000000000000069'	)
oModel:SetValue( 	'CNADETAIL' 	, 'CNA_NUMERO'	, '000001'				)
oModel:SetValue(	'CNADETAIL' 	, 'CNA_FORNEC'	, '001   '				)
oModel:SetValue(	'CNADETAIL' 	, 'CNA_LJFORN'	, '01'					)
oModel:SetValue(	'CNADETAIL' 	, 'CNA_TIPPLA'	, '004'				)

//Itens da Planilha do Contrato
oModel:SetValue( 'CNBDETAIL'	, 'CNB_ITEM'		, '001'				)
oModel:SetValue( 'CNBDETAIL'	, 'CNB_PRODUT'	, '001            '	)
oModel:SetValue( 'CNBDETAIL'	, 'CNB_QUANT'		, 1						)
oModel:SetValue( 'CNBDETAIL'	, 'CNB_VLUNIT'	, 1000					)
oModel:SetValue( 'CNBDETAIL'	, 'CNB_PEDTIT'	, '1'					)

//Cronograma Financeiro

SetMVValue("CN300CRG","MV_PAR01",1)  // Periodicidade : 1= Mensal, 2=Quinzenal, 3= Diário, 4= Cond. Pag.
SetMVValue("CN300CRG","MV_PAR02",30) // Dia(s)?
SetMVValue("CN300CRG","MV_PAR03",1)  // Ultimo dia do mês? 1 = sim, 2 = não
SetMVValue("CN300CRG","MV_PAR04","02/2018") // Competência Inicio?
SetMVValue("CN300CRG","MV_PAR05", cTod("20/02/2018")) // Data prevista 1º Medição
SetMVValue("CN300CRG","MV_PAR06", 1) // Quantidade de parcelas
SetMVValue("CN300CRG","MV_PAR07", "   ") // Condição de Pagamento?
SetMVValue("CN300CRG","MV_PAR08", 0) // Taxa de Juros para cálculo do valor presente

Pergunte("CN300CRG",.F.)
CN300PrCF(.T.)  
//Validação e Gravação do Modelo
If oModel:VldData() 
	oModel:CommitData()
else
	aErro := oModel:GetErrorMessage()
	TmsMsgErr(aErro)
EndIf

Return

//Exemplo de rotina automática - inclusão de contrato com cronograma financeiro e contábil

#Include 'Protheus.ch'
#INCLUDE "FWMVCDEF.CH"
User Function CN300AUTO()

Local oModel 	:= FWLoadModel("CNTA300") //Carrega o modelo
Local cFornec1	:= "GCT001"

oModel:SetOperation(MODEL_OPERATION_INSERT) // Seta operação de inclusão

oModel:Activate() // Ativa o Modelo 

//Cabeçalho do contrato
oModel:SetValue( 'CN9MASTER'	, 'CN9_NUMERO'	, '780000000000088'					)
oModel:SetValue( 'CN9MASTER'	, 'CN9_DTINIC'	, Ctod("20/04/2022")				)
oModel:SetValue( 'CN9MASTER'	, 'CN9_UNVIGE'	, '2'								)
oModel:SetValue( 'CN9MASTER'	, 'CN9_VIGE'		, 12							)
oModel:SetValue( 'CN9MASTER'	, 'CN9_MOEDA'		, 1								)
oModel:SetValue( 'CN9MASTER'	, 'CN9_TPCTO'		, '001'							)
oModel:SetValue( 'CN9MASTER'	, 'CN9_CONDPG'	, '000'								)
oModel:SetValue( 'CN9MASTER'	, 'CN9_AUTO'	, '1'								)

//Cliente/Fornecedor do Contrato
oModel:SetValue( 'CNCDETAIL'	, 'CNC_CODIGO'	, cFornec1							)
oModel:SetValue( 'CNCDETAIL'	, 'CNC_LOJA'		, "01"							)

//Planilhas do Contrato
oModel:SetValue('CNADETAIL','CNA_NUMERO', PadL("1", Len(CNA->CNA_NUMERO),"0")		)
oModel:SetValue(	'CNADETAIL' , 'CNA_FORNEC'	, cFornec1							)
oModel:SetValue(	'CNADETAIL' , 'CNA_LJFORN'	, "01"								)
oModel:SetValue(	'CNADETAIL' , 'CNA_TIPPLA'	, "Z06"								)

//Itens da Planilha do Contrato
oModel:SetValue('CNBDETAIL','CNB_ITEM', PadL("1", Len(CNB->CNB_ITEM),"0")			)
oModel:SetValue( 'CNBDETAIL'	, 'CNB_PRODUT'	, "GCT000000000000000000000000001"	)
oModel:SetValue( 'CNBDETAIL'	, 'CNB_QUANT'		, 1								)
oModel:SetValue( 'CNBDETAIL'	, 'CNB_VLUNIT'	, 1000								)

//cronograma financeiro
SetMVValue("CN300CRG","MV_PAR01",1)
SetMVValue("CN300CRG","MV_PAR02",30)
SetMVValue("CN300CRG","MV_PAR03",1)
SetMVValue("CN300CRG","MV_PAR04","04/2022")
SetMVValue("CN300CRG","MV_PAR05", cTod("20/04/2022"))
SetMVValue("CN300CRG","MV_PAR06", 1)
SetMVValue("CN300CRG","MV_PAR07", "   ")
SetMVValue("CN300CRG","MV_PAR08", 0)

Pergunte("CN300CRG",.F.)
//Gera Cronograma Financeiro
CN300PrCF(.T.)

//Cronograma contábil
SetMVValue("CN300CTB","MV_PAR01", cTod("20/04/2022"))
SetMVValue("CN300CTB","MV_PAR02",1)
SetMVValue("CN300CTB","MV_PAR03",'H-CT004-PL01')
SetMVValue("CN300CTB","MV_PAR04",1)
SetMVValue("CN300CTB","MV_PAR05", 30)
Pergunte("CN300CTB",.F.)

//Gera Cronograma Contábil
CN300PrcCC(.T.)

//Validação e Gravação do Modelo
If oModel:VldData() 
	oModel:CommitData() 
EndIf

Return

#Include "Protheus.CH"
#Include "FWMVCDEF.CH"
 
User Function CN300AUTO()
Local oModel    := Nil
Local cContra   := " < NÚMERO_DO_CONTRATO > "
 
Local cTipRev   := "NÚMERO_DA_REVISAO_ABERTA"
Local cJustific := "Justificativa da revisão aberta do contrato"
Local cCond     := "CONDICAO_DE_PAGAMENTO"
 
Local lRet      := .F.
 
//=== Preparação do contrato para revisão =============================================================================================
CN9->(DBSetOrder(1))
If CN9->(DbSeek(xFilial("CN9")+cContra))             //- Posicionamento no contrato que será revisado.
     
    A300STpRev("G")                                 //- Define o tipo de revisão que será realizado.
     
    oModel := FWLoadModel("CNTA300")                //- Carrega o modelo de dados do contrato.
    oModel:SetOperation(MODEL_OPERATION_INSERT)     //- Define operação do modelo. Será INSERIDA uma revisão.
      
    oModel:Activate(.T.)                            //- Ativa o modelo. É necessária a utilização do parâmetro como true (.T.) para realizar uma copia.
 
 
    //=== Preenchimento das alterações da revisão. =======================================================================================
    //== Cabeçalho
    oModel:SetValue( 'CN9MASTER'    , 'CN9_TIPREV' , cTipRev)       //- É obrigatório o preenchimento do tipo de revisão do contrato.
 
    oModel:SetValue( 'CN9MASTER'    , 'CN9_JUSTIF' , cJustific)    //- É obrigatório o preenchimento da justificativa de revisão do contrato.

    oModel:SetValue( 'CN9MASTER'    , 'CN9_CONDPG' , cCond)       //- Nesse exemplo, estamos utilizando a revisão aberta para alterar a condição de pagamento
     
    //== Qualquer alteração possível na execução manual pode ser automatizada.

    oModel:SetValue( 'CXMDETAIL'    ,'CXM_VLMAX'   , 1000)       //- Alterando o valor máximo do agrupador de estoque
     
    //== Validação e Gravação do Modelo
    lRet := oModel:VldData() .And. oModel:CommitData()
EndIf
  
Return lRet      

#Include 'Protheus.ch'
#Include "FWMVCDEF.CH"

User Function CN300AUTO() 
Local oModel	:= Nil
Local cContra	:= ' < NÚMERO_DO_CONTRATO > '

Local cTipRev	:= ' < TIPO_DE_REVISÃO > '
Local cJustific	:= 'Justificativa da revisão do contrato'

Local lRet		:= .F.

//=== Preparação do contrato para revisão =============================================================================================
CN9->(DBSetOrder(1))
If CN9->(DbSeek(xFilial("CN9")+cContra))				//- Posicionamento no contrato que será revisado.
 	
 	A300STpRev("3")									//- Define o tipo de revisão que será realizado.
 	
 	oModel := FWLoadModel("CNTA300")				//- Carrega o modelo de dados do contrato.
	oModel:SetOperation(MODEL_OPERATION_INSERT)		//- Define operação do modelo. Será INSERIDA uma revisão.
	 
	oModel:Activate(.T.) 							//- Ativa o modelo. É necessária a utilização do parâmetro como true (.T.) para realizar uma copia.


	//=== Preenchimento das alterações da revisão. =======================================================================================
	//== Cabeçalho
	oModel:SetValue( 'CN9MASTER'    , 'CN9_TIPREV' , cTipRev)		//- É obrigatório o preenchimento do tipo de revisão do contrato.

	oModel:SetValue( 'CN9MASTER'    , 'CN9_JUSTIF' , cJustific')	//- É obrigatório o preenchimento da justificativa de revisão do contrato.
	
	//== Qualquer alteração possível na execução manual pode ser automatizada.
	oModel:SetValue( 'CNBDETAIL'    , 'CNB_VLUNIT'  , 0.0010)		//- Alteração do valor unitário do item.
	
	CN300RdSld(oModel)							//- Realiza a redistribuição do saldo da planilha
	//== Validação e Gravação do Modelo
	lRet := oModel:VldData() .And. oModel:CommitData()
EndIf
 
Return lRet

A utilização da aprovação de modo automático está vinculada ao fonte CNTA300 posterior a data de 29/05/2018.

### Exemplo de aprovação utilizando a função CN300Aprov ###


#Include 'Protheus.ch'
#Include "FWMVCDEF.CH"

User Function CN300AUTO() 
Local cFilCont := ' < FILIAL_DO_CONTRATO > '
Local cContra  := ' < NÚMERO_DO_CONTRATO > '
Local cRevisa  := ' <NÚMERO_DA_REVISÃO> '
Local nRet	   := 0 
Local cMsgErro := ""
Local lRet     := .F.

//=== Preparação do contrato para revisão =============================================================================================
CN9->(DBSetOrder(1))
If CN9->( DbSeek( cFilCont + cContra + cRevisa ))
	nRet := CN300Aprov(.T.,,@cMsgErro) //- Função retorna 0 em caso de falha e 1 em caso de sucesso, também retorna a mensagem de erro por referência através do parâmetro cMsgErro.
	If nRet == 1
        lRet := .T.
    Else
        VarInfo("","Erro ao aprovar o contrato "+cContra+" "+cMsgErro)
    EndIf
EndIf
 
Return lRet

### Exemplo de alteração de situação utilizando a função CN100Situac ###
#Include 'Protheus.ch'
#Include "FWMVCDEF.CH"

/* É possível mudar para as situações conforme abaixo:
	"01"=Cancelado
	"03"=Emitido
	"05"=Vigente
	"06"=Paralisado
	"07"=Sol Fina.
	"08"=Finalizado
	"11"=Rejeitado
*/
User Function CN300SITU() 
Local cFilCont     := ' < FILIAL_DO_CONTRATO > '
Local cContra	:= ' < NÚMERO_DO_CONTRATO > '
Local cRevisa  := ' <NÚMERO_DA_REVISÃO> '

CN9->(DBSetOrder(1))
If CN9->( DbSeek( cFilCont + cContra + cRevisa ))//Deve se posicionar no contrato que terá sua situação alterada

	CN100Situac('CN9',CN9->(Recno()),4, "05",.T.)//Muda a situação do contrato para vigente

EndIf
 
Return lRet

### Exemplo de inclusão de uma contrato de venda ###
#Include 'Protheus.ch'
#Include "FWMVCDEF.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"

User Function CN300AUTO()    
    Local nRet      :=  0
        
    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "GCT" TABLES "CN9T10"               
        ConOut("INICIO TESTE")
		
		ExCtrVenda()
        
        ConOut("FIM TESTE") 
    RESET ENVIRONMENT
Return nRet

Static Function ExCtrVenda()
	Local aErro		:= {}
    Local oModel	:= Nil
	Local cContrat	:= "EXCTRVENDA"

	oModel := FWLoadModel('CNTA301')
	oModel:SetOperation(MODEL_OPERATION_INSERT)
	oModel:Activate()
	
	//Cabeçalho do Contrato
	oModel:SetValue('CN9MASTER','CN9_NUMERO', cContrat)
	oModel:SetValue('CN9MASTER','CN9_DTINIC', dDataBase)
	oModel:SetValue('CN9MASTER','CN9_UNVIGE', '2')
	oModel:SetValue('CN9MASTER','CN9_VIGE', 	 6	)
	oModel:SetValue('CN9MASTER','CN9_MOEDA',	 1)
	oModel:SetValue('CN9MASTER','CN9_TPCTO',	 "031")
	oModel:SetValue('CN9MASTER','CN9_CONDPG', "000")
	oModel:SetValue('CN9MASTER','CN9_AUTO',	 '1')	
	
	//Cliente/Fornecedor do Contrato
	oModel:SetValue('CNCDETAIL','CNC_CLIENT'	, "CN300R")
	oModel:SetValue('CNCDETAIL','CNC_LOJACL'	, "01")
	
	//Planilhas do Contrato	
	oModel:SetValue('CNADETAIL','CNA_NUMERO', PadL("1", Len(CNA->CNA_NUMERO),"0"))
	oModel:SetValue('CNADETAIL','CNA_CLIENT', "CN300R")
	oModel:SetValue('CNADETAIL','CNA_LOJACL', "01")
	oModel:SetValue('CNADETAIL','CNA_TIPPLA', "Z0F")
	
	//Itens da Planilha do Contrato
	oModel:SetValue('CNBDETAIL','CNB_ITEM', PadL("1", Len(CNB->CNB_ITEM),"0"))
	oModel:SetValue('CNBDETAIL','CNB_PRODUT'	,'GCT000000000000000000000000001')
	oModel:SetValue('CNBDETAIL','CNB_QUANT'	,6)
	oModel:SetValue('CNBDETAIL','CNB_TS'		, '501')

	If (oModel:VldData()) /*Valida o modelo como um todo*/
		oModel:CommitData()//--Grava Contrato
	EndIf

	CN9->(DbSetOrder(1))
	If(oModel:HasErrorMessage())
		aErro := oModel:GetErrorMessage()
		AEval( aErro, { | x |  ConOut( x ) + CRLF   } )
	ElseIf(CN9->(DbSeek(xFilial("CN9") + cContrat)))
		ConOut("Contrato gravado com sucesso.")
	EndIf

Return

#Include 'Protheus.ch'
#Include "FWMVCDEF.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
 

User Function CN300AUTO()   
    Local nRet      :=  0
         
    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "GCT" TABLES "CN9T10"              
        ConOut("INICIO TESTE")
         
        IncCtrRateio()
         
        ConOut("FIM TESTE")
    RESET ENVIRONMENT
Return nRet

/*Exemplo de inclusão de contrato com rateios(CNZ)*/ 
Static Function IncCtrRateio()
    Local aErro     := {}
    Local oModel    := Nil
    Local oModelCNB := Nil
    Local oModelCNZ := Nil
    Local cContrat  := "CONTRARATEIO"
 
    oModel := FWLoadModel('CNTA300')
    oModel:SetOperation(MODEL_OPERATION_INSERT)
    oModel:Activate()
     
    //Cabeçalho do Contrato
    oModel:SetValue('CN9MASTER','CN9_NUMERO', cContrat)
    oModel:SetValue('CN9MASTER','CN9_DTINIC', dDataBase)
    oModel:SetValue('CN9MASTER','CN9_UNVIGE', '2')
    oModel:SetValue('CN9MASTER','CN9_VIGE',      6  )
    oModel:SetValue('CN9MASTER','CN9_MOEDA',     1)
    oModel:SetValue('CN9MASTER','CN9_TPCTO',     "001")
    oModel:SetValue('CN9MASTER','CN9_CONDPG', "000")
    oModel:SetValue('CN9MASTER','CN9_AUTO'  ,  '1')  
     
    //Cliente/Fornecedor do Contrato
    oModel:SetValue('CNCDETAIL','CNC_CODIGO', "GCT001")
    oModel:SetValue('CNCDETAIL','CNC_LOJA'  , "01")    
     
    //Planilhas do Contrato
    oModel:SetValue('CNADETAIL','CNA_NUMERO'    , PadL("1", Len(CNA->CNA_NUMERO),"0"))
    oModel:SetValue('CNADETAIL','CNA_FORNEC'    , oModel:GetValue('CNCDETAIL','CNC_CODIGO'))    
    oModel:SetValue('CNADETAIL','CNA_TIPPLA'    , "Z0F")     

    oModelCNB := oModel:GetModel("CNBDETAIL")
    oModelCNZ := oModel:GetModel("CNZDETAIL")
    
    //Primeiro produto
    oModelCNB:SetValue('CNB_ITEM'      , StrZero(1, Len(CNB->CNB_ITEM)))
    oModelCNB:SetValue('CNB_PRODUT'    ,'GCT000000000000000000000000001')
    oModelCNB:SetValue('CNB_QUANT'     ,6)
    oModelCNB:SetValue('CNB_VLUNIT'    ,500)
    //Rateio do primeiro item
    oModelCNZ:SetValue('CNZ_ITEM'   ,StrZero(1, Len(CNZ->CNZ_ITEM)))
    oModelCNZ:SetValue('CNZ_PERC'   ,50)
    oModelCNZ:SetValue('CNZ_CC'     ,'GCT000001')
    oModelCNZ:AddLine()
    oModelCNZ:SetValue('CNZ_ITEM'   ,StrZero(2, Len(CNZ->CNZ_ITEM)))
    oModelCNZ:SetValue('CNZ_PERC'   ,50)
    oModelCNZ:SetValue('CNZ_CC'     ,'GCT000002')

    //Segundo produto 
    oModelCNB:AddLine()
    oModelCNB:SetValue('CNB_ITEM'      , StrZero(2, Len(CNB->CNB_ITEM)))
    oModelCNB:SetValue('CNB_PRODUT'    ,'GCT000000000000000000000000002')
    oModelCNB:SetValue('CNB_QUANT'     ,6)
    oModelCNB:SetValue('CNB_VLUNIT'    ,500)
    //Rateio do segundo item
    oModelCNZ:SetValue('CNZ_ITEM'   ,StrZero(1, Len(CNZ->CNZ_ITEM)))
    oModelCNZ:SetValue('CNZ_PERC'   ,70)
    oModelCNZ:SetValue('CNZ_CC'     ,'GCT000003')
    oModelCNZ:AddLine()
    oModelCNZ:SetValue('CNZ_ITEM'   ,StrZero(2, Len(CNZ->CNZ_ITEM)))
    oModelCNZ:SetValue('CNZ_PERC'   ,30)
    oModelCNZ:SetValue('CNZ_CC'     ,'GCT000005')

 
    If (oModel:VldData()) /*Valida o modelo como um todo*/
        oModel:CommitData()//--Grava Contrato
    EndIf
 
    CN9->(DbSetOrder(1))
    If(oModel:HasErrorMessage())
        aErro := oModel:GetErrorMessage()
        AEval( aErro, { | x |  ConOut( x ) } )
    ElseIf(CN9->(DbSeek(xFilial("CN9") + cContrat)))
        ConOut("Contrato gravado com sucesso.")
    EndIf
 
Return