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

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

Interface Check_SQL;
Create View
Var
As Select *
From x$users
;
HandleEvent
cmInit :
 {
  var stmt, stmt_str : LongInt;
  stmt := sqlAllocStmt;
  sqlAddStr ( stmt_str, 'Update Persons Set Persons.PassNMB='#39 + 'DSQL'#39 + ' Where Persons.StrTabN='#39 + '4516'#39 );
  sqlPrepare ( stmt, stmt_str );
  sqlExecute ( stmt );
  sqlFreeStr ( stmt_str );
  sqlFreeStmt ( stmt );
 }; //cmInit
End;
END.

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

  table struct SellsAggr
  (
    cAn : array[1..3] of comp,
    Sum : double
  )
  with index
  (
    SellsAggr01 = cAn[1] + cAn[2] + cAn[3]
  );

.....................................................

  delete all SellsAggr;

  dFrom              := dBegDate;
  dTo                := dEndDate;
  cAttrNam_NaprIsp   := piExtAttr.AttrID(coKatZak, cAttrNam_NaprIsp_Name);
  cAttrNam_KontrVid  := piExtAttr.AttrID(coKatOrg, cAttrNam_KontrVid_Name);

  if cAttrNam_NaprIsp <> 0 and cAttrNam_KontrVid <> 0
  {
    SellsAggrFillQuery    := SQLQUERY (.

                  SELECT  KatOrg.NRec,
                          NaprIsp.NaprIsp_vComp,
                          KontrVid.KontrVid_vComp,
                          SUM(SpZakaz.SumUsl) as SumUslAggr
                  FROM
                                          PutLst
                          INNER JOIN      KatZak ON KATZAK.CPUTLST = PUTLST.NREC
                          INNER JOIN      KATORG ON KATZAK.CORG = KATORG.NREC
                          LEFT OUTER JOIN SPZAKAZ ON KATZAK.NREC = SPZAKAZ.CKATZAK
                          LEFT OUTER JOIN
                                          (SELECT ATTRVAL_NaprIsp.cRec as NaprIsp_cRec, ATTRVAL_NaprIsp.vComp as NaprIsp_vComp
                                                  FROM ATTRVAL AS ATTRVAL_NaprIsp
                                                  WHERE (ATTRVAL_NaprIsp.CATTRNAM = :(cAttrNam_NaprIsp) )
                                          ) AS NaprIsp ON KatZak.NRec = NaprIsp.NaprIsp_cRec

                          LEFT OUTER JOIN
                                          (SELECT ATTRVAL_KontrVid.cRec as KontrVid_cRec, ATTRVAL_KontrVid.vComp as KontrVid_vComp
                                                  FROM ATTRVAL AS ATTRVAL_KontrVid
                                                  WHERE (ATTRVAL_KontrVid.CATTRNAM = :(cAttrNam_KontrVid) )
                                          ) AS KontrVid ON KatOrg.NREC = KontrVid.KontrVid_cRec

                  WHERE          (PUTLST.DATOBR >= :(dFrom) )
                             AND (PUTLST.DATOBR <= :(dTo) )
                             AND (PUTLST.STATPL =  :(StatPl) )

                  GROUP BY  KatOrg.NRec,
                            NaprIsp.NaprIsp_vComp,
                            KontrVid.KontrVid_vComp

                         .);

    StatPl             := 1;

    var err : word;
    err := sqlSelectInto(SellsAggrFillQuery, tnSellsAggr);
    message(err);

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

11.07.2012 01:24:43 [GALAXY81#VIKTOR]:
SELECT T$KATORG.F$NREC, NAPRISP.NAPRISP_VCOMP, KONTRVID.KONTRVID_VCOMP, SUM( T$SPZAKAZ.F$SUMUSL ) SUMUSLAGGR FROM T$PUTLST INNER JOIN T$KATZAK ON ( T$KATZAK.F$CPUTLST = T$PUTLST.F$NREC ) INNER JOIN T$KATORG ON ( T$KATZAK.F$CORG = T$KATORG.F$NREC ) LEFT OUTER JOIN T$SPZAKAZ ON ( T$KATZAK.F$NREC = T$SPZAKAZ.F$CKATZAK ) LEFT OUTER JOIN (SELECT ATTRVAL_NAPRISP.F$CREC NAPRISP_CREC, ATTRVAL_NAPRISP.F$VCOMP NAPRISP_VCOMP FROM T$ATTRVAL ATTRVAL_NAPRISP WHERE ( ( ATTRVAL_NAPRISP.F$CATTRNAM = ? ) )) NAPRISP ON ( T$KATZAK.F$NREC = NAPRISP.NAPRISP_CREC ) LEFT OUTER JOIN (SELECT ATTRVAL_KONTRVID.F$CREC KONTRVID_CREC, ATTRVAL_KONTRVID.F$VCOMP KONTRVID_VCOMP FROM T$ATTRVAL ATTRVAL_KONTRVID WHERE ( ( ATTRVAL_KONTRVID.F$CATTRNAM = ? ) )) KONTRVID ON ( T$KATORG.F$NREC = KONTRVID.KONTRVID_CREC ) WHERE ( ( T$PUTLST.F$DATOBR >= ? ) AND ( T$PUTLST.F$DATOBR <= ? ) AND ( T$PUTLST.F$STATPL = ? ) ) GROUP BY T$KATORG.F$NREC, NAPRISP.NAPRISP_VCOMP, KONTRVID.KONTRVID_VCOMP
11.07.2012 01:24:43 [GALAXY81#VIKTOR]:
  07002: [Microsoft][ODBC SQL Server Driver]Неправильное поле COUNT или ошибка синтаксиса
11.07.2012 01:24:43 [GALAXY81#VIKTOR]:
  HY010: [Microsoft][Диспетчер драйверов ODBC] Ошибка последовательности функций