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

[mch412]

Добрый день!
А возможно сделать так чтоб выводилась не только задолженность, но и переплата клиента?

[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

[danielcorelas]

есть база товаров, но... в одном файле код товара, наименование, остаток и цена, а в другом код товара и штрих-код... по одному коду несколько штрихкодов. просто загрузить наименования и коды товаров прекрасно получается через импрот из экселя, а вот ка бы догрузить штрих-коды... не подскажете?

[dmitry]

Пришлю вам на почту решение в течение недели. Хотя меня беспокоит "по одному коду несколько штрихкодов", было бы неплохо, если бы вы прислали мне на pr-4@ukr.net обе базы.

[makc]

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

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]

Нет.