Skip to content

KVSPSAZDE-Line#

Fields#

Name Type Note
ZDE No. Code[20]
Date Date
Line No. Integer
Document No. Code[20]
Res.-No. Code[20] Warning: Obsolete
Job No. Code[20]
Description Text[100]
Quantity Decimal
Quantity in Minutes Decimal
Resource Group No. Code[20]
Chargeable Boolean
Shortcut Dimension 1 Code Code[20]
Shortcut Dimension 2 Code Code[20]
Work Type Code Code[10]
Dimension Set ID Integer
Job Description Text[100] FlowField
Work Package Code Code[20]
Phase Code Code[20]
Task Code Code[20]
Step Code Code[20]
Budget Line No. Integer
KVSPSAInvoicing Type Enum (KVSPSAPspInvoicingType)
Person Responsible Code[20]
Reason Absence Code Code[10]
Start Time Time
End Time Time
Break Time Decimal
Break Minutes Integer
Unit Cost Decimal
KVSPSATo-Do Progress Integer
Service Document Type Enum Service Document Type
Service Document No. Code[20]
Service Line No. Integer
Job Document No. Code[20]
Job Document Line No. Integer
Invoicing Quantity Decimal
To-Do Invoicing % Decimal
To-Do Chargeable Boolean
KVSPSA25er Progress Enum (KVSPSA25erProgressType)
Description 2 Text[50]
Comment Boolean FlowField
To-Do No. Code[20]
Qty. to Complete Decimal
Contact No. Code[20]
Start Time Break Time
End Time Break Time
Manual Invoicing Qty. Boolean
Manual Description Boolean
Surcharge Type Code Code[20]
OrderedWorkSubjectToSurcharges Boolean
Skip Confirmation Dialogue Boolean
Internal Code Code[20]

Procedures#

ConnectWithBudgetLine() :#

Summary: This procedure tries to find a budget line that matches the current ZDE line.

procedure ConnectWithBudgetLine():

CreateDim(List) :#

procedure CreateDim(DefaultDimSource: List):

CreateDimFromDefaultDim(Integer) :#

Summary: This procedure run both of InitDefaultDimensionSources and CreateDim procedures.

procedure CreateDimFromDefaultDim(FieldNo: Integer):

Parameters:

  • FieldNo: Field number use for creating dimensions.

GetActivity() :#

Summary: This procedure retrieves the activity for the current ZDE line. It will open job psp line or job budget line page depend on setup field in job. After user selects the line, it will be assigned to the ZDE line.

procedure GetActivity():

GetComments(Text, Text) :#

Summary: GetComments gives you the internal comment and the customer comment. Both from the ZDE Comment Line, respecting the "Print in Customer Doc." Mark

procedure GetComments(var CustomerText: Text; var InternalText: Text):

Parameters:

  • CustomerText: The comment that should be shown to the customer
  • InternalText: The internal comment, not to be shown to the customer

InitDefaultDimensionSources(List, Integer) :#

procedure InitDefaultDimensionSources(var DefaultDimSource: List; FieldNo: Integer):

SaveComments(Text, Boolean) :#

Summary: SaveComments saves either the internal or the customer text intot the comment lines. The text is split up into chunks of lenght 80 to fit into the comments.

procedure SaveComments(var TextData: Text; IsPrintCustomerDocText: Boolean):

Parameters:

  • TextData: Entered Comment
  • IsPrintCustomerDocText: true, if the text should be shown to the customer

ZDEComments() :#

Summary: This procedure open comments page for the current ZDE line.

procedure ZDEComments():

Events#

KVSPSAOnAfterGetActivity(Record KVSPSAZDE-Line) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterGetActivity(var ZDELine: Record "KVSPSAZDE-Line"): 

[EventSubscriber(ObjectType::Table, Table::"KVSPSAZDE-Line", 'KVSPSAOnAfterGetActivity', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterGetActivity(var ZDELine: Record "KVSPSAZDE-Line")
begin
end;

KVSPSAOnAfterInitDefaultDimensionSources(Record KVSPSAZDE-Line, List, Integer) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterInitDefaultDimensionSources(var ZDELine: Record "KVSPSAZDE-Line"; var DefaultDimSource: List; FieldNo: Integer): 

[EventSubscriber(ObjectType::Table, Table::"KVSPSAZDE-Line", 'KVSPSAOnAfterInitDefaultDimensionSources', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterInitDefaultDimensionSources(var ZDELine: Record "KVSPSAZDE-Line"; var DefaultDimSource: List; FieldNo: Integer)
begin
end;

KVSPSAOnAfterIsChangeableInvoiceQtyInTimeTracking(Record KVSPSAZDE-Line, Boolean) :#

Summary: KVSPSAOnAfterIsChangeableInvoiceQtyInTimeTracking allows the dependent app to change the variable ChangeableInvoiceQtyinTimeTracking, so that the user can edit the invoicing qty. based on different conditions

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterIsChangeableInvoiceQtyInTimeTracking(ZDELine: Record "KVSPSAZDE-Line"; var ChangeableInvoiceQtyinTimeTracking: Boolean): 

[EventSubscriber(ObjectType::Table, Table::"KVSPSAZDE-Line", 'KVSPSAOnAfterIsChangeableInvoiceQtyInTimeTracking', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterIsChangeableInvoiceQtyInTimeTracking(ZDELine: Record "KVSPSAZDE-Line"; var ChangeableInvoiceQtyinTimeTracking: Boolean)
begin
end;

Parameters:

  • ZDELine:
  • ChangeableInvoiceQtyinTimeTracking:

KVSPSAOnAfterIsFromToTimeNecessary(Record KVSPSAZDE-Line, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterIsFromToTimeNecessary(var ZDELine: Record "KVSPSAZDE-Line"; var TimeIsNecessary: Boolean): 

[EventSubscriber(ObjectType::Table, Table::"KVSPSAZDE-Line", 'KVSPSAOnAfterIsFromToTimeNecessary', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterIsFromToTimeNecessary(var ZDELine: Record "KVSPSAZDE-Line"; var TimeIsNecessary: Boolean)
begin
end;

KVSPSAOnBeforeCreateDim(Record KVSPSAZDE-Line, Boolean, List) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeCreateDim(var ZDELine: Record "KVSPSAZDE-Line"; var IsHandled: Boolean; var DefaultDimSource: List): 

[EventSubscriber(ObjectType::Table, Table::"KVSPSAZDE-Line", 'KVSPSAOnBeforeCreateDim', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCreateDim(var ZDELine: Record "KVSPSAZDE-Line"; var IsHandled: Boolean; var DefaultDimSource: List)
begin
end;

KVSPSAOnBeforeIsFromToTimeNecessary(Record KVSPSAZDE-Line, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeIsFromToTimeNecessary(var ZDELine: Record "KVSPSAZDE-Line"; var TimeIsNecessary: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Table, Table::"KVSPSAZDE-Line", 'KVSPSAOnBeforeIsFromToTimeNecessary', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeIsFromToTimeNecessary(var ZDELine: Record "KVSPSAZDE-Line"; var TimeIsNecessary: Boolean; var IsHandled: Boolean)
begin
end;