Exemplos de execução via rotina automática na rotina de Atividades (CRMA180), mostrando exemplos de utilização e tabelas relacionadas.
#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 |