#Include 'Protheus.ch'
User Function FILTRREM()
Local cQuery := PARAMIXB[1] //Query principal Local cSerie := PARAMIXB[2] //Série da NF Local cNotaIni := PARAMIXB[3] //NF Inicial Local cNotaFim := PARAMIXB[4] //NF Final Local cPlanta := PARAMIXB[5] //Planta Local cPorta cPorto := PARAMIXB[6] //Porto //Variavel cQuery poderá ser alterara a query principal cQuery := "SELECT * FROM " cQuery += RetSqlName('SF2') + " SF2 " cQuery += " WHERE SF2.F2_FILIAL = '" + xFilial('SF2') + "' AND " cQuery += " SF2.F2_SERIE = '" + cSerie + "' AND " cQuery += " SF2.F2_DOC >= '" + cNotaIni + "' AND " cQuery += " SF2.F2_DOC <= '" + cNotaFim + "' AND " cQuery += " ( (SF2.F2_FORMUL='S' AND SF2.F2_FLREMEL NOT IN ('E') ))" cQuery += " AND SF2.D_E_L_E_T_ = ' ' "
Return cQuery
|