KVSKBAServicePriceCalcLib#

Procedures#

CollectOtherItemsOfServiceDoc(Record Service Header, Record Service Line, Boolean, Record KVSKBASalesPurchPriceCalcBuf, Boolean) :#

Summary: Collect in temporary buffer table combinations of item no., variant code, customer price group, etc. for service lines with different item no. and same "KVSKBAItemPriceGroup" or "KVSKBAItemDiscGroup" as the current service line.

Syntax

procedure CollectOtherItemsOfServiceDoc(ServiceHeader: Record "Service Header"; CurrentServiceLine: Record "Service Line"; IncludeCurrentServiceLine: Boolean; var TempSalesPurchPriceCalcBuf: Record "KVSKBASalesPurchPriceCalcBuf" temporary; DeleteAllBufferRecords: Boolean):

Parameters:

ServiceHeader: Serivce Header to use
CurrentServiceLine: Actual Service Line
IncludeCurrentServiceLine: Set include Service line
TempSalesPurchPriceCalcBuf: Calculated Sales Purch Price Calc Buf
DeleteAllBufferRecords: Delete All Buffer Records

Events#

OnAfterCopyUnitPriceAndLineDiscToOtherLines(Record Service Line, Record Service Line, Record Service Header) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnAfterCopyUnitPriceAndLineDiscToOtherLines(var ToServiceLine: Record "Service Line"; FromServiceLine: Record "Service Line"; ServiceHeader: Record "Service Header"):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'OnAfterCopyUnitPriceAndLineDiscToOtherLines', '', false, false)]
local procedure DoSomethingOnAfterCopyUnitPriceAndLineDiscToOtherLines(var ToServiceLine: Record "Service Line"; FromServiceLine: Record "Service Line"; ServiceHeader: Record "Service Header")
begin
end;

OnAfterIsPriceOrDiscMinQtyPerLine(Record Service Header, Record Service Line, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnAfterIsPriceOrDiscMinQtyPerLine(ServiceHeader: Record "Service Header"; ServiceLine: Record "Service Line"; var Result: Boolean):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'OnAfterIsPriceOrDiscMinQtyPerLine', '', false, false)]
local procedure DoSomethingOnAfterIsPriceOrDiscMinQtyPerLine(ServiceHeader: Record "Service Header"; ServiceLine: Record "Service Line"; var Result: Boolean)
begin
end;

OnAfterSetFilterServiceLineToSumUpQty2(Record Service Line) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnAfterSetFilterServiceLineToSumUpQty2(var ServiceLine: Record "Service Line"):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'OnAfterSetFilterServiceLineToSumUpQty2', '', false, false)]
local procedure DoSomethingOnAfterSetFilterServiceLineToSumUpQty2(var ServiceLine: Record "Service Line")
begin
end;

OnAfterValidateLineDiscPctOnCopyUnitPriceAndLineDiscToOtherLine(Record Service Line, Record Service Line, Record Service Header, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnAfterValidateLineDiscPctOnCopyUnitPriceAndLineDiscToOtherLine(var ToServiceLine: Record "Service Line"; FromServiceLine: Record "Service Line"; ServiceHeader: Record "Service Header"; var ModifyLine: Boolean):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'OnAfterValidateLineDiscPctOnCopyUnitPriceAndLineDiscToOtherLine', '', false, false)]
local procedure DoSomethingOnAfterValidateLineDiscPctOnCopyUnitPriceAndLineDiscToOtherLine(var ToServiceLine: Record "Service Line"; FromServiceLine: Record "Service Line"; ServiceHeader: Record "Service Header"; var ModifyLine: Boolean)
begin
end;

OnBeforeCompareVariantCodeInIsPriceUpdateOfOtherLinesRequired(Boolean, Code[10], Code[10], Code[20]) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnBeforeCompareVariantCodeInIsPriceUpdateOfOtherLinesRequired(var ChangedVariantCode: Boolean; OldVariantCode: Code[10]; NewVariantCode: Code[10]; ItemNo: Code[20]):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'OnBeforeCompareVariantCodeInIsPriceUpdateOfOtherLinesRequired', '', false, false)]
local procedure DoSomethingOnBeforeCompareVariantCodeInIsPriceUpdateOfOtherLinesRequired(var ChangedVariantCode: Boolean; OldVariantCode: Code[10]; NewVariantCode: Code[10]; ItemNo: Code[20])
begin
end;

OnBeforeCompareVariantCodeInUpdateOtherServiceLinesUnitPrice(Boolean, Code[10], Code[10], Code[20]) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnBeforeCompareVariantCodeInUpdateOtherServiceLinesUnitPrice(var ChangedVariantCode: Boolean; OldVariantCode: Code[10]; NewVariantCode: Code[10]; ItemNo: Code[20]):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'OnBeforeCompareVariantCodeInUpdateOtherServiceLinesUnitPrice', '', false, false)]
local procedure DoSomethingOnBeforeCompareVariantCodeInUpdateOtherServiceLinesUnitPrice(var ChangedVariantCode: Boolean; OldVariantCode: Code[10]; NewVariantCode: Code[10]; ItemNo: Code[20])
begin
end;

OnBeforeCompareVariantCodeInCompareVariantCodeInCollectOtherItemsOfServiceDoc(Boolean, Code[10], Code[10], Code[20]) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnBeforeCompareVariantCodeInCompareVariantCodeInCollectOtherItemsOfServiceDoc(var ChangedVariantCode: Boolean; VariantCode: Code[10]; CurrentVariantCode: Code[10]; ItemNo: Code[20]):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'OnBeforeCompareVariantCodeInCompareVariantCodeInCollectOtherItemsOfServiceDoc', '', false, false)]
local procedure DoSomethingOnBeforeCompareVariantCodeInCompareVariantCodeInCollectOtherItemsOfServiceDoc(var ChangedVariantCode: Boolean; VariantCode: Code[10]; CurrentVariantCode: Code[10]; ItemNo: Code[20])
begin
end;

OnBeforeInsertInAddItemToPriceCalcBuffer(Record KVSKBASalesPurchPriceCalcBuf, Record Service Line, Record Service Header) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnBeforeInsertInAddItemToPriceCalcBuffer(var TempKVSKBASalesPurchPriceCalcBuf: Record "KVSKBASalesPurchPriceCalcBuf" temporary; ServiceLine: Record "Service Line"; ServiceHeader: Record "Service Header"):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'OnBeforeInsertInAddItemToPriceCalcBuffer', '', false, false)]
local procedure DoSomethingOnBeforeInsertInAddItemToPriceCalcBuffer(var TempKVSKBASalesPurchPriceCalcBuf: Record "KVSKBASalesPurchPriceCalcBuf" temporary; ServiceLine: Record "Service Line"; ServiceHeader: Record "Service Header")
begin
end;

OnBeforeModifyLineOnCopyUnitPriceAndLineDiscToOtherLine(Record Service Line, Record Service Line, Record Service Header, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnBeforeModifyLineOnCopyUnitPriceAndLineDiscToOtherLine(var ToServiceLine: Record "Service Line"; FromServiceLine: Record "Service Line"; ServiceHeader: Record "Service Header"; var ModifyLine: Boolean):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'OnBeforeModifyLineOnCopyUnitPriceAndLineDiscToOtherLine', '', false, false)]
local procedure DoSomethingOnBeforeModifyLineOnCopyUnitPriceAndLineDiscToOtherLine(var ToServiceLine: Record "Service Line"; FromServiceLine: Record "Service Line"; ServiceHeader: Record "Service Header"; var ModifyLine: Boolean)
begin
end;

OnBeforeTestFieldVariantCodeInCopyUnitPriceAndLineDiscToOtherLine(Record Service Header, Record Service Line, Record Service Line, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnBeforeTestFieldVariantCodeInCopyUnitPriceAndLineDiscToOtherLine(ServiceHeader: Record "Service Header"; FromServiceLine: Record "Service Line"; ToServiceLine: Record "Service Line"; var IsHandled: Boolean):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'OnBeforeTestFieldVariantCodeInCopyUnitPriceAndLineDiscToOtherLine', '', false, false)]
local procedure DoSomethingOnBeforeTestFieldVariantCodeInCopyUnitPriceAndLineDiscToOtherLine(ServiceHeader: Record "Service Header"; FromServiceLine: Record "Service Line"; ToServiceLine: Record "Service Line"; var IsHandled: Boolean)
begin
end;

OnGetTotalItemPriceGrpQtyOnAfterSetFilterServiceLine(Record Service Line, Record Service Line, Decimal, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnGetTotalItemPriceGrpQtyOnAfterSetFilterServiceLine(CurrentServiceLine: Record "Service Line"; var ServiceLine: Record "Service Line"; var TotalQty: Decimal; var IsHandled: Boolean):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'OnGetTotalItemPriceGrpQtyOnAfterSetFilterServiceLine', '', false, false)]
local procedure DoSomethingOnGetTotalItemPriceGrpQtyOnAfterSetFilterServiceLine(CurrentServiceLine: Record "Service Line"; var ServiceLine: Record "Service Line"; var TotalQty: Decimal; var IsHandled: Boolean)
begin
end;

GetTotalItemDiscGrpQtyOnAfterSetFilterServiceLine(Record Service Line, Record Service Line, Decimal, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure GetTotalItemDiscGrpQtyOnAfterSetFilterServiceLine(CurrentServiceLine: Record "Service Line"; var ServiceLine: Record "Service Line"; var TotalQty: Decimal; var IsHandled: Boolean):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'GetTotalItemDiscGrpQtyOnAfterSetFilterServiceLine', '', false, false)]
local procedure DoSomethingGetTotalItemDiscGrpQtyOnAfterSetFilterServiceLine(CurrentServiceLine: Record "Service Line"; var ServiceLine: Record "Service Line"; var TotalQty: Decimal; var IsHandled: Boolean)
begin
end;

OnGetTotalItemQtyOnAfterSetFilterServiceLine(Record Service Line, Record Service Line, Decimal, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnGetTotalItemQtyOnAfterSetFilterServiceLine(CurrentServiceLine: Record "Service Line"; var ServiceLine: Record "Service Line"; var TotalQty: Decimal; var IsHandled: Boolean):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'OnGetTotalItemQtyOnAfterSetFilterServiceLine', '', false, false)]
local procedure DoSomethingOnGetTotalItemQtyOnAfterSetFilterServiceLine(CurrentServiceLine: Record "Service Line"; var ServiceLine: Record "Service Line"; var TotalQty: Decimal; var IsHandled: Boolean)
begin
end;

OnAfterFilterServLineToSumUpQty(Record Service Line, Record Service Line) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure OnAfterFilterServLineToSumUpQty(CurrentServiceLine: Record "Service Line"; var ServiceLine: Record "Service Line"):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'OnAfterFilterServLineToSumUpQty', '', false, false)]
local procedure DoSomethingOnAfterFilterServLineToSumUpQty(CurrentServiceLine: Record "Service Line"; var ServiceLine: Record "Service Line")
begin
end;

SetFilterInAddItemToPriceCalcBuffer(Record KVSKBASalesPurchPriceCalcBuf, Record Service Line, Record Service Header) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure SetFilterInAddItemToPriceCalcBuffer(var TempKVSKBASalesPurchPriceCalcBuf: Record "KVSKBASalesPurchPriceCalcBuf" temporary; ServiceLine: Record "Service Line"; ServiceHeader: Record "Service Header"):

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAServicePriceCalcLib", 'SetFilterInAddItemToPriceCalcBuffer', '', false, false)]
local procedure DoSomethingSetFilterInAddItemToPriceCalcBuffer(var TempKVSKBASalesPurchPriceCalcBuf: Record "KVSKBASalesPurchPriceCalcBuf" temporary; ServiceLine: Record "Service Line"; ServiceHeader: Record "Service Header")
begin
end;