lana12002 писал(а):Есть товар, штрих код, цена, количество. А надо еще и код.
Dim Dt1 As String = Predpr.GlobalFunction.SQLdate(Predpr.DataMain.DStart)
Dim Dt2 As String = Predpr.GlobalFunction.SQLdate(Predpr.DataMain.DEnd)
Predpr.Globalfunction.ShowData("SELECT Persons.TextName AS Postav, Articles.BarCode,Articles.Code, Articles.TextName,PriceListes.Price1, Sum(IIf(Data_Articles.DocDate<"& Dt1 & ",Data_Articles.Quantity*Data_Articles.Sign)) AS Start, Sum(IIf([Data_Articles].[DocDate]>="& Dt1 & " And [Data_Articles].[DocDate]<="& Dt2 & " And [Data_Articles].[Sign]=1,[Data_Articles].[Quantity])) AS Db, Sum(IIf([Data_Articles].[DocDate]>="& Dt1 & " And [Data_Articles].[DocDate]<="& Dt2 & " And [Data_Articles].[Sign]=-1,-[Data_Articles].[Quantity])) AS Cr, Sum(Data_Articles.Quantity*Data_Articles.Sign) AS Fin FROM ((Articles RIGHT JOIN Data_Articles ON Articles.ID = Data_Articles.ArticleID) LEFT JOIN (Series LEFT JOIN Persons ON Series.PersonID = Persons.ID) ON Data_Articles.SeriesID = Series.SeriesID) LEFT JOIN PriceListes ON Data_Articles.ArticleID = PriceListes.ArticleID WHERE (((Data_Articles.DocDate)<="& Dt2 & ")) GROUP BY Persons.TextName, Articles.BarCode,Articles.Code, Articles.TextName, PriceListes.Price1 ORDER BY Persons.TextName, Articles.TextName")