Share
ReportI added SMS integration logic to trigger after posting via the Post button, and it works correctly — the browser opens and the SMS is sent to the customer.
However, I noticed that the SMS is also being sent when using Posting Preview, which should not happen. Can anyone advise why the Preview Posting process is triggering the same SMS logic? I urgently need the correct approach to prevent SMS from sending during Preview Posting.
The code unit reference is attached below. Your quick guidance would be greatly appreciated.
However, I noticed that the SMS is also being sent when using Posting Preview, which should not happen. Can anyone advise why the Preview Posting process is triggering the same SMS logic? I urgently need the correct approach to prevent SMS from sending during Preview Posting.
The code unit reference is attached below. Your quick guidance would be greatly appreciated.
codeunit 50331 "Sales Order Post SMS Auto"
{
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Sales-Post", 'OnAfterPostSalesDoc', '', false, false)]
local procedure OnAfterPostSalesDoc(
SalesHeader: Record "Sales Header";
GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line";
SalesShptHdrNo: Code[20];
SalesInvHdrNo: Code[20])
var
SMSCodeunit: Codeunit "Sales Order SMS Browser";
Customer: Record Customer;
PostedSalesInvHdr: Record "Sales Invoice Header";
begin
// ✅ Send only for invoices
if SalesInvHdrNo = '' then
exit;
{
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Sales-Post", 'OnAfterPostSalesDoc', '', false, false)]
local procedure OnAfterPostSalesDoc(
SalesHeader: Record "Sales Header";
GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line";
SalesShptHdrNo: Code[20];
SalesInvHdrNo: Code[20])
var
SMSCodeunit: Codeunit "Sales Order SMS Browser";
Customer: Record Customer;
PostedSalesInvHdr: Record "Sales Invoice Header";
begin
// ✅ Send only for invoices
if SalesInvHdrNo = '' then
exit;
if PostedSalesInvHdr.Get(SalesInvHdrNo) then begin
PostedSalesInvHdr.CalcFields("Amount Including VAT"); // ✅ ensure amount is loaded
PostedSalesInvHdr.CalcFields("Amount Including VAT"); // ✅ ensure amount is loaded
if Customer.Get(PostedSalesInvHdr."Sell-to Customer No.") then begin
Customer.CalcFields(Balance, "Balance (LCY)"); // ✅ ensure balance is accurate
Customer.CalcFields(Balance, "Balance (LCY)"); // ✅ ensure balance is accurate
if Customer."Phone No." <> '' then
SMSCodeunit.SendSMSViaBrowser(
PostedSalesInvHdr."Sell-to Customer Name",
PostedSalesInvHdr."No.", // ✅ Posted Invoice No.
PostedSalesInvHdr."Amount Including VAT", // ✅ Actual Invoice Amount
Customer."Balance (LCY)", // ✅ Up-to-date Remaining Balance
Customer."Phone No.")
else
Message('⚠️ No phone number found for customer %1', Customer."No.");
end else
Message('⚠️ Customer not found.');
end;
end;
}
SMSCodeunit.SendSMSViaBrowser(
PostedSalesInvHdr."Sell-to Customer Name",
PostedSalesInvHdr."No.", // ✅ Posted Invoice No.
PostedSalesInvHdr."Amount Including VAT", // ✅ Actual Invoice Amount
Customer."Balance (LCY)", // ✅ Up-to-date Remaining Balance
Customer."Phone No.")
else
Message('⚠️ No phone number found for customer %1', Customer."No.");
end else
Message('⚠️ Customer not found.');
end;
end;
}
Categories:
I have the same question (0)
All responses (
Answers (
3,888
