Select Pedidos.Codpai, Pedidos.Codven, Pedidos.Valpedmn, Pedidos.Fecped, Maepai.nompai, Maeven.nomven, ; Iif(Month(fecped)=1,Sum(valpedmn),0) As enero, Iif(Month(fecped)=2,Sum(valpedmn),0) As Febrero, Iif(Month(fecped)=3,Sum(valpedmn),0) As Marzo, ; Iif(Month(fecped)=4,Sum(valpedmn),0) As Abril, Iif(Month(fecped)=5,Sum(valpedmn),0) As mayo, Iif(Month(fecped)=6,Sum(valpedmn),0) As junio,; Iif(Month(fecped)=7,Sum(valpedmn),0) As Julio, Iif(Month(fecped)=8,Sum(valpedmn),0) As Agosto,Iif(Month(fecped)=9,Sum(valpedmn),0) As septiembre,; Iif(Month(fecped)=10,Sum(valpedmn),0) As Octubre, Iif(Month(fecped)=11,Sum(valpedmn),0) As Noviembre, Iif(Month(fecped)=12,Sum(valpedmn),0) As diciembre ; From Pedidos ; Inner Join Maepai On Pedidos.Codpai=Maepai.Codpai Inner Join Maeven On Pedidos.codven=Maeven.codven ; Group By Pedidos.Codpai Where Pedidos.Fecped Between This.Cajafecha1.Value And This.Cajafecha2.Value Into Cursor (This.lcCursor) ReadWrite