PHP код:
progr.setTotal(recCnt);
progr.setCaption('?????????????');
//?????????????
while select invclass
{
progr.incCount();
invClassId.insert(invClass.InventClassVarId,invClass.RecId);
descr = strdel(invclass.Description,55,200);
maksskidka = invclass.DiscLimit / 100;
koefret = invclass.RetailPricePctKoeff / 100;
if (invclass.LMA_LevelNum == 1)
{
adoRecordset = new CCADORecordset();
adoRecordset.open(strfmt("select id from z_kategoria where id = %1",CNN::quoted(invclass.RecId)),cn, #adOpenForwardOnly, #adLockReadOnly);
if (adoRecordset.EOF())
cn.execute(strfmt("INSERT INTO Z_KATEGORIA (KATEGORIA,ID,KOEFPRODAJ,MAKSSKIDKA) VALUES (%1,%2,%3,%4)",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));
else
cn.execute(strfmt("UPDATE Z_KATEGORIA SET KATEGORIA=%1,KOEFPRODAJ=%3,MAKSSKIDKA=%4 WHERE ID = %2",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));
adoRecordset.close();
}
if (invclass.LMA_LevelNum == 2)
{
adoRecordset = new CCADORecordset();
adoRecordset.open(strfmt("select id from Z_GRUPPA where id = %1",CNN::quoted(invclass.RecId)),cn, #adOpenForwardOnly, #adLockReadOnly);
if (adoRecordset.EOF())
cn.execute(strfmt("INSERT INTO Z_GRUPPA (GRUPPA,ID,KOEFPRODAJ,MAKSSKIDKA) VALUES (%1,%2,%3,%4)",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));
else
cn.execute(strfmt("UPDATE Z_GRUPPA SET GRUPPA=%1,KOEFPRODAJ=%3,MAKSSKIDKA=%4 WHERE ID = %2",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));
adoRecordset.close();
}
if (invclass.LMA_LevelNum == 3)
{
adoRecordset = new CCADORecordset();
adoRecordset.open(strfmt("select id from Z_PODGRUPPA where id = %1",CNN::quoted(invclass.RecId)),cn, #adOpenForwardOnly, #adLockReadOnly);
if (adoRecordset.EOF())
cn.execute(strfmt("INSERT INTO Z_PODGRUPPA (PODGRUPPA,ID,KOEFPRODAJ,MAKSSKIDKA) VALUES (%1,%2,%3,%4)",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));
else
cn.execute(strfmt("UPDATE Z_PODGRUPPA SET PODGRUPPA=%1,KOEFPRODAJ=%3,MAKSSKIDKA=%4 WHERE ID = %2",CNN::quoted(Descr),CNN::quoted(invclass.RecId),CNN::quoted(koefret),CNN::quoted(maksskidka)));
adoRecordset.close();
}
}