Histórico da Página
...
O Ponto de Entrada F370E1F permite a edição completa da Query que consulta na Tabela SE1 (Títulos a Receber) os registros para a contabilização.
Informações | ||
---|---|---|
| ||
A query deve ser editada preferencialmente na cláusula WHERE. |
...
| ||
Importante: A query deve ser editada preferencialmente nas cláusulas WHERE e ORDER BY. |
03. EXEMPLO DE UTILIZAÇÃO
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#Include#INCLUDE 'Protheus.ch' User FunctionFUNCTION F370E1F() LOCAL cQRY := PARAMIXB LOCAL cSELECT := "" LOCAL cFROM := "" LOCAL cWHERE := "" LOCAL cORDER := "" // 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_ = ' ' // ORDER BY E1_FILIAL,E1_EMISSAO,E1_NOMCLI,E1_PREFIXO,E1_NUM,E1_PARCELA " 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),AT("ORDER",cQRY)-1-LEN(cSELECT)-LEN(cFROM)) cORDER := SUBSTR(cQRY, AT("ORDER",cQRY)) cWHERE += " AND E1_DTFATUR BETWEEN '20191129' AND '20191129' " cQRY := cSELECT + cFROM + cWHERE CONOUT('<<< Execução do PE F370E1F >>> THREAD['+ GetThreadID() +'] - SQLCommand[' + cORDERcQry + ']') ReturnRETURN cQry |
04. DEMAIS INFORMAÇÕES
Não há
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas