Recent content by Phil White

in v8 you would have to use preprocessores its not dynamic but you dont have to code much. &glob tablename customer &glob FieldName name FOR EACH {&TableName}: DISPLAY {&Name}. END.

should be easy. on the event you want, foer example on value-changed of {&browse-name}: youre-image-widget:load-image(yourefilename).

def var lv-f as char no-undo. file-info:file-name = 'readonlytest.txt'. disp file-info:file-type. will display frw if file is NOT readonly will display FR if file is READ only. What opsys are you on? this tested on Win32 version 9.1d08 works fine.

iits still there in the gui directory so its got to be a propath problem. check youre registry or ini setting for propath or enviroment var check the start in dir for the shortcut is correct. are ther two versions of progress installed ? which one is it picking up.

you should use string(today,..... not string(date, only use date to convert a string to a date.

if you wan tot know how to access dll routines in progress i would reckommend visiting www.global-shared.com, jurgens got some good examples and explains it pretty well.

file-info:file-name = 'yourefilename'. file-info:fie-type cut and pasted from the progress help file ******************88 The FILE-TYPE attribute returns a string containing exactly one of the following file type characters: - D If the file is a directory. - F If the file is a standard...

speed you say you have indexs? if file A is not indexed on the a_date field or file b not indexed on the a_nbr field then its going to be slow.

i create db triggers programatically . using the following code. /* TriggersGen.p */ DEF VAR lv-Directory AS CHARACTER NO-UNDO. def var lv-uniquekey as char no-undo. /* location for triggers */ lv-directory = 'triggers/'. FOR EACH _File WHERE _FIle-num > 0 and _file-num <...

tranassacton is scoped to the repeat block so remains active till end statemetn. try this INPUT FROM COM1. REPEAT: /* when a condition applies ...*/ do transaction: CREATE Record. ASSIGN Record.Field = CHR(lastkey). RELEASE RECORD. /* record is released ? */ end. FIND Current RECORD no-lock...

you need to define the function in any procedure its going to be used in. the key bit is def function xyx as log () in HANDLE so it knows where to find it Personnally i dont use supers, just use a persistent library and define the functions i it in an include file like this /* Load up the...

try this PROCEDURE Br-Label : def input param br-hand as handle no-undo. def var v-hand as handle no-undo. v-hand = br-hand:first-column. do while valid-handle(v-hand): /* check its the column we want by checking label */ if v-hand:label = 'whatever' then v-hand:xxxxx = yyyyyy. /* do the...

heres a usefull little tool i just knocked up. enables user to query db using uib tools and puts result in a browse which can then be exported to excel. compiled using 9.1d source code from possenet. should work fine against any db. hope you can download the attached zip.

i suspect you are getting two versions because the maco is in a differetn document than the data . in my experience its better to run the stuff in progress rather than as a macro in youre office app. it resonably easy to transfer the logic across change the dots for : and try it. good luck!