Имя: Пароль:
1C
1С v8
Счета иностранных организаций
0 NeSober
 
31.01.12
12:24
Бухгалтерия 1С 8.2 2.0.31.7
Контрагент иностранец, в расчетном счете первые буквы. Записать не дает, ругается на буквы. Гугление вывело на ответ от 1С, что в данный момент это не реализовано(буквы в счете).

Кто как поступает в данной ситуации?
1 NeSober
 
31.01.12
12:25
UPD: типовая
2 shuhard
 
31.01.12
12:26
(0) а зачем хранить не нужный для 1С расчетный счет в 1с ?
3 Hipernate
 
31.01.12
12:34
Процедура ПередЗаписью(Отказ)

   Если ОбменДанными.Загрузка Тогда
       Возврат;
   КонецЕсли;

   Если НЕ ЭтоГруппа Тогда

       СтрокаОшибки = "Элемент справочника ""Банки"" " + Наименование + " не записан!";
       
       Если НЕ ОбщегоНазначения.ТолькоЦифрыВСтроке(СокрЛП(КоррСчет)) Тогда

           ОбщегоНазначения.СообщитьОбОшибке("В составе Корр.счета банка должны быть только цифры.",, СтрокаОшибки);
           Отказ = Истина;

       КонецЕсли;

       Если НЕ ОбщегоНазначения.ТолькоЦифрыВСтроке(СокрЛП(Код)) Тогда
           //++++++++++++++++++++++++++
           //ОбщегоНазначения.СообщитьОбОшибке("В составе БИК банка должны быть только цифры.",, СтрокаОшибки);
           //Отказ = Истина;

       КонецЕсли;

   КонецЕсли;

КонецПроцедуры
4 Hipernate
 
31.01.12
12:35
(3) + в модуле объекта справочник.банки
в модуле формы справочника Банк.счета

Функция СформироватьАвтоНаименование()
   Если ВидСчета = "Депозитный" тогда
       СтрокаНаименования = "Депозитный " + СокрЛП(НомерСчета  + ?(НЕ Банк.Пустая(), ", " + Банк, "")) + " от " + Формат(ДатаОткрытия, "ДЛФ = Д");
   Иначе    
       ЭлементыФормы.Наименование.СписокВыбора.Очистить();
       
       СтрокаНаименования = Лев(ВидСчета
                          + ?(ВалютаДенежныхСредств <> мВалютаРегламентированногоУчета, " (" + ВалютаДенежныхСредств + ")", "")
                          + ?(НЕ Банк.Пустая(), " в " + Банк, ""),
                          100);
       
       ЭлементыФормы.Наименование.СписокВыбора.Добавить(СтрокаНаименования);
       
       СтрокаНаименования = Лев(НомерСчета
                          + ?(НЕ Банк.Пустая(), ", " + Банк, ""),
                          100);
       ЭлементыФормы.Наименование.СписокВыбора.Добавить(СтрокаНаименования);
       
       СтрокаНаименования = Лев(
                            ?(НЕ Банк.Пустая(),""+ Банк, "")
                          + " ("+ ВидСчета
                          + ?(ВалютаДенежныхСредств <> мВалютаРегламентированногоУчета, ", " + ВалютаДенежныхСредств , "")
                          +")",
                          100);
       ЭлементыФормы.Наименование.СписокВыбора.Добавить(СтрокаНаименования);
   КонецЕсли;
   Возврат СтрокаНаименования;

КонецФункции // СформироватьАвтоНаименование()
5 DmitryPavlik
 
31.01.12
12:44
(3)
       Если НЕ ОбщегоНазначения.ТолькоЦифрыВСтроке(СокрЛП(КоррСчет)) Тогда

           ОбщегоНазначения.СообщитьОбОшибке("В составе Корр.счета банка должны быть только цифры.",, СтрокаОшибки);
           Отказ = Истина;

       КонецЕсли;


Тоже в комментарии )
6 NeSober
 
31.01.12
12:45
так вот и править-то код не хочется....
7 Hipernate
 
31.01.12
12:49
хитри тогда через универсальную обработку доков и спр. в режиме обменданными запиши вместо бика и РС нужные значения
Программист всегда исправляет последнюю ошибку.