★ Featured App

E-Document - ebInterface
Create and send e-invoices in accordance with the Austrian standard.
More information AppSource
Enable Manual Replication for Additional Tablespageextension 70161751 "NVXRPL Customer Card" extends "Customer Card"
{
ContextSensitiveHelpPage = 'ReplicationFactbox';
layout
{
addfirst(factboxes)
{
part(ReplicationPart; NVXRPLReplicationFactbox)
{
ApplicationArea = All;
Visible = ManualReplicationActivated;
}
}
}
trigger OnAfterGetCurrRecord()
var
ReplicationTableSetup: Record "NVXRPL Replication Table Setup";
Ref: RecordRef;
begin
Ref.GetTable(Rec);
ManualReplicationActivated := ReplicationTableSetup.NeedsFactBox(Ref.Number());
if ManualReplicationActivated then
UpdateReplPart(false);
end;
trigger OnModifyRecord(): Boolean
begin
if ManualReplicationActivated then
UpdateReplPart(false);
end;
trigger OnInsertRecord(BelowxRec: Boolean): Boolean
begin
UpdateReplPart(false);
end;
trigger OnNewRecord(BelowxRec: Boolean)
begin
UpdateReplPart(true);
end;
var
ManualReplicationActivated: Boolean;
local procedure UpdateReplPart(CallFromOnNewRec: Boolean)
var
RecId: RecordId;
RecRef: RecordRef;
begin
if CallFromOnNewRec then
Clear(RecId)
else begin
RecId := Rec.RecordId;
CurrPage.ReplicationPart.Page.SetRecId(RecId);
if RecRef.Get(Rec.RecordId) then
CurrPage.ReplicationPart.Page.SetRecords();
end;
CurrPage.ReplicationPart.Page.Update(false);
end;
}
![]() | E-Document - ebInterface Create and send e-invoices in accordance with the Austrian standard. More information ![]() |