Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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

Retorno:

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

Retorno: Data do Lote Contábil -

...

Date


Bloco de código
languagec#
themeRDark
titleExemplo de Uso
linenumberstrue
#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

...