Печать ценников: 2 цены

[Ватсон]

Как сделать так, чтоб в ценник попадали цены из разных прайс-листов?
У меня есть 4 цены: Закупка, Опт, ЦенаРозн1 и ЦенаРозн2.
Я хочу, чтоб на ценнике отображались ЦенаРозн1 и ЦенаРозн2. А мне предлагает только Цену закупки...

[dmitry]

А мне предлагает только Цену закупки...

Значит в этот момент вверху выбран этот прайс-лист.
Две цены одновременно не получится.

[Ватсон]

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

[dmitry]

Если может быть две цены, то в самом макете ценника должно быть жестко зафиксировано, что в этом поле - цена из прайс-листа "Розница 1", в другом - из "Розница 2".
Когда понадобится напечатать ценники для прайс-листа "Розница 25", нужно будет не просто выбрать его, а изменять макет.
А в большинстве случаев пользователям достаточно одной цены, но иногда выбирать "Прайс Магазин", иногда "Прайс Выставка", им каждый раз нужно нажимать "Изменить бланк" и указать данные для поля "Цена".

[Ватсон]

Если я правильно понимаю программирование, то не надо ничего жестко указывать. Надо просто дать возможность выбирать из нескольких переменных. А вот как их сформировать - это дело разработчика.

А в большинстве случаев пользователям достаточно одной цены, но иногда выбирать "Прайс Магазин"

Большинству - да, но вот сейчас сезон акций и распродаж.. Желающих получить такой функционал может быть много. А еще будет 8 марта, 23 февраля, какие-то сезонные распродажи... Ведь можно создать и отдельный шаблон с такой функциональностью, а классический с одной ценой не трогать...

[dmitry]

не надо ничего жестко указывать. Надо просто дать возможность выбирать из нескольких переменных.

Выбрать переменную "Цена прайс-листа №3" вместо переменной "Цена" - это разве не "жестко фиксировать"?
Сейчас выбирается переменная, а предлагается задавать значение переменной (Цена.Прайс = 3).

а классический с одной ценой не трогать

Тогда система будет выглядеть так: пользователь выбирает тип переменной ("Цена текущего прайс-листа" или "Цена конкретного"), если выбран второй вариант, он задает ее значение.
То есть дискуссия сводится к тому, что лучше - "средства разрботки" SDK для продвинутых пользователей или просто "настройки" для массового.

[Ватсон]

Выбрать переменную "Цена прайс-листа №3" вместо переменной "Цена" - это разве не "жестко фиксировать"?
Сейчас выбирается переменная, а предлагается задавать значение переменной (Цена.Прайс = 3).

я не это имел ввиду: сейчас есть возможность создать поле связи с данными. только из данных доступна одна цена, та, что выбрана вверху. но, т.к. на этапе формирования бланка программе известно кол-во прайс-листов, то дать возможность связать поле данных с любым прайс-листом. ведь все равно у вас внутри формируется запрос, кот. разворачивает в вид НАИМЕНОВАНИЕ = ПРАЙС1 = ПРАЙС2 = ... = ПРАЙСN . Вернее, что касается БД на акссессе ,вы просто добавляете еще один столбец при добавлении нового прайс-листа (соотв. - удаляете его при удалении прайс-листа), а как происходит на SQL-сервере - не знаю...

[dmitry]

Я подумаю. На самом деле при установке связи с данными есть недокументированная возможность редактировать свойства объектов. Сейчас у объекта "элемент прайс-листа" используется свойство "Цена", возможно будет еще "Цена(номер)". Но это не в ближайшем обновлении, а позже.

[dmitry]

Две цены сделать так:

1. Обновить программу до 4.2.13.
2. Нажать "Ценники", нажать "Изменить бланк", выделить поле "Цена" и перейти к выбору данных.
3. Нажать клавиши Ctrl+Z - появится текстовое поле, в котором будет "BuhPrice".

1.png (20.11 КБ) Просмотров: 3116

4. Изменить на GetBuhPrice(n) , где n - ID нужного прайс-листа, например GetBuhPrice(1) .
5. Нарисовать новый элемент "Связь с данными", при выборе данных - те же действия, но ввести ID другого прайс-листа, например GetBuhPrice(2) .
Получится так:

3.png (6.93 КБ) Просмотров: 3116

А результат такой:

2.png (8.82 КБ) Просмотров: 3116

P.S. Обратите внимание: в скобках указывается не порядковый номер, а идентификатор прайс-листа.
Обычно они совпадают, но если некоторые прайс-листы удаляли из списка, лучше вначале проверить.
Чтобы открыть таблицу с этими данными: нажать в программе Ctrl+F9, выделить строчку "PriceNames" и нажать ОК.

[01kilometr]

Спасибо. Также, очень интересовал данный вопрос.

[Ватсон]

При конструировании ценника с несколькими ценами столкнулся с проблемой:
тот элемент с ценой, кот. был по умолчанию имеет тип "валюта", т.е. у него есть грн. коп.

конструктор ценника

001.jpg (15.06 КБ) Просмотров: 2979

а вот элемент, добавленный мною не имеет таких атрибутов. результат выглядит так:

предпросмотр

002.jpg (22.04 КБ) Просмотров: 2979

мне нужно, чтоб все элементы были с грн и коп. как это сделать?

[dmitry]

Проще задать обычный формат у первой цены, но если очень нужно...
Открыть файл Ценник.bk с помощью Блокнота, скопировать весь текст и выложить здесь.
Я добавлю одну строчку, скопируете и вставите весь текст обратно.

[Ватсон]

Public Class PrintFormFile
Public Sub Loading (ByVal Frm as Object)
Frm.PanelTop.Height=151
Dim M As Predpr.Marg
M.Top=32
M.Left=32
M.Right=32
M.Bottom=62
Frm.Mrgn=M
Frm.BLandscape=False
Frm.Space=6
Frm.BorderMain.Size= New System.Drawing.Size(245,136)
Frm.BorderMain.BorderWidth= 1
Dim Box1 As New Predpr.LabelEx
Box1.Location= New System.Drawing.Point(4,5)
Box1.Size= New System.Drawing.Size(238,56)
Box1.Font= New System.Drawing.Font("Arial", 11.25!, 1, System.Drawing.GraphicsUnit.Point, 204)
Box1.TextAlign= 32
Box1.ObjName = "RowArticle.TextNameFull"
Frm.BorderMain.Controls.Add(Box1)
Dim Box2 As New Predpr.LabelEx
Box2.Location= New System.Drawing.Point(8,69)
Box2.Size= New System.Drawing.Size(224,26)
Box2.Font= New System.Drawing.Font("Arial", 15.75!, 1, System.Drawing.GraphicsUnit.Point, 204)
Box2.TextAlign= 2
Box2.ObjName = "GetBuhPrice(4)"
Box2.PriceFormat = 1
Frm.BorderMain.Controls.Add(Box2)
Dim Box3 As New Predpr.LabelEx
Box3.Location= New System.Drawing.Point(10,102)
Box3.Size= New System.Drawing.Size(216,27)
Box3.Font= New System.Drawing.Font("Times New Roman", 15.75!, 1, System.Drawing.GraphicsUnit.Point, 204)
Box3.TextAlign= 2
Box3.ObjName = "GetBuhPrice(3)"
Frm.BorderMain.Controls.Add(Box3)
End Sub
End Class

[dmitry]

Скопировать и заменить текст в файле.
А с очередным обновлением можно будет задавать формат обычным путем.

Public Class PrintFormFile
Public Sub Loading (ByVal Frm as Object)
Frm.PanelTop.Height=151
Dim M As Predpr.Marg
M.Top=32
M.Left=32
M.Right=32
M.Bottom=62
Frm.Mrgn=M
Frm.BLandscape=False
Frm.Space=6
Frm.BorderMain.Size= New System.Drawing.Size(245,136)
Frm.BorderMain.BorderWidth= 1
Dim Box1 As New Predpr.LabelEx
Box1.Location= New System.Drawing.Point(4,5)
Box1.Size= New System.Drawing.Size(238,56)
Box1.Font= New System.Drawing.Font("Arial", 11.25!, 1, System.Drawing.GraphicsUnit.Point, 204)
Box1.TextAlign= 32
Box1.ObjName = "RowArticle.TextNameFull"
Frm.BorderMain.Controls.Add(Box1)
Dim Box2 As New Predpr.LabelEx
Box2.Location= New System.Drawing.Point(8,69)
Box2.Size= New System.Drawing.Size(224,26)
Box2.Font= New System.Drawing.Font("Arial", 15.75!, 1, System.Drawing.GraphicsUnit.Point, 204)
Box2.TextAlign= 2
Box2.ObjName = "GetBuhPrice(4)"
Box2.PriceFormat = 1
Frm.BorderMain.Controls.Add(Box2)
Dim Box3 As New Predpr.LabelEx
Box3.Location= New System.Drawing.Point(10,102)
Box3.Size= New System.Drawing.Size(216,27)
Box3.Font= New System.Drawing.Font("Times New Roman", 15.75!, 1, System.Drawing.GraphicsUnit.Point, 204)
Box3.TextAlign= 2
Box3.ObjName = "GetBuhPrice(3)"
Box3.PriceFormat = 1
Frm.BorderMain.Controls.Add(Box3)
End Sub
End Class