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

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'	

#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

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

User Function CN300AUTO()         
    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "GCT" TABLES "CN9T10"              
        ConOut("INICIO TESTE")
         
        ExemploAdt()
         
        ConOut("FIM TESTE")
    RESET ENVIRONMENT
Return

/*Exemplo da utilização dos adiantamentos sem interface gráfica*/
Static Function ExemploAdt()
    Local oModel    := NIL
    Local cModelId  := ""
    Local cContra   := "CONTRATOADT"
    Local cChave    := xFilial("CN9") + cContra
    Local aErro     := {}
    Local oMdlCNX   := NIL
    Local cNumero   := ""

    CN9->(DbSetOrder(1))
    If CN9->(DbSeek(cChave))
        A300lAdian(.T.) //Ativa operação adiantamento

        cModelId:= CN9->(IIF(CN9_ESPCTR == '1', 'CNTA300', 'CNTA301'))
        oModel  := FwLoadModel(cModelId)
        oModel:SetOperation(MODEL_OPERATION_UPDATE)
        If oModel:Activate()
            oMdlCNX := oModel:GetModel("CNXDETAIL")

            cNumero := StrZero(oMdlCNX:Length(), GetSx3Cache('CNX_NUMERO','X3_TAMANHO'))
            oMdlCNX:SetValue('CNX_NUMERO', cNumero)

            If cModelId == 'CNTA301'//Venda                
                oMdlCNX:SetValue('CNX_CLIENT', oModel:GetValue('CNCDETAIL', 'CNC_CLIENT'))
                oMdlCNX:SetValue('CNX_LOJACL', oModel:GetValue('CNCDETAIL', 'CNC_LOJACL'))
            Else//Compra
                oMdlCNX:SetValue('CNX_FORNEC', oModel:GetValue('CNCDETAIL', 'CNC_CODIGO'))
                oMdlCNX:SetValue('CNX_LJFORN', oModel:GetValue('CNCDETAIL', 'CNC_LOJA'))
            EndIf

            oMdlCNX:SetValue('CNX_VLADT', 1000)
            oMdlCNX:SetValue('CNX_BANCO', '000')//gatilhará agência(CNX_AGENCI) e conta(CNX_CONTA)
            
            If oModel:VldData()
                oModel:CommitData()
            EndIf
        EndIf


        if oModel:HasErrorMessage()
            aErro := aClone(oModel:GetErrorMessage())
        endif

        If oModel:IsActive()
            oModel:DeActivate()
        EndIf
        FreeObj(oModel)

        A300lAdian(.F.) //Desativa operação adiantamento
        
        If !Empty(aErro)
            VarInfo('Erro apresentado:', aErro)            
        EndIf
    EndIf
Return

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.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")
         
        IncMultPlan()
         
        ConOut("FIM TESTE")
    RESET ENVIRONMENT
Return nRet

/*Exemplo de inclusão de contrato com múltiplas planilhas*/ 
Static Function IncMultPlan()
    Local aErro     := {}
    Local oModel    := Nil
    Local oModelCNB := Nil
    Local oModelCNA := Nil
    Local cContrat  := "CTRMULTIPLAN"
    Local nX        := 0
    Local nQtdPlan  := 3

    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") 
    oModelCNB := oModel:GetModel("CNBDETAIL")
    oModelCNA := oModel:GetModel("CNADETAIL")

    for nX := 1 to nQtdPlan
        If !(Empty(oModelCNA:GetValue('CNA_NUMERO')))
            oModelCNA:AddLine()
        EndIf
        //Planilhas do Contrato
        oModelCNA:LoadValue('CNA_NUMERO'    , StrZero(nX, Len(CNA->CNA_NUMERO)))
        oModelCNA:SetValue('CNA_FORNEC'    , oModel:GetValue('CNCDETAIL','CNC_CODIGO'))    
        oModelCNA:SetValue('CNA_TIPPLA'    , "Z0F")
        
        //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)
        //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)
    next nX
 
    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

Atente-se para o fato que apenas a última revisão do contrato pode ser revisada, tal qual ocorre em tela, por isso é imprescindível que se posicione na revisão vigente. 

Neste exemplo, é feita a revisão do tipo aberta de um contrato com tipo de planilha semi fixo por agrupador.

Para mais detalhe sobre os tipos de planilha, consulte a página: Tipos de Planilha

#Include "Protheus.CH"
#Include "FWMVCDEF.CH"
 
User Function CN300AUTO()
     Local oModel    := Nil
     Local cContra   := "

#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
        

### Exemplo de alteração de situação utilizando a função CN100Situac ###

### Exemplo de paralisação de uma contrato e seu reinicio ###
#Include 'Protheus.ch'
#Include "FWMVCDEF.CH"


User Function TsRVPar()    
    Local cContra := '[NUMERO DO CONTRATO]'