FourGen Forms and text column
I use I-4GL Forms v.4.10 UC1 (OnLine v.5.0, Interactive Unix v.3.2)
First problem. The Code Generator generates wrong q_ record in globals.4gl
if a table has text column.
------- generated globals.4gl --------
...
q_moblob record # Parallel demoblb record
row_id integer # SQL rowid <----- A COMMA MISSED !
f_txt char(60) # Temp filename for txt
#_define_1
#_end
end record,
...
First time when i add or delete any trigger corresponding to q_ record
(e.g. define for input1) q_ record is generated without the mistake.
Second problem. If a text column is last on a form then fg.screen generates
wrong SELECT for all PREPARE in llh_read() as well.
------- generated header.4gl ----------
...
# one of the bad SELECTs
#_select - select statement
let scratch = "select ",
"keys,",
"fld,", <- THE COMMA IS SUPERFLUOUS !
" from demoblob where rowid = ?"
#_prep_curs - Prepare the SQL string for execution
prepare read_specs from scratch <- A COMPILATION FAILED HERE
declare h_cursor cursor for read_specs
...
Below i attached demoblb.sql and demoblb.per to demonstrate the first problem.
You can easy change the .per to look at the second problem.
Thanks in advance,
Vadim G. Park Tax Police Territorial Department, Krasnoyarsk, Russia
Fax: (391-2) 27-07-69, Voice: 27-02-83 E-mail: pivot@taxpol.krasnoyarsk.su
-------- demoblb.sql ---------
create table demoblob
(
keys char(10),
fld char(10),
txt text
)
--------- demoblb.per --------- Do not forget to change database, please{#####################################################################
# Copyright (C) 1992 Informix Software, Inc.
# Copyright (C) 1992 FourGen Software, Inc.
# Sccsid: @(#) .../screen.4gm/painter.4gs/cgs_init.4gl 1.32 Delta:
######################################################################
# Screen Generator version: 4.10.UC1 }
DATABASE tax
SCREEN
{
----------------------------- demoblob table -------------------------------
keys:[A1 ] text: [A]
fld :[A2 ]
}
TABLES
demoblob
ATTRIBUTES
A1 = demoblob.keys, comments = "";
A = demoblob.txt, comments = "";
A2 = demoblob.fld, comments = "";
INSTRUCTIONS
screen record s_demoblb (demoblob.keys, demoblob.txt, demoblob.fld)
delimiters " "
{
######################################################################
FOURGEN
######################################################################
defaults
module = test
type = header
init = 1=0
attributes = border, white
location = 2, 3
input 1
table = demoblob
filter = 1=1
blobdef = txt, vi, Y
}