Forum
× Lab CT Version, news, test results, new features request and suggestions

Question CT LAB ver 6.50

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Away
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
3 weeks 6 days ago #11556 by Sternas Stefanos
Sternas Stefanos replied the topic: CT LAB ver 6.50
Download link for CT 6.15

here

CodeTyphon Architect and Programmer

Please Log in or Create an account to join the conversation.

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Away
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
2 weeks 4 days ago #11578 by Sternas Stefanos
Sternas Stefanos replied the topic: CT LAB ver 6.50
We release LAB CodeTyphon ver 6.50 revision 006430.
Please, try and report

Have fun

CodeTyphon Architect and Programmer

Please Log in or Create an account to join the conversation.

More
2 weeks 6 hours ago #11593 by AntonyRF
AntonyRF replied the topic: CT LAB ver 6.50
You nice =)

Please Log in or Create an account to join the conversation.

  • Klaus Riesterer
  • Klaus Riesterer's Avatar
  • Offline
  • Junior Boarder
  • Junior Boarder
More
2 weeks 2 hours ago #11596 by Klaus Riesterer
Klaus Riesterer replied the topic: CT LAB ver 6.50
Sir Thank You!

Still no problems found with my big project using revision 006430

Please Log in or Create an account to join the conversation.

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Away
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
2 weeks 2 hours ago #11597 by Sternas Stefanos
Sternas Stefanos replied the topic: CT LAB ver 6.50
Thanks Sir
have fun

CodeTyphon Architect and Programmer

Please Log in or Create an account to join the conversation.

More
1 week 6 days ago #11603 by Fernando
Fernando replied the topic: CT LAB ver 6.50
Hello,

Using Typhon 6.50, selecting Package -> New Package, I get a message box (please note, locale is Spanish):

"IDE de Typhon32 v6.5 - Bind

[Content]
"PackageEditor_Nuevo paquete1" is not a valid component name.

Press OK to ignore and risk data corruption.
Press Abort to kill the program.

[Aceptar] [Abortar]"

The same happens with typhon32 and 64 under windows 7, and typhon64 under mageia linux 6.

No other problems found so far.

Regards

Please Log in or Create an account to join the conversation.

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Away
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
1 week 5 days ago #11604 by Sternas Stefanos
Sternas Stefanos replied the topic: CT LAB ver 6.50
Thanks Sir
we will check and fix this

CodeTyphon Architect and Programmer

Please Log in or Create an account to join the conversation.

  • Klaus Riesterer
  • Klaus Riesterer's Avatar
  • Offline
  • Junior Boarder
  • Junior Boarder
More
1 week 4 days ago - 1 week 4 days ago #11611 by Klaus Riesterer
Klaus Riesterer replied the topic: CT LAB ver 6.50
Sadly I had Problems with zeos again. In some cases Zeos runs in an error.
The error kills the program, no further information from debugger available (Shows only zeros).
The error occurs sometimes when doing an update.

With Zeos-package from CT 600 it again works all fine!

I'll try to get more information, but the debugger is not usefull in this state

(CT 6.50 latest release on Mint 18.3 Cinnamon)

Some more Information:
The error occurs sometimes when I change a value in e.g. dbedit but BEFORE doing an update to query!
function BearbeiteAuftragsPosition(IDAuftrag: integer; IDPosition: integer; Neu: boolean): boolean;
var
  Suchtext: string;
  LastRec: integer;
  PosNeu: integer;
  IDArtikel, IDPreis: integer;
  StSatz, FStSatz: string;
  F: TfrmPosition;
  LDat: boolean;
begin
  with dtmAuftrag do
  begin
    if IDPosition = 0 then
      if MessageDlg('Es sind noch keine Positionen vorhanden. Wollen Sie jetzt eine anlegen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        Neu := True
      else
      begin
        Result := False;
        exit;
      end;
    LDat := False;
    case dtmAuftrag.qryAuftragsListe.FieldByName('auf_typ').AsInteger of
      10, 40, 50, 53, 59: LDat := True;
    end;
    if Neu then
    begin
      CreateNewPosition(IDPosition);
      case dtmAuftrag.qryAuftragsListe.FieldByName('auf_typ').AsInteger of
        10, 40, 50, 53, 59:
        begin
          with dtmBasis.Calendar do
          begin
            Title := 'Leistungsdatum';

            Date :=now;
            if Execute then
            begin
              WriteIniFile('Auftrag', 'Leistungsdatum', FormatDateTime('dd.mm.yyyy', Date));
              ExecSQLDirect(dtmBasis.qrySQL, 'UPDATE AuftragsPositionen SET apo_leistungsdatum ="' + FormatDateTime(
                'yyyymmdd', Date) + '" where idauftragsposition=' + IntToStr(IDPosition));
            end
            else
            begin
              WriteIniFile('Auftrag', 'Leistungsdatum', FormatDateTime('dd.mm.yyyy', Date));
              ExecSQLDirect(dtmBasis.qrySQL, 'UPDATE AuftragsPositionen SET apo_leistungsdatum ="' + FormatDateTime(
                'yyyymmdd', Date) + '" where idauftragsposition=' + IntToStr(IDPosition));
              ShowMessage('Heutiges Datum wird als Leistungsdatum übernommen!');
            end;
          end;
        end;
      end;
    end;
    if IDPosition > 0 then
    begin
      OpenSQLSet(qryPosition, 'Select * from AuftragsPositionen where idauftragsposition = ' + IntToStr(IDPosition));
      BerechnePosition;

      F := TfrmPosition.Create(nil);
      F.dbdLeistungsdatum.Visible := LDat;
      F.lblLeistungsdatum.Visible := LDat;
      F.dbeMitarbeiter.Visible := LDat;
      F.lblMitarbeiter.Visible := LDat;

      if qryPositionsListe.FieldByName('colorn').AsVariant <> NULL then
        F.pnlHeader.Color := qryPositionsListe.FieldByName('colorn').AsVariant;
      if qryAuftragsListe.FieldByName('fk_auftragssteuerart').AsInteger = 3 then // §13b UStG
      begin
        F.lblUStG.Visible := True;
        F.dblSteuersatz.Enabled := False;
      end
      else
      begin
        F.lblUStG.Visible := False;
        F.dblSteuersatz.Enabled := True;
      end;
      try
        F.ShowModal;                                                          // ALL OK UNTIL NOW - form is shown. DoSave is public
        if DoSave then                                                       
        begin
          if qryPosition.State = dsEdit then
            qryPosition.ApplyUpdates;
          if qryPosition.FieldByName('fk_posart').AsInteger=2 then
             ExecSQLDirect(dtmBasis.qrySQL,'Update AuftragsPositionen set apo_artikelgruppe=0 ,  apo_herstellernummer="", apo_seriennummer="",'+
             'apo_mengeneinheit="", apo_staffel=0, apo_zeit=0, apo_lohn=0, apo_service=0, apo_material=0, apo_geraet=0, apo_fremdleistung=0,'+
             'apo_menge=0, apo_netto_vk=0, apo_rabatt=0,  apo_mitarbeiter="" '+
             'where idauftragsposition=' + qryPosition.FieldByName('idauftragsposition').AsString);


          qryPositionsListe.Refresh;
          qryPositionsListe.Locate('idauftragsposition', qryPosition.FieldByName('idauftragsposition').AsInteger, []);
          Result := True;
        end
        else
        begin
          qryPosition.CancelUpdates;
          Result := False;
        end;
      finally
        FreeAndNil(F);
      end;
    end;
  end;
end;     


procedure TfrmPosition.btnSpeichernClick(Sender: TObject);
begin
  DoSave := True;
  Close;                                              // <<<<<<<<<<<<<<<<<<<<<<<<<<< THE ERROR RISES HERE
end;
Last Edit: 1 week 4 days ago by Klaus Riesterer.

Please Log in or Create an account to join the conversation.

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Away
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
1 week 4 days ago - 1 week 4 days ago #11612 by Sternas Stefanos
Sternas Stefanos replied the topic: CT LAB ver 6.50
Thanks Sir
Please, if you can give more info

PS: Put a break point to
DoSave := True;
line and then click Step intro (F7)
until you find the problem

CodeTyphon Architect and Programmer
Last Edit: 1 week 4 days ago by Sternas Stefanos.

Please Log in or Create an account to join the conversation.

  • Klaus Riesterer
  • Klaus Riesterer's Avatar
  • Offline
  • Junior Boarder
  • Junior Boarder
More
1 week 3 days ago #11613 by Klaus Riesterer
Klaus Riesterer replied the topic: CT LAB ver 6.50
Hallo Sternas
I did that but as mentioned when executing close the debugger pops up with only Zeros ...

Please Log in or Create an account to join the conversation.