Skip to content

KVSFCYTransferExtendedText#

Procedures#

AutomLineTypeNo2JobDocText(Record Job Planning Line) :#

Summary: Automatically transfers extended text from master data (Item, Resource, G/L Account, Standard Text) to job document text based on the job planning line type and number. This procedure creates document text entries for all text positions (Previous Text, After Text) when extended text headers are configured for automatic use in document text. The procedure deletes existing automatic document text entries and recreates them based on current extended text setup.

procedure AutomLineTypeNo2JobDocText(JobPlanningLine: Record "Job Planning Line"):

Parameters:

  • JobPlanningLine: The job planning line record containing the master data reference (Type and No.) and job context information for which extended text should be automatically transferred to document text entries

Events#

OnBeforeReadLines(Record Extended Text Header, Date, Code[10], Boolean, Boolean) :#

Summary: Triggers before reading extended text lines.

[IntegrationEvent(false, false)]
local procedure OnBeforeReadLines(var ExtendedTextHeader: Record "Extended Text Header"; DocDate: Date; LanguageCode: Code[10]; var IsHandled: Boolean; var Result: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYTransferExtendedText", 'OnBeforeReadLines', '', false, false)]
local procedure DoSomethingOnBeforeReadLines(var ExtendedTextHeader: Record "Extended Text Header"; DocDate: Date; LanguageCode: Code[10]; var IsHandled: Boolean; var Result: Boolean)
begin
end;

Parameters:

  • ExtendedTextHeader: Extended text header being processed.
  • DocDate: Document date for filtering.
  • LanguageCode: Language code for text selection.
  • IsHandled: Skip reading process when true.
  • Result: Result of reading operation.

OnTransferExtText2ProjectDocTextOnBeforeTempExtTextLine(Record KVSFCYProjectDocumentText, Record KVSFCYProjectDocumentText, Record Extended Text Line, Text[130], Integer, Integer, Boolean) :#

Summary: Triggers before processing extended text lines for project document text transfer.

[IntegrationEvent(false, false)]
local procedure OnTransferExtText2ProjectDocTextOnBeforeTempExtTextLine(var NewProjectDocumentText: Record "KVSFCYProjectDocumentText"; var ProjectDocumentText: Record "KVSFCYProjectDocumentText"; var TempExtendedTextLine: Record "Extended Text Line" temporary; HeadLineText: Text[130]; var NextLineNo: Integer; var LineSpacing: Integer; var Inserted: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSFCYTransferExtendedText", 'OnTransferExtText2ProjectDocTextOnBeforeTempExtTextLine', '', false, false)]
local procedure DoSomethingOnTransferExtText2ProjectDocTextOnBeforeTempExtTextLine(var NewProjectDocumentText: Record "KVSFCYProjectDocumentText"; var ProjectDocumentText: Record "KVSFCYProjectDocumentText"; var TempExtendedTextLine: Record "Extended Text Line" temporary; HeadLineText: Text[130]; var NextLineNo: Integer; var LineSpacing: Integer; var Inserted: Boolean)
begin
end;

Parameters:

  • NewProjectDocumentText: New project document text being created.
  • ProjectDocumentText: Current project document text record.
  • TempExtendedTextLine: Extended text lines to be transferred.
  • HeadLineText: Header line text for the transfer.
  • NextLineNo: Next line number for insertion.
  • LineSpacing: Spacing between lines.
  • Inserted: Indicates if text was inserted.