SETPOSITOIN -how to use it?

arcull · 2009-02-03

Hi, does anyone know how to proprerly use setposition on recordref which points to a table with one single field in primary key. A simple example would help much, cause I can't figure it out

RecR.SETPOSITION('04');

does not work. RecR is of type RecordRef. Thanks for help.

Belias · 2009-02-03

did you use "open" or "settable" functions on recordref before your instruction?
Read help online for further informations.

kriki · 2009-02-03

Try something like this:

rer.OPEN(DATABASE::"Your Table");

fir := rer.FIELDID(nnn1); // where nn1 is the FIELDID of the first primary field
fir.SETRANGE('04');

// if you have other primary key fields, you can repeat the both fir lines for each primary keyfield

IF rer.FINDFIRST THEN BEGIN
  // you found the record

END;

CLEAR(fir);
CLEAR(rer);

arcull · 2009-02-03

Thanks for the work around kriki, but still I wonder how you can use it

since setposition can be applied to regular record variables as well. OK, maybe I can use this thread for the further issue that I encounterd (if that's not OK, I'll open a new one) and that is: How can I test the type of field which fieldref points to? I tried

IF FieldR2.TYPE = 'Code' THEN;

and

IF FieldR2.TYPE = FieldR2.TYPE::Code THEN;

and

IF FieldR2.TYPE = FieldR2.TYPE::'Code' THEN;

and

IF FieldR2.TYPE = FieldR2.TYPE::"Code" THEN;

but it won't compile. Thanks for help again.

arcull · 2009-02-03

IF format(FieldR2.TYPE) = 'Code' THEN;

is the winnig answer

kriki · 2009-02-03

arcull wrote:
IF format(FieldR2.TYPE) = 'Code' THEN;
is the winnig answer

To make it even more sure:

IF UPPERCASE(FORMAT(FieldR2.TYPE)) = 'CODE' THEN;

Belias · 2009-02-09

you can use setposition with the result of "GETPOSITION" function.
use a message to show what is generated...there is also a parameter...
anyway, another questiond:
I've this function, named FNTGetPar

RRRecordRef.OPEN(INTLocTableNo);
RRRecordRef.SETPOSITION(TXTLocPosition);
FRFieldRef := RRRecordRef.FIELD(INTLocFieldNo);
MESSAGE(FORMAT(FRFieldRef));

and i call it with this:

cu.FNTGetPar(cu.FNTGetTableNo(tbtest.TABLENAME),tbtest.FIELDNO(Name),tbtest.GETPOSITION(FALSE));

all the parameters are set correctly in the function, but the message is blank.
(maybe i'm doing a stupid error...)

tbtest = record customer

Please, no workarounds, because i need my parameters to be passed like the way i've done...when i'll finish the whole utility i'll post it

Belias · 2009-02-09

Belias wrote:

(maybe i'm doing a stupid error...)

exactly #-o
i forgot to do find('=') after the setposition

here you can find my project

http://www.mibuso.com/forum/viewtopic.php?f=5&t=31763

SETPOSITOIN -how to use it?

Comments

Categories