Parametros: aAdd(aPergs, {1, "Data da Entrega de", dDataDe,"", "", "", "", 80, .F.}) aAdd(aPergs, {1, "Data da Entrega ate", dDataAt, "", "","" , "", 80, .F.}) aAdd(aPergs, {2, "Materia Prima Disponível",cMateria,{"","1=Sim", "2=Nao"},50,".T.",.F.}) aAdd(aPergs, {1, "Numero do Pedido",Space(6),"","","SC5","",50,.F.}) Query: cQryDad += "SELECT " + CRLF cQryDad += " C6_NUM, " + CRLF cQryDad += " C6_ITEM, " + CRLF cQryDad += " C6_PRODUTO, " + CRLF cQryDad += " C6_DESCRI, " + CRLF cQryDad += " C6_ZZGRUPO, " + CRLF cQryDad += " C6_ZZDSCG, " + CRLF cQryDad += " C5_CLIENTE, " + CRLF cQryDad += " A1_NOME, " + CRLF cQryDad += " A1_LOJA, " + CRLF cQryDad += " C5_EMISSAO, " + CRLF cQryDad += " C6_ZZMAT, " + CRLF cQryDad += " C6_ZZPRZ, " + CRLF cQryDad += " C6_ENTREG, " + CRLF cQryDad += " C6_ZZDT1, " + CRLF cQryDad += " C6_ZZDT2, " + CRLF cQryDad += " C6_ZZDT3, " + CRLF cQryDad += " C6_ZZOBSV, " + CRLF cQryDad += " C5_ZZLIBEN, " + CRLF cQryDad += " C5_ZZUENG, " + CRLF cQryDad += " C6_VALOR, " + CRLF cQryDad += " C6_CF, " + CRLF cQryDad += " C2_NUM, " + CRLF cQryDad += " C2_ITEM, " + CRLF cQryDad += " H6_OPERAC, " + CRLF cQryDad += " H1_DESCRI, " + CRLF cQryDad += " H6_QTDPROD, " + CRLF cQryDad += " H6_DTAPONT" + CRLF cQryDad += " FROM SC6010 SC6" + CRLF cQryDad += " LEFT JOIN SC2010 SC2 " + CRLF cQryDad += " ON C6_FILIAL = C2_FILIAL " + CRLF cQryDad += " AND C6_PRODUTO = C2_PRODUTO " + CRLF cQryDad += " AND C6_NUMOP = C2_NUM " + CRLF cQryDad += " AND C6_ITEMOP = C2_ITEM " + CRLF cQryDad += " AND SC2.D_E_L_E_T_ = ' ' " + CRLF cQryDad += " AND C6_OP <> '' " + CRLF cQryDad += " INNER JOIN SC5010 SC5 ON " + CRLF cQryDad += " C5_FILIAL = C6_FILIAL " + CRLF cQryDad += " AND C5_NUM = C6_NUM " + CRLF cQryDad += " AND SC5.D_E_L_E_T_ = ' ' " + CRLF cQryDad += " LEFT JOIN SA1010 SA1 ON " + CRLF cQryDad += " C5_CLIENTE = A1_COD " + CRLF cQryDad += " AND C5_LOJACLI = A1_LOJA " + CRLF cQryDad += " AND C5_TIPO = 'N' " + CRLF cQryDad += " AND SC5.D_E_L_E_T_ = ' ' " + CRLF cQryDad += " AND SA1.D_E_L_E_T_ = ' ' " + CRLF cQryDad += "LEFT JOIN SA2010 SA2 ON " + CRLF cQryDad += " C5_CLIENTE = A2_COD " + CRLF cQryDad += " AND C5_LOJACLI = A2_LOJA " + CRLF cQryDad += " AND C5_TIPO <> 'N' " + CRLF cQryDad += " AND SC5.D_E_L_E_T_ = ' ' " + CRLF cQryDad += " AND SA2.D_E_L_E_T_ = ' ' " + CRLF cQryDad += "LEFT JOIN " + CRLF cQryDad += "(SELECT H6_FILIAL,H6_DTAPONT, MAX (H6_OPERAC)H6_OPERAC, H6_OP, H6_PRODUTO, H6_RECURSO, SUM(H6_QTDPROD)H6_QTDPROD " +CRLF cQryDad += "FROM SH6010 SH6A " + CRLF cQryDad += "WHERE SH6A.D_E_L_E_T_ = ' ' " + CRLF cQryDad += "AND SH6A.H6_OPERAC IN " + CRLF cQryDad += "(SELECT MAX(SH6B.H6_OPERAC) H6_OPERAC " + CRLF cQryDad += "FROM SH6010 SH6B " + CRLF cQryDad += "WHERE SH6B.D_E_L_E_T_ = ' ' " + CRLF cQryDad += "AND SH6B.H6_OP = SH6A.H6_OP " + CRLF cQryDad += "GROUP BY SH6B.H6_FILIAL, SH6B.H6_OP " + CRLF cQryDad +=")GROUP BY H6_FILIAL,H6_OPERAC, H6_OP, H6_PRODUTO, H6_RECURSO,H6_DATAINI,H6_DTAPONT" + CRLF cQryDad +=") SH6 ON " + CRLF cQryDad += " SH6.H6_FILIAL = C6_FILIAL " + CRLF cQryDad += " AND SH6.H6_PRODUTO = C6_PRODUTO "+ CRLF cQryDad += " AND SUBSTRING(SH6.H6_OP, 1, 6) = C6_NUMOP " + CRLF cQryDad += " AND SUBSTRING(SH6.H6_OP, 7, 2) = C6_ITEMOP " + CRLF cQryDad += "LEFT JOIN SH1010 SH1 ON " + CRLF cQryDad += " H1_FILIAL = SH6.H6_FILIAL " + CRLF cQryDad += " AND H1_CODIGO = SH6.H6_RECURSO " + CRLF cQryDad += " AND SH1.D_E_L_E_T_ = ' ' " + CRLF cQryDad += "WHERE " + CRLF If ! Empty(MV_PAR01) .And. ! Empty(MV_PAR02) cQryDad += "C6_ENTREG BETWEEN '"+DtoS(MV_PAR01)+"' AND '"+DtoS(MV_PAR02)+"' " + CRLF EndIf //cQryDad += "C6_ZZPRZ = '"+DtoS(MV_PAR03)+"' " + CRLF If ! Empty(MV_PAR04) cQryDad += "C5_NUM = '" + MV_PAR04 + "' "+ CRLF EndIf If Val(cValToChar(MV_PAR03)) == 2 cQryDad += "AND C6_ZZMAT = 'N' " + CRLF Else cQryDad += "AND C6_ZZMAT <> 'N' AND C6_ZZMAT <> '' " + CRLF EndIf cQryDad += "AND C6_CF IN ('6101','5101','6102','5102','6107','6117','5117','5933','6933','5124','6108','6118','5401','6404','7101','5551','6551','6109','6401') " + CRLF cQryDad += "AND C5_TIPO = 'N'" + CRLF cQryDad += "AND SC6.D_E_L_E_T_ = ' ' " + CRLF cQryDad += "ORDER BY C6_NUM+C6_ITEM " + CRLF