Exibir origem

01. DADOS GERAIS

Produto:	TOTVS Saúde Planos
Linha de Produto:	Linha Protheus
Segmento:	Saude
Módulo:	CONTABILIDADE
Função:	RECEITAS
Ticket:	13200854
Requisito/Story/Issue (informe o requisito relacionado) :	DSAUBE-17230

02. SITUAÇÃO/REQUISITO

Necessidade de manipular a data do lançamento contábil ao contabilizar as receitas (PLSCTB11).

03. SOLUÇÃO

Implementado ponto de entrada para manipular a data do lançamento contábil.

04. DEMAIS INFORMAÇÕES

Nome do Ponto de Entrada: PLSCT11DTL

Parâmetros:

PARAMIXB[1] : Tipo do Lançamento - Numeric

9A1 = 1
9AX/9B6 = 2
9NX/9N6 = 3
9A2 = 4
9LC = 5
9LD = 6
9LC = 7

PARAMIXB[2] : Recno do Título (SE1)

Retorno: Data do Lote Contábil - Date

#Include "PROTHEUS.CH"

#DEFINE LP_P9A1 1
#DEFINE LP_P9AX9B6 2
#DEFINE LP_P9NX9N6 3 
#DEFINE LP_P9A2	4
#DEFINE LP_P9LC 5
#DEFINE LP_P9LD 6
#DEFINE LP_P9LC 7

User Function PLSCT11DTL()

Local cTipCtb := PARAMIXB[1]
Local nRecnoSE1 := PARAMIXB[2]
Local dDataLote := CToD(" / / ")

// Tratamento para retornar a data do lançamento contábil
Do Case
	Case cTipCtb == LP_P9A1 
		// Tratamento para esse Lançamento
	Case cTipCtb == LP_P9AX9B6 
		// Tratamento para esse Lançamento
	Case cTipCtb == LP_P9NX9N6 
		// Tratamento para esse Lançamento
	Case cTipCtb == LP_P9A2	
		// Tratamento para esse Lançamento
	Case cTipCtb == LP_P9LC 
		// Tratamento para esse Lançamento
	Case cTipCtb == LP_P9LD 
		// Tratamento para esse Lançamento
	Case cTipCtb == LP_P9LC 
		// Tratamento para esse Lançamento
EndCase

Return dDataLote

05. ASSUNTOS RELACIONADOS

Não se aplica