Histórico da Página
...
- Visão Geral
- Exemplo de utilização
a. Inclusão
b. Alteração
c. Exclusão
01. VISÃO GERAL
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#Include 'TOTVS.CH' #Include "FWMVCDEF.CH" User Function ICRMA180() Local 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-TESTE'EXECAUTO 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() ) EndIf ConOut(" *********** Termino :" + Time() + " ***************") Return |
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
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() ) EndIf ConOut(" *********** Termino :" + Time() + " ***************") Return |
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
User Function DCRMA180() 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(5) 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(" EXCLUIDO com sucesso 000005 " + Time() ) EndIf ConOut(" *********** Termino :" + Time() + " ***************") Return |
05. TABELAS UTILIZADAS
- AOF - Atividades.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas