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