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 Atual

changes.mady.by.user Eduardo Paro de Simoni

Gravado em

Chave

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

...

  1. Visão Geral
  2. Exemplo de utilização
    a. Inclusão
    b. Alteração
    c. Exclusão

01. VISÃO GERAL

...

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

User Function ICRMA180()

	Local  oModel := NIL

    RpcSetEnv("T1","D MG 01", "Administrador","")

    oModel := FWLoadModel("CRMA180") 

	oModel:SetOperation(3) 
	oModel:Activate() 

	oModel:SetValue( 'AOFMASTER' , 'AOF_FILIAL'  ,  xFilial("AOF")        )
	oModel:SetValue( 'AOFMASTER' , 'AOF_CODIGO'  ,  '000005'000032'              )
	oModel:SetValue( 'AOFMASTER' , 'AOF_TIPO'    ,  '1'2'                   )
	oModel:SetValue( 'AOFMASTER' , 'AOF_ASSUNT'  ,  'COLETA-TESTEEXECAUTO INCLUSÃO'   )
	oModel:SetValue( 'AOFMASTER' , 'AOF_DTINIC'  ,  Date()                )
	oModel:SetValue( 'AOFMASTER' , 'AOF_DTFIM'   ,  Date()                )
	    oModel:SetValue( 'AOFMASTER' , 'AOF_CODUSRSTATUS'  ,    '0000051'                 )

	If oModel:VldData() .And. oModel:CommitData()		
		ConOut(" Incluido com sucesso " + Time() )
	 Else
        VarInfo("",oModel:GetErrorMessage())
    EndIf

	ConOut(" *********** Termino :" + Time() + " ***************")
Return
Bloco de código
languagepy
themeMidnight
titleAlteração
linenumberstrue
collapsetrue
User Function UCRMA180()
	Local  oModel := NIL

    RpcSetEnv("T1","D MG 01", "Administrador","")

    DbSelectArea("AOF")
    AOF->(DbSetOrder(1))
    AOF->(DbSeek(xFilial("AOF") + PadR('000032',getSX3Cache("AOF_CODIGO","X3_TAMANHO"))))

    oModel := FWLoadModel("CRMA180")
	oModel:SetOperation(4) 
	oModel:Activate() 

	oModel:SetValue( 'AOFMASTER' , 'AOF_FILIAL'  ,  xFilial("AOF")    )
	oModel:SetValue( 'AOFMASTER' , 'AOF_CODIGO'  ,  AOF->AOF_CODIGO   )
	oModel:SetValue( 'AOFMASTER' , 'AOF_TIPO'    ,  AOF->AOF_TIPO     )
	oModel:SetValue( 'AOFMASTER' , 'AOF_ASSUNT'  ,  "ALTERADO"        )
	oModel:SetValue( 'AOFMASTER' , 'AOF_DTINIC'  ,  AOF->AOF_DTINIC   )
	oModel:SetValue( 'AOFMASTER' , 'AOF_DTFIM'   ,  AOF->AOF_DTFIM    )
    oModel:SetValue( 'AOFMASTER' , 'AOF_STATUS'  ,  AOF->AOF_STATUS   )

	If oModel:VldData() .And. oModel:CommitData()		
		ConOut(" IncluidoALTERADO com sucesso " + Time() )
	 Else
        VarInfo("",oModel: 000005 " + Time() )
	GetErrorMessage())
    EndIf

	ConOut(" *********** Termino :" + Time() + " ***************")
Return
Bloco de código
languagepy
themeMidnight
titleExclusão
linenumberstrue
collapsetrue
User Function DCRMA180()
	Local  oModel := NIL

    RpcSetEnv("T1","D MG 01", "Administrador","1234")

    DbSelectArea("AOF")
    AOF->(DbSetOrder(1))
    AOF->(DbSeek(xFilial("AOF") + PadR('000032',getSX3Cache("AOF_CODIGO","X3_TAMANHO"))))

    oModel := FWLoadModel("CRMA180")
	oModel:SetOperation(5) 
	oModel:Activate() 

	If oModel:VldData() .And. oModel:CommitData()		
		ConOut(" EXCLUIDO com sucesso " + Time() )
    Else
        VarInfo("",oModel:GetErrorMessage())
    EndIf

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

05. TABELAS UTILIZADAS

  • AOF - Atividades.