C
cjbree
Guest
filename: MKFORM.P /************************************************************************/ /* mkform.p -- to build a form include for a file ( .lf) */ /* */ /* Input: */ /* _File record in shared buffer "file" */ /* shared workfile "relate" describing database relationships */ /************************************************************************/ define shared buffer file for _file. define shared variable progpad as char. define shared workfile relate field owner like _file._file-name field mem like _file._file-name field idx like _index._index-name field numfld as integer format ">9" field matchlst as character format "x(80)" field dumpowner like _file._dump-name field dumpmem like _file._dump-name. define variable close-comment as logical. define variable temp as char. define variable cTitel as char. output to value(progpad + lc(substr(file._dump-name, 1, 8)) + ".lf"). for each _field of file break by _order: close-comment = no. for each relate where relate.mem = file._file-name by relate.owner: if lookup(_field-name, relate.matchlst) ne 0 then do: put unformatted "~{&OF" relate.owner "}" skip. close-comment = yes. end. end. if _dtype = 1 /* character */ and _Extent > 0 then put unformatted "~{~&text}" skip. put unformatted "~{&input} ~{&file}." _field-name skip. if _dtype = 1 /* character */ and _Extent > 0 then put unformatted "~{~&endtext}" skip. if close-comment then put unformatted "~{comment.i} */" skip. end. /**/ /* van D:\projects\xx\data\"db" naar xx */ cTitel = progpad. cTitel = replace(cTitel,"\c:\project\x\data\",""). cTitel = replace(cTitel,"browse19\"," (19)"). cTitel = replace(cTitel,"browse22\"," (22)"). cTitel = replace(cTitel,"browse25\"," (25)"). put unformatted "~{&nowith}" skip "with centered overlay title "" DB : " + upper(cTitel) + " - " + upper(cTitel) + " - " + upper(cTitel) + " - Tabel : " + "~"" skip. for each relate where relate.owner = file._file-name by relate.mem: put unformatted "~{&OF" relate.mem "} ~{comment2.i} */ ~{&nowith}" skip space(4) " + "" of tabel Record(s): """ skip. for _file where _file._file-name = relate.mem, _index where recid(_index) = _file._Prime-Index, each _index-field of _index, _field of _index-field: put unformatted space(4) " + string(" relate.mem "." _field-name ") + "" """ skip. end. put unformatted "~{comment.i} */ ~{&nowith}" skip. end. for each relate where relate.mem = file._file-name by relate.owner: put unformatted "~{&OF" relate.owner "} ~{comment2.i} */ ~{&nowith}" skip space(4) " + "" of tabel Record(s): """ skip. for _file where _file._file-name = relate.owner, _index where recid(_index) = _file._Prime-Index, each _index-field of _index, _field of _index-field: put unformatted space(4) " + string(" relate.owner "." _field-name ") + "" . """ skip. end. put unformatted "~{comment.i} */ ~{&nowith}" skip. end. put unformatted "~{comment.i} */" skip. output close.
Continue reading...
Continue reading...