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

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

Var sumK, Ob51 : Double;
       stmt, stmSQL : Longint;
       schD : String;     

Table Struct tmpOborot
(
  Scheto : String,
  Sumob1   : Double
)
With index
(
  ind01 = Scheto)
;
…
  stmt:= sqlAllocStmt;
  sqlAddStr( stmSQL, 'Select dBScheto As Scheto, sum(Sumob) As Sumob1');  // нужен кор.счет  без кода ПС
  sqlAddStr( stmSQL, ' From Oborot Where' );
  sqlAddStr( stmSQL, ' Datob>=' + String( DateToInt_(DatBeg)) );
  sqlAddStr( stmSQL, ' and Datob<=' + String( DateToInt_(DatEnd)) );
  sqlAddStr( stmSQL, ' and Schetk=' + sch_ + ' and Subschk=' + ssch_ + ' and Kauks[2']=#comp(' + String( cOrg ) + ')');
  sqlAddStr( stmSQL, ' group by dBScheto' );

  sumK:= 0;
  Ob51:= 0;
  v1.Delete all TmpOborot;
  If sqlExecStmt( stmt, stmSQL ) = tsOk 
    {
      If sqlFetchInto( stmt, #v1.TmpOborot ) = tsOk   
        {
           v1._Loop TmpOborot
             {
               sumK:= sumK + v1.TmpOborot.Sumob1;
               schD:= v1.TmpOborot.Scheto;
               If schD = '51' or schD = '52'
                 Ob51:= Ob51 + v1.TmpOborot.Sumob1;

LogStrToFile( FileProt, 'schD=' + schD + ', v1.TmpOborot.Sumob1=' + String( v1.TmpOborot.Sumob1) );
             }
        }
      Else
        {
          LogStrToFile( FileProt, 'sqlFetchInto: fail');
        }
    }
  Else
    {
      LogStrToFile( FileProt, 'sqlExecStmt: fail');
    }

  sqlFreeStr( stmSQL );
  sqlFreeStmt( stmt );  

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

InterFace TestDsql123;


Table Struct tmpOborot
(
  Scheto : String,
  Sumob1   : Double
)
With index
(
  ind01 = Scheto)
;
 create view v1
   Var sumK, Ob51 : Double;
        stmt, stmSQL : Longint;
       schD,FileProt,sch_,ssch_ : String;     
       cOrg : comp;
       DatBeg,datEnd : date

  as select * from tmpOborot
 ;

 HandleEvent
  Cminit:{


  FileProt:='c:\debug\dsqltest.log';
  sch_:='360' ;
  ssch_:='01' ;
   corg:= 123456789;
  datbeg:=date(01,01,2010);
  datend:=date(31,12,2010);

  stmt:= sqlAllocStmt;
  sqlAddStr( stmSQL, 'Select dBScheto As Scheto, sum(Sumob) As Sumob1');  // нужен кор.счет  без кода ПС
  sqlAddStr( stmSQL, ' From Oborot Where' );
  sqlAddStr( stmSQL, ' Datob>=' + String( DateToInt_(DatBeg)) );
  sqlAddStr( stmSQL, ' and Datob<=' + String( DateToInt_(DatEnd)) );
  sqlAddStr( stmSQL, ' and Schetk=' + sch_ + ' and Subschk=' + ssch_ + ' and Kauks[1]=#comp(' + String( cOrg ) + ')'); // у меня орг-и на кау №1
  sqlAddStr( stmSQL, ' group by dBScheto' );

  sumK:= 0;
  Ob51:= 0;
  Delete all from TmpOborot;
  If sqlExecStmt( stmt, stmSQL ) = tsOk
    {
      If sqlFetchInto( stmt,#v1.TmpOborot ) = tsOk   
        {
           _Loop TmpOborot
             {
!               sumK:= sumK + v1.TmpOborot.Sumob1;
!               schD:= v1.TmpOborot.Scheto;
!               If schD = '51' or schD = '52'
!                 Ob51:= Ob51 + v1.TmpOborot.Sumob1;

                LogStrToFile( FileProt, 'TmpOborot.Sumob1=' + String(TmpOborot.Sumob1) );
             }
        }
      Else
        {
          LogStrToFile( FileProt, 'sqlFetchInto: fail');
        }
    }
  Else
    {
      LogStrToFile( FileProt, 'sqlExecStmt: fail');
    }

  sqlFreeStr( stmSQL );
  sqlFreeStmt( stmt );  
 }
 end;
end.