Report 1309 Standard Sales - Return Rcpt., source in 29
Source29
src/Layers/W1/BaseApp/Sales/History/StandardSalesReturnRcpt.Report.al861 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Sales.History;
using Microsoft.CRM.Contact;
using Microsoft.CRM.Interaction;
using Microsoft.CRM.Segment;
using Microsoft.CRM.Team;
using Microsoft.Finance.GeneralLedger.Setup;
using Microsoft.Foundation.Address;
using Microsoft.Foundation.Company;
using Microsoft.Foundation.Shipping;
using Microsoft.Inventory.Location;
using Microsoft.Sales.Customer;
using Microsoft.Sales.Setup;
using Microsoft.Utilities;
using System.Email;
using System.Globalization;
using System.Utilities;
/// <summary>
/// Generates a standard format printable document for posted sales return receipts.
/// </summary>
report 1309 "Standard Sales - Return Rcpt."
{
Caption = 'Return Receipt';
DefaultRenderingLayout = "StandardSalesReturnRcpt.docx";
EnableHyperlinks = true;
PreviewMode = PrintLayout;
WordMergeDataItem = Header;
dataset
{
dataitem(Header; "Return Receipt Header")
{
DataItemTableView = sorting("No.");
RequestFilterFields = "No.", "Sell-to Customer No.", "No. Printed";
RequestFilterHeading = 'Posted Return Receipt';
column(CompanyAddress1; CompanyAddr[1])
{
}
column(CompanyAddress2; CompanyAddr[2])
{
}
column(CompanyAddress3; CompanyAddr[3])
{
}
column(CompanyAddress4; CompanyAddr[4])
{
}
column(CompanyAddress5; CompanyAddr[5])
{
}
column(CompanyAddress6; CompanyAddr[6])
{
}
column(CompanyAddress7; CompanyAddr[7])
{
}
column(CompanyAddress8; CompanyAddr[8])
{
}
column(CompanyHomePage; CompanyInfo."Home Page")
{
}
column(CompanyEMail; CompanyInfo."E-Mail")
{
}
column(CompanyPicture; DummyCompanyInfo.Picture)
{
}
column(CompanyPhoneNo; CompanyInfo."Phone No.")
{
}
column(CompanyPhoneNo_Lbl; CompanyInfoPhoneNoLbl)
{
}
column(CompanyGiroNo; CompanyInfo."Giro No.")
{
}
column(CompanyGiroNo_Lbl; CompanyInfoGiroNoLbl)
{
}
column(CompanyBankName; CompanyInfo."Bank Name")
{
}
column(CompanyBankName_Lbl; CompanyInfoBankNameLbl)
{
}
column(CompanyBankBranchNo; CompanyInfo."Bank Branch No.")
{
}
column(CompanyBankBranchNo_Lbl; CompanyInfo.FieldCaption("Bank Branch No."))
{
}
column(CompanyBankAccountNo; CompanyInfo."Bank Account No.")
{
}
column(CompanyBankAccountNo_Lbl; CompanyInfoBankAccNoLbl)
{
}
column(CompanyIBAN; CompanyInfo.IBAN)
{
}
column(CompanyIBAN_Lbl; CompanyInfo.FieldCaption(IBAN))
{
}
column(CompanySWIFT; CompanyInfo."SWIFT Code")
{
}
column(CompanySWIFT_Lbl; CompanyInfo.FieldCaption("SWIFT Code"))
{
}
column(CompanyLogoPosition; CompanyLogoPosition)
{
}
column(CompanyRegistrationNumber; CompanyInfo.GetRegistrationNumber())
{
}
column(CompanyRegistrationNumber_Lbl; CompanyInfo.GetRegistrationNumberLbl())
{
}
column(CompanyVATRegNo; CompanyInfo.GetVATRegistrationNumber())
{
}
column(CompanyVATRegNo_Lbl; CompanyInfo.GetVATRegistrationNumberLbl())
{
}
column(CompanyVATRegistrationNo; CompanyInfo.GetVATRegistrationNumber())
{
}
column(CompanyVATRegistrationNo_Lbl; CompanyInfo.GetVATRegistrationNumberLbl())
{
}
column(CompanyLegalOffice; LegalOfficeTxt)
{
}
column(CompanyLegalOffice_Lbl; LegalOfficeLbl)
{
}
column(CompanyCustomGiro; CustomGiroTxt)
{
}
column(CompanyCustomGiro_Lbl; CustomGiroLbl)
{
}
column(CompanyLegalStatement; LegalStatementLbl)
{
}
column(BilltoAddressCaption; BilltoAddressCaptionLbl)
{
}
column(CustomerAddress1; CustAddr[1])
{
}
column(CustomerAddress2; CustAddr[2])
{
}
column(CustomerAddress3; CustAddr[3])
{
}
column(CustomerAddress4; CustAddr[4])
{
}
column(CustomerAddress5; CustAddr[5])
{
}
column(CustomerAddress6; CustAddr[6])
{
}
column(CustomerAddress7; CustAddr[7])
{
}
column(CustomerAddress8; CustAddr[8])
{
}
column(CustomerPostalBarCode; FormatAddr.PostalBarCode(1))
{
}
column(YourReference; "Your Reference")
{
}
column(YourReference_Lbl; FieldCaption("Your Reference"))
{
}
column(ShipmentMethodDescription; ShipmentMethod.Description)
{
}
column(ShipmentMethodDescription_Lbl; ShptMethodDescLbl)
{
}
column(ShipmentDate; Format("Shipment Date", 0, 4))
{
}
column(ShipmentDate_Lbl; FieldCaption("Shipment Date"))
{
}
column(ReturnReceipt_Lbl; ReturnReceiptLbl)
{
}
column(ShowCustAddress; ShowCustAddr)
{
}
column(ShipToAddress_Lbl; ShiptoAddrLbl)
{
}
column(ShipToAddress1; ShipToAddr[1])
{
}
column(ShipToAddress2; ShipToAddr[2])
{
}
column(ShipToAddress3; ShipToAddr[3])
{
}
column(ShipToAddress4; ShipToAddr[4])
{
}
column(ShipToAddress5; ShipToAddr[5])
{
}
column(ShipToAddress6; ShipToAddr[6])
{
}
column(ShipToAddress7; ShipToAddr[7])
{
}
column(ShipToAddress8; ShipToAddr[8])
{
}
column(ShipToPhoneNo; Header."Ship-to Phone No.")
{
}
column(SellToContactPhoneNoLbl; SellToContactPhoneNoLbl)
{
}
column(SellToContactMobilePhoneNoLbl; SellToContactMobilePhoneNoLbl)
{
}
column(SellToContactEmailLbl; SellToContactEmailLbl)
{
}
column(BillToContactPhoneNoLbl; BillToContactPhoneNoLbl)
{
}
column(BillToContactMobilePhoneNoLbl; BillToContactMobilePhoneNoLbl)
{
}
column(BillToContactEmailLbl; BillToContactEmailLbl)
{
}
column(SellToContactPhoneNo; SellToContact."Phone No.")
{
}
column(SellToContactMobilePhoneNo; SellToContact."Mobile Phone No.")
{
}
column(SellToContactEmail; SellToContact."E-Mail")
{
}
column(BillToContactPhoneNo; BillToContact."Phone No.")
{
}
column(BillToContactMobilePhoneNo; BillToContact."Mobile Phone No.")
{
}
column(BillToContactEmail; BillToContact."E-Mail")
{
}
column(BilltoCustumerNo; "Bill-to Customer No.")
{
}
column(BilltoCustomerNo_Lbl; FieldCaption("Bill-to Customer No."))
{
}
column(DocumentDate; Format("Document Date", 0, 4))
{
}
column(DocumentDate_Lbl; FieldCaption("Document Date"))
{
}
column(DueDate; Format("Due Date", 0, 4))
{
}
column(DueDate_Lbl; FieldCaption("Due Date"))
{
}
column(DocumentNo; "No.")
{
}
column(DocumentNo_Lbl; ReceiptNoLbl)
{
}
column(ReturnOrderNo; "Return Order No.")
{
}
column(ReturnOrderNo_Lbl; FieldCaption("Return Order No."))
{
}
column(PricesIncludingVAT; "Prices Including VAT")
{
}
column(PricesIncludingVAT_Lbl; FieldCaption("Prices Including VAT"))
{
}
column(PricesIncludingVATYesNo; Format("Prices Including VAT"))
{
}
column(SalesPerson_Lbl; SalespersonLbl)
{
}
column(SalesPersonBlank_Lbl; SalesPersonText)
{
}
column(SalesPersonName; SalespersonPurchaser.Name)
{
}
column(SelltoCustomerNo; "Sell-to Customer No.")
{
}
column(SelltoCustomerNo_Lbl; FieldCaption("Sell-to Customer No."))
{
}
column(VATRegistrationNo; GetCustomerVATRegistrationNumber())
{
}
column(VATRegistrationNo_Lbl; GetCustomerVATRegistrationNumberLbl())
{
}
column(GlobalLocationNumber; GetCustomerGlobalLocationNumber())
{
}
column(GlobalLocationNumber_Lbl; GetCustomerGlobalLocationNumberLbl())
{
}
column(From_Lbl; FromLbl)
{
}
column(BilledTo_Lbl; BilledToLbl)
{
}
column(LegalEntityType; Cust.GetLegalEntityType())
{
}
column(LegalEntityType_Lbl; Cust.GetLegalEntityTypeLbl())
{
}
column(Copy_Lbl; CopyLbl)
{
}
column(EMail_Header_Lbl; EMailLbl)
{
}
column(HomePage_Header_Lbl; HomePageLbl)
{
}
column(Page_Lbl; PageLbl)
{
}
column(Questions_Lbl; QuestionsLbl)
{
}
column(Contact_Lbl; CompanyInfo.GetContactUsText())
{
}
column(DocumentTitle_Lbl; DocumentCaption())
{
}
column(YourDocumentTitle_Lbl; YourReturnReceiptLbl)
{
}
column(Thanks_Lbl; ThanksLbl)
{
}
column(Subtotal_Lbl; SubtotalLbl)
{
}
column(Total_Lbl; TotalLbl)
{
}
column(PackageTrackingNo; "Package Tracking No.")
{
}
column(PackageTrackingNo_Lbl; FieldCaption("Package Tracking No."))
{
}
column(ShippingAgentCode; "Shipping Agent Code")
{
}
column(ShippingAgentCode_Lbl; FieldCaption("Shipping Agent Code"))
{
}
column(ExternalDocumentNo; "External Document No.")
{
}
column(ExternalDocumentNo_Lbl; FieldCaption("External Document No."))
{
}
dataitem(Line; "Return Receipt Line")
{
DataItemLink = "Document No." = field("No.");
DataItemLinkReference = Header;
DataItemTableView = sorting("Document No.", "Line No.");
column(LineNo_Line; "Line No.")
{
}
column(Description_Line; Description)
{
}
column(Description_Line_Lbl; FieldCaption(Description))
{
}
column(ItemNo_Line; "No.")
{
}
column(ItemNo_Line_Lbl; FieldCaption("No."))
{
}
column(ItemReferenceNo_Line; "Item Reference No.")
{
}
column(ItemReferenceNo_Line_Lbl; FieldCaption("Item Reference No."))
{
}
column(ShipmentDate_Line; Format("Shipment Date"))
{
}
column(ShipmentDate_Line_Lbl; PostedShipmentDateLbl)
{
}
column(Quantity_Line; FormattedQuantity)
{
}
column(Quantity_Line_Lbl; FieldCaption(Quantity))
{
}
column(Type_Line; Format(Type))
{
}
column(UnitOfMeasure; "Unit of Measure")
{
}
column(UnitOfMeasure_Lbl; FieldCaption("Unit of Measure"))
{
}
column(Unit_Lbl; UnitLbl)
{
}
column(Qty_Lbl; QtyLbl)
{
}
trigger OnAfterGetRecord()
begin
if Type = Type::"G/L Account" then
"No." := '';
OnBeforeLineOnAfterGetRecord(Header, Line);
if FormatDocument.HideDocumentLine(HideLinesWithZeroQuantity, Line, FieldNo(Quantity)) then
CurrReport.Skip();
if FirstLineHasBeenOutput then
Clear(DummyCompanyInfo.Picture);
FirstLineHasBeenOutput := true;
if HasTypeToFillMandatoryFields() then
FormattedQuantity := Format(Quantity)
else
FormattedQuantity := '';
end;
trigger OnPreDataItem()
begin
MoreLines := Find('+');
while MoreLines and (Description = '') and ("No." = '') and (Quantity = 0) do
MoreLines := Next(-1) <> 0;
if not MoreLines then
CurrReport.Break();
SetFilter("Line No.", '<=%1', "Line No.");
FirstLineHasBeenOutput := false;
DummyCompanyInfo.Picture := CompanyInfo.Picture;
OnAfterLineOnPreDataItem(Header, Line);
end;
}
dataitem(LeftHeader; "Name/Value Buffer")
{
DataItemTableView = sorting(ID);
UseTemporary = true;
column(LeftHeaderName; Name)
{
}
column(LeftHeaderValue; Value)
{
}
}
dataitem(RightHeader; "Name/Value Buffer")
{
DataItemTableView = sorting(ID);
UseTemporary = true;
column(RightHeaderName; Name)
{
}
column(RightHeaderValue; Value)
{
}
}
dataitem(LetterText; "Integer")
{
DataItemTableView = sorting(Number) where(Number = const(1));
column(GreetingText; GreetingLbl)
{
}
column(BodyText; BodyLbl)
{
}
column(ClosingText; ClosingLbl)
{
}
}
trigger OnAfterGetRecord()
begin
CurrReport.Language := LanguageMgt.GetLanguageIdOrDefault("Language Code");
CurrReport.FormatRegion := LanguageMgt.GetFormatRegionOrDefault("Format Region");
FormatAddr.SetLanguageCode("Language Code");
if not IsReportInPreviewMode() then
CODEUNIT.Run(CODEUNIT::"Return Receipt - Printed", Header);
OnHeaderOnAfterGetRecordOnAfterUpdateNoPrinted(IsReportInPreviewMode(), Header);
FormatAddressFields(Header);
FormatDocumentFields(Header);
if SellToContact.Get("Sell-to Contact No.") then;
if BillToContact.Get("Bill-to Contact No.") then;
FillLeftHeader();
FillRightHeader();
if not Cust.Get("Bill-to Customer No.") then
Clear(Cust);
OnAfterGetSalesHeader(Header);
end;
trigger OnPreDataItem()
begin
FirstLineHasBeenOutput := false;
end;
}
}
requestpage
{
SaveValues = true;
layout
{
area(content)
{
group(Options)
{
Caption = 'Options';
field(LogInteractionControl; LogInteraction)
{
ApplicationArea = Basic, Suite;
Caption = 'Log Interaction';
Enabled = LogInteractionEnable;
ToolTip = 'Specifies that interactions with the contact are logged.';
}
field("Show Correction Lines"; ShowCorrectionLines)
{
ApplicationArea = Basic, Suite;
Caption = 'Show Correction Lines';
ToolTip = 'Specifies if the correction lines of an undoing of quantity posting will be shown on the report.';
}
field(HideLinesWithZeroQuantityControl; HideLinesWithZeroQuantity)
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies if the lines with zero quantity are printed.';
Caption = 'Hide lines with zero quantity';
}
}
}
}
actions
{
}
trigger OnInit()
begin
InitLogInteraction();
LogInteractionEnable := LogInteraction;
end;
}
rendering
{
layout("StandardSalesReturnRcpt.rdlc")
{
Type = RDLC;
LayoutFile = './Sales/History/StandardSalesReturnRcpt.rdlc';
Caption = 'Standard Sales Return Receipt (RDLC)';
Summary = 'The Standard Sales Return Receipt (RDLC) provides a detailed layout.';
}
layout("StandardSalesReturnRcpt.docx")
{
Type = Word;
LayoutFile = './Sales/History/StandardSalesReturnRcpt.docx';
Caption = 'Standard Sales Return Receipt (Word)';
Summary = 'The Standard Sales Return Receipt (Word) provides a basic layout.';
}
layout("StandardSalesReturnRcptBlue.docx")
{
Type = Word;
LayoutFile = './Sales/History/StandardSalesReturnRcptBlue.docx';
Caption = 'Standard Sales Return Receipt - Blue (Word)';
Summary = 'The Standard Sales Return Receipt - Blue (Word) provides a simple layout with a blue theme.';
}
layout("StandardSalesReturnRcptBlueThemable.docx")
{
Type = Word;
LayoutFile = './Sales/History/StandardSalesReturnRcptBlueThemable.docx';
Caption = 'Standard Sales Return Receipt - themable Word layout';
Summary = 'The Standard Sales Return Receipt - Themable (Word) provides a Themable layout.';
}
}
labels
{
}
trigger OnInitReport()
var
IsHandled: Boolean;
begin
GLSetup.Get();
CompanyInfo.SetAutoCalcFields(Picture);
CompanyInfo.Get();
SalesSetup.Get();
if SalesSetup.GetLegalStatement() <> '' then
LegalStatementLbl := SalesSetup.GetLegalStatement();
IsHandled := false;
OnInitReportForGlobalVariable(IsHandled, LegalOfficeTxt, LegalOfficeLbl, CustomGiroTxt, CustomGiroLbl, LegalStatementLbl);
end;
trigger OnPostReport()
begin
if LogInteraction and not IsReportInPreviewMode() then
if Header.FindSet() then
repeat
if Header."Bill-to Contact No." <> '' then
SegManagement.LogDocument(
4, Header."No.", 0, 0, DATABASE::Contact, Header."Bill-to Contact No.", Header."Salesperson Code",
Header."Campaign No.", Header."Posting Description", '')
else
SegManagement.LogDocument(
4, Header."No.", 0, 0, DATABASE::Customer, Header."Bill-to Customer No.", Header."Salesperson Code",
Header."Campaign No.", Header."Posting Description", '');
until Header.Next() = 0;
end;
trigger OnPreReport()
begin
if Header.GetFilters = '' then
Error(NoFilterSetErr);
CompanyLogoPosition := SalesSetup."Logo Position on Documents";
end;
var
GLSetup: Record "General Ledger Setup";
ShipmentMethod: Record "Shipment Method";
SalespersonPurchaser: Record "Salesperson/Purchaser";
DummyCompanyInfo: Record "Company Information";
SalesSetup: Record "Sales & Receivables Setup";
Cust: Record Customer;
RespCenter: Record "Responsibility Center";
SellToContact: Record Contact;
BillToContact: Record Contact;
LanguageMgt: Codeunit Language;
FormatAddr: Codeunit "Format Address";
FormatDocument: Codeunit "Format Document";
SegManagement: Codeunit SegManagement;
CustAddr: array[8] of Text[100];
SalesPersonText: Text[50];
FormattedQuantity: Text;
MoreLines: Boolean;
ShowCustAddr: Boolean;
LogInteraction: Boolean;
LogInteractionEnable: Boolean;
ShowCorrectionLines: Boolean;
CompanyLogoPosition: Integer;
FirstLineHasBeenOutput: Boolean;
NoFilterSetErr: Label 'You must specify one or more filters to avoid accidentally printing all documents.';
GreetingLbl: Label 'Hello';
ClosingLbl: Label 'Sincerely';
BodyLbl: Label 'Thank you for your business. Your return receipt is attached to this message.';
FromLbl: Label 'From';
BilledToLbl: Label 'Billed to';
QuestionsLbl: Label 'Questions?';
ThanksLbl: Label 'Thank You!';
UnitLbl: Label 'Unit';
QtyLbl: Label 'Qty', Comment = 'Short form of Quantity';
SalespersonLbl: Label 'Salesperson';
CompanyInfoBankAccNoLbl: Label 'Account No.';
CompanyInfoBankNameLbl: Label 'Bank';
CompanyInfoGiroNoLbl: Label 'Giro No.';
CompanyInfoPhoneNoLbl: Label 'Phone No.';
CopyLbl: Label 'Copy';
EMailLbl: Label 'Email';
HomePageLbl: Label 'Home Page';
ReceiptNoLbl: Label 'Receipt No.';
PageLbl: Label 'Page';
PostedShipmentDateLbl: Label 'Shipment Date';
ReturnReceiptLbl: Label 'Return Receipt';
YourReturnReceiptLbl: Label 'Your Return Receipt';
ShiptoAddrLbl: Label 'Ship-to Address';
ShptMethodDescLbl: Label 'Shipment Method';
SubtotalLbl: Label 'Subtotal';
TotalLbl: Label 'Total';
SellToContactPhoneNoLbl: Label 'Sell-to Contact Phone No.';
SellToContactMobilePhoneNoLbl: Label 'Sell-to Contact Mobile Phone No.';
SellToContactEmailLbl: Label 'Sell-to Contact E-Mail';
BillToContactPhoneNoLbl: Label 'Bill-to Contact Phone No.';
BillToContactMobilePhoneNoLbl: Label 'Bill-to Contact Mobile Phone No.';
BillToContactEmailLbl: Label 'Bill-to Contact E-Mail';
BilltoAddressCaptionLbl: Label 'Bill-to Address';
LegalOfficeTxt, LegalOfficeLbl, CustomGiroTxt, CustomGiroLbl, LegalStatementLbl : Text;
protected var
CompanyInfo: Record "Company Information";
ShipToAddr: array[8] of Text[100];
CompanyAddr: array[8] of Text[100];
HideLinesWithZeroQuantity: Boolean;
local procedure InitLogInteraction()
begin
LogInteraction := SegManagement.FindInteractionTemplateCode(Enum::"Interaction Log Entry Document Type"::"Sales Inv.") <> '';
end;
local procedure DocumentCaption(): Text
var
DocCaption: Text;
begin
OnBeforeGetDocumentCaption(Header, DocCaption);
if DocCaption <> '' then
exit(DocCaption);
exit(ReturnReceiptLbl);
end;
/// <summary>
/// Initializes the report request options for the standard return receipt report.
/// </summary>
/// <param name="NewLogInteraction">Specifies whether to log the interaction.</param>
/// <param name="NewShowCorrectionLines">Specifies whether to show correction lines.</param>
procedure InitializeRequest(NewLogInteraction: Boolean; NewShowCorrectionLines: Boolean)
begin
LogInteraction := NewLogInteraction;
ShowCorrectionLines := NewShowCorrectionLines;
end;
protected procedure IsReportInPreviewMode(): Boolean
var
MailManagement: Codeunit "Mail Management";
begin
exit(CurrReport.Preview() or MailManagement.IsHandlingGetEmailBody());
end;
local procedure FillLeftHeader()
begin
LeftHeader.DeleteAll();
FillNameValueTable(LeftHeader, Header.FieldCaption("Sell-to Customer No."), Header."Sell-to Customer No.");
FillNameValueTable(LeftHeader, ReceiptNoLbl, Header."No.");
FillNameValueTable(LeftHeader, Header.FieldCaption("Shipment Date"), Format(Header."Shipment Date"));
FillNameValueTable(LeftHeader, Header.FieldCaption("Document Date"), Format(Header."Document Date"));
end;
local procedure FillRightHeader()
begin
RightHeader.DeleteAll();
FillNameValueTable(RightHeader, EMailLbl, CompanyInfo."E-Mail");
FillNameValueTable(RightHeader, HomePageLbl, CompanyInfo."Home Page");
FillNameValueTable(RightHeader, CompanyInfoPhoneNoLbl, CompanyInfo."Phone No.");
FillNameValueTable(RightHeader, CompanyInfo.GetRegistrationNumberLbl(), CompanyInfo.GetRegistrationNumber());
FillNameValueTable(RightHeader, CompanyInfoBankNameLbl, CompanyInfo."Bank Name");
FillNameValueTable(RightHeader, CompanyInfoGiroNoLbl, CompanyInfo."Giro No.");
FillNameValueTable(RightHeader, CompanyInfo.FieldCaption(IBAN), CompanyInfo.IBAN);
FillNameValueTable(RightHeader, CompanyInfo.FieldCaption("SWIFT Code"), CompanyInfo."SWIFT Code");
end;
local procedure FillNameValueTable(var NameValueBuffer: Record "Name/Value Buffer"; Name: Text; Value: Text)
var
KeyIndex: Integer;
begin
if Value <> '' then begin
Clear(NameValueBuffer);
if NameValueBuffer.FindLast() then
KeyIndex := NameValueBuffer.ID + 1;
NameValueBuffer.Init();
NameValueBuffer.ID := KeyIndex;
NameValueBuffer.Name := CopyStr(Name, 1, MaxStrLen(NameValueBuffer.Name));
NameValueBuffer.Value := CopyStr(Value, 1, MaxStrLen(NameValueBuffer.Value));
NameValueBuffer.Insert();
end;
end;
local procedure FormatAddressFields(var ReturnReceiptHeader: Record "Return Receipt Header")
begin
FormatAddr.GetCompanyAddr(ReturnReceiptHeader."Responsibility Center", RespCenter, CompanyInfo, CompanyAddr);
FormatAddr.SalesRcptShipTo(ShipToAddr, ReturnReceiptHeader);
ShowCustAddr := FormatAddr.SalesRcptBillTo(CustAddr, ShipToAddr, ReturnReceiptHeader);
end;
local procedure FormatDocumentFields(ReturnReceiptHeader: Record "Return Receipt Header")
begin
FormatDocument.SetSalesPerson(SalespersonPurchaser, ReturnReceiptHeader."Salesperson Code", SalesPersonText);
FormatDocument.SetShipmentMethod(ShipmentMethod, ReturnReceiptHeader."Shipment Method Code", ReturnReceiptHeader."Language Code");
end;
[IntegrationEvent(false, false)]
local procedure OnAfterLineOnPreDataItem(var ReturnReceiptHeader: Record "Return Receipt Header"; var ReturnReceiptLine: Record "Return Receipt Line")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeLineOnAfterGetRecord(var ReturnReceiptHeader: Record "Return Receipt Header"; var ReturnReceiptLine: Record "Return Receipt Line")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeGetDocumentCaption(ReturnReceiptHeader: Record "Return Receipt Header"; var DocCaption: Text)
begin
end;
[IntegrationEvent(true, false)]
local procedure OnAfterGetSalesHeader(ReturnReceiptHeader: Record "Return Receipt Header")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnInitReportForGlobalVariable(var IsHandled: Boolean; var LegalOfficeTxt: Text; var LegalOfficeLbl: Text; var CustomGiroTxt: Text; var CustomGiroLbl: Text; var LegalStatementLbl: Text)
begin
end;
[IntegrationEvent(true, false)]
local procedure OnHeaderOnAfterGetRecordOnAfterUpdateNoPrinted(ReportInPreviewMode: Boolean; var ReturnReceiptHeader: Record "Return Receipt Header")
begin
end;
}