Собственная программа в бланке документа.

Re: Собственная программа в бланке документа.

Сообщение mch412 » Ср сен 25, 2019 5:36 am

Добрый день!
А возможно сделать так чтоб выводилась не только задолженность, но и переплата клиента?
mch412
 
Сообщения: 16
Зарегистрирован: Ср май 28, 2014 11:28 am

Re: Собственная программа в бланке документа.

Сообщение dmitry » Ср сен 25, 2019 5:30 pm

Note.Text = ""
Dim Op As Predpr.Doc = Frm.Op
Dim Pokup As Predpr.Person = Op.DocPerson
If Pokup Is Nothing Then Exit Sub
Dim Sum as Decimal
Sum = Pokup.GetDebt("Db", Op)
If Sum>0.01 Then
Note.Text = "Ваш долг без учета этой накладной: " & Sum.ToString("0.00")
Else
Sum = Pokup.GetDebt("Cr", Op)
If Sum>0.01 Then
Note.Text = "Переплата за предыдущие поставки: " & Sum.ToString("0.00")
End If
End If
dmitry
Разработчик
 
Сообщения: 3239
Зарегистрирован: Чт янв 27, 2011 3:43 pm

Re: Собственная программа в бланке документа.

Сообщение danielcorelas » Пт окт 25, 2019 7:15 pm

есть база товаров, но... в одном файле код товара, наименование, остаток и цена, а в другом код товара и штрих-код... по одному коду несколько штрихкодов. просто загрузить наименования и коды товаров прекрасно получается через импрот из экселя, а вот ка бы догрузить штрих-коды... не подскажете?
danielcorelas
 
Сообщения: 25
Зарегистрирован: Ср апр 12, 2017 9:37 am

Re: Собственная программа в бланке документа.

Сообщение dmitry » Вс мар 08, 2020 7:27 am

Пришлю вам на почту решение в течение недели. Хотя меня беспокоит "по одному коду несколько штрихкодов", было бы неплохо, если бы вы прислали мне на pr-4@ukr.net обе базы.
dmitry
Разработчик
 
Сообщения: 3239
Зарегистрирован: Чт янв 27, 2011 3:43 pm

Re: Собственная программа в бланке документа.

Сообщение makc » Чт май 07, 2020 8:12 am

А как быть если ведешь учет в трех валютах? Можно ли сделать разбивку на все три?

dmitry писал(а):Note.Text = ""
Dim Op As Predpr.Doc = Frm.Op
Dim Pokup As Predpr.Person = Op.DocPerson
If Pokup Is Nothing Then Exit Sub
Dim Sum as Decimal
Sum = Pokup.GetDebt("Db", Op)
If Sum>0.01 Then
Note.Text = "Ваш долг без учета этой накладной: " & Sum.ToString("0.00")
Else
Sum = Pokup.GetDebt("Cr", Op)
If Sum>0.01 Then
Note.Text = "Переплата за предыдущие поставки: " & Sum.ToString("0.00")
End If
End If
makc
 
Сообщения: 33
Зарегистрирован: Ср мар 13, 2013 9:08 am

Re: Собственная программа в бланке документа.

Сообщение dmitry » Чт май 07, 2020 1:19 pm

Нет.
dmitry
Разработчик
 
Сообщения: 3239
Зарегистрирован: Чт янв 27, 2011 3:43 pm

Пред.

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

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron