Список форумов Акцент Акцент
официальный форум разработчика программы Акцент
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Каталожный номер в прайсе

 
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент 6.0
Предыдущая тема :: Следующая тема  
Автор Сообщение
dms7777
Гость





СообщениеДобавлено: Ср Ноя 22, 2006 10:30 pm    Заголовок сообщения: Каталожный номер в прайсе Ответить с цитатой

Кто подскажет, что надо сделать, чтобы при построении прайса после наименования товара проставлялся каталожный номер.
Ответ: купить Акцент7 - не устроитSmile))
Вернуться к началу
olimp
Site Admin


Зарегистрирован: 10.03.2005
Сообщения: 2661

СообщениеДобавлено: Чт Ноя 23, 2006 8:49 am    Заголовок сообщения: Re: Каталожный номер в прайсе Ответить с цитатой

dms7777 писал(а):
Кто подскажет, что надо сделать, чтобы при построении прайса после наименования товара проставлялся каталожный номер.
Ответ: купить Акцент7 - не устроитSmile))


Написать свой вывод прайс листа или поспрашать готовый. Наверняка кто-то писал.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
dms7777
Гость





СообщениеДобавлено: Чт Ноя 23, 2006 7:06 pm    Заголовок сообщения: Ответить с цитатой

Код в студию!!!
Плиииз...
Вернуться к началу
dms7777
Гость





СообщениеДобавлено: Сб Дек 02, 2006 10:40 am    Заголовок сообщения: Ответить с цитатой

ЖЛОБЫ Sad Evil or Very Mad Crying or Very sad
Вернуться к началу
olimp
Site Admin


Зарегистрирован: 10.03.2005
Сообщения: 2661

СообщениеДобавлено: Сб Дек 02, 2006 2:56 pm    Заголовок сообщения: Ответить с цитатой

dms7777 писал(а):
ЖЛОБЫ Sad Evil or Very Mad Crying or Very sad


Уже давно сам бы написал.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
dms7777
Гость





СообщениеДобавлено: Вс Дек 03, 2006 9:08 pm    Заголовок сообщения: Ответить с цитатой

Уже давно сам что могу, то и пишу. Хотя я бухгалтер а не программист.
Мне нужен кусок программы формирования прайс-листа, дальше допишу сам.
Вернуться к началу
olimp
Site Admin


Зарегистрирован: 10.03.2005
Сообщения: 2661

СообщениеДобавлено: Пн Дек 04, 2006 10:04 am    Заголовок сообщения: Ответить с цитатой

dms7777 писал(а):
Уже давно сам что могу, то и пишу. Хотя я бухгалтер а не программист.
Мне нужен кусок программы формирования прайс-листа, дальше допишу сам.


Не программисты могут заказать задачу у программистов :)

Есть какие то специальные требования к прайс-листу ?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
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.

  1. По-хорошему, лучше делать запросом или хранилкой....
  2. минус - скрипт показывает прайс без структуры для выбранной папки...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
olimp
Site Admin


Зарегистрирован: 10.03.2005
Сообщения: 2661

СообщениеДобавлено: Пн Дек 04, 2006 5:15 pm    Заголовок сообщения: Ответить с цитатой

dms7777 писал(а):
Требование одно: после названия должен идти каталожный номер товара.


Первый вариант ушел почтой.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
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
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент 6.0 Часовой пояс: GMT + 2
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group