DT Rotina automática CRMA180 - Atividades

#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'  ,  '000032'              )
	oModel:SetValue( 'AOFMASTER' , 'AOF_TIPO'    ,  '2'                   )
	oModel:SetValue( 'AOFMASTER' , 'AOF_ASSUNT'  ,  'EXECAUTO INCLUSÃO'   )
	oModel:SetValue( 'AOFMASTER' , 'AOF_DTINIC'  ,  Date()                )
	oModel:SetValue( 'AOFMASTER' , 'AOF_DTFIM'   ,  Date()                )
    oModel:SetValue( 'AOFMASTER' , 'AOF_STATUS'  ,    '1'                 )

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

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

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(" ALTERADO com sucesso " + Time() )
	 Else
        VarInfo("",oModel:GetErrorMessage())
    EndIf

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

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