F370E1F - Ponto de Entrada para filtrar registros do SE1 da rotina CTBAFIN

#INCLUDE 'Protheus.ch'
 
User FUNCTION F370E1F()
    LOCAL cQRY    := PARAMIXB
    LOCAL cSELECT := ""
    LOCAL cFROM   := ""
    LOCAL cWHERE  := ""
 
// Exemplo do Conteúdo da variável cQry vindo por PARAMIXB - 29/11/2019
// SELECT E1_FILIAL,E1_PREFIXO,E1_NUM,E1_PARCELA,E1_TIPO,E1_NATUREZ,E1_PORTADO, E1_AGEDEP,E1_CLIENTE,E1_LOJA,E1_NOMCLI,E1_EMISSAO,E1_VENCTO,E1_VENCREA,E1_VALOR,
//        E1_BASEIRF,E1_ISS,E1_IRRF,E1_NUMBCO,E1_INDICE,E1_BAIXA,E1_NUMBOR,E1_DATABOR,E1_EMIS1,E1_HIST,E1_LA,E1_LOTE,E1_MOTIVO,E1_MOVIMEN,E1_OP,
//        E1_SITUACA,E1_CONTRAT,E1_SALDO,E1_SUPERVI,E1_VEND1,E1_VEND2,E1_VEND3,E1_VEND4,E1_VEND5,E1_COMIS1,E1_COMIS2,E1_COMIS3,E1_COMIS4,E1_DESCONT,
//        E1_COMIS5,E1_MULTA,E1_JUROS,E1_CORREC,E1_VALLIQ,E1_VENCORI,E1_CONTA,E1_VALJUR,E1_PORCJUR,E1_MOEDA,E1_BASCOM1,E1_BASCOM2,E1_BASCOM3,E1_BASCOM4,
//        E1_BASCOM5,E1_FATPREF,E1_FATURA,E1_OK,E1_PROJETO,E1_CLASCON,E1_VALCOM1,E1_VALCOM2,E1_VALCOM3,E1_VALCOM4,E1_VALCOM5,E1_OCORREN,E1_INSTR1,
//        E1_INSTR2,E1_PEDIDO,E1_DTVARIA,E1_VARURV,E1_VLCRUZ,E1_DTFATUR,E1_NUMNOTA,E1_SERIE,E1_STATUS,E1_ORIGEM,E1_IDENTEE,E1_NUMCART,E1_FLUXO,E1_DESCFIN,
//        E1_DIADESC,E1_TIPODES,E1_CARTAO,E1_CARTVAL,E1_CARTAUT,E1_ADM,E1_VLRREAL,E1_TRANSF,E1_BCOCHQ,E1_AGECHQ,E1_CTACHQ,E1_NUMLIQ,E1_ORDPAGO,E1_RECIBO,
//        E1_INSS,E1_FILORIG,E1_DTACRED,E1_TIPOFAT,E1_TIPOLIQ,E1_CSLL,E1_COFINS,E1_PIS,E1_FLAGFAT,E1_MESBASE,E1_ANOBASE,E1_PLNUCOB,E1_CODEMP,E1_CODINT,
//        E1_MATRIC,E1_TXMOEDA,E1_ACRESC,E1_SDACRES,E1_DECRESC,E1_SDDECRE,E1_MULTNAT,E1_MSFIL,E1_MSEMP,E1_PROJPMS,E1_DESDOBR,E1_NRDOC,E1_MODSPB,
//        E1_EMITCHQ,E1_IDCNAB,E1_PLCOEMP,E1_PLTPCOE,E1_CODCOR,E1_PARCCSS,E1_CODORCA,E1_CODIMOV,E1_FILDEB,E1_NUMRA,E1_NUMSOL,E1_INSCRIC,E1_SERREC,
//        E1_CODBAR,E1_DATAEDI,E1_CODDIG,E1_CHQDEV,E1_LIDESCF,E1_VLBOLSA,E1_NUMCRD,E1_VLFIES,E1_DEBITO,E1_CCD,E1_ITEMD,E1_CLVLDB,E1_CREDIT,E1_CCC,E1_ITEMC,
//        E1_CLVLCR,E1_DESCON1,E1_DESCON2,E1_DTDESC3,E1_DTDESC1,E1_DTDESC2,E1_VLMULTA,E1_DESCON3,E1_MOTNEG,E1_SABTPIS,E1_SABTCOF,E1_SABTCSL,
//        E1_FORNISS,E1_PARTOT,E1_SITFAT,E1_BASEPIS,E1_BASECOF,E1_BASECSL,E1_VRETISS,E1_PARCIRF,E1_SCORGP,E1_FRETISS,E1_TXMDCOR,E1_SATBIRF,
//        E1_TIPREG,E1_CONEMP,E1_VERCON,E1_SUBCON,E1_VERSUB,E1_PLLOTE,E1_PLOPELT,E1_CODRDA,E1_FORMREC,E1_BCOCLI,E1_AGECLI,E1_CTACLI,E1_PARCFET,E1_FETHAB,
//        E1_MDCRON,E1_MDCONTR,E1_MEDNUME,E1_MDPLANI,E1_MDPARCE,E1_MDREVIS,E1_NUMMOV,E1_PREFORI,E1_NODIA,E1_TITPAI,E1_DOCTEF,E1_MDMULT,E1_JURFAT,
//        E1_MDBONI,E1_MDDESC,E1_RELATO,E1_BASEINS,E1_MULTDIA,E1_NFELETR,E1_RETCNTR,E1_NUMCON,E1_TURMA,E1_IDLAN,E1_NSUTEF,E1_SABTIRF,E1_IDAPLIC,E1_PROCEL,
//        E1_NOPER,E1_SERVICO,E1_DIACTB,E1_IDBOLET,E1_VRETIRF,E1_BASEISS,E1_VLBOLP,E1_APLVLMN,E1_LTCXA,E1_NUMINSC,E1_CODISS,E1_SEQBX,E1_NUMPRO,E1_INDPRO,
//        E1_FABOV,E1_PARCFAB,E1_FACS,E1_PARCFAC,E1_VLMINIS,E1_TPDP,E1_PARTPDP,E1_IDMOV,E1_PRINSS,E1_TPDESC,E1_RATFIN,E1_CODIRRF,E1_PRISS,E1_PRODUTO,
//        E1_PERLET,E1_CHAVENF,E1_CTRBCO,E1_DESCJUR,E1_CCUSTO,E1_FAMAD,E1_FMPEQ,E1_PARCFAM,E1_PARCFMP,E1_TPESOC,E1_CNO,E1_CDRETCS,E1_CDRETIR,E1_SDOC,
//        E1_SDOCREC,E1_EC05DB,E1_EC05CR,E1_EC06DB,E1_EC06CR,E1_CODRET,E1_CLVL,E1_ITEMCTA,E1_CONHTL,E1_TCONHTL,E1_BOLETO,E1_EC07DB,E1_EC07CR,E1_EC08DB,
//        E1_EC08CR,E1_EC09DB,E1_EC09CR,E1_VRETBIS,E1_BTRISS,E1_CODSERV,SE1.R_E_C_N_O_ SE1RECNO
// FROM   SE1T10 SE1
// WHERE  E1_FILIAL = 'D MG 01 '
//        AND E1_EMISSAO BETWEEN '20191129' AND '20191129'
//        AND E1_LA <> 'S'
//        AND E1_ORIGEM <> 'FINA677'
//        AND D_E_L_E_T_ = ' '

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 E1_DTFATUR BETWEEN '20191129' AND '20191129' "

cQRY := cSELECT + cFROM + cWHERE

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

RETURN cQry