Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Revertida da versão 3

...

Produto:

Protheus

Versões:

Todas

Ocorrência:

Existe execauto CNTA300 MVC?

Ambiente:

P11-P12


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

Observações:

modelo de dados WMSA030 - DLGA030