CTBA102 - Rotina automática Inclusão Lançamentos Contábeis com continuação de historico

Linha de Produto:

Microsiga Protheus.

Segmento:

Serviços e Juridico.

Módulo:

Contabilidade Gerencial (SIGACTB

Rotina:

Rotina

Nome Técnico

Lançamentos Contábeis Automáticos

CTBA102

País(es):

Todos.

Banco(s) de Dados:

Todos.

Tabelas utilizadas:

CT2

Sistema(s) operacional(is):

Todos.

DescriçãoExemplo de rotina automatica para cadastro de lançamentos contábeis (CTBA102)
Exemplo

User Function IncluiCT2()

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' ,'101010100' , NIL},;
{'CT2_CREDIT' ,'201010100' , NIL},;
{'CT2_VALOR' , 100 , NIL},;
{'CT2_ORIGEM' ,'MSEXECAUT', NIL},;
{'CT2_HP' ,'' , NIL},;
{'CT2_HIST' ,'MSEXECAUT 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 - MSEXECAUT 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

Observação

Em caso de lançamentos de partida simples, é necessário a validação dos parametros 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”.

 


Atualizado em 20/09/2023
Este artigo foi útil?  
Agradecemos sua avaliação.

Sumário