Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Eduardo Paro de Simoni

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Eduardo Paro de Simoni

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


CONTEÚDO

  1. Visão Geral
  2. Exemplo de utilizaçãoa. Inclusãob. Alteraçãoc. Exclusão

01. VISÃO GERAL

Exemplos de execução via rotina automática na rotina de Atividades (CRMA180), mostrando exemplos de utilização e tabelas relacionadas.

02. EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagepy
themeMidnight
titleInclusão
linenumberstrue
collapsetrue
#Include 'TOTVS.CH'
#Include "FWMVCDEF.CH"

User Function ICRMA180()

	Local oModel := FWLoadModel("CRMA180") 

	oModel:SetOperation(3) 
	oModel:Activate() 

	oModel:SetValue( 'AOFMASTER' , 'AOF_FILIAL'  ,  xFilial("AOF") )
	oModel:SetValue( 'AOFMASTER' , 'AOF_CODIGO'  ,  '000005'       )
	oModel:SetValue( 'AOFMASTER' , 'AOF_TIPO'    ,  '1'            )
	oModel:SetValue( 'AOFMASTER' , 'AOF_ASSUNT'  ,  'COLETA-TESTE' )
	oModel:SetValue( 'AOFMASTER' , 'AOF_DTINIC'  ,  Date()         )
	oModel:SetValue( 'AOFMASTER' , 'AOF_DTFIM'   ,  Date()         )
	oModel:SetValue( 'AOFMASTER' , 'AOF_CODUSR'  ,  '000005'       )

	If oModel:VldData()
		oModel:CommitData()
		ConOut(" Incluido com sucesso : 000005 " + Time() )
	EndIf

	ConOut(" *********** Termino :" + Time() + " ***************")
Return

05. TABELAS UTILIZADAS

  • AOF -