Штрих код в учете

Штрих код в учете

Сообщение lana12002 » Вт фев 13, 2018 6:25 pm

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

Re: Штрих код в учете

Сообщение dmitry » Вт фев 13, 2018 7:41 pm

Не очень красиво, но результат получится (потом можно будет нажать "В 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")
dmitry
Разработчик
 
Сообщения: 2893
Зарегистрирован: Чт янв 27, 2011 3:43 pm

Re: Штрих код в учете

Сообщение lana12002 » Чт фев 15, 2018 8:26 am

Спасибо!!! Все получилось, Но надо штрих код, код, наименование, количество и цена прайс листа :roll:
lana12002
 
Сообщения: 41
Зарегистрирован: Ср окт 26, 2011 5:04 pm

Re: Штрих код в учете

Сообщение dmitry » Чт фев 15, 2018 2:14 pm

Тогда так:

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")
dmitry
Разработчик
 
Сообщения: 2893
Зарегистрирован: Чт янв 27, 2011 3:43 pm

Re: Штрих код в учете

Сообщение lana12002 » Чт фев 15, 2018 5:54 pm

Есть товар, штрих код, цена, количество. А надо еще и код.
lana12002
 
Сообщения: 41
Зарегистрирован: Ср окт 26, 2011 5:04 pm

Re: Штрих код в учете

Сообщение vik » Чт фев 15, 2018 7:12 pm

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")
vik
 
Сообщения: 565
Зарегистрирован: Пт мар 25, 2011 9:38 am

Re: Штрих код в учете

Сообщение lana12002 » Пт фев 16, 2018 5:37 pm

Огромное Вам СПАСИБО!!! ДА БУДЕТ ВАМ СЧАСТЬЕ! :D
lana12002
 
Сообщения: 41
Зарегистрирован: Ср окт 26, 2011 5:04 pm


Вернуться в Использование программы

Кто сейчас на конференции

Сейчас этот форум просматривают: ruslabigboy и гости: 2