Группа: Пользователи
Сообщений: 16
Спасибо сказали: 0 раз
Рейтинг: 0
Обработка работы с dbf файлом. проблема в том что номер документа не числовой а строка RCO_1908_447. Как сделать проверку чтобы это поле пропускалось, а числовые поля проходили дальше.
что поставить в условие если????
Если (ФайлДБФ.ПолучитьЗначениеПоля("DATA_S")=Дата)и (Найти(ФайлДБФ.ПолучитьЗначениеПоля("KL_CHK"),СокрЛП(Счет))>0) Тогда //выбрать нужные данные из строки файла dbf в результативную таблицу значений стр = ТаблицаДБФ.Добавить(); стр.Дата = ФайлДБФ.ПолучитьЗначениеПоля("DATA_S"); стр.ПлатПоруч = УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("ND")));
Группа: Пользователи
Сообщений: 16
Спасибо сказали: 0 раз
Рейтинг: 0
Да нет просто я для примера привёл эту строку, она может быть с другим названием, тоесть мне надо проверка если в номере документа встречаеться буква, а не число тогда не отображать.
Группа: Пользователи
Сообщений: 16
Спасибо сказали: 0 раз
Рейтинг: 0
не то пальто всё равно((((, блин есть счета в формате .dbf от банка есть обработка импорт из банка, так вот в dbf файле номер 3 номера счёта числовые, а один символьный, мне надо чтобы числовые прошли а сим вольный не прошёл)) Тоесть нужна проверка вот этого СокрЛ(УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("ND")))
Группа: Основатель
Сообщений: 13982
Из: Киев
Спасибо сказали: 4549 раз
Рейтинг: 3678.1
Цитата
нужна проверка вот этого СокрЛ(УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("ND")))
а = СокрЛ(УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("ND"))); Попытка а = Число(а); Сообщить("а - число"); Исключение Сообщить("а - строка"); КонецПопытки;
Группа: Пользователи
Сообщений: 16
Спасибо сказали: 0 раз
Рейтинг: 0
Цитата(Ardi @ 24.03.11, 13:57)
Приблизительный код:
ном2=""; Для ъ=1 по стрДлина(ном) цикл ном2=ном2+?(найти("1234567890",сред(ном,Ъ,1))>0,сред(ном,Ъ,1),""); КонецЦикла;
Не канает этот код да все буквы убрало и остались только цифры, а мне надо если встретилась буква в Номере документа то пропустить этот документ, а не букву пропустить.
Группа: Команда
Сообщений: 3568
Из: Киев
Спасибо сказали: 1434 раз
Рейтинг: 0
епт, тут намеки не помогут, ожидается рабочий код
а = УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("ND"))); Попытка а = Число(а); ЭтоЧисло = ИСТИНА; Исключение ЭтоЧисло = ЛОЖЬ; КонецПопытки; Если ЭтоЧисло Тогда стр.ПлатПоруч = а; // и так далее КонецЕсли;
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!