Skip to content

KVSPSA Job Creation Wizard#

Procedures#

ValidateJobTemplateCode() :#

Summary: Procedure ValidateJobTemplateCode checks if Manual Series allowed and set the Internal Job No.

procedure ValidateJobTemplateCode(): 

Events#

KVSPSAOnAfterFillJobValuesFromSalesHeader(Record Job, Record Sales Header) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterFillJobValuesFromSalesHeader(var Job: Record "Job"; SalesHeader: Record "Sales Header"): 
[EventSubscriber(ObjectType::Page, Page::"KVSPSA Job Creation Wizard", 'KVSPSAOnAfterFillJobValuesFromSalesHeader', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterFillJobValuesFromSalesHeader(var Job: Record "Job"; SalesHeader: Record "Sales Header")
begin
end;

KVSPSAOnAfterSetNextStep(Record Job, Enum KVSPSAJobCreationWizardStep, Enum KVSPSAJobCreationWizardStep) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterSetNextStep(Job: Record "Job"; ActualJobCreationWizardStep: Enum "KVSPSAJobCreationWizardStep"; var NewJobCreationWizardStep: Enum "KVSPSAJobCreationWizardStep"): 
[EventSubscriber(ObjectType::Page, Page::"KVSPSA Job Creation Wizard", 'KVSPSAOnAfterSetNextStep', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterSetNextStep(Job: Record "Job"; ActualJobCreationWizardStep: Enum "KVSPSAJobCreationWizardStep"; var NewJobCreationWizardStep: Enum "KVSPSAJobCreationWizardStep")
begin
end;

KVSPSAOnAfterSetPreviousStep(Record Job, Enum KVSPSAJobCreationWizardStep, Enum KVSPSAJobCreationWizardStep) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterSetPreviousStep(Job: Record "Job"; ActualJobCreationWizardStep: Enum "KVSPSAJobCreationWizardStep"; var NewJobCreationWizardStep: Enum "KVSPSAJobCreationWizardStep"): 
[EventSubscriber(ObjectType::Page, Page::"KVSPSA Job Creation Wizard", 'KVSPSAOnAfterSetPreviousStep', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterSetPreviousStep(Job: Record "Job"; ActualJobCreationWizardStep: Enum "KVSPSAJobCreationWizardStep"; var NewJobCreationWizardStep: Enum "KVSPSAJobCreationWizardStep")
begin
end;

KVSPSAOnBeforeMessageCustomerMandatory(Record Job, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeMessageCustomerMandatory(var Job: Record "Job"; var SkipCustomerMandatoryMessage: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSPSA Job Creation Wizard", 'KVSPSAOnBeforeMessageCustomerMandatory', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeMessageCustomerMandatory(var Job: Record "Job"; var SkipCustomerMandatoryMessage: Boolean)
begin
end;

KVSPSAOnSetJobTemplateFromSalesDocumentAfterSetFilterSalesLineWBSPrepare(Record KVSPSASalesLineWBSPrepare, Record Sales Header) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnSetJobTemplateFromSalesDocumentAfterSetFilterSalesLineWBSPrepare(var SalesLineWBSPrepare: Record "KVSPSASalesLineWBSPrepare"; SalesHeader: Record "Sales Header"): 
[EventSubscriber(ObjectType::Page, Page::"KVSPSA Job Creation Wizard", 'KVSPSAOnSetJobTemplateFromSalesDocumentAfterSetFilterSalesLineWBSPrepare', '', false, false)]
local procedure DoSomethingKVSPSAOnSetJobTemplateFromSalesDocumentAfterSetFilterSalesLineWBSPrepare(var SalesLineWBSPrepare: Record "KVSPSASalesLineWBSPrepare"; SalesHeader: Record "Sales Header")
begin
end;

KVSPSAOnSetJobTemplateFromSalesDocumentBeforeValidateTemplate(Code[20], Record KVSPSASalesLineWBSPrepare, Record Sales Header) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnSetJobTemplateFromSalesDocumentBeforeValidateTemplate(var JobTemplateCode: Code[20]; var SalesLineWBSPrepare: Record "KVSPSASalesLineWBSPrepare"; SalesHeader: Record "Sales Header"): 
[EventSubscriber(ObjectType::Page, Page::"KVSPSA Job Creation Wizard", 'KVSPSAOnSetJobTemplateFromSalesDocumentBeforeValidateTemplate', '', false, false)]
local procedure DoSomethingKVSPSAOnSetJobTemplateFromSalesDocumentBeforeValidateTemplate(var JobTemplateCode: Code[20]; var SalesLineWBSPrepare: Record "KVSPSASalesLineWBSPrepare"; SalesHeader: Record "Sales Header")
begin
end;

Protected Variables#

CreatePSP#

Type: Boolean

GlobalBackActionEnabled#

Type: Boolean

GlobalFinalStepVisible#

Type: Boolean

GlobalFinishActionEnabled#

Type: Boolean

GlobalFirstStepVisible#

Type: Boolean

GlobalFromSalesHeader#

Type: Boolean

GlobalInternalJob#

Type: Boolean

GlobalNextActionEnabled#

Type: Boolean

GlobalOpenJobCard#

Type: Boolean

GlobalSecondStepVisible#

Type: Boolean

GlobalManualNo#

Type: Code[20]

JobTemplateCode#

Type: Code[20]

GlobalJobCreationWizardStep#

Type: Enum (KVSPSAJobCreationWizardStep)