RZND.RU

[korvanakorvana]

Привет . Может кто делал выгрузку для RZND.ru

http://www.rznd.ru/download/pmon/pmonmn ... 090917.pdf

[edward_K]

в принципе там ничего сложного нет. Но есть одно но
настроить ручками в галке врядли полчится. Весь вопрос в шапке.
Так то это файл "с разделителем", но для шапки вам придется делать текстовый файл - а там наверное столкнетесь с ограничением 255 символов. Если это прокатит то проблем не будет. Настраиваете экспорт прайс-листов
форма типа
"заг1","заг2"
.{
"^","^"
.}
.endform
текстовые поля нужно выгружать в "".
Если же шапка не уложится в 255 символов то в dbf + постобработка(не давно обсуждалоись проблемы с ней).

[edward_K]

а да. полученный файл excel должен успешно открыть - это вам критерий правильности заполнения.

[korvanakorvana]

а можно пример кода)? А то не знаю как подступиться к этому вопросу

[edward_K]

какого?
я про стандартную настройка модуля обмена-бизнес документами.
заходите например в модуль управление договорами - прайс - листы - формирование. помечаете нужные и по правой кнопке эскпорт.
поля какие не хватит можно подтягивать через sTxoGetExtAttr('KLPRICE','????????',klprice.nrec) (внешние атрибуты) и другими функциями из настроек ТХО (F3 в алгоритме, общеиспользуемые функции ).

[edward_K]

про постобработку
http://www.tyumbit.ru/gal_forum/viewtopic.php?t=10156
ну и поиском нароете примеры.

[korvanakorvana]

((( Нет лицензии на обмен бизнес документами

[edward_K]

это хуже
тогда вам пригодится DOCBASFN866TO1251 - это для конвертации
и функции по работе с файлами.
====
create view
...
;
file ffile
====
ffile.open('',stcreate)
ffile.writeline('??????')
ffile.writeline(chr(10)+chr(13))
ffile.close
подробности в vipprogr.chm
можно и writeln но при условии что вы не переползете за 255 символов.
ну или после ffile.writeline('') сделать writeln

[korvanakorvana]

Еще вопросик а как вывести такую инфу в формулу excel :

"бла бла"
т.е как вывести кавычки????
с помощью функции xlsetcellFormula

[edward_K]

двойные без проблем - '"'. одинарные chr(39) - но здесь то вам зачем - там вроде текстовый файл с разделителями.

[korvanakorvana]

А в условии просят чтоб я ковычки поставила если текстовое поле

скажите а как внешние атрибуты использовать
можно пример с выборкой.

[edward_K]

ну так выводите '"'+field+'"'
and word(coSpSopr) == AttrNam.wTable
and wnmattr == AttrNam.name
and word(coSpSopr) == AttrVal.wTable
and SpSopr.nrec == AttrVal.cRec
and AttrNam.NRec == AttrVal.cAttrNam
выводим attrval.vstring ну или вариации от типа атрибута.
есть еще объектный фейс - с которым вы вроде в формах мучались или sTxoGetExrAttr - в настройке хозопераций ищите.

[korvanakorvana]

выводится нулевая инфа(((

[korvanakorvana]

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

interface _kor_ezndru;
show at(,,36,3);

create view 
var
date1:date
date2:date
dat1:date
dat2:date
as select * 
from 
basedoc 
,ttndoc 
,katmc
,katparty
,katsopr
,stepdoc
,spsopr 
, katotped 
,klval 
,klreshr
,AttrVal
,AttrNam
//, exclassname exclassname2
//, exclassval exclassval2
//, exclassseg exclassseg2
    
where 
((
word(1102)/==ttndoc.wtable     
and dat1<<=ttndoc.dpunrbeg(noindex)
and dat2>>=ttndoc.dpunrbeg(noindex) 
and ttndoc.cdoc==basedoc.nrec 
and basedoc.nrec==stepdoc.cbasedoc
and stepdoc.nrec==katsopr.cstepdoc
and katsopr.nrec==spsopr.csopr
and spsopr.cparty==katparty.nrec
and spsopr.cmcusl==katmc.nrec
and spsopr.cotped==katotped.nrec
and spsopr.cval==klval.nrec
and katmc.creshr==klreshr.nrec

//and word(1430)==exclassname2.wtable
//and '„ҐЄ« а ­в'==exclassname2.name
//and katparty.nrec==exclassval2.crec
//and exclassname2.classcode==exclassval2.classcode//(noindex)
//and exclassval2.cclassseg==exclassseg2.nrec

and word(coSpSopr) == AttrNam.wTable
and 'ГТД' == AttrNam.name
and word(coSpSopr) == AttrVal.wTable
and SpSopr.nrec == AttrVal.cRec
and AttrNam.NRec == AttrVal.cAttrNam 

))
;




//sozdaem okno vvoda dati

screen params 
show at(,,35,2);
fields date1:,noprotect;
fields date2:,noprotect;
buttons 
cmOK, default;
cmCancel;
<<
 c .@@@@@@@@@@  Ї® .@@@@@@@@@@
 <.”®а¬Ёа®ў вм.>  <.  ‡ Єалвм  .>
>>
end;



 
Handleevent

//inicializaciya

cminit:
{
date1:=date(1,month(cur_date),year(cur_date));   
date2:=Cur_Date;

}


//ok-start

////////////////////////////////////////
cmOk:
{
Var filename:string;
var sRet: string;
var GTDNumber:string;
var i,j:longint;//scetchiki
dat1:=date1;
dat2:=date2;

//sozdaem fail

filename:=GetStringParameter('Files','OutputFilesDirectory',0)+'pmonmnf'+DatetoStr(cur_date,'YYYYMMDD')+'.xls';
xlCreateExcel(filename,false);

//HEAD
/////////////////////////////////////////
xlSetCellStringValue('PackNx',1,1,1,1);
xlSetCellStringValue('MnfDate',1,2,1,2);
xlSetCellStringValue('Series',1,3,1,3);
xlSetCellStringValue('Quantity',1,4,1,4);
xlSetCellStringValue('DeclNum',1,5,1,5);
xlSetCellStringValue('DeclDate',1,6,1,6);
xlSetCellStringValue('PricePerPack',1,7,1,7);
xlSetCellStringValue('InvoiceNum',1,8,1,8);
xlSetCellStringValue('InvoiceDate',1,9,1,9);
xlSetCellStringValue('BuyerName',1,10,1,10);
xlSetCellStringValue('BuyerINN',1,11,1,11);
///////////////////////////////////////////
i:=1;
_loop ttndoc
{//message(basedoc.nodoc);

_loop katsopr
{
_loop spsopr
{



        i:=i+1;
        
        xlSetCellFormula(katmc.name,i,2,i,2);
        xlSetCellFormula(katparty.name,i,3,i,3);
        
        xlSetCellFormula(attrval.vstring,i,4,i,4);


        xlSetCellFormula(katparty.NSertif,i,5,i,5);
        xlSetCellFormula(katparty.Danaliz,i,6,i,6);
        xlSetCellFormula(katsopr.Nsopr,i,8,i,8);
        xlSetCellFormula(katsopr.Dsopr,i,9,i,9);
     //   } 
}
}
}


xlKillExcel;
}

cmDefault : 
{ 
CloseInterface ( cmDefault );
};

end;

end.

[korvanakorvana]

xlSetCellFormula(attrval.vstring,i,4,i,4); - пустое значение ((((