Devart Forums

Code: Select all

         new_Art_ID = prv_GetNextTrigger("ARTICLE");
      
         //insert the article
         DlgMain->tQryInsertIntoArticle->ParamByName("InternID")->AsInteger = new_Art_ID;
         DlgMain->tQryInsertIntoArticle->ParamByName("Text")->AsString = prv_CheckText(Memo1->Lines->GetText());
         DlgMain->tQryInsertIntoArticle->ParamByName("Loginname")->AsString = DlgMain->Anmeldenamen();
         DlgMain->tQryInsertIntoArticle->ParamByName("ID")->AsInteger = new_Art_ID;
         DlgMain->tQryInsertIntoArticle->Execute();

         //write the keyword(s) but check if it is in the DB
         for(i = 0; i RowCount; i++)
         {
            
            if(StringGrid1->Cells[0][i] == "")
               continue;

            //here is the key_id test
            DlgMain->tQryFindKey->ParamByName("Keyword")->AsString = StringGrid1->Cells[0][i];
            DlgMain->tQryFindKey->Execute();
            tmp_Key = DlgMain->tQryFindKey->FieldByName("ID")->AsInteger;

            if(tmp_Key == NULL && StringGrid1->Cells[0][i] != "")   //its a new one
            {
               Key_ID = prv_GetNextTrigger("KEYWORD");

               //insert it in the keyword table
               DlgMain->tQryInsertKeyword->ParamByName("InternKID")->AsInteger = Key_ID;
               DlgMain->tQryInsertKeyword->ParamByName("Keyword")->AsString = StringGrid1->Cells[0][i];
               DlgMain->tQryInsertKeyword->ParamByName("Loginname")->AsString = DlgMain->Anmeldenamen();
               DlgMain->tQryInsertKeyword->Execute();
               
               //link the new one into the subject field
               DlgMain->tQryInsertBothToSubject->ParamByName("InternAID")->AsInteger = new_Art_ID;
               DlgMain->tQryInsertBothToSubject->ParamByName("InternKID")->AsInteger = Key_ID;
               DlgMain->tQryInsertBothToSubject->Execute();
            }
            else
            {
               //insert the old one back into the subject field
               Key_ID = tmp_Key;
               DlgMain->tQryInsertBothToSubject->ParamByName("InternAID")->AsInteger = new_Art_ID;
               DlgMain->tQryInsertBothToSubject->ParamByName("InternKID")->AsInteger = Key_ID;
               DlgMain->tQryInsertBothToSubject->Execute();
            }

            //insert the linkage
            for(int y = 0; y RowCount; y++)
            {
               if(StringGrid4->Cells[0][y] == "")
                  continue;
               Link_ID = prv_GetNextTrigger("LINKAGE");
               DlgMain->tQryInsertLinkage->ParamByName("InternLID")->AsInteger = Link_ID;
               DlgMain->tQryInsertLinkage->ParamByName("InternAID")->AsInteger = new_Art_ID;
               DlgMain->tQryInsertLinkage->ParamByName("Link")->AsString = StringGrid4->Cells[0][y];
               DlgMain->tQryInsertLinkage->Execute();
            }
            
            DlgMain->OraSession->Commit();
         }
...

//maybe this *could* be the reason for the assertion?
      DlgMain->OraSession->Commit();
      
      DlgMain->tQryClearKeywords->Execute(); //list all death keywords
      for(int i = 0; !DlgMain->tQryClearKeywords->Eof; i++)
      {
         AnsiString keyword = DlgMain->tQryClearKeywords->FieldByName("Keyword")->AsString; //get the name 
      
         DlgMain->tQryFindKey->ParamByName("Keyword")->AsString = keyword;  //get the ID from the death keyword
         DlgMain->tQryFindKey->Execute();
      
         DlgMain->tQryDelKeyFromSubj->ParamByName("ID")->AsInteger = DlgMain->tQryFindKey->FieldByName("ID")->AsInteger; //kill it from subject
         DlgMain->tQryDelKeyFromSubj->Execute();
         DlgMain->tQryDelKeyFromSubj->Close();
         
                                                                        
         DlgMain->tQryDeleteKeyword->ParamByName("Keyword")->AsString = keyword;                                //kill it from keyword
         DlgMain->tQryDeleteKeyword->Execute();
         DlgMain->tQryDeleteKeyword->Close();
         
         DlgMain->tQryFindKey->Next();
         DlgMain->tQryClearKeywords->Next();
      }

      DlgMain->OraSession->Commit();
      
      DlgMain->tQryFindKey->Close();
      DlgMain->prv_getKeyWords();
      //display the new edited article and not the old one, so lets start a new search in the tmstringgrid
      if(DlgMain->bIsNewEntry == false)
      {
         AnsiString t_Article;
         
         DlgMain->TMStringGrid->Cells[8][DlgMain->m_iHitRow] = new_Art_ID; 
         DlgMain->tQryGetAllFromArtByID->ParamByName("InternID")->AsInteger = new_Art_ID;
         DlgMain->tQryGetAllFromArtByID->Execute();
         
         DlgMain->TMStringGrid->Cells[1][DlgMain->m_iHitRow] = DlgMain->tQryGetAllFromArtByID->FieldByName("keyword")->AsString;

         t_Article = DlgMain->tQryGetAllFromArtByID->FieldByName("article")->AsString;
         for(int i = 1; i TMStringGrid->Cells[2][DlgMain->m_iHitRow] = t_Article;

         DlgMain->TMStringGrid->Cells[5][DlgMain->m_iHitRow] = DlgMain->tQryGetAllFromArtByID->FieldByName("edited_by")->AsString;
         DlgMain->TMStringGrid->Cells[6][DlgMain->m_iHitRow] = DlgMain->tQryGetAllFromArtByID->FieldByName("edited")->AsString;
      }