This is my codeunit :
trigger OnRun()
begin
end;
procedure EmailSalesHeader(job: Record "Job")
begin
DoPrintSalesHeader(job, true);
end;
local procedure DoPrintSalesHeader(job: Record Job; SendAsEmail: Boolean)
var
ReportSelections: Record "Report Selections";
ReportUsage: Enum "Report Selection Usage";
IsPrinted: Boolean;
begin
ReportUsage := GetSalesDocTypeUsage();
job.SetRange("No.", job."No.");
if IsPrinted then
exit;
if SendAsEmail then
ReportSelections.SendEmailToCust(
ReportUsage.AsInteger(), job, job."No.", job.Description, true, job."Bill-to Customer No.", 0)
else
ReportSelections.PrintForCust(ReportUsage, job, job.FieldNo("Bill-to Customer No."));
end;
procedure GetSalesDocTypeUsage() ReportSelectionUsage: Enum "Report Selection Usage"
var
ReportSelections: Record "Report Selections";
TypeUsage: Integer;
IsHandled: Boolean;
begin
exit(ReportSelections.Usage::"JC") //here i have assigned the report selection
end;
//but still taking the standard report. where i went wrong?
Nitin Verma
