Linha de Produto:

Microsiga Protheus.

Segmento:

Serviços e Juridico.

Módulo:

Contabilidade Gerencial (SIGACTB

Rotina:

País(es):

Todos.

Banco(s) de Dados:

Todos.

Tabelas utilizadas:

CT2

Sistema(s) operacional(is):

Todos.

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

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

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”.