Linha Microsiga Protheus

Árvore de páginas


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


Exemplo de Uso
#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