Показаны сообщения с ярлыком 77. Показать все сообщения
Показаны сообщения с ярлыком 77. Показать все сообщения

четверг, 16 июля 2015 г.

1с 7.7 Назначить имя столбцу (ячейке) Excel.

Назначить имя столбцу (или ячейке) в Excel (Эксель) из 1с 7.7.

Excel = СоздатьОбъект("Excel.Application");
    Excel.DisplayAlerts = 0;       
    Попытка
        РабочаяКнига=Excel.Workbooks.Add(Файл); 
    Исключение
        Предупреждение("Ошибка при открытии файла загрузки!",15);
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;       
   
    РабочаяКнига.ActiveSheet.Range("A:A").Name = "qqqqqqqqqqqqqqq";
     
    РабочаяКнига.SaveAs(Файл);
    Excel.Quit();

//Если диапазон "A:A" - то назначается всему столбцу, если "A1" - то самой левой ячейке.
//как сделать в формате R1C1 пока не понял...

четверг, 26 марта 2015 г.

Прочитать данные из таблицы формы

четверг, 5 марта 2015 г.

1с 7.7 Подбор.

Обработка и организация подбора в  1с 7.7:

1)
Процедура ДобавитьСклад()   
Конт = "";
    ОткрытьПодбор("Справочник.МестаХранения","ФормаСписка",Конт,1,);
// Конт.ВыборГруппы(1);//Если нужен ВЫБОР ГРУППЫ
КонецПроцедуры // ДобавитьСклад
2)

четверг, 22 мая 2014 г.

1с 7.7 выбор файла

На форму помещаем реквизит "Файл", на вкладке свойств этого реквизиту устанавливаем галочку "Кнопка выбора", в тело обработки помещаем этот код:

Процедура ПриНачалеВыбораЗначения(ИдентЭлемДиалога,ФлагСтандОбр)
    Если ИдентЭлемДиалога="Файл" Тогда
        ФлагСтандОбр=0;
        ИмяФайла="";
        Каталог="";
        Если ФС.ВыбратьФайл(1,ИмяФайла,Каталог,"Укажите файл для сохранения данных","*.mxl|*.mxl")=1 Тогда
            Файл = СокрЛП(Каталог)+СокрЛП(ИмяФайла);
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры

четверг, 6 февраля 2014 г.

Пример чтения файла mxl

Памятка по загрузки данных из файлов MXL(не путать с xml), удобно при переносе данных из 7.7 в 8.2 и обратно.

четверг, 16 января 2014 г.

Запустить из 1с 7.7 обработку в 8.2

Код в обработке 1с 7.7:

путь = """C:\Program Files (x86)\1cv82\8.2.19.68\bin\1cv8.exe"" enterprise /F ""C:\УТ11_83_Тест""/N Администратор /Execute ""C:\Перенос из УПП в УТ11_83\ЗагрузитьОстаткиИз77.epf"" /C ""auto""";

ЗапуститьПриложение(Путь);

вторник, 17 декабря 2013 г.

1с: Обмен через табличный документ mxl

Код 77:
Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Таблица");
    Состояние("Обработка запроса...");

четверг, 3 октября 2013 г.

1с 7.7: Пример выгрузки номенклатуры в xml

1с выгрузка номенклатуры в xml.

Пример выгрузки номенклатуры Из 1с 7.7 в xml.

Пример чтения xml из 1с 8.2 можно глянуть Здесь
 
перем СпрНом;
Перем XMLАнализатор;
//*******************************************
Процедура Сформировать()
    Если ПустаяСтрока(Файл)=1 Тогда
        Предупреждение("Не указан файл для выгрузки!");
        Возврат;
    КонецЕсли;
   

пятница, 13 сентября 2013 г.

Запрос из 1с 8.2 к 1с 7.7 по Ole

Передать Параметр в запрос по Ole я так и не смог.

Подключение = База.Initialize(База.RMTrade , "/dC:\ТестУправленка77" + " /N" + СокрЛП(Пользователь77)  + " /P"  + СокрЛП(Пароль77) ,"NO_SPLASH_WINDOW");   

    Если Подключение=Ложь Тогда
        Сообщить(ОписаниеОшибки());
        Сообщить("Не удалось выполнить подключение к 1с 7.7, возможно база 1с 7.7 нуждается в запуске в монопольном режиме!");
        Ошибка=Истина;
    КонецЕсли;

среда, 7 августа 2013 г.

1с 7.7 бухгалтерский учет. Не начисляется НДФЛ у работника, который был не резидентом.

С начала года, работник был не резидентом, у него правильно начислялся НДФЛ 30%, далее в следующем месяце он стал резидентом, НДФЛ перестал начисляться.
Это происходит из-за того, что программа видит пере начисление НДФЛ.

вторник, 23 июля 2013 г.

1с 7.7 Получить Константу V77s.Application

Пример получения Константы по V77s.Application:
База = Новый COMОбъект("V77s.Application");
Док.ВерсияОбъекта = База77.evalexpr("Константа.НомерРелиза");

нашел здесь: http://wiki.kint.ru/

четверг, 11 июля 2013 г.

1с 7.7 пример чтения текста

Текст = СоздатьОбъект("Текст");
    Текст.Открыть("F:\TODEL\врем60_1.txt");
сч=0;
    Для сч_=0 По Текст.КоличествоСтрок()/3-1 Цикл
        сч=сч_*3;
        Имя = Текст.ПолучитьСтроку(1+сч);
        Код = Текст.ПолучитьСтроку(2+сч);
        //Скл = Текст.ПолучитьСтроку(3+сч);
        Сум = Текст.ПолучитьСтроку(3+сч);
        //Кол = Текст.ПолучитьСтроку(5+сч);
       
        Если спр.НайтиПоКоду(Код)=0 Тогда
            Сообщить("Не нашли код:"+Код+" имя "+Имя);
            Продолжить;
        КонецЕсли;
        Мат = спр.ТекущийЭлемент();
        Тз12.НоваяСтрока();
        Тз12.Мат = Мат;
        Тз12.ИмяМат = Мат.Наименование;
        Тз12.Сумма = Сум;
        //Тз12.Кол = Кол;
    КонецЦикла;

среда, 10 июля 2013 г.

1с 7.7 пример чтения текста

Текст = СоздатьОбъект("Текст");
    Текст.Открыть("F:\TODEL\врем60_1.txt");
сч=0;
    Для сч_=0 По Текст.КоличествоСтрок()/3-1 Цикл
        сч=сч_*3;
        Имя = Текст.ПолучитьСтроку(1+сч);
        Код = Текст.ПолучитьСтроку(2+сч);
        //Скл = Текст.ПолучитьСтроку(3+сч);
        Сум = Текст.ПолучитьСтроку(3+сч);
        //Кол = Текст.ПолучитьСтроку(5+сч);
       
        Если спр.НайтиПоКоду(Код)=0 Тогда
            Сообщить("Не нашли код:"+Код+" имя "+Имя);
            Продолжить;
        КонецЕсли;
        Мат = спр.ТекущийЭлемент();
        Тз12.НоваяСтрока();
        Тз12.Мат = Мат;
        Тз12.ИмяМат = Мат.Наименование;
        Тз12.Сумма = Сум;
        //Тз12.Кол = Кол;
    КонецЦикла;

понедельник, 18 марта 2013 г.

1с 7.7 Бухгалтерия. Корректировка услуги



1. На основании дока Услуги сторонних организаций за апрель ввожу корректировочный СФ (дата 30.06).
Проводки никакие не формируются.

2. Бух.справкой ввожу корректировки к акту. Проводки
Д20-К60
Д19.3-К60 (выбираю в качестве субконто тот самы корр.сф из п.1)
Если сделать как положено сторно и новый акт, то в нем ссылку на корр.СФ сделать не получится, будет зарегистрирован новый счет-фактура. И соответственно в книгу покупок попадет не то, что надо.

3. На основании корр.СФ ввожу запись в книгу покупок.

среда, 20 февраля 2013 г.

Пример чтения Excel из 1с 7.7

1с чтение Excel.

Пример использования 1с 7.7 для чтения данных из Excel:

Excel = СоздатьОбъект("Excel.Application");
    НовыеРабочиеКниги= Excel.Workbooks;  
    Попытка
        РабочаяКнига=НовыеРабочиеКниги.Open(Файл);  
    Исключение
        Предупреждение("Ошибка при открытии файла загрузки!",15);
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    ОкноExcel=РабочаяКнига.WorkSheets(1);

вторник, 2 октября 2012 г.

1с 7.7 Бухгалтерский учет. Не начисляется НДФЛ при увольнении.

1) Необходимо, что бы все документы закрытие месяца с указанием только ФОТ. (Журнал регламентированные операции) были проведены, до текущего месяца. Иначе начисление не увидит данные за тот месяц, в котором не проведен док закрытия....
2)Начисление З/П.
3)Начисление компенсации отпуска.