ФОРУМ "Предприниматель 4"

Добрый день, нужна срочно Ваша помощь!!! У меня для отчета по продажам, поставщик требует наличие штрих кода. Т.е. Реальный учет-Товар-Таблица-(там в настройках таблицы есть только код, а надо еще добавить Штрих код) Пожалуйста помогите, уж очень надо.

Не очень красиво, но результат получится (потом можно будет нажать "В Excel", выбрать только нужного поствщика, просуммировать и т.д).
- Скопировать текст ниже.
- В программе нажать клавиши Ctrl+F10.
- Вставить текст, нажать ОК.

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.TextName, 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 WHERE (((Data_Articles.DocDate)<="& Dt2 & ")) GROUP BY Persons.TextName, Articles.BarCode, Articles.TextName ORDER BY Persons.TextName, Articles.TextName")

Спасибо!!! Все получилось, Но надо штрих код, код, наименование, количество и цена прайс листа

Тогда так:

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.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.TextName, PriceListes.Price1 ORDER BY Persons.TextName, Articles.TextName")

Есть товар, штрих код, цена, количество. А надо еще и код.

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")

Огромное Вам СПАСИБО!!! ДА БУДЕТ ВАМ СЧАСТЬЕ!