CONTEÚDO
- Visão Geral
- Exemplo de utilização
a. Inclusão
b. Alteração
c. 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
#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
05. TABELAS UTILIZADAS