KVSPSAPSP Job Text Line#

Fields#

Name	Type	Note
Table Name	Option	OptionMembers: KVSPSAJobPSPHeader,KVSPSAJobPSPLine,PSA Job Budgetline,Job
Job No.	Code[20]
Line No.	Integer
Date	Date
Text	Text[130]
Version No.	Code[20]
Job Budget Name	Code[10]
Table Line	Integer
Budget Line No.	Integer
Sales Quote print	Boolean
Sales Order print	Boolean
Sales Invoice print	Boolean
Sales Credit Memo print	Boolean
Sales Blanket order print	Boolean
Sales Return order print	Boolean
Sales Shipment print	Boolean
Purchase Quote print	Boolean
Purchase Order print	Boolean
Purchase Invoice print	Boolean
Purchase Credit memo print	Boolean
Purchase Blanket order print	Boolean
Purchase Return order print	Boolean
Posted Sales Receipt print	Boolean
Posted Purch Return Shipment	Boolean
Purchase Receive print	Boolean
Position	Enum (KVSKBATextPosition)
Job Document Print	Boolean
Formatted Text	Blob
Advertising Group Text	Boolean
Manual Created	Boolean

Procedures#

CalcNoOfJobTextLines(Option, Code[20], Code[10], Code[20], Integer, Integer, Enum KVSKBATextPosition) : Integer#

Summary: This procedure count the number of job text lines based on the provided parameters.

Syntax

procedure CalcNoOfJobTextLines(TableName: Option; JobNo: Code[20]; JobBudgetName: Code[10]; VersionNo: Code[20]; TableLine: Integer; BudgetLineNo: Integer; TextPosition: Enum "KVSKBATextPosition"): Integer

Parameters:

TableName: Name of the table to filter on.
JobNo: Job number to filter on.
JobBudgetName: Job budget name to filter on.
VersionNo: Version number to filter on.
TableLine: Line number in the table to filter on.
BudgetLineNo: Budget line number to filter on.
TextPosition: Position of the text to filter on.

Returns: Returns the count of job text lines that match the specified filter.

DoShowJobTextLines(Option, Code[20], Code[10], Code[20], Integer, Integer, Enum KVSKBATextPosition, Boolean) :#

Summary: This procedure open page for specific job text lines base on the provided parameters.

Syntax

procedure DoShowJobTextLines(TableName: Option; JobNo: Code[20]; JobBudgetName: Code[10]; VersionNo: Code[20]; TableLine: Integer; BudgetLineNo: Integer; TextPosition: Enum "KVSKBATextPosition"; IsHandled: Boolean):

Parameters:

TableName: Table name to filter on.
JobNo: Job number to filter on.
JobBudgetName: Job budget name to filter on.
VersionNo: Version number to filter on.
TableLine: Line number in the table to filter on.
BudgetLineNo: Budget line number to filter on.
TextPosition: Text position to filter on.
IsHandled: Boolean for condition.

GetBlobText() : Text#

Summary: This procedure retrieves text from blob field "Formatted Text" and return.

Syntax

procedure GetBlobText(): Text

Returns: Returns the text from the "Formatted Text" blob field.

GetPlainBlobText() : Text#

Summary: This procedure call function GetPlainBlobText from codeunit KVSKBAEditorMgt and pass text it get from function GetBlobText.

Syntax

procedure GetPlainBlobText(): Text

Returns: Returns the text from function GetPlainBlobText.

InitNewRecord() :#

Summary: This procedure initializes a new record for the job text line table.

Syntax

procedure InitNewRecord():

InsertExtendedText() :#

Summary: This procedure transfers extended text into psp job text line.

Syntax

procedure InsertExtendedText():

InsertStdText() :#

Summary: This procedure transfers standard text into psp job text line.

Syntax

procedure InsertStdText():

SetBlobText(Text) :#

Summary: This procedure insert provided text into a blob field.

Syntax

procedure SetBlobText(WriteText: Text):

Parameters:

WriteText: Text to insert into the blob field.

ShowJobTextLines(Option, Code[20], Code[10], Code[20], Integer, Integer, Enum KVSKBATextPosition) :#

Summary: This procedure shows the job text lines for a specific table base on the provided parameters.

Syntax

procedure ShowJobTextLines(TableName: Option; JobNo: Code[20]; JobBudgetName: Code[10]; VersionNo: Code[20]; TableLine: Integer; BudgetLineNo: Integer; TextPosition: Enum "KVSKBATextPosition"):

Parameters:

TableName: Name of the table to show job text lines for.
JobNo: Job number used for filtering the text lines.
JobBudgetName: Job budget name used for filtering the text lines.
VersionNo: Version number used for filtering the text lines.
TableLine: Table line number used for filtering the text lines.
BudgetLineNo: Budget line number used for filtering the text lines.
TextPosition: Text position used for filtering the text lines.

TransferFieldsFromSalesDocumentTextLine(Record KVSKBASalesDocumentText, Record KVSKBASalesDocTextTempl, Record KVSKBAPurchaseDocTextTempl) :#

Summary: TransferFieldsFromSalesDocumentTextLine transfers the text and the visibility settings by report from a given sales document text - record, and initializes other fields from the respective templates.

Syntax

procedure TransferFieldsFromSalesDocumentTextLine(KVSKBASalesDocumentText: Record "KVSKBASalesDocumentText"; KVSKBASalesDocTextTempl: Record "KVSKBASalesDocTextTempl"; KVSKBAPurchaseDocTextTempl: Record "KVSKBAPurchaseDocTextTempl"):

Parameters:

KVSKBASalesDocumentText: Source-Record of Type SalesDocumentText
KVSKBASalesDocTextTempl: SalesDocumentTextTemplate is used for job shipment only.
KVSKBAPurchaseDocTextTempl: PurchaseDocumentTextTemplate

Events#

KVSPSAOnAfterInitNewRecordFromTemplate(Record KVSPSAPSP Job Text Line, Record KVSKBASalesDocTextTempl, Record KVSKBAPurchaseDocTextTempl) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterInitNewRecordFromTemplate(var PSPJobTextLine: Record "KVSPSAPSP Job Text Line"; KVSKBASalesDocTextTemplate: Record "KVSKBASalesDocTextTempl"; KVSKBAPurchaseDocTextTemplate: Record "KVSKBAPurchaseDocTextTempl"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAPSP Job Text Line", 'KVSPSAOnAfterInitNewRecordFromTemplate', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterInitNewRecordFromTemplate(var PSPJobTextLine: Record "KVSPSAPSP Job Text Line"; KVSKBASalesDocTextTemplate: Record "KVSKBASalesDocTextTempl"; KVSKBAPurchaseDocTextTemplate: Record "KVSKBAPurchaseDocTextTempl")
begin
end;

KVSPSAOnAfterInitNewRecordFromXRec(Record KVSPSAPSP Job Text Line, Record KVSPSAPSP Job Text Line) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterInitNewRecordFromXRec(var PSPJobTextLine: Record "KVSPSAPSP Job Text Line"; var xRecPSPJobTextLine: Record "KVSPSAPSP Job Text Line"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAPSP Job Text Line", 'KVSPSAOnAfterInitNewRecordFromXRec', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterInitNewRecordFromXRec(var PSPJobTextLine: Record "KVSPSAPSP Job Text Line"; var xRecPSPJobTextLine: Record "KVSPSAPSP Job Text Line")
begin
end;

KVSPSAOnAfterTransferFieldsFromExtTextLine(Record KVSPSAPSP Job Text Line, Record Extended Text Line) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterTransferFieldsFromExtTextLine(var PSPJobTextLine: Record "KVSPSAPSP Job Text Line"; ExtendedTextLine: Record "Extended Text Line"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAPSP Job Text Line", 'KVSPSAOnAfterTransferFieldsFromExtTextLine', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterTransferFieldsFromExtTextLine(var PSPJobTextLine: Record "KVSPSAPSP Job Text Line"; ExtendedTextLine: Record "Extended Text Line")
begin
end;

KVSPSAOnAfterTransferFieldsFromSalesDocumentTextLine(Record KVSPSAPSP Job Text Line, Record KVSKBASalesDocumentText, Record KVSKBASalesDocTextTempl, Record KVSKBAPurchaseDocTextTempl) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterTransferFieldsFromSalesDocumentTextLine(var PSPJobTextLine: Record "KVSPSAPSP Job Text Line"; KVSKBASalesDocumentText: Record "KVSKBASalesDocumentText"; KVSKBASalesDocTextTempl: Record "KVSKBASalesDocTextTempl"; KVSKBAPurchaseDocTextTempl: Record "KVSKBAPurchaseDocTextTempl"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAPSP Job Text Line", 'KVSPSAOnAfterTransferFieldsFromSalesDocumentTextLine', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterTransferFieldsFromSalesDocumentTextLine(var PSPJobTextLine: Record "KVSPSAPSP Job Text Line"; KVSKBASalesDocumentText: Record "KVSKBASalesDocumentText"; KVSKBASalesDocTextTempl: Record "KVSKBASalesDocTextTempl"; KVSKBAPurchaseDocTextTempl: Record "KVSKBAPurchaseDocTextTempl")
begin
end;

KVSPSAOnAfterTransferFieldsFromTemplateLine(Record KVSPSAPSP Job Text Line, Record KVSPSAJob Template Text) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterTransferFieldsFromTemplateLine(var PSPJobTextLine: Record "KVSPSAPSP Job Text Line"; JobTemplateText: Record "KVSPSAJob Template Text"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAPSP Job Text Line", 'KVSPSAOnAfterTransferFieldsFromTemplateLine', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterTransferFieldsFromTemplateLine(var PSPJobTextLine: Record "KVSPSAPSP Job Text Line"; JobTemplateText: Record "KVSPSAJob Template Text")
begin
end;

OnAfterShowJobTextLines(Option, Code[20], Code[10], Code[20], Integer, Integer, Enum KVSKBATextPosition) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnAfterShowJobTextLines(TableName: Option; JobNo: Code[20]; JobBudgetName: Code[10]; VersionNo: Code[20]; TableLine: Integer; BudgetLineNo: Integer; TextPosition: Enum "KVSKBATextPosition"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAPSP Job Text Line", 'OnAfterShowJobTextLines', '', false, false)]
local procedure DoSomethingOnAfterShowJobTextLines(TableName: Option; JobNo: Code[20]; JobBudgetName: Code[10]; VersionNo: Code[20]; TableLine: Integer; BudgetLineNo: Integer; TextPosition: Enum "KVSKBATextPosition")
begin
end;

OnBeforeShowJobTextLines(Option, Code[20], Code[10], Code[20], Integer, Integer, Enum KVSKBATextPosition, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnBeforeShowJobTextLines(TableName: Option; JobNo: Code[20]; JobBudgetName: Code[10]; VersionNo: Code[20]; TableLine: Integer; BudgetLineNo: Integer; TextPosition: Enum "KVSKBATextPosition"; var IsHandled: Boolean):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAPSP Job Text Line", 'OnBeforeShowJobTextLines', '', false, false)]
local procedure DoSomethingOnBeforeShowJobTextLines(TableName: Option; JobNo: Code[20]; JobBudgetName: Code[10]; VersionNo: Code[20]; TableLine: Integer; BudgetLineNo: Integer; TextPosition: Enum "KVSKBATextPosition"; var IsHandled: Boolean)
begin
end;