Temporary Table

(0) Share

Report

Posted on by Mohamed Kair

Hı

There is  textbox and the user can enter the character, I want to insert a temp table 
in the item description field that starts with the character user entered.

Code is not showing

Deger := TextBox;
IF Deger='' THEN
MESSAGE('Empty')
ELSE
Deger1:=COPYSTR(Deger,1,1);
MESSAGE(Deger1);

LOCAL TempInsert()
//Titem.RESET;
CLEAR(Titem);
Lcase:=LOWERCASE(COPYSTR(Titem.Description,1,1));
IF (Deger1 = Lcase) THEN BEGIN
Titem.SETRANGE("No.","Item No.");
IF Titem.FINDSET THEN
REPEAT
TempIle.INIT();
TempIle."Item No." := Titem."No.";
TempIle.Description := Titem.Description;
TempIle.INSERT;
UNTIL Titem.NEXT=0;
TempIle.RESET;
IF TempIle.FINDSET THEN
REPEAT
CLEAR(Rec);
Rec.TRANSFERFIELDS(TempIle);
Rec.INSERT;
UNTIL TempIle.NEXT=0;
END;

All responses (2)

Answers (0)

Mohamed Kair 10 on at

Like (0)

Report

RE: Temporary Table

ı am calling under button action
Suresh Kulla 43,745 on at

Like (0)

Report

RE: Temporary Table

Where are you calling you function Tempinsert?