Sentencia SQL exclusiva para inventarios con fecha de rango :

Select anxbas, anxcod, anxnom,doccod,docnum,last(emision), last(vencimiento), sum(dolares), sum(soles) from (Select anxbas,anxcod,anxnom,doccod,docnum,last(fecemi) as Emision,last(fecven) as Vencimiento,sum(impext) as Dolares,sum(impnac) as Soles from documento Where fecven < #" & CDate(Format(Desde, "mm/dd/yy")) & "# Group by anxbas,anxcod,anxnom,doccod,docnum Union (Select anxbas, anxcod, anxnom, doccod, docnum, last(fecemi) as Emision, last(fecven) as Vencimiento, sum(impext) as Dolares, sum(impnac) as Soles from documento Where fecven Between #" & CDate(Format(Desde, "mm/dd/yy")) & "# and #" & CDate(Format(Hasta, "mm/dd/yy")) & "# GROUP BY anxbas, anxcod, anxnom, doccod, docnum)) WHERE anxbas like '" & Mid(Combo1.Text, 1, 1) & "%' GROUP BY anxbas, anxcod, anxnom,doccod,docnum HAVING last(vencimiento) >= #" & CDate(Format(Desde, "mm/dd/yy")) & "#"A = A & "ORDER BY last(vencimiento) Asc

Manuel Javier Principe Acosta
Analista Programador de www.sviperu.com
San Miguel,Lima,Peru +511-9992-7212