Галактика в вопросах и ответах

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

while sqlFetch(stmt) = tsOk do
  { ...
    stmt1 := sqlAllocStmt;
      sqlBindCol(stmt1, 1, kol_1);
      sqlBindCol(stmt1, 2, kol_2);
      sqlBindCol(stmt1, 3, kol_3);
      sqlBindCol(stmt1, 4, kol_4);
      sqlAddStr(query1,'select katos.innum,katos.nameos,katos.zavnom,katos.datek from katos where chigheros=#comp(0'+substr(kol14,2,15)+'h)');
      k_osh:=sqlPrepare(stmt1,query1);
      if k_osh>0 then message('sqlPrepare1. Ошибка '+k_osh);
      k_osh:=sqlExecute(stmt1);
      if k_osh>0 then message('sqlExecute1. Ошибка '+k_osh);
      if k_osh=0
      while sqlFetch(stmt1) = tsOk do  ...}

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

sqlAddStr(query,'select a.name,a.nom_kred_dog,a.dat_kred_dog,a.nom_dog_zalog,a.dat_dog_zalog,a.dat_kon_zalog,');
  sqlAddStr(query,'a.innum,a.nameos,a.zavnom,a.datek,');
  sqlAddStr(query,'a.sumaval/b.vdouble,b.vdouble,a.sumaval,a.katosnrec,a.isleaf from ');
  sqlAddStr(query,'(select katorg.name,veksl.nodoc nom_kred_dog,veksl.datvip dat_kred_dog,');
  sqlAddStr(query,'dogovor.nodoc_ext nom_dog_zalog,dogovor.ddoc dat_dog_zalog,dogovor.dend dat_kon_zalog,');
  sqlAddStr(query,'katos.innum,katos.nameos,katos.zavnom,katos.datek,aval.sumaval,aval.nrec,katos.nrec katosnrec,katos.isleaf ');
  sqlAddStr(query,'from katos,aval,veksl,katorg,dogovor where ');
  sqlAddStr(query,'(katos.nrec=aval.corg) and (aval.cveksl=veksl.nrec) and (veksl.cplat=katorg.nrec) and (aval.caval=dogovor.nrec)) a ');
  sqlAddStr(query,'left join (select aval.nrec,attrval.vdouble from aval,attrval,attrnam ');
  sqlAddStr(query,'where (aval.nrec=attrval.crec) and (attrval.cattrnam=attrnam.nrec) and (attrnam.name='#39+'Поправочный коэффициент'#39+')) b ');
  sqlAddStr(query,'on a.nrec=b.nrec ');
  sqlAddStr(query,'order by a.name,a.dat_kred_dog,a.dat_dog_zalog,a.nom_dog_zalog,a.innum ');