Employee Portal : Modify Line Issue

vipinkuruvilla

Hai All,

Following is my code for modifying a line in a header-line web part :


ReturnCode := 0;
FilterString :=
STRSUBSTNO('WHERE(1=CONST(%1),3=CONST(%2))',
DecodeXML.GetValueByFieldIDFromLineData(XMLDocInLine,TomList.FIELDNO(No)),
DecodeXML.GetValueByFieldIDFromLineData(XMLDocInLine,TomList.FIELDNO(LineNo)));

LineRecordRef.OPEN(DATABASE::TomList,FALSE);
LineRecordRef.SETVIEW(FilterString);

xLineRecordRef.OPEN(DATABASE::TomList,FALSE);
xLineRecordRef.SETVIEW(FilterString);

IF xLineRecordRef.FIND('-') THEN;

IF SupportFunctions.CompareHashValues(DecodeXML.GetHashValue(XMLDocInLine),LineRecordRef) THEN BEGIN
EncodeXML.AddFieldToValidationDoc(XMLDocValField,TomList.FIELDNO(No));
EncodeXML.AddFieldToValidationDoc(XMLDocValField,TomList.FIELDNO(Mark1));
EncodeXML.AddFieldToValidationDoc(XMLDocValField,TomList.FIELDNO(Mark2));
EncodeXML.AddFieldToValidationDoc(XMLDocValField,TomList.FIELDNO(Mark3));
EncodeXML.AddFieldToValidationDoc(XMLDocValField,TomList.FIELDNO(Total));
EncodeXML.AddFieldToValidationDoc(XMLDocValField,TomList.FIELDNO(Average));


DecodeXML.ModifyRecord(XMLDocInLine,LineRecordRef,XMLDocValField,DATABASE::TomList,
FALSE,TRUE,AdditionalValues[1],AdditionalValues[2]);

LineRecordRef.MODIFY(TRUE);
END ELSE BEGIN
ReturnCode := 20;
END;

LineFieldRef := LineRecordRef.FIELD(TomList.FIELDNO(No));
tmpvalue := LineFieldRef.VALUE;

SupportFunctions.CreateTempHeadFilterTable(TomList.FIELDNO(No),tmpvalue,GUID);
SupportFunctions.CreateTempHeadFilterKeys(TomList.FIELDNO(No),GUID);


Please take a note that TomHeader is my record variable.

Also No,Mark1 and Mark2 are my keys.

Iam getting a error : "Navision error (10500): You cannot enter 'ERROR))' in Integer. The cursor is in front of the invalid character. "

Did anyone come across this error?? Please do advice me....

Thanx in advance...

kriki

[Topic moved from Navision forum to Navision e-Commerce forum]

DynamicUser

STRSUBSTNO('WHERE(1=CONST(%1),3=CONST(%2))'

please correct the syntax. your error will get resolve.

vipinkuruvilla

That issue is solved........The problem was I didnt declare all my keys to the Line Record Ref variable. But After modifying my code to this :

ReturnCode := 0;
FilterString :=
STRSUBSTNO('WHERE(1=CONST(%1),2=CONST(%2),3=CONST(%3),7=CONST(%4))',
    DecodeXML.GetValueByFieldIDFromLineData(XMLDocInLine,TomList.FIELDNO(No)),
    DecodeXML.GetValueByFieldIDFromLineData(XMLDocInLine,TomList.FIELDNO(Mark1)),
    DecodeXML.GetValueByFieldIDFromLineData(XMLDocInLine,TomList.FIELDNO(Mark2)),
    DecodeXML.GetValueByFieldIDFromLineData(XMLDocInLine,TomList.FIELDNO(LineNo)));

LineRecordRef.OPEN(DATABASE::TomList,FALSE);
LineRecordRef.SETVIEW(FilterString);

xLineRecordRef.OPEN(DATABASE::TomList,FALSE);
xLineRecordRef.SETVIEW(FilterString);

IF xLineRecordRef.FIND('-') THEN;

IF SupportFunctions.CompareHashValues(DecodeXML.GetHashValue(XMLDocInLine),LineRecordRef) THEN BEGIN
  EncodeXML.AddFieldToValidationDoc(XMLDocValField,TomList.FIELDNO(No));
  EncodeXML.AddFieldToValidationDoc(XMLDocValField,TomList.FIELDNO(Mark1));
  EncodeXML.AddFieldToValidationDoc(XMLDocValField,TomList.FIELDNO(Mark2));
  EncodeXML.AddFieldToValidationDoc(XMLDocValField,TomList.FIELDNO(Mark3));
  EncodeXML.AddFieldToValidationDoc(XMLDocValField,TomList.FIELDNO(Total));
  EncodeXML.AddFieldToValidationDoc(XMLDocValField,TomList.FIELDNO(Average));


  DecodeXML.ModifyRecord(XMLDocInLine,LineRecordRef,XMLDocValField,DATABASE::TomList,
    FALSE,TRUE,AdditionalValues[1],AdditionalValues[2]);

  LineRecordRef.MODIFY(TRUE);
END ELSE BEGIN
  ReturnCode := 20;
END;

LineFieldRef := LineRecordRef.FIELD(TomList.FIELDNO(No));
tmpvalue := LineFieldRef.VALUE;
SupportFunctions.CreateTempHeadFilterTable(TomList.FIELDNO(No),tmpvalue,GUID);

LineFieldRef := LineRecordRef.FIELD(TomList.FIELDNO(Mark1));
tmpvalue := LineFieldRef.VALUE;
SupportFunctions.CreateTempHeadFilterTable(TomList.FIELDNO(Mark1),tmpvalue,GUID);

LineFieldRef := LineRecordRef.FIELD(TomList.FIELDNO(Mark2));
tmpvalue := LineFieldRef.VALUE;
SupportFunctions.CreateTempHeadFilterTable(TomList.FIELDNO(Mark2),tmpvalue,GUID);


SupportFunctions.CreateTempHeadFilterTable(TomList.FIELDNO(No),tmpvalue,GUID);
SupportFunctions.CreateTempHeadFilterKeys(TomList.FIELDNO(No),GUID);

Here TomList is my record variable . Any my Primary keys are :
1) No,Mark1,Mark2
2) No,LineNo

Iam getting an error like this :

" Navision error (10500): There is not sufficient available space in the C/AL stack memory to execute this task. There are too many simultaneous activities, due to the way recursive function call is used in the program. The problem can be solved temporarily by shutting down some of the open activities (but the function still cannot be executed). "

Can anyone tell me where I have gone wrong ?? Kindly help me out

Thanx in advance.........

Ravi_Thakkar

Hi, all

I just want to modify or create the Item Journal Lines from Employee Portal.

Can you please suggest me, whether I need any NAVISION Customization or not?
Please, suggest me how to do the same in any case.

Please, help me urgentaly.
Thanks in advance.

Ravi_Thakkar

Hi all,

I found the solution.
For that we need to make Item Journal Line table as a Card in Employee Portal.

And for modification of journal entries via Sharepoint, we need to write code in the Codeunits related to EP Modify Header, EP Insert Header.

Thanks.