69
Рейтинг

Tiger77



  •   Регистрация: 03.02.2007 (17 лет назад)

  •   Был(а) на сайте: 28.09.2023

Друзья
  • Юрий Семенчук
  • Дмитрий Малышев
  • Евгений Комиссаров
Подписчики 5

Группы

Профессиональный разработчик

Партнер IS-WP

Рейтинг 69

Анализ счета по корсубконто (Рус. и Укр.)

Отчеты и формы Бухгалтер Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Украина Россия Бухгалтерский учет Абонемент ($m) Внешний отчет (ert,erf) Оборотно-сальдовая ведомость, Анализ счета

Куда делись деньги с расчетного счета? Кто самый крупный поставщик товаров? Из чего состоит себестоимость продукции? Из чего сформирован финансовый результат? Получите отчет за 1 секунду!

1 стартмани

10.09.2009    12098    252    Tiger77    15       

41

Комментарии

ПубликацииГенерация штрихкодов с помощью БСП для программистов#1 09.01.21 15:16
Почему нельзя все привести в одну функцию ?
Если нужно дописать - передаем в ДопПараметрах, если нужна оптимизация - оптимизируем создание внешней компоненты и передаем в доп.параметрах...



Код
Функция ПолучитьШтрихкод(ШиринаШтрихкода, ВысотаШтрихкода, ЗначШтрихкод, ЗначТипШтрихкода, ДопПараметры)
   СистемнаяИнформация = Новый СистемнаяИнформация;
   ВнешняяКомпонента = ГенерацияШтрихкодаСерверПовтИсп.ПодключитьКомпонентуГенерацииИзображенияШтрихкода(Строка(СистемнаяИнформация.ТипПлатформы));
   
   Если ВнешняяКомпонента = Неопределено Тогда
      ТекстСообщения = НСтр("ru = 'Ошибка подключения внешней компоненты печати штрихкода.'");
      ЗаписьЖурналаРегистрации(ТекстСообщения, 
         ОбщегоНазначения.КодОсновногоЯзыка()),
         УровеньЖурналаРегистрации.Ошибка,,, 
         ТекстСообщения);
      ВызватьИсключение ТекстСообщения;
   КонецЕсли;

   ВнешняяКомпонента.Ширина = ШиринаШтрихкода;
   ВнешняяКомпонента.Высота = ВысотаШтрихкода;
   ВнешняяКомпонента.АвтоТип = Ложь;
   ВнешняяКомпонента.ТипКода = ЗначТипШтрихкода;
   ВнешняяКомпонента.ПрозрачныйФон = Истина;
   ВнешняяКомпонента.ТипВходныхДанных = 0;
   ВнешняяКомпонента.GS1DatabarКоличествоСтрок = 1;
   ВнешняяКомпонента.УровеньКоррекцииQR = 2;
   
   ВнешняяКомпонента.ОтображатьТекст = Ложь;
   ВнешняяКомпонента.ЗначениеКода = ЗначШтрихкод;
   
   // Если установленная нами ширина меньше минимально допустимой для этого штрихкода.
   Если ВнешняяКомпонента.Ширина < ВнешняяКомпонента.МинимальнаяШиринаКода Тогда
      ВнешняяКомпонента.Ширина = ВнешняяКомпонента.МинимальнаяШиринаКода;
   КонецЕсли;
   // Если установленная нами высота меньше минимально допустимой для этого штрихкода.
   Если ВнешняяКомпонента.Высота < ВнешняяКомпонента.МинимальнаяВысотаКода Тогда
      ВнешняяКомпонента.Высота = ВнешняяКомпонента.МинимальнаяВысотаКода;
   КонецЕсли;
   
   ДвоичныеДанныеКартинки = ВнешняяКомпонента.ПолучитьШтрихкод();
   Если ДвоичныеДанныеКартинки = Неопределено Тогда
      ТекстСообщения = НСтр("ru = 'Не удалось получить картинку штрихкода.'");
      ВызватьИсключение ТекстСообщения;
   КонецЕсли
   
   Возврат  Новый Картинка(ДвоичныеДанныеКартинки);
КонецФункции

Admin1C Создает огромное количество файлов .tmp по пути C:\Users\service_1c\AppData\Local\Temp#37 21.12.20 0:18
(1) База файловая ?

Если - да попробуй протестировать базу chdbfl.exe, у меня была похожая ситуация при поврежденной таблице Files
DevPost запрос. Передача картинки в формате base64. Не удалось декодировать фото.#2 14.12.20 21:12
(1)
Вместо

Код
ФотоБазе64 = СтрЗаменить(ФотоБазе64, Символы.ВК, "");
ФотоБазе64 = СтрЗаменить(ФотоБазе64, Символы.ПС, "");


используйте

Код
ФотоБазе64 = КодироватьСтроку(ФотоБазе64, СпособКодированияСтроки.КодировкаURL);
ОбменЗагрузка информации в Google Data Studio#3 14.12.20 4:12
(1) Google не знай mxl-файл, нужно сохранять как минимум в Excel-формате
DevКак проверить оплачен ли документ ЗаказКлиента?#5 14.12.20 4:06
Приблизительно так, названия регистров и реквизитов может меняться в зависимости от конфигураций.

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


Код

   Запрос = Новый Запрос;
   Запрос.Текст = 
      "ВЫБРАТЬ
      |   ВзаиморасчетыСКонтрагентамиОстаткиИОбороты.СуммаВзаиморасчетовПриход КАК ОтгрузкаКлиенту,
      |   ВзаиморасчетыСКонтрагентамиОстаткиИОбороты.СуммаВзаиморасчетовРасход КАК ОплатаКлиента,
      |   ВзаиморасчетыСКонтрагентамиОстаткиИОбороты.СуммаВзаиморасчетовКонечныйОстаток КАК Остаток
      |ИЗ
      |   РегистрНакопления.ВзаиморасчетыСКонтрагентами.ОстаткиИОбороты(, &КонДата, , , Сделка = &Сделка) КАК ВзаиморасчетыСКонтрагентамиОстаткиИОбороты";
   
   
   Запрос.УстановитьПараметр("Сделка", Сделка);
   Запрос.УстановитьПараметр("КонДата", ТекущаяДата());
   
   
   фЗаказОплачен = Ложь;
   
   РезультатЗапроса = Запрос.Выполнить();
   ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
   Если ВыборкаДетальныеЗаписи.Следующий() Тогда
      Если ВыборкаДетальныеЗаписи.Остаток = 0 и ВыборкаДетальныеЗаписи.ОплатаКлиента > 0 Тогда
         ОплатаКлиента = Истина;
      КонецЕсли;
   КонецЕсли;
   
   Если фЗаказОплачен Тогда
      Сообщить("Заказ "+Сделка+" оплачен");
   Иначе
      Сообщить("Заказ "+Сделка+" не оплачен");
   КонецЕсли;


DevПроблема печати четных и нечетных страниц макета#5 14.12.20 3:58
(1) fineprint может "эмулировать", но утилита платная
ОбменОбмен данными из базы 1с с сайтом#4 14.12.20 2:02
(1) Поменяйте название колонки, не "Код", а "КодТовара" или что-то похожее...
ОбменОшибка 500 в https-запросе#9 13.12.20 16:11
(1)

1. Если в браузере выполнить get-запрос, то какую ошибку получаем ?
2. Какой сертификат https стоит на IIS ? Возможно нужно добавить его в 1С ?
Встаивание сертификата https
или сгенерировать по всех правилах Генерация сертфиката
AdminСлетает программная лицензия 1С. VMWARE#7 13.12.20 16:01
(1) Можно купить аппаратный ключ и привязать программную лицензию к нему или лицензию до аппаратного ключа. В этом случае параметры виртуальной машины не будут контролироваться

USB-ключ раздавать через NetHASP или прокинуть USB прямо в виртуальную машину.