F060QRCP - Manipula Query do borderô -- 107703

Ponto de entrada que permite a manipulação da query de seleção de títulos a serem considerados na montagem do borderô (FINA060). Este ponto de entrada foi incluído  para que outros campos de tabelas diferentes da SE1, possam ser mostrados na tela de seleção de títulos. Para que este recurso funcione adequadamente,  devem ser utilizados em conjunto com os Pontos de Entrada  F060COL e F060Trb.

FINA060.PRX

F060QRCP - Manipula Query do borderô ( [ cQuery ] ) --> cNewQuery

cNewQuery(caracter)
• Nova query a ser considerada para execução da rotina.

Os Pontos de Entrada  F060COL e F060Trb estão disponíveis para consulta no Portal TDN.

#INCLUDE "PROTHEUS.CH"#INCLUDE "RWMAKE.CH"// este ponto de entrada tratará a inclusão do campo A1_EST na tela de seleção.USER FUNCTION F060QRCP()Local aStru 	:= {}Local cQuery	:= ""Local nj			:= 0Local cQryOri	:= PARAMIXB[1]  // query padrão do sistemaaStru := dbStruct()cQuery := "SELECT "For nj:= 1 to Len(aStru)	cQuery += aStru[nj,1]+", "NextcQuery += "SE1.R_E_C_N_O_ RECNO , A1_EST"cQuery += "  FROM "+	RetSqlName("SE1") + " SE1 "cQuery += "  INNER JOIN "+	RetSqlName('SA1') + " SA1 ON E1_CLIENTE = SA1.A1_COD "cQuery += " WHERE E1_FILIAL Between '" + cFilDe + "' AND '"+ cFilAte + "'"cQuery += "   AND E1_NUMBOR = '      '"cQuery += "   AND E1_EMISSAO Between '" + DTOS(dEmisDe) + "' AND '" + DTOS(dEmisAte) + "'"cQuery += "   AND E1_CLIENTE between '" + cCliDe        + "' AND '" + cCliAte        + "'"cQuery += "   AND E1_VENCREA between '" + DTOS(dVencIni)+ "' AND '" + DTOS(dVencFim) + "'"cQuery += "   AND E1_MOEDA = "+ str(nmoeda)cQuery += "   AND E1_PREFIXO Between '" + cPrefDe + "' AND '" + cPrefAte + "'"cQuery += "   AND E1_NUM between '"     + cNumDe  + "' AND '" + cNumAte  + "'"cQuery += "   AND ( E1_SALDO > 0  OR E1_OCORREN = '02' ) "//Seleciona TiposIf mv_par12 == 1	cQuery += "   AND E1_TIPO IN " + FormatIn(cTipos,"/")EndifIf !Empty(MVPROVIS) .Or. !Empty(MVRECANT) .Or. !Empty(MV_CRNEG) .Or. !Empty(MVENVBCOR)	cQuery += "   AND E1_TIPO NOT IN " + FormatIn(MVPROVIS+"/"+MVRECANT+"/"+MV_CRNEG+"/"+MVENVBCOR,"/")EndifcQuery += "   AND E1_SITUACA IN ('0','F','G') "cQuery += "   AND SE1.D_E_L_E_T_ <> '*' "cQuery += " ORDER BY "+ SqlOrder(SE1->(IndexKey()))Return cQuery