O ponto de entrada PCOA3103 (Filtro no Reprocessamento de Lançamentos) serve para manipular a query com o propósito de restringir a faixa de dados a ser reprocessada na tabela de origem, colocando as regras do ponto de lançamento a ser reprocessado. O ponto de entrada deverá retornar a query que será executada.

Este ponto de entrada recebe os seguintes parametros:
1 - Codigo do processo
2 - Item do processo
3 - array com os parametros da tela de abertura da rotina
4 - Alias referente ao processo
5 - Query que sera executada para reprocessamento dos lancamentos

O usuario poderá manipular a query para restringir a faixa de dados, colocando as regras do ponto de lançamento a ser reprocessado.Deverá ser retornado pelo ponto de entrada a query que será executada.

PCOA310.PRW

PCOA3103 - Restrição da faixa de dados ( < Codigo Processo> , < Item Processo> , < Parametros Rotina> , < Alias> , < Query> ) --> cQuery

(caracter)
• Query a ser executada para reprocessamento.

#include "protheus.ch"User Function PCOA3103()Local cProc  := ParamIXB[1]Local cItem  := ParamIXB[2]Local aParam := ParamIXB[3]Local cAlias := ParamIXB[4]Local cQuery := ParamIXB[5]If cProc+cItem == '00008201'	cQuery := cQuery	cQuery 	+= " AND CT2_DATA BETWEEN '"+DTOS(aParam[2])+"' AND '"+DTOS(aParam[3])+"' "	cQuery 	+= " AND CT2_DC<>'4' "	cQuery 	+= " AND CT2_MOEDLC='01' "	cQuery 	+= " AND ( EXISTS ( SELECT 1 FROM "	cQuery 	+= 					RetSqlName("CT1")	cQuery 	+= 					" WHERE CT1_FILIAL = '"+xFilial("CT1")+"'"	cQuery 	+= 					" AND CT2_DEBITO!='' AND CT2_DEBITO=CT1_CONTA "	cQuery 	+= 					" AND CT2_DC IN('1','3')  "	cQuery 	+= 					" AND CT1_INTPCO='S') "	cQuery 	+= 					" OR EXISTS (SELECT 1 FROM "	cQuery 	+= 					RetSqlName("CT1")	cQuery 	+= 					" WHERE CT1_FILIAL = '"+xFilial("CT1")+"'"	cQuery 	+= 					"  AND CT2_CREDIT!='' AND CT2_CREDIT=CT1_CONTA "	cQuery 	+= 					" AND CT2_DC IN('2','3') "	cQuery 	+= 					" AND CT1_INTPCO='S')) "EndIfReturn(cQuery)