Форум ДИЦ

Пользовательский и Дилерский форум ДИЦ
Текущее время: Сб авг 19, 2017 1:20 pm

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 5 ] 
Автор Сообщение
 Заголовок сообщения: Импорт из файлов
СообщениеДобавлено: Пн фев 11, 2013 2:29 pm 
Не в сети

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Импорт из файлов
СообщениеДобавлено: Пн фев 11, 2013 2:49 pm 
Не в сети

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Импорт из файлов
СообщениеДобавлено: Пн фев 11, 2013 3:10 pm 
Не в сети

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

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Импорт из файлов
СообщениеДобавлено: Вс мар 24, 2013 9:47 pm 
Не в сети

Зарегистрирован: Пт июн 29, 2012 12:18 am
Сообщения: 342
Откуда: Москва
Если знакомы с OLE, то можно читать из Excel напрямую. В хелпах есть примеры. Смотреть функцию: "CreateAutoObject('Excel.Application')".

_________________
ТБ.Бюджет


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Импорт из файлов
СообщениеДобавлено: Вс мар 24, 2013 10:04 pm 
Не в сети

Зарегистрирован: Пн мар 29, 2004 10:25 am
Сообщения: 4241
Откуда: Таганрог
Да нафига так сложно? Делаете макрос на экселе и выгружаете данные в текстовый файл

дата (типа 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


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

_________________
Александр Золотько, г.Таганрог


Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 5 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB