writeln

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
korvanakorvana
Местный житель
Сообщения: 429
Зарегистрирован: 24 сен 2008, 11:53

writeln

Сообщение korvanakorvana »

Ребята привет имею код

Код: Выделить всё

I.writeln(       
                 DocBasFn866to1251(katmc.barkod)+tab+ //Код препарата    (Код товара поставщика)
                 DocBasFn866to1251(katmc.name)+tab+//Наименование
                 DocBasFn866to1251(katmc.remmc)+tab+  //ПРОИЗВОДИТЕЛЬ
		 DocBasFn866to1251(stav_nds)+tab+ //НДС (10,18...)
		 DocBasFn866to1251(Life)+tab+ //Жизненоважные или нет
                 DocBasFn866to1251(county)+tab+  //Название страны производителя
		 DocBasFn866to1251(DoubleToStr(kol,'66666.88'))+tab+ //Количество
		 DocBasFn866to1251(DoubleToStr(price,'66666.88'))+tab+ //Цена производителя
                 DocBasFn866to1251(DoubleToStr(price,'66666.88'))+tab+ //Цена без НДС
		 DocBasFn866to1251(If (KatSopr.vHodNal=1,(SpSopr.Price),SpSopr.Price+SpSopr.SumNDS/SpSopr.KolFact))+tab+ //Цена с НДС
                 DocBasFn866to1251(katparty.nsertif)+tab+//имя сертификата        
                 DocBasFn866to1251(if (_attrval.vdate=date(0,0,0),'',DateToStr(_attrval.vdate,'DD.MM.YYYY')))+tab+//дата изготовления   
                 DocBasFn866to1251(if (KATPARTY.DSERTIF=date(0,0,0),'',DateToStr(KATPARTY.DSERTIF,'DD.MM.YYYY')))+tab+//дата окончания сертификата   	 
                 DocBasFn866to1251(katmc.barkod2)+tab+//ШТРИХКОД
                 DocBasFn866to1251(GTDNumber)+tab+//номер ГТД
                 DocBasFn866to1251(If (KatSopr.vHodNal=1,(SpSopr.Price*SpSopr.KolFact),SpSopr.Price*SpSopr.KolFact+SpSopr.SumNDS))+tab+//сумма по накладной  
                 DocBasFn866to1251(katparty.name)+tab+ //партия товара
                 DocBasFn866to1251(if (katparty.dgodn=date(0,0,0),'',DateToStr(katparty.dgodn,'DD.MM.YYYY')))+tab+ //срок годности
                 DocBasFn866to1251(katparty.whosertif)+tab+//чей сертификат
                 DocBasFn866to1251(';')+tab+tab+tab+tab+tab+tab//чей сертификат
     );
Проблема в том что в строчку вся информация не выходит .похоже символов не хватает в одной строке(( или что то не могу сообразить.
Вот что в выгрузке
310042;Вазилип 20мг №28 таб. *;Словения КРКА -Россия В-Медика;10.00;Ж;;2200.00;269.99;269.99;297.00;Д49541 РОСС RU.ФМ08.;09.12.2011;01.08.2014;;10609010/221111/0003955/4;653399.92;N83936;01.08.2014; ООО "Окружной центр контроля качества" г. Москва;;;;;;;;
310193;Реаферон-ЕС амп. 3млн. МЕ №5 *;Россия Вектор-Медика;10.00;Ж;Россия;316.00;1016.30;1016.30;1117.94;В00566 РОСС RU.ФМ13.;19.10.2011;31.08.2014;4605635001604;;353269.31;11;01.09.2014; ФГБУ "НЦЭСМП" г.Москва;;;;;;;;

310371;Вазилип 10мг № 28 таб . *;Словения КРКА - Россия В-Медика ;10.00;Ж;;1320.00;200.96;200.96;221.07;Д49540 РОСС RU.ФМ08.;09.12.2011;01.08.2014;;10609010/221111/0003955/4;291808.41;N83805;01.08.2014; ООО "Окружной центр контроля качества" г. Москва;;;;

390030;Ринфолтил шампунь с кофеином. Акт-я естест. роста.Усил.ф-ла от выпад.волос 200мл;Италия Phfrmalife Research;18.00;О;Италия;100.00;204.93;204.93;241.83;V40016 Д02934 РОСС IT.АЕ96.;06.07.2011;05.07.2013;;10609010/270112/0000191/2;24182.92;V4;01.09.20

а хотя все строки должны заканчиваться ;;;;;;;;
Как правильно использовать эту функцию в данной ситуации.
n0where
Местный житель
Сообщения: 499
Зарегистрирован: 30 дек 2010, 08:16

Re: writeln

Сообщение n0where »

Строка более 255 символов галактика не видит.
Решение используем WriteLine а последнюю порцию данных с WriteLn
Последний раз редактировалось n0where 21 фев 2012, 11:03, всего редактировалось 1 раз.
хороший программист — это человек, который переходя улицу с односторонним движением смотрит в обе стороны
korvanakorvana
Местный житель
Сообщения: 429
Зарегистрирован: 24 сен 2008, 11:53

Re: writeln

Сообщение korvanakorvana »

n0where писал(а):Строка более 255 символов галактика не видит.
Решение используем Write а последнюю порцию данных с WriteLn
Но мне необходимо это сделать одной строкой(..
310079;Доксазозин 4мг №30 таб *;Канада Nu Pharn Inc- Россия В-Медика;10.00;Ж;;50.00;209.00;209.00;229.90;Д50380 РОСС RU.ФМ08.;26.12.2011;01.07.2016;4605635002748;10609060/261011/0005672/1;11495.00;41211;01.07.2016; ООО "Окружной центр контроля качества" г. Москва;;;;;;;;

вот это все одной строчкой.
А используя
{...
I.Write(....);
I.Writeln(....);
...
}
между write и writeln появляются доп. пробелы и перед write первая буква аброкодабра какая то(

310079;Доксазозин 4мг №30 таб *;Канада Nu Pharn Inc- Россия В-Медика;10.00;Ж;;50.00;209.00;209.00;229.90;Д50380 РОСС RU.ФМ08.;26.12.2011;01.07.2016;4605635002748;10609060/261011/0005672/1;11495.00;41211;01.07.2016; d ООО "Окружной центр контроля качества" г. Москва;;;;;;;;
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5184
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: writeln

Сообщение edward_K »

korvanakorvana
Местный житель
Сообщения: 429
Зарегистрирован: 24 сен 2008, 11:53

Re: writeln

Сообщение korvanakorvana »

edward_K писал(а):А теперь читаем
http://www.tyumbit.ru/gal_forum/viewtop ... ine#p50586

вы как всегда гений) :cool: век живи век учись!
writeline(..)+ writeln(...) сделали свое дело
Irina_
Местный житель
Сообщения: 545
Зарегистрирован: 17 июл 2012, 11:56
Откуда: Республика Беларусь, г.Могилев

Re: writeln

Сообщение Irina_ »

edward_K, большое спасибо за совет! Тоже впервые столкнулась с экспортом в csv длинной строки. И с Вашей помощью проблема решена )))
Ответить