You can set up any table in NAV to be accessed in EP, as long as the information can be displayed in any one of the standard EP web parts. If you need more functionality, you have to create your own web part.
// Get Line Number
LineRecordRef2.OPEN(DATABASE::"Service Item Line",FALSE);
LineRecordRef2Filter := STRSUBSTNO('WHERE(1=CONST(%1),3=CONST(%2))',DocumentType,DocumentNo);
LineRecordRef2.SETVIEW(LineRecordRef2Filter);
IF LineRecordRef2.FIND('+') THEN BEGIN
LineFieldRef2 := LineRecordRef2.FIELD(ServiceItemLine.FIELDNO("Line No."));
NextLineNo := LineFieldRef2.VALUE;
NextLineNo := NextLineNo + 10000;
END ELSE BEGIN
NextLineNo := 10000;
END;
LineRecordRef2.CLOSE;
Comments
MVP - Dynamics NAV
My BLOG
NAVERTICA a.s.
Navision error (10500): You cannot enter 'ERROR' in Integer. The cursor
is in front of the invalid character.
I am doing customization on EP Insert Line Data Mgt. For Service Module.
Anyone face this kind of error?
RIS Plus, LLC
LineRecordRef.OPEN(DATABASE::"Service Item Line",FALSE);
// Init the Record
LineRecordRef.INIT;
// Set the Primarykey Fields
LineFieldRef := LineRecordRef.FIELD(ServiceItemLine.FIELDNO("Document Type"));
EPSupportFunctions.ModifylFieldRefOnInsert(DATABASE::"Service Item Line",ServiceItemLine.FIELDNO("Document Type"),
EPDecodeXML.GetValueByFieldIDFromHeadData(XMLDocInHead,ServiceItemLine.FIELDNO("Document Type")),
LineFieldRef);
DocumentType := LineFieldRef.VALUE;
EPSupportFunctions.CreateTempHeadFilterTable(ServiceItemLine.FIELDNO("Document Type"),
EPFormatFunctions.OptionToText(DocumentType),GUID);
LineFieldRef := LineRecordRef.FIELD(ServiceItemLine.FIELDNO("Customer No."));
EPSupportFunctions.ModifylFieldRefOnInsert(DATABASE::"Service Item Line",ServiceItemLine.FIELDNO("Customer No."),
EPDecodeXML.GetValueByFieldIDFromHeadData(XMLDocInHead,ServiceItemLine.FIELDNO("Customer No.")),
LineFieldRef);
LineFieldRef := LineRecordRef.FIELD(ServiceItemLine.FIELDNO("Document No."));
EPSupportFunctions.ModifylFieldRefOnInsert(DATABASE::"Service Item Line",ServiceItemLine.FIELDNO("Document No."),
EPDecodeXML.GetValueByFieldIDFromHeadData(XMLDocInHead,ServiceItemLine.FIELDNO("Document No.")),
LineFieldRef);
DocumentNo := LineFieldRef.VALUE;
EPSupportFunctions.CreateTempHeadFilterTable(ServiceItemLine.FIELDNO("Document No."),
DocumentNo,GUID);
// Get Line Number
LineRecordRef2.OPEN(DATABASE::"Service Item Line",FALSE);
LineRecordRef2Filter := STRSUBSTNO('WHERE(1=CONST(%1),3=CONST(%2))',DocumentType,DocumentNo);
LineRecordRef2.SETVIEW(LineRecordRef2Filter);
IF LineRecordRef2.FIND('+') THEN BEGIN
LineFieldRef2 := LineRecordRef2.FIELD(ServiceItemLine.FIELDNO("Line No."));
NextLineNo := LineFieldRef2.VALUE;
NextLineNo := NextLineNo + 10000;
END ELSE BEGIN
NextLineNo := 10000;
END;
LineRecordRef2.CLOSE;
LineFieldRef := LineRecordRef.FIELD(ServiceItemLine.FIELDNO("Line No."));
LineFieldRef.VALUE(NextLineNo);
LineRecordRef.INSERT(TRUE);
// Insert Head Key fields for Answer
EPSupportFunctions.CreateTempHeadFilterKeys(ServiceItemLine.FIELDNO("Document Type"),GUID);
EPSupportFunctions.CreateTempHeadFilterKeys(ServiceItemLine.FIELDNO("Document No."),GUID);
When I Click on save button of lines it is giving me error.
Server error in "/" Application
"Objects reference not set to an instance of objects"
Please guide me I am great pain.
The Service Header does not exist. Identification fields and values: Document Type='Quote',No.='SO000017' Document Type: Quote, No.: SO000017
Any one face this error.