Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Jose William Mendasoli Gavetti

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Alberto Jose

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

FI210QRY - Ponto de entrada para criar uma query customizada para rotina.

Descrição:

A finalidade do ponto de entrada FI240QRY para criar uma query customizada para a rotina.

Localização:

FA210Processa()

Programa Fonte:

FINA210.PRX

Versões:12
Retorno:

Lógico.

Retorna a Query do feita pelo ponto de entrada.



Bloco de código
language

Exemplo: 

java
themeMidnight
titleExemplo de utilização
#INCLUDE
#INCLUDE 
"PROTHEUS.CH"
User Function FI210QRY


User Function FI210QRY()
Local cQuery 


Local cQuery :=
 
 ""

Local __lUsAllFls   := .T.

Local lComp     := FwModeAccess("SE8",3) == "C" .And. FwModeAccess("SE5",3) == "E"  // Verifico o compartilhamento das duas tabelas apenas uma vez para melhorar o desempenho 

Local lSolucao2 := .F.

Local cFils := PARAMIXB[1]

Default cFils   := ""

Local cFils := PARAMIXB[1]
Default cFils := ""

MsgAlert("FI210QRY")

cQuery := "SELECT SA6.R_E_C_N_O_ A6_RECNO,"
cQuery += " E5_FILIAL, E5_BANCO, E5_AGENCIA, E5_CONTA, E5_DTDISPO, E5_TIPODOC, E5_MOEDA,"
cQuery += " E5_NUMCHEQ, E5_MOTBX, E5_NUMERO, E5_RECPAG, E5_VALOR, E5_DOCUMEN,E5_RECONC,E5_SEQ, E5_FILORIG "
cQuery += " , SUBSTRING(E5_FILIAL, 1, " + str(Len(AllTrim(xFilial("SE8")))) + ") AS E5_FILORG " 
cQuery += " , '" + Space(FwSizeFilial()) + "' AS E5_FIL "
cQuery += " FROM " + RetSqlName("SA6") + " SA6, " + RetSqlName("SE5") + " SE5"
cQuery += " WHERE SA6.D_E_L_E_T_ = ' '"
cQuery += " AND SE5.D_E_L_E_T_ = ' '"
cQuery += " AND A6_FILIAL = '" + xFilial("SA6") + "'"
cQuery += " AND E5_FILIAL = '" + xFilial("SE5") + "' " 
cQuery += " AND A6_COD between '" + mv_par01 + "' AND '" + mv_par02 + "'"
cQuery += " AND A6_AGENCIA between '" + mv_par03 + "' AND '" + mv_par04 + "'"
cQuery += " AND A6_NUMCON between '" + mv_par05 + "' AND '" + mv_par06 + "'"
cQuery += " AND A6_COD = E5_BANCO"
cQuery += " AND A6_AGENCIA = E5_AGENCIA"
cQuery += " AND A6_NUMCON = E5_CONTA"
cQuery += " AND E5_SITUACA NOT IN ('C')"
cQuery += " AND E5_TIPODOC NOT IN ('BA','DC','JR','MT','CM','D2','J2','M2','C2','V2','CP','TL','VA') "
cQuery += " AND E5_DTDISPO >= '" + dtos(mv_par07) + "'"
cQuery += " ORDER BY E5_FIL, E5_BANCO, E5_AGENCIA, E5_CONTA, E5_DTDISPO "

Return cQuery