1

(4 replies, posted in FAQ)

Thx for your answer,

Is this option planed?
or
Can I map external .dll for this purpose?

Thx,

Krokodil,

2

(4 replies, posted in FAQ)

Hi mr.Dimitry,


This work only on port = 110?
With SSL/TLS on port 995 not working ?

Thx,

Brgds,

Krokodil

3

(1 replies, posted in Reports)

Hi,


1.
Button action = Report
After i set report file *.fr3 and open in excel.
How can i change the general cell format to some date format ,in openned file?

I cant find nothing from fastreport about that.

2.
Export ,with button or script, to Excel Sheet2?
It is possible?


Thx,

4

(31 replies, posted in General)

Done

5

(31 replies, posted in General)

Dmitry,

project already sent.

Brgds,

Krokodil

6

(31 replies, posted in General)

Dear Dimitry,
I found one bug.
After use MVD 3.02 alpha.
MVD returned error please view attachment.
This error show after click on button.
When i use MVD 2.8 no error show and anything work OK.
I use MYSQL.
If you want i can send my project.
This ComMatrixOsoby.commatrixosoby_emergency have type BOOLEAN not INTEGER what you see in error.
Recreating the database not help.

Bgrds,

Krokodil

7

(187 replies, posted in General)

Dear Dimitry,

GetComputerName working OK ,sorry for vexation.
My fault.
You can delete this 5 posts from "What to implement first?".

Brgds,

Krokodil

8

(187 replies, posted in General)

I mean create :
Script
Functions → System → GetComputerName : string

Brgds,

Krokodil

9

(187 replies, posted in General)

Hello Dmitry,

i think GetComputerName function need everybody with login form.

Brgds,

Krokodil

10

(5 replies, posted in Script)

Great Dimitry,

working.

Thx,

Krokodil

11

(5 replies, posted in Script)

1. Attached example project
2. Working , THX

Bgrd,

Krokodil

12

(5 replies, posted in Script)

Hi anybody,

can you please help me :

procedure FmReport_BtTest_OnClick (Sender: string; var Cancel: boolean);
var
    frxDBDataset1, : TfrxDBDataset;
    report : TDataSet;
begin
   SQLQuery('SELECT xy from xy where xy');
    frxDBDataset1 := TfrxDBDataset.Create(Form1);
    frxDBDataset1.UserName        := 'report';
    frxDBDataset1.CloseDataSource := True;
    frxDBDataset1.OpenDataSource  := True;
    frxDBDataset1.DataSet         := report;

    Form1.frxReport.Clear;
    Form1.frxReport.DataSets.Clear;
    Form1.frxReport.DataSets.Add(frxDBDataset1);

  //    DESIGN MODE - WORKING OK
 //  Form1.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\test.fr3');
 //  Form1.frxReport.DesignReport;

   // OPEN REPORT IN Excel  NOT WORKING
    Form1.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\test.fr3');
    Form1.frxReport.PrepareReport();
    Form1.frxRTFExport1.FileName := ChangeFileExt(GetTempFileName,'.xlsx');
    Form1.frxRTFExport1.ShowDialog := False;
    Form1.frxReport.Export(Form1.frxRTFexport1);

    // PREVIEW MODE  - WORKING OK
 //     frxDBDataset1.DataSet.Close;
 //    Form1.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\test.fr3');
 //    Form1.frxReport.ShowReport;

    frxDBDataset1.Free;

end;

1.OPEN REPORT IN Excel  NOT WORKING i dont know why error message is:
"Excel cant open the file xy.xlsx becouse file format or its extension is invalid"

Please where is the problem ?
In the forum a find only open in PDF..

2.And the another question:
When the SQLQuery is too long. How can i write him on more rows ?


Thx,
Krokodil

13

(3 replies, posted in SQL queries)

I already make it :

this is the solution:

SELECT a.id
FROM (SUBQUERY 1) a
JOIN (SUBQUERY 2) b
ON b.id = a.id
JOIN (SUBQUERY 3) c
ON c.id = a.id
JOIN (SUBQUERY 4) d
ON d.id = a.id;

Brgds,

Krokodil

14

(3 replies, posted in SQL queries)

Hi anybody,

Please can you help where is the problem.

MYSQL

Select NameList_name from NameList where NameList.id In 
(Select NameList.id from NameList where id_company =
(Select company.id From company where company_company Like "XY"))
And
(Select id_NameList from NameListGoods where id_NameListGoodsKind =
(Select NameListGoodsKind.id from NameListGoodsKind where NameListGoodsKind_NameListGoodsKind LIKE "XX"))
And
(Select id_NameList from NameListStateFrom where id_StateFrom =
(Select StateFrom.id from StateFrom where StateFrom_state Like "XXX"))
And
(Select id_NameList from NameListStateTo where id_StateTo =
( Select StateTo.id from StateTo where StateTo_state Like "XYX"));   

This returned me ""SQL Server Subquery returned more than 1 value""

I want to search in:
Select NameList_name from NameList where NameList.id
The right NameList.id penetrance
what is returned from others subquery.

Example:
Table Namelist:
ID   Name
1    a
2    b
3    c
4    d
5    e

subquery1 :
(Select NameList.id from NameList where id_company =
(Select company.id From company where company_company Like "XY"))
Return me : numbers : 1,4,5

subquery2 :
(Select id_NameList from NameListGoods where id_NameListGoodsKind =
(Select NameListGoodsKind.id from NameListGoodsKind where NameListGoodsKind_NameListGoodsKind LIKE "XX"))
Return me : numbers 2,4,3

subquery3 :
(Select id_NameList from NameListStateFrom where id_StateFrom =
(Select StateFrom.id from StateFrom where StateFrom_state Like "XXX"))
Return me : numbers 3,4,1

subquery4 :
(Select id_NameList from NameListStateTo where id_StateTo =
( Select StateTo.id from StateTo where StateTo_state Like "XYX"));
Return me : numbers 5,4,2,1

Head Query
Penetrance from this results is number 4.Then i need to show me the Name from Namelist where Namelist.id=4;

Thx for help,

15

(5 replies, posted in General)

DriveSoft
Thx for you answer but
if i use

Form1.TableGrid1.Cell[x,y].FontStyle := fsUnderline;
Version MVD = 2,8 beta
Still i have a error :
Undeclared indentifier : FontStyle

K.

16

(5 replies, posted in General)

Yes  clGreen  working that same as clRed but  clHotLight not working.

and
Form1.TableGrid1.Cell[0,i].TextStyle := fsUnderline;

Not exist


Thx,

K.

17

(5 replies, posted in General)

Hi ,

Please can you help me ?

1.Grid fsUnderline with Cell[x,c]

Work:
FmPrepravcaPrihlasenia.TgPrihlasenia.Cell[4,c].TextColor := clred;
FmPrepravcaPrihlasenia.TgPrihlasenia.Columns[4].Cursor := crHandPoint;

Dont work :
FmPrepravcaPrihlasenia.TgPrihlasenia.Cell[4,c].TextColor := clHotLight;
FmPrepravcaPrihlasenia.TgPrihlasenia.Cell[3,c].Font.Style := fsUnderline;
FmPrepravcaPrihlasenia.TgPrihlasenia.Cell[3,c].TextStyle := fsUnderline;

What is the syntax for Cell[3,c].TextStyle := fsUnderline; and TextColor := clHotLight ??

2."Mailto" CC or BCC

If i use "mailto" can i send email to CC or BCC ?


Thx, for you ansfers

Krokodil

18

(9 replies, posted in Script)

Thx for quick answer,

is there some another method to automatical send mail to 7 people ?
Maybe i don't recommend to send him as CC or BCC.
Just to: ?

Or send mail with default email software?

Thx,

K.

19

(9 replies, posted in Script)

Hi,

Is possible to send email with sendmail to CC or to BCC ?

Thx,

K.

20

(1 replies, posted in General)

Hi,

can you please help me ?



1. Load table grid from database by script - That is OK BUT ...
2. How I can  to rewrite-change, grid values in table grid , by keyboard? Then  save it,like save record ’’save table grid as object’’ with one button

Thx for tips,

Krokodil

Hi,

this is my project.
Already not finished....

About : 22 019 lines and more then 80 forms.

K.

22

(2 replies, posted in SQL queries)

Great works fine.

Thx,

23

(2 replies, posted in SQL queries)

Hi,

i need some little help.

I dont know why my mysql calculate field returns my always =   ' ' nothing

here is my code:


Concat(
(
SELECT Class.Class_Class FROM Class WHERE Class.id = id_Class
)
,(COALESCE(employees.lastname,'')), ' - ' , (COALESCE(employees.firstname,'')),
(
SELECT  school. school_ school FROM school WHERE  school.id = id_ school
))

When the id_Class or the id_school is not set on save form to  databaze ' employees ' .Concat returing me empty cell.

Thx,

K.

Thx,

working,

begin
frmEmployee.Button1.Cancel := False;
end. 

BRgds,

K.

Please and how i can disable the ESC button to close form on all forms ?

Thx