Прайс Листы

[korvanakorvana]

Ребята привет у кого есть примеры выгрузок в dbf из прайс листов пришлите пожалуйста на korvana@yandex.ru

[Seybukan]

Обмен бизнес документами \ Операции \ Экспорт
Тип документа "Прайс-лист".

[korvanakorvana]

Обмен бизнес документами \ Операции \ Экспорт
Тип документа "Прайс-лист".

c радостью бы) да лицензии нет) все ручками )

[Алексей]

а вручную выборку написать типа select fieldname from table to dbf ... в каком нужно виде.
там делов то... две таблицы. прайс и спецификация.

[Seybukan]

Наверняка ведь клиент банк есть.
Замена будет со смешной доплатой.

[korvanakorvana]

Я сделала вот пример если кому понадобиться

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

interface price_volgofarm escclose;

create view as
select * from 
klprice,
prices,
katpodr,
teksaldo, 
katmc,
klreshr,
exclassname,
attrnam attrnam2,
attrval _attrval,
attrnam attrnam3,
attrval attrval3,
grnal

where
((
    klprice.nrec==prices.cklprice
and prices.cthing==teksaldo.cmc
and KatPodr.nrec==teksaldo.cpodr
and teksaldo.cmc==katmc.nrec
and katmc.creshr==klreshr.nrec
and teksaldo.cparty==katparty.nrec
and katmc.cgrnal==grnal.nrec

and 'Страна происхождения'==exclassname.name
and word(1430)==exclassname.wtable

and katparty.nrec==exclassval.crec

and exclassname.classcode==exclassval.classcode
and exclassval.cclassseg==exclassseg.nrec

and word(1411)==attrnam.wtable 
and 'Волгофарм Код'==attrnam.name
and word(1411)==attrval.wtable 
and katmc.nrec==attrval.crec
and attrnam.nrec==attrval.cattrnam

and word(1430)==attrnam2.wtable 
and 'Тара'==attrnam2.name
and word(1430)==_attrval.wtable 
and katparty.nrec==_attrval.crec
and attrnam2.nrec==_attrval.cattrnam

and word(1430)==attrnam3.wtable 
and 'Цена производителя'==attrnam3.name
and word(1430)==attrval3.wtable 
and katparty.nrec==attrval3.crec
and attrnam3.nrec==attrval3.cattrnam


));





WIndow wPriceSel escclose;
show(1,1,50,30)

panel P1                                  
 show at(,,,);
 browse Bro1 ;
  table klprice;                       
  fields                                  
  klprice.name 'Прайс-листы':[30],protect;
  end;
end;

handleevent
cminit:
{
getfirst klprice;
}

cmDefault: 
{
CloseWindow(wPriceSel);
}	

end;
end;

WIndow wScladSel escclose;
show(1,1,50,30)

panel P3                                  
 show at(,,,);
 browse Bro3 ;
  table katpodr;                       
  fields                                  
  katpodr.name 'Склады':[30],protect;
  end;
end;

handleevent

cmInit:
{
getfirst katpodr;
}

cmDefault: 
{
CloseWindow(wScladSel);
}	

end;

end;



handleevent 

cminit:
{
Var filename,barkodvf,tara,cenapro:string;
var hDBFh,kol:longint;

filename:='C:\volgofarm'+'\'+'PRR'+DatetoStr(cur_date,'YYYYMMDD')+'.'+'dbf';

hDBFh:=DBFOpen(filename, stCreate)

if hDBFh<1 then message ('Ошибка создания файла выгрузки!');
	   else
{

DBFAddField(hDBFh,'ID_MED'     ,dbNum,   11 ,0);
DBFAddField(hDBFh,'MED_NAME'   ,dbChar, 255 ,0);
DBFAddField(hDBFh,'MANUF'      ,dbChar, 255 ,0);
DBFAddField(hDBFh,'QUANT'      ,dbNum,   11 ,2);
DBFAddField(hDBFh,'COST'       ,dbNum,   11 ,2);
DBFAddField(hDBFh,'WORK_LIFE'  ,DbDate,  8 ,0);
DBFAddField(hDBFh,'PACKING'    ,dbNum,   15 ,2);
DBFAddField(hDBFh,'COST_MNF'   ,dbNum,   11 ,2);
DBFAddField(hDBFh,'NDS_MNF'    ,dbNum,   5 ,2);
DBFAddField(hDBFh,'COST_REEST' ,dbNum,   11 ,2);
DBFAddField(hDBFh,'ID_SUP'     ,dbNum,   11 ,0);


RunWindowModal(wPriceSel);
RunWindowModal(wScladSel);

StartNewVisual(vtRotateVisual, vfTimer+vfBreak+vfConfirm,'Подождите, идет выгрузка ...', 100000);

_loop prices
_loop teksaldo
_loop katparty {
	getfirst katmc;
         kol :=0;
        if isvalid(tnteksaldo) then kol := round(teksaldo.kol,2);
             barkodvf:='';
             barkodvf:=attrval.vstring;
             tara:='';
             tara:=_attrval.vstring;
             cenapro:='';
             cenapro:=attrval3.vdouble;
           DBFPutFieldValue(hDBFh,'ID_MED'    ,barkodvf);
           DBFPutFieldValue(hDBFh,'MED_NAME'  ,katmc.name);
           DBFPutFieldValue(hDBFh,'MANUF'     ,exclassseg.name);
           DBFPutFieldValue(hDBFh,'QUANT'     ,string(kol));
           DBFPutFieldValue(hDBFh,'COST'      ,string(round(prices.price,2)));
           DBFPutFieldValue(hDBFh,'WORK_LIFE' ,DateToStr(katparty.dgodn,'DDMMYYYY'));
           DBFPutFieldValue(hDBFh,'PACKING'   ,tara);
           DBFPutFieldValue(hDBFh,'COST_MNF'  ,string(cenapro));
           DBFPutFieldValue(hDBFh,'NDS_MNF'   ,grnal.kod);
           DBFPutFieldValue(hDBFh,'COST_REEST',KATMC.CENAMC);
           DBFPutFieldValue(hDBFh,'ID_SUP'    ,katmc.barkod);
 	   DBFInsertRecord (hDBFh);

	if (not nextvisual)  break;
}

StopVisual('Выгрузка произведена',0);

DBFClose(hDBFh);
message('Прайс успешно выгружен в файл '+FileName);

}
abort;
}

cmdefault:
{
CloseInterface ( cmDefault );
}


end;
end.