Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:Financeiro (SIGAFIN)
Função:Compensação de contas a receber (FINA330)
País:Brasil

02. VISÃO GERAL

Ponto de Entrada que permite a manipulação da query principal da rotina de compensação de contas a receber (FINA330).

03. PARÂMETROS

TipoDescrição
CaractereQuery atual

04. RETORNO

TipoDescrição
Caractere

Query com as alterações customizadas


05. EXEMPLO


Exemplo de execução
#include "PROTHEUS.CH"

User Function FA330QRY()
	Local cQuery := PARAMIXB[1]
	Local cOrdemSE1 := SE1->(IndexKey())

	Alert("P.E. FA330QRY chamado.")

	cQuery := "SELECT DISTINCT 			E1_FILIAL,E1_PREFIXO,E1_NUM,E1_PARCELA,E1_IRRF,E1_MOEDA,E1_TIPO,E1_SALDO,E1_EMISSAO,E1_CLIENTE,E1_LOJA,E1_NOMCLI,E1_SDACRES,E1_SDDECRE,E1_HIST,E1_PIS,E1_COFINS,E1_CSLL,E1_TXMOEDA,E1_VLCRUZ,E1_FILORIG,E1_VALOR,"
	cQuery += "SE1.R_E_C_N_O_ RECSE1, A1_CGC FROM "
	cQuery += RetSqlName("SE1") + " SE1 LEFT JOIN "
	cQuery += RetSqlName("SA1") + " SA1 ON (SE1.E1_LOJA = SA1.A1_LOJA) AND (SE1.E1_CLIENTE = SA1.A1_COD) "
	cQuery += " WHERE "
	cQuery += "SE1.E1_SALDO = 100 AND "
	cQuery += "SE1.D_E_L_E_T_ = ' ' AND "
	cQuery += "SA1.D_E_L_E_T_ = ' ' "
	cQuery += "ORDER BY " + SqlOrder(cOrdemSE1)
Return cQuery