Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Financeiro

02. DESCRIÇÃO

O Ponto de Entrada F370E5F permite a edição completa da Query que consulta na Tabela SE5 (Movimentação Bancária), possibilitando modificar a filtragem dos registros para a contabilização.

Informações

A query deve ser editada preferencialmente na cláusula WHERE. 
A query passada pode variar neste ponto de entrada, já que se baseia nos parâmetros definidos (Pergunte) na rotina.
Utilize alias quando adicionar campo no comando SQL.

Nova Estrutura consulta SE5 - Utilizando alias 
select SE5.E5_FILIAL, ISNULL(FKA.FKA_IDPROC, ' ') FKA_IDPROC, ISNULL(MPA.R_E_C_N_O_, 0) RECNOPA, ...	// Função COALESCE Utilizado em PostGreSQL - NVL em Oracle - ISNULL no MS-SQLServer 
from SE5T10 SE5
left join FKAT10 FKA on ... // Utilizado para o relacionamento com as tabelas FK's.
left join SE5T10 MPA on ... // Utilizado para relacionar os registros de compensação na própria SE5 Ex.: NF x PA

where SE5.E5_FILIAL = 'D MG 01 '
	and (
		(
			SE5.E5_DTDIGIT between '19800101' and '19800101'
			and SE5.E5_TIPODOC in ('DH', 'PA', 'RA', 'BA', 'VL', 'V2', 'AP', 'EP', 'PE', 'RF', 'IF', 'CP', 'TL', 'ES', 'TR', 'DB', 'OD', 'LJ', 'E2', 'TE', '  ', 'IT')
			)
		or (
			SE5.E5_DATA between '19800101' and '19800101'
			and SE5.E5_TIPODOC in ('TR', 'TE')
			)
		)
	and SE5.E5_SITUACA <> 'C'
	and (
		SE5.E5_LA <> 'S '
		or (
			(SE5.E5_ORDREC || SE5.E5_SERREC) <> ' '
			and SE5.E5_RECPAG = 'R'
			and SE5.E5_TIPODOC = 'BA'
			)
		)
	and SE5.E5_MOTBX not in ('DSD')
	and SE5.D_E_L_E_T_ = ' '
	and SE5.E5_RECONC = 'x'
order by E5_FILIAL, E5_DTDIGIT, E5_RECPAG, E5_NUMCHEQ, E5_DOCUMEN, E5_PREFIXO, E5_NUMERO, E5_PARCELA, E5_TIPO, E5_CLIFOR, E5_LOJA, E5_SEQ, SE5RECNO

03. EXEMPLO DE UTILIZAÇÃO


F370E1F 
#INCLUDE 'Protheus.ch'
 
User FUNCTION F370E5F()
    LOCAL cQRY    := PARAMIXB
    LOCAL cSELECT := ""
    LOCAL cFROM   := ""
    LOCAL cWHERE  := ""
 
    cSELECT := SUBSTR(cQRY, 1, AT("FROM",cQRY)-1)
    cFROM   := SUBSTR(cQRY, AT("FROM",cQRY),AT("WHERE",cQRY)-1-LEN(cSELECT))
    cWHERE  := SUBSTR(cQRY, AT("WHERE",cQRY))

    cWHERE += " AND SE5.E5_RECONC = 'x' "

    cQRY := cSELECT + cFROM + cWHERE

    CONOUT('<<< Execução do PE F370E5F >>> THREAD['+ GetThreadID() +'] - SQLCommand[' + cQry + ']')

RETURN cQry

04. DEMAIS INFORMAÇÕES

Não há

05. ASSUNTOS RELACIONADOS