Страница 3 из 3

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

СообщениеДобавлено: Ср сен 25, 2019 5:36 am
mch412
Добрый день!
А возможно сделать так чтоб выводилась не только задолженность, но и переплата клиента?

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

СообщениеДобавлено: Ср сен 25, 2019 5:30 pm
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

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

СообщениеДобавлено: Пт окт 25, 2019 7:15 pm
danielcorelas
есть база товаров, но... в одном файле код товара, наименование, остаток и цена, а в другом код товара и штрих-код... по одному коду несколько штрихкодов. просто загрузить наименования и коды товаров прекрасно получается через импрот из экселя, а вот ка бы догрузить штрих-коды... не подскажете?

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

СообщениеДобавлено: Вс мар 08, 2020 7:27 am
dmitry
Пришлю вам на почту решение в течение недели. Хотя меня беспокоит "по одному коду несколько штрихкодов", было бы неплохо, если бы вы прислали мне на pr-4@ukr.net обе базы.

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

СообщениеДобавлено: Чт май 07, 2020 8:12 am
makc
А как быть если ведешь учет в трех валютах? Можно ли сделать разбивку на все три?

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

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

СообщениеДобавлено: Чт май 07, 2020 1:19 pm
dmitry
Нет.