KVSPSATransferJobIntoCompany#
Events#
KVSPSACreateICJobOnGetICPartnerOutboundJobNoElse(Record IC Partner, Record Job, Boolean) :#
Summary: This Event will be raised if no IC Job is found to create a new one with an individual value and setup of the field "KVSPSAOutbound Job No." in the "IC Partner" Table
[IntegrationEvent(false, false)]
local procedure KVSPSACreateICJobOnGetICPartnerOutboundJobNoElse(ICPartner: Record "IC Partner"; var JobTC: Record "Job"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSACreateICJobOnGetICPartnerOutboundJobNoElse', '', false, false)]
local procedure DoSomethingKVSPSACreateICJobOnGetICPartnerOutboundJobNoElse(ICPartner: Record "IC Partner"; var JobTC: Record "Job"; var IsHandled: Boolean)
begin
end;
Parameters:
ICPartner: To check settings for ICJobTC: The Job which will be created in the ICIsHandled: To mark the implementation is done. Otherwise an error will occur.
KVSPSAOnAfterCalcNewItemNo(Code[20], Record IC Partner, Code[20], Code[20], Code[20]) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCalcNewItemNo(OldNo: Code[20]; ICPartner: Record "IC Partner"; var NewNo: Code[20]; Variant: Code[20]; Unit: Code[20]):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnAfterCalcNewItemNo', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCalcNewItemNo(OldNo: Code[20]; ICPartner: Record "IC Partner"; var NewNo: Code[20]; Variant: Code[20]; Unit: Code[20])
begin
end;
KVSPSAOnAfterCreatePSPLineInICPartnerJob(Record KVSPSAJobPSPLine, Record KVSPSAJobPSPLine, Boolean, Record KVSPSAJob IC Partner, Record IC Partner) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCreatePSPLineInICPartnerJob(var JobPSPLine: Record "KVSPSAJobPSPLine"; var ICJobPSPLine: Record "KVSPSAJobPSPLine"; var PSPLineCreated: Boolean; JobICPartner: Record "KVSPSAJob IC Partner"; var ICPartner: Record "IC Partner"):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnAfterCreatePSPLineInICPartnerJob', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCreatePSPLineInICPartnerJob(var JobPSPLine: Record "KVSPSAJobPSPLine"; var ICJobPSPLine: Record "KVSPSAJobPSPLine"; var PSPLineCreated: Boolean; JobICPartner: Record "KVSPSAJob IC Partner"; var ICPartner: Record "IC Partner")
begin
end;
KVSPSAOnAfterInitFieldsOfBudgetEntryIC(Record KVSPSA Job Budget Entry, Record KVSPSA Job Budget Entry) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterInitFieldsOfBudgetEntryIC(var ICOldJobBudgetEntry: Record "KVSPSA Job Budget Entry"; var ICJobBudgetEntry: Record "KVSPSA Job Budget Entry"):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnAfterInitFieldsOfBudgetEntryIC', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterInitFieldsOfBudgetEntryIC(var ICOldJobBudgetEntry: Record "KVSPSA Job Budget Entry"; var ICJobBudgetEntry: Record "KVSPSA Job Budget Entry")
begin
end;
KVSPSAOnAfterInitFieldsOfBudgetLineIC(Record KVSPSA Job Budget Line, Record KVSPSA Job Budget Line) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterInitFieldsOfBudgetLineIC(var ICOldJobBudgetLine: Record "KVSPSA Job Budget Line"; var ICJobBudgetLine: Record "KVSPSA Job Budget Line"):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnAfterInitFieldsOfBudgetLineIC', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterInitFieldsOfBudgetLineIC(var ICOldJobBudgetLine: Record "KVSPSA Job Budget Line"; var ICJobBudgetLine: Record "KVSPSA Job Budget Line")
begin
end;
KVSPSAOnAfterInitFieldsOfJobIC(Record Job, Record Job) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterInitFieldsOfJobIC(var ICOldJob: Record "Job"; var ICJob: Record "Job"):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnAfterInitFieldsOfJobIC', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterInitFieldsOfJobIC(var ICOldJob: Record "Job"; var ICJob: Record "Job")
begin
end;
KVSPSAOnAfterInitFieldsOfPSPLineIC(Record KVSPSAJobPSPLine, Record KVSPSAJobPSPLine) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterInitFieldsOfPSPLineIC(var ICOldJobPSPLine: Record "KVSPSAJobPSPLine"; var ICJobPSPLine: Record "KVSPSAJobPSPLine"):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnAfterInitFieldsOfPSPLineIC', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterInitFieldsOfPSPLineIC(var ICOldJobPSPLine: Record "KVSPSAJobPSPLine"; var ICJobPSPLine: Record "KVSPSAJobPSPLine")
begin
end;
KVSPSAOnAfterInsertJobPSPLine(Record KVSPSAJobPSPLine, Record KVSPSAJobPSPLine) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterInsertJobPSPLine(var NewICJobPSPLine: Record "KVSPSAJobPSPLine"; var JobPSPLine: Record "KVSPSAJobPSPLine"):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnAfterInsertJobPSPLine', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterInsertJobPSPLine(var NewICJobPSPLine: Record "KVSPSAJobPSPLine"; var JobPSPLine: Record "KVSPSAJobPSPLine")
begin
end;
KVSPSAOnAfterJobTransferedToICJob(Record IC Partner, Record Job, Record Job) :#
Summary: This Event will be after the Job has been transfered into Company
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterJobTransferedToICJob(ICPartner: Record "IC Partner"; Job: Record "Job"; var JobTC: Record "Job"):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnAfterJobTransferedToICJob', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterJobTransferedToICJob(ICPartner: Record "IC Partner"; Job: Record "Job"; var JobTC: Record "Job")
begin
end;
Parameters:
ICPartner: To check settings for ICJob: The Job which was transfered from current companyJobTC: The Job which was created in the IC
KVSPSAOnAfterModifyICJobInAfterGetRecordJob(Record Job, Record Job) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterModifyICJobInAfterGetRecordJob(var ICJob: Record "Job"; var Job: Record "Job"):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnAfterModifyICJobInAfterGetRecordJob', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterModifyICJobInAfterGetRecordJob(var ICJob: Record "Job"; var Job: Record "Job")
begin
end;
KVSPSAOnBeforeCreateJobICReviewResourcePrice(Record KVSPSAJobICReviewResourcePrice, Record KVSPSAJobICPartnerResPrice, Code[20], Text[30], Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeCreateJobICReviewResourcePrice(var JobICReviewResourcePriceTC: Record "KVSPSAJobICReviewResourcePrice"; JobICPartnerResPrice: Record "KVSPSAJobICPartnerResPrice"; JobNoTC: Code[20]; TargetCompanyCode: Text[30]; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnBeforeCreateJobICReviewResourcePrice', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCreateJobICReviewResourcePrice(var JobICReviewResourcePriceTC: Record "KVSPSAJobICReviewResourcePrice"; JobICPartnerResPrice: Record "KVSPSAJobICPartnerResPrice"; JobNoTC: Code[20]; TargetCompanyCode: Text[30]; var IsHandled: Boolean)
begin
end;
KVSPSAOnBeforeInsertJobICReviewResourcePrice(Record KVSPSAJobICReviewResourcePrice, Record KVSPSAJobICPartnerResPrice, Code[20], Text[30], Integer, Integer, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeInsertJobICReviewResourcePrice(var JobICReviewResourcePriceTC: Record "KVSPSAJobICReviewResourcePrice"; JobICPartnerResPrice: Record "KVSPSAJobICPartnerResPrice"; JobNoTC: Code[20]; TargetCompanyCode: Text[30]; var JobResPriceCounter: Integer; var JobResPriceCounterTotal: Integer; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnBeforeInsertJobICReviewResourcePrice', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeInsertJobICReviewResourcePrice(var JobICReviewResourcePriceTC: Record "KVSPSAJobICReviewResourcePrice"; JobICPartnerResPrice: Record "KVSPSAJobICPartnerResPrice"; JobNoTC: Code[20]; TargetCompanyCode: Text[30]; var JobResPriceCounter: Integer; var JobResPriceCounterTotal: Integer; var IsHandled: Boolean)
begin
end;
KVSPSAOnBeforeInsertJobPSPLine(Record KVSPSAJobPSPLine, Record KVSPSAJobPSPLine) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeInsertJobPSPLine(var NewICJobPSPLine: Record "KVSPSAJobPSPLine"; var JobPSPLine: Record "KVSPSAJobPSPLine"):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnBeforeInsertJobPSPLine', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeInsertJobPSPLine(var NewICJobPSPLine: Record "KVSPSAJobPSPLine"; var JobPSPLine: Record "KVSPSAJobPSPLine")
begin
end;
KVSPSAOnBeforeModifyICJobInAfterGetRecordJob(Record Job, Record Job) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeModifyICJobInAfterGetRecordJob(var ICJob: Record "Job"; var Job: Record "Job"):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnBeforeModifyICJobInAfterGetRecordJob', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeModifyICJobInAfterGetRecordJob(var ICJob: Record "Job"; var Job: Record "Job")
begin
end;
KVSPSAOnBeforeOnAfterGetRecord(Record KVSPSAJobPSPLine, Record KVSPSA Job Budget Line, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeOnAfterGetRecord(var JobPSPLine: Record "KVSPSAJobPSPLine"; var JobBudgetLine: Record "KVSPSA Job Budget Line"; var SkipRecord: Boolean):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnBeforeOnAfterGetRecord', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeOnAfterGetRecord(var JobPSPLine: Record "KVSPSAJobPSPLine"; var JobBudgetLine: Record "KVSPSA Job Budget Line"; var SkipRecord: Boolean)
begin
end;
KVSPSAOnBeforeShowSuccessMsg(Text, Text[30], Integer, Integer, Integer, Integer, Integer, Boolean) :#
Summary: This Event will be raised before the success message is shown
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeShowSuccessMsg(var SuccessMessageText: Text; TargetCompanyCode: Text[30]; JobCounterTotal: Integer; PSPHeaderCounterTotal: Integer; PSPLineCounterTotal: Integer; BudgetLineCounterTotal: Integer; JobResPriceCounterTotal: Integer; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnBeforeShowSuccessMsg', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeShowSuccessMsg(var SuccessMessageText: Text; TargetCompanyCode: Text[30]; JobCounterTotal: Integer; PSPHeaderCounterTotal: Integer; PSPLineCounterTotal: Integer; BudgetLineCounterTotal: Integer; JobResPriceCounterTotal: Integer; var IsHandled: Boolean)
begin
end;
Parameters:
SuccessMessageText: To change the message text of the success messageTargetCompanyCode: The target company for the ICJobCounterTotal: Total amount of jobs which were transferedPSPHeaderCounterTotal: Total amount of psp headers which were transferedPSPLineCounterTotal: Total amount of psp lines which were transferedBudgetLineCounterTotal: Total amount of budget lines which were transferedJobResPriceCounterTotal: Total amount of job res. prices which were transferedIsHandled: To disregard the default behavior for the success message
KVSPSAOnBeforeStartSessionForUpdateNumberSequence(Boolean) :#
Summary: This Event will be raised before start the session for update number sequence.
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeStartSessionForUpdateNumberSequence(var IsHandled: Boolean):
[EventSubscriber(ObjectType::Report, Report::"KVSPSATransferJobIntoCompany", 'KVSPSAOnBeforeStartSessionForUpdateNumberSequence', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeStartSessionForUpdateNumberSequence(var IsHandled: Boolean)
begin
end;
Parameters:
IsHandled:
Protected Variables#
GlobalICPartner#
Type: Record IC Partner