| A rotina automática mvc CNTA300. #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' )
oModel:SetValue( 'CN9MASTER' , 'CN9_VIGE' , 1 )
oModel:SetValue( 'CN9MASTER' , 'CN9_MOEDA' , 1 )
oModel:SetValue( 'CN9MASTER' , 'CN9_CONDPG' , '001' )
oModel:SetValue( 'CN9MASTER' , 'CN9_TPCTO' , '001' )
oModel:SetValue( 'CN9MASTER' , 'CN9_FLGREJ' , '2' )
oModel:SetValue( 'CN9MASTER' , 'CN9_FLGCAU' , '2' )
oModel:SetValue( 'CN9MASTER' , 'CN9_ASSINA' , Ctod("24/02/2017") )
//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' )
oModel:SetValue( 'CNADETAIL' , 'CNA_FLREAJ' , '2' )
//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
oModel:GetModel('CNFDETAIL'):SetNoInserLine(.F.)
oModel:GetModel('CNFDETAIL'):SetNoUpdateLine(.F.)
oModel:LoadValue( 'CNFDETAIL' , 'CNF_NUMERO' , '000071' )
oModel:SetValue( 'CNFDETAIL' , 'CNF_PARCEL' , '01' )
oModel:SetValue( 'CNFDETAIL' , 'CNF_COMPET' , '02/2017' )
oModel:SetValue( 'CNFDETAIL' , "CNF_VLPREV" , 500 )
oModel:SetValue( 'CNFDETAIL' , "CNF_VLREAL" , 0 )
oModel:SetValue( 'CNFDETAIL' , "CNF_SALDO" , 500 )
oModel:SetValue( 'CNFDETAIL' , 'CNF_PRUMED' , Ctod("24/02/2017") )
oModel:SetValue( 'CNFDETAIL' , 'CNF_DTVENC' , Ctod("24/02/2017") )
oModel:SetValue( 'CNFDETAIL' , 'CNF_TXMOED' , 1 )
oModel:GetModel('CNFDETAIL'):AddLine()
oModel:LoadValue( 'CNFDETAIL' , 'CNF_NUMERO' , '000071' )
oModel:SetValue( 'CNFDETAIL' , 'CNF_PARCEL' , '02' )
oModel:SetValue( 'CNFDETAIL' , 'CNF_COMPET' , '02/2017' )
oModel:SetValue( 'CNFDETAIL' , "CNF_VLPREV" , 500 )
oModel:SetValue( 'CNFDETAIL' , "CNF_VLREAL" , 0 )
oModel:SetValue( 'CNFDETAIL' , "CNF_SALDO" , 500 )
oModel:SetValue( 'CNFDETAIL' , 'CNF_PRUMED' , Ctod("24/02/2017") )
oModel:SetValue( 'CNFDETAIL' , 'CNF_DTVENC' , Ctod("24/02/2017") )
oModel:SetValue( 'CNFDETAIL' , 'CNF_TXMOED' , 1 )
//Validação e Gravação do Modelo
If oModel:VldData()
oModel:CommitData()
EndIf
Return
será mantido o legal e funciona da mesma forma. MATA160 - Encerramento de Cotações |
