Please find the below coding for printing Sales/Purchase Person , Payment Terms, Shipment Method Description and Payment Method Description. i may use same as of your coding but i may made some changes in you coding that am highlighted here. am used record variable of payment terms, payment method, shipment method instead of using dataitem and i capture each one values in a Global variable and those values am printing in the report.
report 50108 "PS Invoice RDLC"
{
DefaultLayout = RDLC;
RDLCLayout = 'PSInvoice.rdl';
UsageCategory = Administration;
dataset
{
dataitem("Sales Invoice Header"; "Sales Invoice Header")
{
column(PSInvoiceNo; "No.") { }
column(Order_No_; "Order No.") { }
column(Order_Date; "Order Date") { }
column(Posting_Date; "Posting Date") { }
column(Due_Date; "Due Date") { }
column(Document_Date; "Document Date") { }
column(CustomerName; "Bill-to Name") { }
column(ContactName; "Bill-to Contact") {}
column(STCustomer_No_; "Sell-to Customer No.") { }
column(BTAddress; "Bill-to Address") { }
column(BTPostCode; "Bill-to Post Code") { }
column(BTCounty; "Bill-to County") { }
column(BTCountry; "Bill-to Country/Region Code") { }
column(ShippingAgentCode; "Shipping Agent Code") { }
column(STAddress; "Ship-to Address") { }
column(STCity; "Ship-to City") { }
column(STCountry; "Ship-to Country/Region Code") { }
column(STCounty; "Ship-to County") { }
COLUMN(STName; "Ship-to Name") { }
column(STode; "Ship-to Code") { }
column(STContact; "Ship-to Contact") { }
column(PTN; "Package Tracking No.") { }
column(AmountExVAT; Amount) { }
column(AmountIncVAT; "Amount Including VAT") { }
column(STPhoneNo; "Sell-to Phone No.") {}
column(STEMail; "Sell-to E-Mail") { }
column(SalesPersonName;SalesPersonName){}
column(PaymentTermDescription;PaymentTermDescription){}
column(ShipmentDescription;ShipmentDescription){}
column(PMDescription;PMDescription){}
dataitem("Sales Invoice Line"; "Sales Invoice Line")
{
DataItemTableView = sorting();
DataItemLink = "Document No." = field("No.");
column(ItemNo; "No.") { }
column(Description; Description) { }
column(Shipment_Date; "Shipment Date") { }
column(Quantity; Quantity) { }
column(Unit_of_Measure; "Unit of Measure") { }
column(Unit_Price; "Unit Price") { }
column(Line_Amount; "Line Amount") { }
}
trigger OnAfterGetRecord()
var
//myInt: Integer;
begin
SalespersonPurchaser.Reset();
SalespersonPurchaser.SetRange(Code,"Salesperson Code");
if SalespersonPurchaser.FindFirst() then
SalesPersonName := SalespersonPurchaser.Name;
PaymentTerms.Reset();
PaymentTerms.SetRange(Code,"Payment Terms Code");
if PaymentTerms.FindFirst() then
PaymentTermDescription := PaymentTerms.Description;
ShipmentMethod.Reset();
ShipmentMethod.SetRange(Code,"Shipment Method Code");
if ShipmentMethod.FindFirst() then
ShipmentDescription := ShipmentMethod.Description;
PyamentMethod.Reset();
PyamentMethod.SetRange(Code,"Payment Method Code");
if PyamentMethod.FindFirst() then
PMDescription := PyamentMethod.Description;
end;
}
}
var
SalespersonPurchaser: Record "Salesperson/Purchaser";
PaymentTerms: Record "Payment Terms";
ShipmentMethod: Record "Shipment Method";
PyamentMethod: Record "Payment Method";
SalesPersonName: Text[250];
PaymentTermDescription: Text[250];
ShipmentDescription: Text[205];
PMDescription: Text[250];
}
