ADCS - Custom Field

armela

Hello there.
I need help with ADCS and looking for Ideas.
I have a simple miniform, getting info from the purchase line.
I enter the PO number
Then I enter the Item number.
A custom field populates with a value in that field that exists on the PO Line.
I want to be able to overwrite that value with smth else from my telnet, however when I enter smth in that field nothing happens.

Here is my code.
Seems like it does not get to the custom field code.
Any ideas ??
Code below with strike through section . I specifically added the error line, because I wanted to see an error and it does not produce that.


FuncGroup.KeyDef::Input:
BEGIN
EVALUATE(FldNo,ADCSCommunication.GetNodeAttribute(ReturnedNode,'FieldID'));

CASE FldNo OF
purchaseline.FIELDNO("Document No."):
CheckPONo(UPPERCASE(TextValue));
purchaseline.FIELDNO("No."):
CheckItemNoold(UPPERCASE(TextValue));
purchaseline.FIELDNO(Description):

storedesc:=TextValue;

purchaseline.FIELDNO("Dock Qty"):
ERROR('qty');[/b]


ELSE BEGIN
ERROR('went here');
ADCSCommunication.FieldSetvalue(RecRef,FldNo,TextValue);
RecRef.SETTABLE(purchaseline);
END;
END;

purchaseline.MODIFY;
RecRef.GETTABLE(purchaseline);
ADCSCommunication.SetRecRef(RecRef);
ActiveInputField := ADCSCommunication.GetActiveInputNo(CurrentCode,FldNo);
IF Remark = '' THEN
IF ADCSCommunication.LastEntryField(CurrentCode,FldNo) THEN BEGIN
RecRef.GETTABLE(purchaseline);
IF NOT ADCSCommunication.FindRecRef(RecRef,1,ActiveInputField) THEN BEGIN
Remark := Text008;
END ELSE
ActiveInputField := 1;
END ELSE
ActiveInputField += 1;
END;
ELSE
ERROR(Text000);