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
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
8 months 1 week ago #11556 by Sternas Stefanos
Replied by Sternas Stefanos on 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
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
8 months 2 days ago #11578 by Sternas Stefanos
Replied by Sternas Stefanos on 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
7 months 4 weeks ago #11593 by AntonyRF
Replied by AntonyRF on 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
7 months 4 weeks ago #11596 by Klaus Riesterer
Replied by Klaus Riesterer on 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
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
7 months 4 weeks ago #11597 by Sternas Stefanos
Replied by Sternas Stefanos on 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
7 months 3 weeks ago #11603 by Fernando
Replied by Fernando on 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
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
7 months 3 weeks ago #11604 by Sternas Stefanos
Replied by Sternas Stefanos on 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
7 months 3 weeks ago - 7 months 3 weeks ago #11611 by Klaus Riesterer
Replied by Klaus Riesterer on 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: 7 months 3 weeks ago by Klaus Riesterer.

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

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
7 months 3 weeks ago - 7 months 3 weeks ago #11612 by Sternas Stefanos
Replied by Sternas Stefanos on 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: 7 months 3 weeks 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
7 months 3 weeks ago #11613 by Klaus Riesterer
Replied by Klaus Riesterer on 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.

More
7 months 2 weeks ago #11619 by Vitaly
Replied by Vitaly on topic CT LAB ver 6.50
Hello, everybody!
It seems that Zeos is rather old in LAB version: -Update pl_ZeosDBO to Ver 6.5.1 Source SVN Rev 4314
As I understood, there were a lot of changes. I need at least rev.4419 (or maybe later).
Can you update it, please!

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

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
7 months 2 weeks ago #11620 by Sternas Stefanos
Replied by Sternas Stefanos on topic CT LAB ver 6.50
Yes Sir
please give us time

CodeTyphon Architect and Programmer

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

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
7 months 2 weeks ago #11621 by Sternas Stefanos
Replied by Sternas Stefanos on topic CT LAB ver 6.50
pl_ZeosDBO Ver 6.5.2 Source SVN Rev 4513 (now)

CodeTyphon Architect and Programmer
Attachments:
The following user(s) said Thank You: Vitaly

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

More
7 months 2 weeks ago - 7 months 2 weeks ago #11623 by Vitaly
Replied by Vitaly on topic CT LAB ver 6.50

Sternas Stefanos wrote: pl_ZeosDBO Ver 6.5.2 Source SVN Rev 4513 (now)

Give me a hint, please. I do not see new Lab version in my CT Update Manager.

I didn't see the attached file at first. Thank you very much!
Last edit: 7 months 2 weeks ago by Vitaly. Reason: upd

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

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
7 months 4 days ago #11665 by Sternas Stefanos
Replied by Sternas Stefanos on topic CT LAB ver 6.50
We release LAB CodeTyphon ver 6.50 revision 006450.
Please, try and report

Have fun

CodeTyphon Architect and Programmer
The following user(s) said Thank You: Fernando

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

More
7 months 3 days ago #11669 by Fernando
Replied by Fernando on topic CT LAB ver 6.50
Hello Sir,

New version works generally well. However, this issue:

www.pilotlogic.com/sitejoom/index.php/fo...-6-50?start=10#11603

is still present.

Also, this one seems to be yet unfixed:

www.pilotlogic.com/sitejoom/index.php/fo...ar-in-designer#11327

Keep the good work

Regards

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

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
7 months 3 days ago - 7 months 3 days ago #11671 by Sternas Stefanos
Replied by Sternas Stefanos on topic CT LAB ver 6.50
Thanks Sir
we are working on these problems
please give us time...

CodeTyphon Architect and Programmer
Last edit: 7 months 3 days ago by Sternas Stefanos.

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

More
7 months 3 days ago #11672 by Fernando
Replied by Fernando on topic CT LAB ver 6.50
OK, thanks

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

More
7 months 2 days ago #11673 by fredvs
Replied by fredvs on topic CT LAB ver 6.50
Hello.

Perfect, works out-of-the-box. even multi-arch with Linux Mint.

About Lazarus to CT conversion.

I did use the CT converter.

*.lpi
> *.ctpr
*.lpr
> *.ppr

But in last CT 6.50 it seems that *.lfm are converted too into *.frm.

Is it a difference with the code lfm vs frm or is it only a other extension name ?

Thanks.

Fre;D

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

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
More
7 months 2 days ago #11674 by Sternas Stefanos
Replied by Sternas Stefanos on topic CT LAB ver 6.50
"Is it a difference with the code lfm vs frm or is it only a other extension name ?"

only an other extension for this CT version

CodeTyphon Architect and Programmer

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