Histórico da Página

#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

O exemplo abaixo demonstra uma revisão do tipo Aditivo, neste caso em questão, é adicionada na revisão duas planilhas, em que é informado dois produtos em cada e onde é incluído o cronograma financeiro para cada planilha.

#Include 'Protheus.ch'
#Include "FWMVCDEF.CH"
#INCLUDE "TBICONN.CH"
 
User Function CN300AUTO()
    Local oModel    := Nil
    Local oModelCN9 := Nil
    Local oModelCNA := Nil
    Local oModelCNB := Nil
    Local cContra   := ' < NÚMERO_DO_CONTRATO > '
    Local cRevisa   := ' < REVISÃO_DO_CONTRATO >'
    Local cTipRev   := ' < TIPO_DE_REVISÃO > '
    Local cProd     := ' < SEU_PRODUTO > '
    Local cProd2    := ' < SEU_SEGUNDO_PRODUTO >'
    Local cJustific := 'Justificativa da revisão do contrato'
    Local nQtdPlan  := 2 // Quantidade de planilhas que serão adicionadas
    Local cTipPlan  := '< SEU TIPO DE PLANILHA que permita cronograma financeiro >'
    Local nX        := 0
	Local nLinPlan	:= 0
    Local cLog      := ''
    Local lRet      := .F.

    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "GCT" TABLES "CN9T10"

    //Preparação do contrato para revisão
    CN9->(DBSetOrder(1))
    If CN9->(DbSeek(xFilial("CN9")+cContra+cRevisa))     //- Posicionamento no contrato que será revisado.
        
        A300STpRev("1")                                 //- Tipo de revisão aditivo
        
        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 de aditivo.
        // Cabeçalho
        oModelCN9:= oModel:GetModel("CN9MASTER")
        oModelCN9:SetValue( 'CN9_TIPREV' , cTipRev)       //- É obrigatório o preenchimento do tipo de revisão do contrato.
    
        oModelCN9:SetValue( 'CN9_JUSTIF' , cJustific)    //- É obrigatório o preenchimento da justificativa de revisão do contrato.
        
        oModelCNA:= oModel:GetModel('CNADETAIL')
        oModelCNB:= oModel:GetModel('CNBDETAIL')
        
        // Adiciona planilha
        For nX := 1 to nQtdPlan
            
            oModelCNA:AddLine()
 		    nLinPlan := oModelCNA:GetLine()	
            //Planilhas do Contrato
            oModelCNA:LoadValue('CNA_NUMERO'   , StrZero(nLinPlan, Len(CNA->CNA_NUMERO)))
            oModelCNA:SetValue('CNA_FORNEC'    , oModel:GetValue('CNCDETAIL','CNC_CODIGO'))   
            oModelCNA:SetValue('CNA_TIPPLA'    , cTipPlan)
            
            //Primeiro produto da planilha adicionada
            oModelCNB:LoadValue('CNB_ITEM'     , StrZero(1, Len(CNB->CNB_ITEM)))
            oModelCNB:SetValue('CNB_PRODUT'    , cProd)
            oModelCNB:SetValue('CNB_QUANT'     , 6)
            oModelCNB:SetValue('CNB_VLUNIT'    , 500)

            //Segundo produto da planilha adicionada
            oModelCNB:AddLine()
            oModelCNB:LoadValue('CNB_ITEM'     , StrZero(2, Len(CNB->CNB_ITEM)))
            oModelCNB:SetValue('CNB_PRODUT'    , cProd2)
            oModelCNB'	)
oModel:SetValue( 'CNBDETAIL'	, 'CNB_QUANT'     		, 6)
            oModelCNB:SetValue(1						)
oModel:SetValue( 'CNBDETAIL'	, 'CNB_VLUNIT'	, 1000					)
oModel:SetValue(   , 500)

            //Adiciona cronograma financeiro as planilhas
            '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"   , "0502/20242018") // Competência Inicio?
            SetMVValue("CN300CRG","MV_PAR05"   , cTod("1520/0502/20242018")) // Data prevista 1º Medição
            SetMVValue("CN300CRG","MV_PAR06"   , 31) // 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
            
            //indica que não exibirá a tela do pergunte CN300CRG por se tratar de rotina automática             
            Pergunte("CN300CRG",.F.)
            //Gera automaticamente o cronograma financeiro/físico pela rotina automática
            CN300PrCF(.T.) 
        Next nX 

        
        //Validação e Gravação do Modelo 
        lRet := oModel:VldData() .And. oModel:CommitData()

        If !lRet .And. oModel:HasErrorMessage() //Operação falhou          
             
            aEval(oModel:GetErrorMessage(),{|x| cLog+= IIF(ValType(x) == 'C', x, '')+ Chr(13)+Chr(10) })
 
            If !IsBlind()
                GCTLog(cLog)
            Else
                ConOut(cLog)
            Endif
        EndIf   
    EndIf
    
Return lRet

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   := " < NÚMERO_DO_CONTRATO > "
     Local cRevisa   := ' < REVISÃO DO CONTRATO >'
     Local cTipRev   := "NÚMERO_DA_REVISAO_ABERTA"
     Local cJustific := "Justificativa da revisão aberta do contrato"
     Local cCond     := "CONDICAO_DE_PAGAMENTO"
 	 Local cLog := ""
     Local lRet      := .F.   
     
	 //=== Preparação do contrato para revisão =============================================================================================
     CN9->(DBSetOrder(1))
     If CN9->(DbSeek(xFilial("CN9")+cContra+cRevisa))             //- Posicionamento no contrato que será revisado.

#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 ###
#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 paralisação de uma contrato e seu reinicio ###
#Include 'Protheus.ch'
#Include "FWMVCDEF.CH"


User Function TsRVPar()    
    Local cContra := '[NUMERO DO CONTRATO]'
    Local cRevisa := Space(3)//Deve ser substituído pela revisão

    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "GCT" TABLES "CN9T10"               
        
        dDatabase := CToD("20/04/2020")
		IncluiRev(cContra, cRevisa,"005") //Inclui revisão de paralisação
        cRevisa := CnUltRev(cContra, cFilAnt)
        AprovRev(cContra, cRevisa) //Aprova revisão de paralisação

        dDatabase := DaySum(dDatabase, 1)
        IncluiRev(cContra, cRevisa,"006")//Inclui revisão de reinicio
        cRevisa := CnUltRev(cContra, cFilAnt)
        AprovRev(cContra, cRevisa) //Aprova revisão

    RESET ENVIRONMENT
Return Nil

Static Function IncluiRev(cContra, cRevisao, cTipRev)
    Local aErro := {}
    Local oModel:= Nil

    CN0->(DbSetOrder(1))//CN0_FILIAL+CN0_CODIGO
    CN9->(DBSetOrder(1))    
    If (CN9->(DbSeek(xFilial("CN9") + cContra + cRevisao)) .And. CN0->( DbSeek(xFilial("CN0") + cTipRev) ))