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

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

        //Заполняем ВТ
         stmt := sqlAllocStmt;
         sqlDropTmpTable('MyData'); // чистим временную таблицу
         sqlCreateTmpTable('Table MyData (katorgname: string, sale: double, groupgp: string, namemc: string, cpodr: comp, csoprdoc: comp);', ctmNormal); //создаем временную таблицу
         //Заполняем ВТ
        sqlExecStmt(stmt,'GETSALES('#39+String(GetDateAsPascalLongint(dtBegdate))+''#39+','#39+String(GetDateAsPascalLongint(dtFindate))+''#39+','#39+ UpCase ( UserName ) + '.MyData (fkatorgname, fsale, fgroupgp, fnamemc, fcpodr, fcsoprdoc)'#39+')'); // Getsales - имя хранимой процедуры с параметрами
        //Читаем ВТ
           sqlFreeStmt(stmt);
           stmt := sqlAllocStmt;
           sqlAddStr(StmtString,' select * from MyData');
          sqlPrepare ( stmt, StmtString );
          sqlExecute ( stmt );
          sqlFetchInto(stmt, tntOborotNota);
          sqlFreeStmt(stmt);