RZND.RU
Модераторы: m0p3e, edward_K, Модераторы
-
- Местный житель
- Сообщения: 429
- Зарегистрирован: 24 сен 2008, 11:53
RZND.RU
Привет . Может кто делал выгрузку для RZND.ru
http://www.rznd.ru/download/pmon/pmonmn ... 090917.pdf
http://www.rznd.ru/download/pmon/pmonmn ... 090917.pdf
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
в принципе там ничего сложного нет. Но есть одно но
настроить ручками в галке врядли полчится. Весь вопрос в шапке.
Так то это файл "с разделителем", но для шапки вам придется делать текстовый файл - а там наверное столкнетесь с ограничением 255 символов. Если это прокатит то проблем не будет. Настраиваете экспорт прайс-листов
форма типа
"заг1","заг2"
.{
"^","^"
.}
.endform
текстовые поля нужно выгружать в "".
Если же шапка не уложится в 255 символов то в dbf + постобработка(не давно обсуждалоись проблемы с ней).
настроить ручками в галке врядли полчится. Весь вопрос в шапке.
Так то это файл "с разделителем", но для шапки вам придется делать текстовый файл - а там наверное столкнетесь с ограничением 255 символов. Если это прокатит то проблем не будет. Настраиваете экспорт прайс-листов
форма типа
"заг1","заг2"
.{
"^","^"
.}
.endform
текстовые поля нужно выгружать в "".
Если же шапка не уложится в 255 символов то в dbf + постобработка(не давно обсуждалоись проблемы с ней).
-
- Местный житель
- Сообщения: 429
- Зарегистрирован: 24 сен 2008, 11:53
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
какого?
я про стандартную настройка модуля обмена-бизнес документами.
заходите например в модуль управление договорами - прайс - листы - формирование. помечаете нужные и по правой кнопке эскпорт.
поля какие не хватит можно подтягивать через sTxoGetExtAttr('KLPRICE','????????',klprice.nrec) (внешние атрибуты) и другими функциями из настроек ТХО (F3 в алгоритме, общеиспользуемые функции ).
я про стандартную настройка модуля обмена-бизнес документами.
заходите например в модуль управление договорами - прайс - листы - формирование. помечаете нужные и по правой кнопке эскпорт.
поля какие не хватит можно подтягивать через sTxoGetExtAttr('KLPRICE','????????',klprice.nrec) (внешние атрибуты) и другими функциями из настроек ТХО (F3 в алгоритме, общеиспользуемые функции ).
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
про постобработку
http://www.tyumbit.ru/gal_forum/viewtopic.php?t=10156
ну и поиском нароете примеры.
http://www.tyumbit.ru/gal_forum/viewtopic.php?t=10156
ну и поиском нароете примеры.
-
- Местный житель
- Сообщения: 429
- Зарегистрирован: 24 сен 2008, 11:53
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
это хуже
тогда вам пригодится 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
тогда вам пригодится 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
-
- Местный житель
- Сообщения: 429
- Зарегистрирован: 24 сен 2008, 11:53
-
- Местный житель
- Сообщения: 429
- Зарегистрирован: 24 сен 2008, 11:53
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
ну так выводите '"'+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 - в настройке хозопераций ищите.
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 - в настройке хозопераций ищите.
-
- Местный житель
- Сообщения: 429
- Зарегистрирован: 24 сен 2008, 11:53
-
- Местный житель
- Сообщения: 429
- Зарегистрирован: 24 сен 2008, 11:53
Код: Выделить всё
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.
-
- Местный житель
- Сообщения: 429
- Зарегистрирован: 24 сен 2008, 11:53