Спільнота для обміну досвідом між користувачами програм УкрБланк, УкрСклад, УкрЗарплата

Наши программы => УкрСклад => Тема розпочата: smsh від Грудень 08, 2010, 12:58:53

Назва: Вывод серийных номеров в документах и отчетах
Відправлено: smsh від Грудень 08, 2010, 12:58:53
Есть группа товара, который дорогой и штучный, и идет по серийным номерам.
Хотелось бы в приходных накладных, перемещениях и расходных видеть напечатанными серийные номера каждого товара. Есть ли возможность в существующих отчетах что-то исправить или нужные глобальные доработки программы в будущих версиях?
Назва: Re: Вывод серийных номеров в документах и отчетах
Відправлено: admin від Грудень 08, 2010, 17:07:26
Шаблон "Гарантийный талон" что в расходной накладной печатает все серийники, можете сделать по аналогии для приходной и других документов.
Назва: Re: Вывод серийных номеров в документах и отчетах
Відправлено: twiks від Січень 05, 2011, 23:23:51
А как сделать чтобы можно было видеть серийники в Отчеты - Остатки на складе, необходимо для проведения переучетов. А также в Возврат от покупателя, чтобы можно было сформировать квитанцию о приеме на гарантию. И самое главное, можно ли реализовать поиск товара по серийнику при продаже через расходку в режиме кассы, наподобие как это работает со штрих-кодом производителя, т.е. искать по трем категориям - штрих-код производителя, внутренний, и серийник? И следующий вопрос на волне переучетов. Можно ли окно Расходной накладной переделать так, чтобы выбор серийки находился во вкладыше "Основное", чтобы, когда пикнул товар, не лезть мышей в другой вкладыш, потом целить курсор, а чтобы автоматом курсор в Серийный номер перепрыгивал при его наличии, и если его нет, то оставался в категории поиск.
Хотелось бы также режим переучета, чтобы работал по принципу:
       Выпадает окно с тремя строчками: Штрих-код, кол-во и Серийный номер. Шмыгаешь штрих-код, потом серийку, если серийки нет, то в это окно курсор не перепрыгивает, а прыгает в кол-во, где вбивается кол-во товара под этим кодом (например ДВД-диски на россыпь), и так до тех пор, пока товар со штрих-кодами на складе (в реале, а не проге) не закончится. Далее, нажимаем кнопю Печать и распечатываем непрошмыганный товар, который придется проверять вручную.
Эту систему видел вживую у крупного нашего поставщика реализованную через X-Door и Excel (директор - гений программирования) и невероятно огромное кол-во товара они проверяют обычно за 2 рабочих дня.
Назва: Re: Вывод серийных номеров в документах и отчетах
Відправлено: vald від Березень 18, 2013, 21:30:27
Помогите со скриптом !
Отчет  : Остатки на складе - Остатки на складе :фильтр по групе.
Чтобы можно было  одну из граф (например *Ед.Изм.*) приспособить под серийные номера.

И попутно вопрос : Кто нибуть использует функцию учета серийников под учет размеров,цветов итд. ?
как кто это реализует ?
Назва: Re: Вывод серийных номеров в документах и отчетах
Відправлено: geordanos від Березень 20, 2013, 13:35:03
Може не зовсім по темі таке питання:
Яку прописати формулу в таблиці гар. талону у випадку коли немає серійного номеру щоб ставився прочерк наприклад:
в клітинці серійники є
[TovarSerials]  якщо немає серійника то відповідно поле пусте а треба щоб був наприклад дефіс -
і аналогічно по терміну гарантії.
Назва: Re: Вывод серийных номеров в документах и отчетах
Відправлено: admin від Березень 20, 2013, 14:22:42
Цитата: geordanos від Березень 20, 2013, 13:35:03
Може не зовсім по темі таке питання:
Яку прописати формулу в таблиці гар. талону у випадку коли немає серійного номеру щоб ставився прочерк наприклад:
в клітинці серійники є
[TovarSerials]  якщо немає серійника то відповідно поле пусте а треба щоб був наприклад дефіс -
і аналогічно по терміну гарантії.

Переключитесь на закладку Код и замените текст на:

String TovarSerials;                                                     
 
void Memo8OnBeforePrint(TfrxComponent Sender)
{
  TovarSerials = ""; 
  MasterData2.DataSet.First();
  while(!MasterData2.DataSet.Eof)
  {
    if(<DataRep2."TOVAR_ID"> == <DataRep."Tovar_ID">)
    {       
      if(Length(TovarSerials) != 0)
        TovarSerials = TovarSerials + "\n";
      TovarSerials = TovarSerials + <DataRep2."TOVAR_SER_NUM">;
    }               
    MasterData2.DataSet.Next();       
  }     
  if(TovarSerials == "")
    TovarSerials = "-";                                                                       
}

{
                       
}


И в "Термін гарантіі" замените текст на:

[IIF(((<Товар.Гарантия> == "") || (<Товар.Гарантия> == "0")),"-",<Товар.Гарантия>)]

Основные шаблоны поменяли, теперь будут такие в программе с след. версии.

Может стоит вообще убрать строки без серийников и гарантии? Или пусть будут прочерки?
Назва: Re: Вывод серийных номеров в документах и отчетах
Відправлено: al29sir від Березень 22, 2013, 16:18:31
Как вывести в созданную форму (на основе формы "гарантийный талон") данные из поля "примечание к серийному "?
Назва: Re: Вывод серийных номеров в документах и отчетах
Відправлено: geographic від Березень 25, 2013, 16:19:56
Цитата: admin від Березень 20, 2013, 14:22:42
Основные шаблоны поменяли, теперь будут такие в программе с след. версии.

Может стоит вообще убрать строки без серийников и гарантии? Или пусть будут прочерки?
Думаю можно вообще убрать а в идеале чтоб можно было выбирать .
Назва: Re: Вывод серийных номеров в документах и отчетах
Відправлено: TheOK від Березень 26, 2013, 14:18:13
Цитата: al29sir від Березень 22, 2013, 16:18:31
Как вывести в созданную форму (на основе формы "гарантийный талон") данные из поля "примечание к серийному "?
Создайте новый шаблон на основании "гарантийного талона"
В созданном шаблоне перейдите на закладку Код
Полностью выделите и удалите весь текст в открывшемся поле.
Вставьте туда текст, прикрепленный ниже:


String TovarSerials, SerialDescription;       


 
void Memo8OnBeforePrint(TfrxComponent Sender)
{
  TovarSerials = "";
  SerialDescription="";               
  MasterData2.DataSet.First();
  while(!MasterData2.DataSet.Eof)
  {
    if(<DataRep2."TOVAR_ID"> == <DataRep."Tovar_ID">)
    {       
      if(Length(TovarSerials) != 0){ 
        TovarSerials = TovarSerials + "\n";
              SerialDescription = SerialDescription + "\n";
      }                                   
      TovarSerials = TovarSerials + <DataRep2."TOVAR_SER_NUM">;


     SerialDescription = SerialDescription + <DataRep2."TOVAR_SER_DESCR">;                     
    }               
    MasterData2.DataSet.Next();       
  }     
   
}



Добавьте в новое текстовое поле (в отдельное) текст [SerialDescription]
Новое текстовое поле, я бы советовал создавать путем копирования другого уже существующего поля, чтобы не выставлять настройки.
Сохраняете шаблон и печатаете.

Ну как получилось?