* Fix bug #38330: reset line number on execute (1-based)

git-svn-id: trunk@48900 -

packages/fcl-db/src/base/sqlscript.pp

@@ -284,6 +284,7 @@ begin
   FUseDollarString:=AValue;
   RecalcSeps;
 end;
+
 function TCustomSQLScript.GetLine: Integer;
 begin
   Result:=FLine - 1;
@@ -507,7 +508,7 @@ begin
   FIsSkipping:=False;
   FSkipStackIndex:=0;
   Faborted:=False;
-  FLine:=0;
+  FLine:=1;
   DefaultDirectives;
   Repeat
     NextStatement();