FAQs - Suporte técnico

Cross Segmento - Backoffice Linha Protheus - SIGAATF: Exemplo de Execauto (Rotina Automática) - Transferência do Ativos

Dúvida
Exemplo de Execauto (Rotina Automática) - Transferência do Ativos


Ambiente
Protheus – Ativo Fixo – A partir da versão 11.80
renan 
Solução

User Function MyATFA060() 
 
Local aDadosAuto    := {}  // Array com os dados a serem enviados pela MsExecAuto() para gravação automática. 
Local aParamAuto    := {} 
Private lMsHelpAuto := .F. // Determina se as mensagens de help devem ser direcionadas para o arq. de log. 
Private lMsErroAuto := .F. // Determina se houve alguma inconsistência na execução da rotina em relação aos parâmetros informados 
 
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ 
//³ O exemplo abaixo foi considerado passando somente dados de conta contábil e centro de custo, caso ³ 
//³ necessário passar os campos referentes a itens contábeis e classes de valores. ³ 
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 

dDatabase := cTod("08/02/2010")
aDadosAuto:= { {'N3_FILIAL' ,ALLTRIM(xfilial("SN3")),Nil},; // Código da filial {'N3_CBASE' , "0000000002" , Nil},; // Código base do ativo {'N3_ITEM' , "0001" , Nil},; // Item sequencial do código base do ativo
{'N3_TIPO'    , "10" , Nil},; // Tipo do Ativo {'N4_DATA' , dDatabase      , Nil},; // Data de aquisição do ativo {'N3_CCUSTO' , "123" , Nil},; // Centro de Custo de Despesa {'N3_CCONTAB' , "123" , Nil},; // Conta Contábil {'N3_CCORREC' , "123" , Nil},; // Conta de Correção do Bem {'N3_CDEPREC' , "123" , Nil},; // Conta Despesa Depreciação {'N3_CCDEPR' , "123" , Nil},; // Conta Depreciação Acumulada {'N3_CDESP' , "123" , Nil},; // Conta Correção Depreciação {'N3_CUSTBEM' , "123" , Nil},; // Centro de Custo da Conta do Bem {'N3_CCCORR' , "123" , Nil},; // Centro Custo Correção Monetária {'N3_CCDESP' , "123" , Nil},; // Centro Custo Despesa Depreciação {'N3_CCCDEP' , "123" , Nil},; // Centro Custo Despesa Acumulada {'N3_CCCDES' , "123" , Nil},; // Centro Custo Correção Depreciação {'N1_GRUPO' , "GR01" , Nil},; // Código do Grupo do Bem {'N1_LOCAL' , "LOCAL" , Nil},; // Localização do Bem {'N1_NFISCAL' , "NF001" , Nil},; // Número da NF {'N1_NSERIE' , "SERIE" , Nil},; // Série da NF {'N1_TAXAPAD' , "999999" , Nil}} // Código da Taxa Padrão
{'TPN_CTRAB' , "CT01 " , Nil},; // Centro de Trabalho do Bem, utilizado somente quando integrado ao SIGAMNT {'TPN_POSCON' , "150" , Nil},; // Primeiro Contador do Bem, utilizado somente quando integrado ao SIGAMNT {'TPN_POSCO2' , "100" , Nil}} // Segundo Contador do Bem, utilizado somente quando integrado ao SIGAMNT
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³ Caso deseje passar valores para os campos, Grupo, Local, NF/Série Taxa padrão, considerar ³ //³ como no exemplo acima utilizando os campos correspondentes da tabela SN1. ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ // Parâmetros das perguntas da rotina atfa060 aAdd( aParamAuto, {"MV_PAR01", 1} ) //Pergunta 01 - Contabiliza ? 1 = Sim ; 2 = Não aAdd( aParamAuto, {"MV_PAR02", 2} ) //Pergunta 02 - Mostra Lanc Contab ? 1 = Sim ; 2 = Não aAdd( aParamAuto, {"MV_PAR03", 2} ) //Pergunta 02 - Aglut Lançamentos ? 1 = Sim ; 2 = Não
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
// O quarto parâmetro pode ser configurado com os seguintes estados.
//.T. = Espelhar.
//.F. = Atualizar.
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ MSExecAuto({|x, y, w, z| AtfA060(x, y, w, z)},aDadosAuto, 4 ,, .F.) If lMsErroAuto lRetorno := .F. MostraErro() Else lRetorno:=.T. EndIf Return

 

Importante

Na transferência contábil, deverá ser feito a chamada do Execauto de cada tipo de ativo separado, pois a execução automática é preparada para realizar a transferência de um tipo de ativo por vez.

 


 

TRANSFERENCIA FÍSICA

#Include 'Protheus.ch'
#Include 'Protheus.ch'
#Include 'tbiconn.ch'

User Function MyATFA060()
Local   aDadosAuto  := {}   // Array com os dados á serem enviados pela MsExecAuto() para gravação automática.
Private lMsHelpAuto := .F.  // Determina se as mensagens de help devem ser direcionadas para o arq. de log.
Private lMsErroAuto := .F.   // Determina se houve alguma inconsistência na execução da rotina em relação aos

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ O exemplo abaixo foi considerado passando somente dados de conta contabil e centro de custo, caso ³
//³ necessário passar os campos referentes a itens contábeis e classes de valores.                    ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 

dDatabase := cTod("08/02/2010")
aDadosAuto:= {{'N3_CBASE' , "TRANSF " , Nil},; // Código base do ativo {'N3_ITEM' , "001 " , Nil},; // Item sequencial do código bas do ativo
{'N3_TIPO'    , "10" , Nil},; // Tipo do Ativo
{'N1_FILIAL' , "D MG 02 " , Nil},; // Filial de Destino do Ativo {'N4_DATA' , dDatabase              , Nil},; // Data de aquisição do ativo {'N3_CCUSTO' , " " , Nil},; // Centro de Custo de Despesa {'N3_CCONTAB' , "101010100 " , Nil},; // Conta Contabil {'N3_CCORREC' , " " , Nil},; // Conta de Correcao do Bem {'N3_CDEPREC' , "201010100 " , Nil},; // Conta Despesa Depreciação {'N3_CCDEPR' , "101010300 " , Nil},; // Conta Depreciação Acumulada {'N3_CDESP' , " " , Nil},; // Conta Correção Depreciação {'N3_CUSTBEM' , " " , Nil},; // Centro de Custo da Conta do Bem {'N3_CCCORR' , " " , Nil},; // Centro Custo Correção Monetária {'N3_CCDESP' , " " , Nil},; // Centro Custo Despesa Depreciação {'N3_CCCDEP' , " " , Nil},; // Centro Custo Despesa Acumulada {'N3_CCCDES' , " " , Nil},; // Centro Custo Correção Depreciacão {'N1_GRUPO' , " " , Nil},; // Código do Grupo do Bem {'N1_LOCAL' , " " , Nil},; // Localizacao do Bem {'N1_NFISCAL' , " " , Nil},; // Numero da NF {'N1_NSERIE' , " " , Nil},; // Serie da NF {'N1_TAXAPAD' , " " , Nil}} // Codigo da Taxa Padrao //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³ Caso deseje passar valores para os campos, Grupo, Local, NF/Serie Taxa padrao, considerar ³ //³ como no exemplo acima utilizando os campos correspondentes da tabela SN1. ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
// O quarto parâmetro pode ser configurado com os seguintes estados.
//.T. = Espelhar.
//.F. = Atualizar.
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
MSExecAuto({|x, y, w, z| AtfA060(x, y, w, z)},aDadosAuto, 4, aParamAuto , .F.) If lMsErroAuto lRetorno := .F. MostraErro() Else lRetorno:=.T. EndIf Return

 

Saiba mais:

https://tdn.totvs.com/pages/releaseview.action?pageId=200902359

Esse artigo foi útil?
Usuários que acharam isso útil: 0 de 0

0 Comentários

Por favor, entre para comentar.
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Preencha os campos abaixo para iniciar o atendimento:

Chat _