Цитата(logist @ 24.03.11, 14:45) необходимо зарегистрироваться для просмотра ссылки
Нука напишите сюда код который идет до начала этого и чуть после, что бы была понятна общая картина.
Если ФайлДБФ.Первая() тогда
Пока Истина Цикл
//если фирма счета совпадает со счетом выбранной фирмы, выбрать в таблицу
Если (ФайлДБФ.ПолучитьЗначениеПоля("DATA_S")=Дата)и
(Найти(ФайлДБФ.ПолучитьЗначениеПоля("KL_CHK"),СокрЛП(Счет))>0) Тогда
//выбрать нужные данные из строки файла dbf в результативную таблицу значений стр = ТаблицаДБФ.Добавить();
стр.Дата = ФайлДБФ.ПолучитьЗначениеПоля("DATA_S");
а = УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("ND")));
Попытка
а = Число(а);
Сообщить("а - число");
Исключение
Сообщить("а - строка");
КонецПопытки;
стр.ПлатПоруч = а;
//стр.ПлатПоруч = УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("ND")));
стр.Сумма = Число(ФайлДБФ.ПолучитьЗначениеПоля("S"));
//стр.КодВалюты = УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("CUR_ID")));
//стр.КодВалюты = ИмяСчет.ВалютаДенежныхСредств.Код;
Если ФайлДБФ.ПолучитьЗначениеПоля("DK")= 1 Тогда
стр.СчетКто = Счет;
стр.СчетКому = УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("KL_CHK_K")));
НомерТочки = Найти(стр.СчетКому,".");
Если НомерТочки>0 Тогда
стр.СчетКому = Лев(стр.СчетКому,НомерТочки-1);
КонецЕсли;
стр.ИмяКому = ФайлДБФ.ПолучитьЗначениеПоля("KL_NM_K");
стр.ОкпоКому = УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("KL_OKP_K")));
стр.мфоКому = УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("MFO_K")));
Иначе
стр.СчетКому = Счет;
стр.СчетКто = УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("KL_CHK_K")));
НомерТочки = Найти(стр.СчетКто,".");
Если НомерТочки>0 Тогда
стр.СчетКто = Лев(стр.СчетКто,НомерТочки-1);
КонецЕсли;
стр.ИмяКто = ФайлДБФ.ПолучитьЗначениеПоля("KL_NM_K");
стр.ОкпоКто = УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("KL_OKP_K")));
стр.мфоКто = УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("MFO_K")));
КонецЕсли;
стр.Содержание= ФайлДБФ.ПолучитьЗначениеПоля("N_P");
КонецЕсли;
Если не ФайлДБФ.Следующая() Тогда
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Возврат(ТаблицаДБФ);