Rotina Automática Lançamentos Contábeis Protheus

Precisa de ajuda sobre este assunto em seu ERP?

O Protheus é um sistema de gestão empresarial que oferece diversas funcionalidades para empresas de diferentes segmentos. Entre as suas funcionalidades, está a possibilidade de automatizar a rotina de lançamentos contábeis, o que pode ser bastante útil para empresas que precisam realizar esses lançamentos de forma recorrente e que desejam reduzir o tempo e o esforço necessários para essa atividade.

A rotina de lançamentos contábeis automatizada no Protheus permite que a empresa defina as regras contábeis de acordo com as suas necessidades, para que o sistema possa realizar automaticamente os lançamentos de forma correta e precisa. Além disso, essa funcionalidade permite que a empresa ganhe mais eficiência na gestão contábil e reduza a possibilidade de erros manuais.

A partir da configuração da rotina automática de lançamentos contábeis no Protheus, a empresa pode definir quais eventos ou transações do sistema serão considerados para gerar os lançamentos contábeis, além de poder definir as contas contábeis a serem utilizadas e as regras de cálculo para os valores contábeis. Com essa automação, a empresa pode obter informações financeiras e contábeis mais precisas e atualizadas, permitindo uma tomada de decisão mais estratégica.

Linha de Produto: Microsiga Protheus.
Segmento: Serviços e Jurídico.
Módulo: Contabilidade Gerencial (SIGACTB)
Rotina: Lançamentos Contábeis Automáticos
País(es): Todos.

Se você está procurando um Dashboard Financeiro COMPLETO para integrar ao seu ERP conheça este BI 100% pronto

Banco(s) de Dados: Todos.
Tabelas utilizadas: CT2
Sistema(s) operacional(is): Todos.
Descrição: Exemplo de rotina automática para cadastro de lançamentos contábeis (CTBA102)

User Function FBINCCT2()
Local _lOk := .T.
Local aItens := {}
Local aCab := { {'DDATALANC' ,dDataBase ,NIL},;
{'CLOTE' ,'008800' ,NIL},;
{'CSUBLOTE' ,'001' ,NIL},;
{'CDOC' , STRZERO( seconds() ,6) ,NIL},;
{'CPADRAO' ,'' ,NIL},;
{'NTOTINF' ,0 ,NIL},;
{'NTOTINFLOT' ,0 ,NIL} }

PRIVATE lMsErroAuto

aAdd(aItens,{ {'CT2_FILIAL' ,'D MG 01 ' , NIL},;
{'CT2_LINHA' ,'001' , NIL},;
{'CT2_MOEDLC' ,'01' , NIL},;
{'CT2_DC' ,'3' , NIL},;
{'CT2_DEBITO' ,'101010123' , NIL},;
{'CT2_CREDIT' ,'201010123' , NIL},;
{'CT2_VALOR' , 100 , NIL},;
{'CT2_ORIGEM' ,'MSEXECAUT', NIL},;
{'CT2_HP' ,'' , NIL},;
{'CT2_HIST' ,'INCLUSAO CONTINUACAO DE HISTORICO COM MAIS DE 80 CARACTERES', NIL} } )

//este trecho deve ser usado apenas quando necessário incluir continuação de histórico

aAdd(aItens,{ {'CT2_FILIAL' ,'D MG 01 ' , NIL},;
{'CT2_LINHA' ,'002' , NIL},;
{'CT2_DC' ,'4' , NIL},;
{'CT2_HIST' ,'CONT - INCLUSAO CONTINUACAO DE HISTORICO COM MAIS DE 80 CARACT', NIL} } )

MSExecAuto( {|X,Y,Z| CTBA102(X,Y,Z)} ,aCab ,aItens, 3)
If lMsErroAuto <> Nil
	If !lMsErroAuto
		_lOk := .T.
		If !IsBlind()
			MsgInfo('Inclusão com sucesso')
		EndIf
	Else
		_lOk := .F.
		If !IsBlind()
			MsgAlert('Erro na inclusao')
		Endif
	EndIf
EndIf
Return

User Function FBINCCT2()

Local _lOk := .T.

Local aItens := {}

Local aCab := { {'DDATALANC' ,dDataBase ,NIL},;

{'CLOTE' ,'008800' ,NIL},;

{'CSUBLOTE' ,'001' ,NIL},;

{'CDOC' , STRZERO( seconds() ,6) ,NIL},;

{'CPADRAO' ,'' ,NIL},;

{'NTOTINF' ,0 ,NIL},;

{'NTOTINFLOT' ,0 ,NIL} }

PRIVATE lMsErroAuto

aAdd(aItens,{ {'CT2_FILIAL' ,'D MG 01 ' , NIL},;

{'CT2_LINHA' ,'001' , NIL},;

{'CT2_MOEDLC' ,'01' , NIL},;

{'CT2_DC' ,'3' , NIL},;

{'CT2_DEBITO' ,'101010123' , NIL},;

{'CT2_CREDIT' ,'201010123' , NIL},;

{'CT2_VALOR' , 100 , NIL},;

{'CT2_ORIGEM' ,'MSEXECAUT', NIL},;

{'CT2_HP' ,'' , NIL},;

{'CT2_HIST' ,'INCLUSAO CONTINUACAO DE HISTORICO COM MAIS DE 80 CARACTERES', NIL} } )

//este trecho deve ser usado apenas quando necessário incluir continuação de histórico

aAdd(aItens,{ {'CT2_FILIAL' ,'D MG 01 ' , NIL},;

{'CT2_LINHA' ,'002' , NIL},;

{'CT2_DC' ,'4' , NIL},;

{'CT2_HIST' ,'CONT - INCLUSAO CONTINUACAO DE HISTORICO COM MAIS DE 80 CARACT', NIL} } )

MSExecAuto( {|X,Y,Z| CTBA102(X,Y,Z)} ,aCab ,aItens, 3)

If lMsErroAuto <> Nil

If !lMsErroAuto

_lOk := .T.

If !IsBlind()

MsgInfo('Inclusão com sucesso')

EndIf

Else

_lOk := .F.

If !IsBlind()

MsgAlert('Erro na inclusao')

Endif

EndIf

Return

Observação
Em caso de lançamentos de partida simples, é necessário a validação dos parâmetros abaixo.
MV_CONTSB – Indica se a contabilização será feita mesmo que os valores de débito e crédito não batam. Se estiver com “S”, gravará o lançamento contábil sem verificação de valores. Caso contrário, dependerá da configuração de MV_CONTBAT.
MV_CONTSLD – Indica se a validação de Débito e Crédito do lançamento contábil será efetuada por Tipo de Saldo (evitando que sejam gerados lançamentos à débito e à credito em tipos de saldo diferentes. Se não for necessário efetuar esta validação, preencher o conteúdo com “N”.

A Rotina Automática de Lançamentos Contábeis no sistema Protheus oferece uma solução eficiente e confiável para automatizar o processo de contabilização de transações financeiras. Com a automatização desse processo, é possível minimizar erros e aumentar a eficiência, garantindo que as informações contábeis estejam sempre atualizadas e disponíveis para consulta e análise.

Além disso, a Rotina Automática de Lançamentos Contábeis no Protheus permite a personalização de regras e critérios contábeis, o que torna o processo ainda mais adaptável às necessidades de cada empresa. Com essa flexibilidade, é possível garantir a conformidade com as normas contábeis e fiscais aplicáveis, bem como otimizar os resultados contábeis e financeiros da empresa.

Em suma, a utilização da Rotina Automática de Lançamentos Contábeis no Protheus pode trazer benefícios significativos para a gestão financeira de uma empresa, permitindo maior agilidade, precisão e controle em seus processos contábeis.

Sobre
Últimos Posts

Soluções para ERP/Power BI/CRM/Fabrica de Software/Infra

A FBS Consultoria surgiu da paixão de uma pessoa por realizar projetos. Ver o projeto nascer, desde a primeira conversa, até a execução e entrega final é algo mágico para quem está neste meio de tecnologia.

Temos uma equipe de analistas e desenvolvedores que pode efetivamente realizar todas as suas aspirações em relação ao seu ERP.

Últimos posts por Soluções para ERP/Power BI/CRM/Fabrica de Software/Infra (exibir todos)

Como Compartilhar Relatórios com Power BI - 21 de setembro de 2022
Como Importar Dados do Excel para o Power BI - 20 de setembro de 2022
O que é Power BI, Power Query e Power Pivot? - 19 de setembro de 2022