Цитата:
Сообщение от Дмитрий Дмитриевич Костен
[Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...]
Новый отчет ЕСВ с выгрузкой в формате dbf (для 1С Бухгалтерия 7 и ПУБ)
Спасибо всем протестиров отчет. Поля выгрузки месяца и года исправлены.
|
В процедуре ВыгрузитьТаблицу7вDBF() должно быть как то так:
....
ДБ7.УстановитьЗначениеПоля("UKR_GROMAD",Строка(спД анныеОтчета.Получить("TAB7_T1R0" + Формат(Инд,"Ч(0)5.0") + "G6")));
ДБ7.УстановитьЗначениеПоля("NUMIDENT", Строка(спДанныеОтчета.Получить("TAB7_T1R0" + Формат(Инд,"Ч(0)5.0") + "G7S")));
ДБ7.УстановитьЗначениеПоля("LN", Строка(спДанныеОтчета.Получить("TAB7_T1R0" + Формат(Инд,"Ч(0)5.0") + "G91S")));
ДБ7.УстановитьЗначениеПоля("NM", Строка(спДанныеОтчета.Получить("TAB7_T1R0" + Формат(Инд,"Ч(0)5.0") + "G92S")));
ДБ7.УстановитьЗначениеПоля("FTN", Строка(спДанныеОтчета.Получить("TAB7_T1R0" + Формат(Инд,"Ч(0)5.0") + "G93S")));
ДБ7.УстановитьЗначениеПоля("C_PID", Строка(спДанныеОтчета.Получить("TAB7_T1R0" + Формат(Инд,"Ч(0)5.0") + "G8S")));
ДБ7.УстановитьЗначениеПоля("START_DT", Число(спДанныеОтчета.Получить("TAB7_T1R0" + Формат(Инд,"Ч(0)5.0") + "G10")));
ДБ7.УстановитьЗначениеПоля("STOP_DT", Число(спДанныеОтчета.Получить("TAB7_T1R0" + Формат(Инд,"Ч(0)5.0") + "G11")));
ДБ7.УстановитьЗначениеПоля("DAYS", Число(спДанныеОтчета.Получить("TAB7_T1R0" + Формат(Инд,"Ч(0)5.0") + "G12")));
ДБ7.УстановитьЗначениеПоля("HH", Число(спДанныеОтчета.Получить("TAB7_T1R0" + Формат(Инд,"Ч(0)5.0") + "G131")));
ДБ7.УстановитьЗначениеПоля("MM", Число(спДанныеОтчета.Получить("TAB7_T1R0" + Формат(Инд,"Ч(0)5.0") + "G132")));
ДБ7.УстановитьЗначениеПоля("NORMA", Число(спДанныеОтчета.Получить("TAB7_T1R0" + Формат(Инд,"Ч(0)5.0") + "G141")));
ДБ7.УстановитьЗначениеПоля("NUM_NAK", Строка(спДанныеОтчета.Получить("TAB7_T1R0" + Формат(Инд,"Ч(0)5.0") + "G15S")));
ДБ7.УстановитьЗначениеПоля("DT_NAK", Число(СтрЗаменить(Формат(спДанныеОтчета.Получить(" TAB7_T1R0" + Формат(Инд,"Ч(0)5.0") + "G16D"),"ДДДММГГГГ"),".","")));
ДБ7.УстановитьЗначениеПоля("SEAZON", Число(спДанныеОтчета.Получить("TAB7_T1R0" + Формат(Инд,"Ч(0)5.0")+ "G17")));
...