Форум ДИЦ
http://dforum.dic.ru/

Импорт из файлов
http://dforum.dic.ru/viewtopic.php?f=38&t=7900
Страница 1 из 1

Автор:  PikeSoft [ Пн фев 11, 2013 2:29 pm ]
Заголовок сообщения:  Импорт из файлов

Здраствуйте!!!
Помогите решить такую задачу: Имеем учет земельных паев в Екселе :) -на листе в колонках: ФИО, Налоговый номер, количество гектар денежная оценка, % оплаты, дата начала договора, дата окончания аренды - на оного человека может быть несколько строк. На поставили Турбобухгалтер 6.9 с учетом аренды, есть справочник физ лиц - нужно разнести эти данные или вручную или написать программку - с программированием знаком (1с, дельфи) а вот с турбиком - полный ноль, подскажите с чего начать а то сроки очень сжатые. Ексель можно экспортировать в ДБВ.

Автор:  Yurij [ Пн фев 11, 2013 2:49 pm ]
Заголовок сообщения:  Re: Импорт из файлов

PikeSoft писал(а):
Здраствуйте!!!
Помогите решить такую задачу: Имеем учет земельных паев в Екселе :) -на листе в колонках: ФИО, Налоговый номер, количество гектар денежная оценка, % оплаты, дата начала договора, дата окончания аренды - на оного человека может быть несколько строк. На поставили Турбобухгалтер 6.9 с учетом аренды, есть справочник физ лиц - нужно разнести эти данные или вручную или написать программку - с программированием знаком (1с, дельфи) а вот с турбиком - полный ноль, подскажите с чего начать а то сроки очень сжатые. Ексель можно экспортировать в ДБВ.
Загрузки из Екселя штатными средствами нет, а из dbf есть. Пример использования (импорт/экспорт) посмотрите "Std\Бланки\Служебные\РАБ.ИМПОРТСПРАВОЧНИКОВ.bln", или там же "РАБ.ИМПОРТSAL.bln".

Автор:  PikeSoft [ Пн фев 11, 2013 3:10 pm ]
Заголовок сообщения:  Re: Импорт из файлов

Yurij писал(а):
PikeSoft писал(а):
Здраствуйте!!!
Помогите решить такую задачу: Имеем учет земельных паев в Екселе :) -на листе в колонках: ФИО, Налоговый номер, количество гектар денежная оценка, % оплаты, дата начала договора, дата окончания аренды - на оного человека может быть несколько строк. На поставили Турбобухгалтер 6.9 с учетом аренды, есть справочник физ лиц - нужно разнести эти данные или вручную или написать программку - с программированием знаком (1с, дельфи) а вот с турбиком - полный ноль, подскажите с чего начать а то сроки очень сжатые. Ексель можно экспортировать в ДБВ.
Загрузки из Екселя штатными средствами нет, а из dbf есть. Пример использования (импорт/экспорт) посмотрите "Std\Бланки\Служебные\РАБ.ИМПОРТСПРАВОЧНИКОВ.bln", или там же "РАБ.ИМПОРТSAL.bln".

Спасибо, у меня украинская конфигурация нашел только РАБ.ИМПОРТ.bln там только "1-в накл; 2- в счет; 3- в счет-фактур"если не сложно сбросьте на почту vvshchсобакаukr.net

Автор:  Losev [ Вс мар 24, 2013 9:47 pm ]
Заголовок сообщения:  Re: Импорт из файлов

Если знакомы с OLE, то можно читать из Excel напрямую. В хелпах есть примеры. Смотреть функцию: "CreateAutoObject('Excel.Application')".

Автор:  Zolotko [ Вс мар 24, 2013 10:04 pm ]
Заголовок сообщения:  Re: Импорт из файлов

Да нафига так сложно? Делаете макрос на экселе и выгружаете данные в текстовый файл

дата (типа 01.02.2013)

: сумма (счет дебета) (счет кредита) {аналитические признаки через пробел} -- комментарии

Ниже пример моей выгрузки данных по 108 квартирам ЖСК в расчете коммунальных платежей.
Цитата:
Sub Бухучет()
Open "C:\" + CStr(Worksheets("Исходные_данные").Cells(13, 1).Value) + ".TXT" For Output As #1
Print #1, ": "; Format(Worksheets("Расчет").Cells(111, 5).Value, "#0.00"); " КОММУНАЛЬНЫЕ.НАЧИСЛЕНЫ {НОМ." + Worksheets("Исходные_данные").Cells(13, 1).Value + " ВИД.Электричество}"
Print #1, ": "; Format(Worksheets("Расчет").Cells(111, 6).Value, "#0.00"); " КОММУНАЛЬНЫЕ.НАЧИСЛЕНЫ {НОМ." + Worksheets("Исходные_данные").Cells(13, 1).Value + " ВИД.Вода}"
Print #1, ": "; Format(Worksheets("Расчет").Cells(111, 7).Value, "#0.00"); " КОММУНАЛЬНЫЕ.НАЧИСЛЕНЫ {НОМ." + Worksheets("Исходные_данные").Cells(13, 1).Value + " ВИД.Газ}"
Print #1, ": "; Format(Worksheets("Расчет").Cells(111, 8).Value, "#0.00"); " КОММУНАЛЬНЫЕ.НАЧИСЛЕНЫ {НОМ." + Worksheets("Исходные_данные").Cells(13, 1).Value + " ВИД.Мусор}"
Print #1, ": "; Format(Worksheets("Расчет").Cells(111, 9).Value, "#0.00"); " КОММУНАЛЬНЫЕ.НАЧИСЛЕНЫ {НОМ." + Worksheets("Исходные_данные").Cells(13, 1).Value + " ВИД.Тепло}"
Print #1, ": "; Format(Worksheets("Расчет").Cells(111, 10).Value, "#0.00"); " КОММУНАЛЬНЫЕ.НАЧИСЛЕНЫ {НОМ." + Worksheets("Исходные_данные").Cells(13, 1).Value + " ВИД.Тепло} -- Горячая вода"
Print #1, ": "; Format(Worksheets("Расчет").Cells(111, 2).Value + Worksheets("Расчет").Cells(111, 4).Value, "#0.00"); " КОММУНАЛЬНЫЕ.НАЧИСЛЕНЫ {НОМ." + Worksheets("Исходные_данные").Cells(13, 1).Value + " ВИД.Хознужды}"
Print #1, ": "; Format(Worksheets("Расчет").Cells(111, 3).Value, "#0.00"); " КОММУНАЛЬНЫЕ.НАЧИСЛЕНЫ {НОМ." + Worksheets("Исходные_данные").Cells(13, 1).Value + " ВИД.Телефон}"
Print #1, ": "; Format(Worksheets("Расчет").Cells(111, 11).Value, "#0.00"); " КОММУНАЛЬНЫЕ.НАЧИСЛЕНЫ {НОМ." + Worksheets("Исходные_данные").Cells(13, 1).Value + " ВИД.Лифты}"
Print #1, ": "; Format(Worksheets("Расчет").Cells(111, 12).Value, "#0.00"); " КОММУНАЛЬНЫЕ.НАЧИСЛЕНЫ {НОМ." + Worksheets("Исходные_данные").Cells(13, 1).Value + " ВИД.ДОМОФОН}"
Print #1, ": "; Format(-Worksheets("Расчет").Cells(111, 13).Value, "#0.00"); " КОММУНАЛЬНЫЕ.НАЧИСЛЕНЫ {НОМ." + Worksheets("Исходные_данные").Cells(13, 1).Value + " ВИД.Перерасчет}"
For i = 1 To 108
Print #1, ": "; Format(Worksheets("Расчет").Cells(i + 2, 16).Value, "#0.00"); " КВИТАНЦИЯ.ВЫДАНА КТО=" + CStr(i);
Print #1, " КВИТАНЦИЯ=" + CStr(Worksheets("Исходные_данные").Cells(13, 1).Value)
Next i
Close #1
End Sub


После выгрузки меняю запятую на точку (влом было макрос делать) и первой строчкой ставлю дату

Страница 1 из 1 Часовой пояс: UTC + 3 часа [ Летнее время ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/