Select Pedidos.Codpai ; , Pedidos.Codven ; , MAX(Maepai.nompai) ; , MAX(Maeven.nomven) ; , MAX(Pedidos.Valpedmn) ; && what is this ? , MIN(Pedidos.Fecped) MinFecped ; , MAX(Pedidos.Fecped) MaxFecped ; , SUM(Iif(Month(fecped)=1,valpedmn,0)) As enero ; , SUM(Iif(Month(fecped)=2,valpedmn,0)) As Febrero ; .... , SUM(Iif(Month(fecped)=12,valpedmn,0)) As diciembre ; Into Cursor (This.lcCursor) ReadWrite ; From Pedidos ; Inner Join Maepai On Pedidos.Codpai=Maepai.Codpai Inner Join Maeven On Pedidos.codven=Maeven.codven ; Where Pedidos.Fecped Between This.Cajafecha1.Value And This.Cajafecha2.Value; && replace This.Cajafecha1... and This.Cajafecha2 with variables Group By Pedidos.Codpai,Pedidos.Codven