Fórum Erro ao Cadastrar registro #209368

  if StatusBar1.Panels[1].text = ´12:00:00´ then begin 

     with dmCondominio do begin
      if (traAlteraQuarto.InTransaction) then
        traAlteraQuarto.commit;
      traAlteraQuarto.StartTransaction;
      with sqlGeral do begin
        Close;
        with SQL do begin
          Clear;
          add(´insert into DESCRICAO_PRODUTO(COD_DESC_PROD, COD_CONT, DES_DESC_PROD, PRE_DESC_PROD, DAT_DESC_PROD)´);
          add(´values (GEN_ID (GEN_COD_DESC_PROD,1),´ + dmCondominio.qryPendenciaCOD_CONT_PEND.AsString + ´,´´DIARIA´´,´´´ + dmCondominio.qryPendenciaPRE_PEND.AsString + ´,´´´ + dmCondominio.qryPendenciaDAT_PEND.AsString + ´´´)´);
        end;
      end;
    end;
    try
      dmCondominio.SQL.SaveToFile(´c:\textoSQL.SQL´); // Adicione esta linha e veja se o código é interpretável
      dmCondominio.sqlGeral.Prepare;
      dmCondominio.sqlGeral.ExecQuery;
    except
        on E: EIBError do
        begin
          dmCondominio.traAlteraQuarto.Rollback;
          MessageDlg(Format(´¬s [¬d; ¬d]´, [E.message, E.SQLCode, E.IBErrorCode]),mtError,[mbOK],0);
          Abort;
          Exit;
     end;
    end;
      //Finalizando a transação com efetivação das modificações
     dmCondominio.traAlteraQuarto.Commit;