Здравствуйте Егор!
Спасибо за подробное описание задачи.

"Егор Николаевич" написал:Однако, когда мы создаем по счету складской документ, то в него продукт из счета попадает с ценой не 80 руб, а с ценой 100 руб, т.е. скидка из продукта в счете игнорируется.

Я предлагаю следующий вариант решения. Доработаем карточку продукта в Складском документе (wnd_OfferingInMovementEdit). Сделаем привязку к полю Счет

Для реализации логики, необходимо внести изменения в скрипт wnd_OfferingInMovementEditScript , а именно в функцию UpdateValuesByOfferingID.
Изменения внесены между комментариев "//26.03.2012" .

function UpdateValuesByOfferingID(Dataset) {
 
	var OfferingID = Dataset('OfferingID');
	Dataset('UnitName') = GetOfferingFieldValue(OfferingID, 'DefaultUnit'); 
	var Quantity = Dataset.ValAsFloat('Quantity');
	if (!Quantity) {
		Dataset('Quantity') = GetOfferingFieldValue(OfferingID, 'UnitDivision');
	}
	var OfferingMovementTypeID = Self.Attributes('TypeID');	
	//26.03.2012
 
		if (!IsEmpty(Dataset('InvoiceID'))) {   //проверка заполнено ли поле Счет, если нет не выполняем действия
		var accountID = GetDatasetFieldValueByID('ds_Invoice',Dataset('InvoiceID'),'CustomerID')
		//открываем датасет Счетов, и получаем поле Клиент (это будет идентификатор контрагента)
		var PriceDataset = Services.GetNewItemByUSI('ds_AccountPrice');
		ApplyDatasetFilter(PriceDataset,'AccountID',accountID,true);
		//фильтруем таблицу детали Прайс-Лист контрагентов
		ApplyDatasetFilter(PriceDataset,'OfferingID',OfferingID,true);
		//фильтруем детать Прайс-Лист контрагентов по интересующему нас продукту 
		PriceDataset.Open();
		var discount = PriceDataset('DiscountPercent'); 		//получаем значение скидки
 
		Dataset('BasicPrice') = Dataset('BasicPrice')+ Dataset('BasicPrice') * discount/100 ;
		PriceDataset.Close();
 
		}	
	//26.03.2012
	if (OfferingMovementTypeID == omtReceipt) {
		Dataset('BasicPrice') = GetSupplierOfferingBasicPrice(
			Dataset('OfferingID'),
			Dataset('SupplierID'));
	}
	SetConsignmentID(Dataset);
}

После данных действий общая сумма расходной накладной, будет формироваться с учетом скидки.
Хочу заметить что функция UpdateValuesByOfferingID отрабатывает сразу после выбора продукта в карточке, т.е сначала необходимо будет выбрать счет, после чего сам продукт.

Егор, если у Вас есть какие либо замечания, или пожелания по данному вопросу просьба их озвучить.

Здравствуйте, Алексей!
Алимова Анна подсказала еще одно решение.
Оно оставляет складской документ так же отвязанным от счета, как и в коробочной версии, учет скидки происходит при формировании складского документа по счету.

Изменяется в скрипте scr_InvoiceWorkspace функция CopyOfferingsFromInvoice, создающая складской документ по счету.
В строки, копирующие значения цены и стоимости, добавляется учет скидки:
OfferingInOMDataset('Price') = OfferingDataset('Price') * (1 - OfferingDataset('DiscountPercent')/100);
OfferingInOMDataset('BasicPrice') = OfferingDataset('BasicPrice') * (1 - OfferingDataset('DiscountPercent')/100);
OfferingInOMDataset('Amount') = OfferingDataset('Amount') * (1 - OfferingDataset('DiscountPercent')/100);
OfferingInOMDataset('BasicAmount') = OfferingDataset('BasicAmount') * (1 - OfferingDataset('DiscountPercent')/100);

Оба варианта решают задачу.
Спасибо!

Здравствуйте,
Проверка на дубли проходит по нажатию кнопки Ок, в карточке счета
Код с в XRM 3.4.0.49

...
function btnOKOnClick(Control) {
var Dataset = dlData.Dataset;
var DefaultValues = GetAttribute(Self, 'DefaultValues');
/* MODULE WORKFLOW */
var WorkflowItemID = Dataset.ValAsStr('WorkflowItemID');
/* ENDMODULE WORKFLOW */
if (!CheckItemNumberDuplicate('Invoice', Dataset, 'InvoiceNumber',
"Счет")) {
return;
}

...

Предлагаю доработать функцию CheckItemNumberDuplicate с scr_CommonActions
1) Добавим в нее функцию сравнения года

function IsInvoiceSameYear(date_1,date_2)
{
var res1 = new Date(date_1).getFullYear();
var res2 = new Date(date_2).getFullYear();
if (res1 == res2)
return true;
else
return false;
}

2) Подредактируем CheckItemNumberDuplicate

function CheckItemNumberDuplicate(ItemName, Dataset, DataFieldName,
ItemCaption) {
var ParameterName = FormatStr('Check%1NumberDuplicates', ItemName);
var CheckDuplicates = GetSystemParameterValueEx(ParameterName, true);
var RecordID = Dataset.Values('ID');
if (CheckDuplicates) {
var Value = Dataset.Values(DataFieldName);
var TableName = FormatStr('tbl_%1', ItemName);
var FieldArray = new Array (DataFieldName, 'ID');
var ValuesArray = new Array (Value, RecordID);
var TypeArray = new Array (sdtUnicodeString, sdtIdentity);
var CompareOperatorTypeArray = new Array (cotEqual, cotNotEqual);
var DuplicatesRecordID = GetRecordIDByFilter(TableName, TypeArray,
FieldArray, ValuesArray, CompareOperatorTypeArray);
if (!IsEmptyValue(DuplicatesRecordID)){

if (ItemName == 'Invoice' && !IsEmpty(Dataset.Values('InvoiceDate')))
{
if ( IsInvoiceSameYear(Dataset.Values('InvoiceDate'),
GetDatasetFieldValuesByID('ds_Invoice',DuplicatesRecordID,'InvoiceDate').Item('InvoiceDate')))
{
var Message = FormatStr("%1 с номером %2 уже существует." + ' ' +
"Сохранить данную запись?", ItemCaption, Value);
Message = PrepareDialogMessage(Message);
return (ShowConfirmationDialog(Message) == wmrYes)
}
else
return true;
}
else
{
var Message = FormatStr("%1 с номером %2 уже существует." + ' ' +
"Сохранить данную запись?", ItemCaption, Value);
Message = PrepareDialogMessage(Message);
return (ShowConfirmationDialog(Message) == wmrYes)
}

}
}
return true;
}

Алексей, спасибо за помощь.

Но что-то меня смущает что в DuplicatesRecordID возвращается только одна из дублирующихся записей. И эта запись может быть как текущего года, так и любого другого года. В результате при неудачном стечении обстоятельств мы можем не заметить дублирование номеров счетов в текущем году.

Не могли бы Вы помочь доработать этот вопрос.

Согласен, предлагаю следующий вариант
1)В scr_DB добавить функцию

function GetRecordsIDByFilter(TableName, TypeArray, FieldArray, ValueArray,
	CompareOperatorTypeArray){
	var Table = GetSingleItemByCode(TableName);
	var Query = CreateSelectQueryByTable(Table, TypeArray, FieldArray,
		ValueArray, CompareOperatorTypeArray); //получим все записи, (! не только первую)
	var Dataset = Query.Open();	
 
    var arrval = new Array();
 		Dataset.GotoFirst();
	while (!Dataset.IsEOF) {
		arrval.push(Dataset.Values('ID'));
		Dataset.GotoNext();		
		} 	
	Dataset.Close();
	return arrval;
}

2) В scr_CommonActions определить свою функцию CheckInvoiceNumberDuplicate, котороя есть по сути CheckItemNumberDuplicate с модифицированной проверкой

function CheckInvoiceNumberDuplicate(ItemName, Dataset, DataFieldName,
	ItemCaption) {
	var ParameterName = FormatStr('Check%1NumberDuplicates', ItemName);
	var CheckDuplicates = GetSystemParameterValueEx(ParameterName, true);
	var RecordID = Dataset.Values('ID');
	if (CheckDuplicates) {
		var Value = Dataset.Values(DataFieldName);
		var TableName = FormatStr('tbl_%1', ItemName);
		var FieldArray = new Array (DataFieldName, 'ID');
		var ValuesArray = new Array (Value, RecordID);
		var TypeArray = new Array (sdtUnicodeString, sdtIdentity);
		var CompareOperatorTypeArray = new Array (cotEqual, cotNotEqual);
		var DuplicatesRecordIDs = GetRecordsIDByFilter(TableName, TypeArray,
			FieldArray, ValuesArray, CompareOperatorTypeArray);
  		if (!IsEmptyValue(DuplicatesRecordIDs)){
 
		var showMessage = false;  		  		
 
  		if (ItemName == 'Invoice' && !IsEmpty(Dataset.Values('InvoiceDate')))
  		{
  		    for (var i = 0; i < DuplicatesRecordIDs.length; i++) 		  	  		  
  		    {
			var InvoiceDuplicID = DuplicatesRecordIDs[i];
 
			if (IsInvoiceSameYear(Dataset.Values('InvoiceDate'),
			GetDatasetFieldValuesByID('ds_Invoice',InvoiceDuplicID,'InvoiceDate').Item('InvoiceDate')))	
	        {
 
			var Message = FormatStr("%1 с номером %2 уже существует." + ' ' +
			"Сохранить данную запись?", ItemCaption, Value);
			Message = PrepareDialogMessage(Message);
			return (ShowConfirmationDialog(Message) == wmrYes)
		    }
 
			}
 
		}
 
		}
	}
	return true;
}

3) В скрипте карточки счета wnd_InvoiceEditScript вызывать CheckInvoiceNumberDuplicate вместо CheckItemNumberDuplicate

//  	if (!CheckItemNumberDuplicate('Invoice', Dataset, 'InvoiceNumber',
//	  	"Счет")) {
//	  	return;
//	}
  	if (!CheckInvoiceNumberDuplicate('Invoice', Dataset, 'InvoiceNumber',
	  	"Счет")) {
	  	return;
	}

4) Не забыть про IsInvoiceSameYear моего сообщения выше

Спасибо большое, Алексей, всё получилось.

Здравствуйте, Максим.

Для того, чтобы не заносить скидку отдельно для каждого продукта можно использовать понятие "Прайс-листы", то есть, для каждого конкретного контрагента Вы можете на детали "Прайс-лист" в разделе "Контрагенты" указать скидки, которые будут действовать по определенным продуктам или типам продуктов.
Далее, при добавлении продуктов в счет эти скидки будут автоматически учитываться (при условии указания соответствующего прайс-листа), и сумма счета будет рассчитываться с учетом этих скидок.

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

Инна Безверхняя,
II линия службы поддержки Terrasoft

HELP!!! Работы стоит :cry:

Для того, чтобы отчет формировался для выделенных записей, необходимо в окне настроек отчета ([Инструменты] - [Отчеты]) установить значение в поле «Тип фильтрации» равным «Для выделенных записей».

Моя благодарность Вам... не когда бы не подумал, что там нужно искать =) Спасибо...

А ТОРГ-12 кто-нибудь поделится?)

Как подключить готовый FastReport-отчет читай здесь:
http://www.community.terrasoft.ru/forum/topic/4391

Качай разметку для ТОРГ-12 отсюда (там и другие унифицированные формы имеются):
http://www.reportingfor.info/ru/download.php?view.49

Fast Report Studio чтобы открыть скачанный шаблон здесь:
http://www.fast-report.com/ru/download/fast-report-studio-download.html

А выгруженный непосредственно из Terrsoft ТОРГ-12 (со всей требухой типа источников данных) к тебе в конфигурацию вряд ли встроится без проблем, ибо у всех разные конфигурации + каждый еще допиливает свою конфигурацию как хочет.

нужна разметка ТОРГ-12 для террасофта, у меня версия 3.3.1.31

Переонвертировать fr3 не получилось (нечем, программа с официального сайта фастрепорт не понимает fr3. Если у кого есть, прошу дать ТОРГ-12. Данные я уж как-нибудь привяжу, просто нужна разметка.

Разметка ТОРГ-12 в формате Terrasoft.
В данной разметке не предусмотрена корректная печать многостраничных отчетов.

"Егор Николаевич" написал:

Разметка ТОРГ-12 в формате Terrasoft.

В данной разметке не предусмотрена корректная печать многостраничных отчетов.

Прикрепленный файлРазмер

fr_reporttorg12.zip
8.76 кб

спасибо, то что надо

Антон, необходима более подробная информация по проблеме. Попробуйте определить с помощью отладчика, в каком скрипте и в какой его строчке возникает исключение.

Self.Attributes('ShowEditButtons') значение дебаггером посмотрите наверняка undefined или null попадает

Замените эту строчку на такую:

ProjectsfrmButtons.IsVisible = !!Self.Attributes('ShowEditButtons');

Добавьте после блока

        ExcludedFieldsList('ID') = true;
        ExcludedFieldsList(SourceParentItemIDFieldName) = true;
        ExcludedFieldsList(ParentIDFieldName) = true;

такой код:

if (SourceDataset.USI.indexOf('ds_OfferingInInvoice') != -1) {
        ExcludedFieldsList(<Название поля1>) = true;
        ...
        ExcludedFieldsList(<Название поляN>) = true;
}

Спасибо!
А как запретить копирование поля в самом счете, например состояние счета, пробовал:

 if (SourceDataset.USI.indexOf('ds_Invoice') != -1) {
        ExcludedFieldsList('BillStatusID') = true;
     }

не прошло.
заранее спасибо!

Пробую в срипте scr_DB в функции:

function SetDefaultValuesByDataset(Dictionary, Dataset) {
	var DatasetCopy = Services.GetNewItemByUSI(Dataset.USI);
	ApplyDatasetFilter(DatasetCopy, 'ID', Dataset.ValAsStr('ID'), true);
	DatasetCopy.Open();
	for (var i = 0; i < DatasetCopy.DataFields.Count; i++) {
        var DataField = DatasetCopy.DataFields.Items(i);
 
	var Name = DataField.Name;
	if (!IsSystemField(Name) && (DataField.FieldType != dftCalc) && (DataField.Value != null)) {
	var Key = Name;
	Dictionary.Add(Key, DataField.Value);
			}
 
	}
	DatasetCopy.Close();
}

заменить

	if (!IsSystemField(Name) && (DataField.FieldType != dftCalc) && (DataField.Value != null))

на

	if (!IsSystemField(Name) && (DataField.FieldType != dftCalc) && (DataField.Value != null) && (DataField.Name != 'BillStatusID'))

но тоже не помогает (

Отвечу себе сам, нашел решение:

if (Name == 'BillStatusID'){
   Dictionary.Add(Key, null);
}
else{
   Dictionary.Add(Key, DataField.Value);
}

"Михнюк Иван" написал:новое поле, которое вычисляется путем вычитания из поля "сумма оплаты" поле "сумма в б.в."

"Михнюк Иван" написал:поля курс, сумма в б.в., сумма вычисляются в реальном времени при изменении одного из полей.

Иван, добрый день.

Реализация зависит от того, каким образом Вы добавили поле: с помощью механизма пользовательских полей или вручную создали его в таблице, запросе и датасете раздела. Если Вы его создали с помощью механизма пользовательских полей или вручную как поле типа "Дробное число", изменять его значение необходимо при обработке события OnDatasetDataChange датасета раздела, или же при обработке аналогичного события в даталинке окна редактирования. Посмотрите, как это реализовано для других полей в скриптах ds_InvoiceScript и wnd_InvoiceEditScript.

Если Вы добавили это поле в датасет как вычисляемое, устанавливать ему значение необходимо при обработке события OnDatasetCalcFields. А вызвать это событие можно в том же обработчике OnDatasetDataChange при изменении полей, влияющих на Ваше поле. Например, так:

switch (FieldName) {
    ...
    case 'PaymentAmount':
        Dataset.CalcDataFields();
        break;
    ...
}

Отвечая на вопрос о Службе технической поддержки Terrasoft: да, Ваш вопрос вполне входит в любой из пакетов поддержки, и наши специалисты обязательно предоставят ответ на Ваше письмо. Заранее прошу прощения, если ответ не был предоставлен в сроки, соответствующие Вашему пакету поддержки: возможно, это произошло по техническим причинам.

Я его создал вручную, как поле типа "дробное число".
В ds_InvoiceScript / DataChange(DataField) вписал:

case ('PaymentDiff'):
			InvoiceScript.OnDataChangeDisabled = true;
			try {				
		  	    var BA = DataFields.ItemsByName('BasicAmount').Value;
		  	    var PA = DataFields.ItemsByName('PaymentAmount').Value;
				var PaymentDiff = CalcPD(PA, BA);
				SetFloatDataFieldWithRound(DataFields.ItemsByName('PaymentDiff'),
					PaymentDiff);
			}
			finally{
				InvoiceScript.OnDataChangeDisabled = false;
			}
			break;  

В scr_CurrencyUtils вписал:

function CalcPD(PA, BA) {
	var Result = PA - BA;
	return Result;
}

Написал в scr_CurrencyUtils ():

function RecalcBPDInDataset (Dataset, BasicFieldName, PAFieldName,
	BAFieldName) {
	var BasicAmount = Dataset.Values(BAFieldName);
	var PaymentAmount = Dataset.Values(PAFieldName);
	var PaymentDiff = CalcPD(PA, BA);
	var DataField = Dataset.DataFields(BasicFieldName);
	SetFloatDataFieldWithRound(DataField, PaymentDiff);
}

Я делал по аналогии с другими полями и в

function SelfOnDatasetDataChange(DataField) {
	DataChange(DataField);
}

Ничего не дописано или я перемешал 2 варианта выше?

Немного не понял, где Вы используете функцию RecalcBPDInDataset. В остальном вроде всё нормально.

Аналогично нужно сделать и для поля BasicAmount, так как при его изменении поле PaymentDiff тоже должно изменяться.

"Лабьяк Олег Игоревич" написал:

Спасибо, натолкнули на ошибку, нужно было написать не case ('PaymentDiff'), а case ('PaymentAmount')! Функцию RecalcBPDInDataset наверно нигде не использую, просто в scr_CurrencyUtils () были ещё похожие функции, сделал по аналогии.

Создаете пользовательский запрос на выборку данных. По нему добавляете Word отчет, в шаблоне, которого прописываете в какие ячейки необходимо записывать данные.

Если я не ошибаюсь, то задача, как и написал Алексей, решается пользовательскими инструментами. А вот реквизиты я бы вынес в закладку, зачем в карточке реквизиты ;) ? Ведь у одной компании могут быть несколько компаний-плательщиков и, соответственно, реквизитов плательщиков.

А можно более подробно, я не проходил обучение данному продукту. Что-то мне понятно, но не все. Можете показать в картинках?

"Шевченко Юрий" написал:Ведь у одной компании могут быть несколько компаний-плательщиков и, соответственно, реквизитов плательщиков.

Директор сказал не нужно. В целом вы правы.

"Агутин Алексей" написал:Создаете пользовательский запрос на выборку данных. По нему добавляете Word отчет, в шаблоне, которого прописываете в какие ячейки необходимо записывать данные.

А есть статейка, как это делать?

"Синяев Валерий" написал:А есть статейка, как это делать?

[quote="Кулак Олег"]Посмотрите тут
http://community.terrasoft.ua/usr/video_faq[/quote]

Вы сами видели на, что даете ссылку. Это мне известно и доступно без видео инструкции. Я хочу получить выходную форму как в 1С 8.1. И меня интересует счет, а не отчет... :confused:

"Синяев Валерий" написал: И меня интересует счет, а не отчет...

Просто хочу понять как сделать такую печатную форму, принцип понятен. Но все же есть вопросы:

Для начала я захожу в Террасофт
Вкладка "Инструменты"
Скриншот

Следующие действие, это запрос

вот на этом этапе и много вопросов, мне нужно сделать в выходную форму данные, которые берутся разных таблиц

Вот это что означает? Из какого раздела?

"Синяев Валерий" написал:Вот это что означает? Из какого раздела?

Вот только я еще не могу открыть форму изменения шаблона.

"Синяев Валерий" написал:вот на этом этапе и много вопросов, мне нужно сделать в выходную форму данные, которые берутся разных таблиц

"Кулак Олег" написал:Вот только я еще не могу открыть форму изменения шаблона.

"Кулак Олег" написал:Какая у Вас версия Terrasoft?

"Кулак Олег" написал:Таблица счет связана с таблицей контрагенты(Клиент). Если Вы раскроете "плюс" на против данной таблице, то сможете вытянуть данные таблицы контрагенты.

Это я тормознул, понял уже и сделал. Нужно excel ставить так как ща на open-office работаю ща. У Террасофт идет привязка именно к библиотекам офиса.

"Синяев Валерий" написал:Это я тормознул, понял уже и сделал.

Не совсем, завтра буду с утра трудится над этим. Хотелось бы все таки получить информацию от технической службы Террасофт. Мне просто не понятно как открыть редактор выходной формы.

Вот так я создаю запрос

Выбираем компоновку данных для запроса

Фильтры нужны?

После я перехожу на вкладу отчеты.

Но все тоже окно, выберите раздел

Что я делаю не так?

Я рекомендую Вам ознакомится с видео материалом, а именно "Как создать отчёт в Excel-формате на основе пользовательского запроса к базе данных Terrasoft CRM?". В нем рассмотрен пример создания пользовательского запроса и отчета на его основе.
И если Вы хотите видеть печатную форму конкретного счета, то стоит разместить отчет в разделе "Счета", если же вы хотите видеть все счета по конкретному контрагенту - в разделе "Контрагенты".

Олег я послушал вашего совета посмотрел материал еще вчера. Я просто указал вам пример. Я так понимаю сообщение "этот отчет можно просматривать только из раздела" выскакивает, потому что стоит тип фильтрации "Для выделенных записей". Подскажите как я могу его открыть данный отчет, с кажем для просмотра на определенном счете? И как я могу открыть редактор выходной формы, а открыть я ее не могу потому что не присвоен "сервис отчета" или к отчетам формируемым в excel нельзя задать выходную форму.

Просмотреть отчет Вы можете из раздела, который указали при создании отчета, при помощи меню "Отчеты". Но отчет построенный в Excel не будет соответствовать внешнему виду указанной Вами печатной формы. Если для Вас кретично использование Excel, то придется строить данную печатную форму в скрипте, используя ActiveXObject.

Валерий, сообщение, что данный отчет можно просматривать только из раздела означает, что запустить его можете только из выпадающего меню "Отчеты" указанного для отчета раздела, в Вашем случае - [Контрагенты].

Дело в том, что у одного контрагента может быть несколько счетов,именно по данной причине рекомендуется делать отчет для раздела [Счета], а не [Контрагенты].

Если же необходимо создавать именно такую печтаную форму (как Вы указали на первом скриншоте), то мне кажется, что лучше сделать ее не средствами пользовательских отчетов, а в виде формы Fast Report.

Хорошо, сейчас займемся. И посмотрим. Техническая служба сказала тоже что и ваши последние сообщения

Для того чтобы создать отчет, нужный мне придется создать новый сервис. Так как при создании отчета fast reports, не возможности выбора ранее созданного мною запроса. Есть еще какие варианты?

Валерий, как вариант можете использовать существующую форму fr_ReportInvoiceWithNDS или fr_ReportInvoiceWithoutNDS. Можете скопировать сервис одного из этих отчетов и изменить его, сделав на основании данной формы - новую, которая будет соответствовать Вашей (указанной на первом скриншоте).

"Синяев Валерий" написал:Так как при создании отчета fast reports, не возможности выбора ранее созданного мною запроса.

"Татьяна Адамчук" написал:
Запрос в клиентском приложении отличается от того запроса, sq_*, который создается в административной части приложения, на основании которого мы можем построить отчет Fast Report.

Какой выход? Можно пример, скорее всего уже решалась такая задача!

Валерий, так есть уже готовый запрос для отчета. Задача только или существующую форму отчет fr_ReportInvoiceWithNDS или fr_ReportInvoiceWithoutNDS задизайнить под Вашу форму (установить логотип, вытянуть нужные поля). Если тех полей в датасете не достаточно, чтобы решить задачу, то можете добавить в запросы и датасеты.

Подскажите, может я не туда смотрю?

Все разобрался пока, но вопросы все рано будут.

И прошу на заметку возьмите, что счет - это invoice. Но под этим понимается большое количество значений.