| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
dms7777
Гость
|
 Добавлено: Ср Ноя 22, 2006 10:30 pm Заголовок сообщения: Каталожный номер в прайсе |
 |
|
Кто подскажет, что надо сделать, чтобы при построении прайса после наименования товара проставлялся каталожный номер.
Ответ: купить Акцент7 - не устроит )) |
|
| Вернуться к началу |
|
 |
olimp
Site Admin
Зарегистрирован: 10.03.2005
Сообщения: 2661
|
| Добавлено: Чт Ноя 23, 2006 8:49 am Заголовок сообщения: Re: Каталожный номер в прайсе |
|
|
| dms7777 писал(а): | Кто подскажет, что надо сделать, чтобы при построении прайса после наименования товара проставлялся каталожный номер.
Ответ: купить Акцент7 - не устроит)) |
Написать свой вывод прайс листа или поспрашать готовый. Наверняка кто-то писал. |
|
| Вернуться к началу |
|
|
dms7777
Гость
|
| Добавлено: Чт Ноя 23, 2006 7:06 pm Заголовок сообщения: |
|
|
Код в студию!!!
Плиииз... |
|
| Вернуться к началу |
|
|
dms7777
Гость
|
| Добавлено: Сб Дек 02, 2006 10:40 am Заголовок сообщения: |
|
|
ЖЛОБЫ    |
|
| Вернуться к началу |
|
|
olimp
Site Admin
Зарегистрирован: 10.03.2005
Сообщения: 2661
|
| Добавлено: Сб Дек 02, 2006 2:56 pm Заголовок сообщения: |
|
|
Уже давно сам бы написал. |
|
| Вернуться к началу |
|
|
dms7777
Гость
|
| Добавлено: Вс Дек 03, 2006 9:08 pm Заголовок сообщения: |
|
|
Уже давно сам что могу, то и пишу. Хотя я бухгалтер а не программист.
Мне нужен кусок программы формирования прайс-листа, дальше допишу сам. |
|
| Вернуться к началу |
|
|
olimp
Site Admin
Зарегистрирован: 10.03.2005
Сообщения: 2661
|
| Добавлено: Пн Дек 04, 2006 10:04 am Заголовок сообщения: |
|
|
| dms7777 писал(а): | Уже давно сам что могу, то и пишу. Хотя я бухгалтер а не программист.
Мне нужен кусок программы формирования прайс-листа, дальше допишу сам. |
Не программисты могут заказать задачу у программистов :)
Есть какие то специальные требования к прайс-листу ? |
|
| Вернуться к началу |
|
|
dms7777
Гость
|
| Добавлено: Пн Дек 04, 2006 1:44 pm Заголовок сообщения: |
|
|
| Требование одно: после названия должен идти каталожный номер товара. |
|
| Вернуться к началу |
|
|
AllexL
Зарегистрирован: 10.03.2005
Сообщения: 434
Откуда: Donetsk
|
| Добавлено: Пн Дек 04, 2006 4:33 pm Заголовок сообщения: |
|
|
Этот скрипт наиболее похож на то, что нужно....
Необходимо лишь немного "обработать напильником"...
Поставить правильные ID кодов цены, прайс-листов, убрать привязку к бух. счетам и т.д.
Инструкция: создать новый SHEET, вставить туда этот скрипт
| Код: |
Option Explicit
Dim RW,root,PK1,PK2
Sub ShtBook_OnLoad
If Workarea.Site.Kind<>acEntity Then Exit Sub
Set pk1 = Workarea.PriceKind(5)
Set pk2 = Workarea.PriceKind(4)
Set rw=Workarea.CreateReport("repwizard")
sheet1.Rows = 3
sheet1.Range(1,2,6,3).Clear
sheet1.DisplayHeadings=False
sheet1.DisplayGrid=False
sheet1.FixRows=1
With rw
.accId=Workarea.GetAccId(IIf(Ask("Склад-ДА/Магазин-НЕТ"),"281","2811"))
.Kind=acEntity
.KindID = Workarea.site.Id
.Recursive = True
.AddColumn 5
.setturnMode False, 0
.setturnMode True, 0
.setremMode True,2,1
.setremMode False,0
.Build
Set root = .Root
End With
If root.Children=0 Then sheet1.Cell(2,1).value = "На остатках ничего нет..."
sheet1.Rows = root.Children+2
Dim i,e
For i=1 To root.Children
If root.Child(i).Value<>0 Then
Set e=Workarea.Entity(root.Child(i).Value)
Sheet1.Cell(i+1,1).Value = e.Tag
Sheet1.Cell(i+1,2).Value = e.Name
If e.unitId>0 Then Sheet1.Cell(i+1,3).Value = Workarea.Unit(e.UnitId).ShortName
Sheet1.Cell(i+1,4).Value = root.Child(i).QtyEnd
Sheet1.Cell(i+1,5).Value = PK1.GetEntPrice(e.ID)
Sheet1.Cell(i+1,6).Value = PK2.GetEntPrice(e.ID)
End If
Next 'i
With sheet1.Range(3,2,3,sheet1.Rows-1)
.SetPrecision 0
End With
sheet1.Range(3,2,6,sheet1.Rows-1).Alignment = acRight
With sheet1.Range(1,1,sheet1.Columns,sheet1.Rows-1)
.SetBorder acBrdGrid
.AutoFit
.stripe
End With
End Sub
|
P.S.
- По-хорошему, лучше делать запросом или хранилкой....
- минус - скрипт показывает прайс без структуры для выбранной папки...
|
|
| Вернуться к началу |
|
|
olimp
Site Admin
Зарегистрирован: 10.03.2005
Сообщения: 2661
|
| Добавлено: Пн Дек 04, 2006 5:15 pm Заголовок сообщения: |
|
|
| dms7777 писал(а): | | Требование одно: после названия должен идти каталожный номер товара. |
Первый вариант ушел почтой. |
|
| Вернуться к началу |
|
|
dms7777
Гость
|
| Добавлено: Ср Дек 06, 2006 2:19 pm Заголовок сообщения: |
|
|
| olimp писал(а): | | dms7777 писал(а): | | Требование одно: после названия должен идти каталожный номер товара. |
Первый вариант ушел почтой. |
БОЛЬШОЕ спасибо.
По почте ничего не получал. |
|
| Вернуться к началу |
|
|
olimp
Site Admin
Зарегистрирован: 10.03.2005
Сообщения: 2661
|
| Добавлено: Ср Дек 06, 2006 5:01 pm Заголовок сообщения: |
|
|
| dms7777 писал(а): | | olimp писал(а): | | dms7777 писал(а): | | Требование одно: после названия должен идти каталожный номер товара. |
Первый вариант ушел почтой. |
БОЛЬШОЕ спасибо.
По почте ничего не получал. |
Ушло на pcg@alba.dp.ua |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
