page 50435 EnquiriesProcess
{
ApplicationArea = All;
Caption = 'Enquiries Process';
DataCaptionExpression = 'Enquiries Process';
PageType = List;
SourceTable = Enquiries;
UsageCategory = Administration;
layout
{
area(content)
{
repeater(General)
{
field(CollectionCharge; Rec.CollectionCharge)
{
ApplicationArea = All;
}
}
}
}
actions
{
area(Processing)
{
action(CreateExchange)
{
Caption = 'Create Exchange';
Image = Process;
ApplicationArea = All;
trigger OnAction()
var
cu_EnquiriesAndReturns: Codeunit EnquiriesAndReturns;
cu_commonhelper: Codeunit CommonHelper;
recEnquiriesLine: Record "Enquiries Line";
recEnquiries: Record Enquiries;
cu_CopyDocumentMgt: Codeunit "Copy Document Mgt.";
ToSalesHeader, ToSalesOrder : Record "Sales Header";
rec_SalesLines, rec_SalesLineRetuurned : Record "Sales Line";
enum_DocumentType: Enum "Sales Document Type";
rec_EnquiriesLine: Record "Enquiries Line";
total: Decimal;
item, exitvalue, itemexitvalue : Decimal;
rec_Item: Record Item;
lineno: Integer;
SourceRecordLink: Record "Record Link";
SourceRecordLinkA: Record "Record Link";
id: RecordId;
LastLinkID: Integer;
begin
if Rec.CollectionCharge = Rec.CollectionCharge::Carrier then begin
ToSalesHeader.Init();
ToSalesHeader.InitRecord;
ToSalesHeader."Document Type" := enum_DocumentType::"Return Order";
ToSalesHeader.Insert(true);
ToSalesHeader.SetRange("Document Type", enum_DocumentType::"Return Order");
ToSalesHeader.SetRange("No.", ToSalesHeader."No.");
if ToSalesHeader.FindFirst() then begin
if not rec.isArchive then begin
cu_CopyDocumentMgt.SetProperties(true, false, false, false, false, false, false);
cu_CopyDocumentMgt.CopySalesDoc("Sales Document Type From"::Order, rec.No, ToSalesHeader);
rec_EnquiriesLine.SetRange("Document No.", Rec.No);
if rec_EnquiriesLine.FindSet() then begin
SourceRecordLink.SetRange("Record ID", Rec.RecordId);//copy note part
if SourceRecordLink.FindSet() then begin
// LastLinkID := 0;
// GetLastLinkID();
// LastLinkID += 1;
SourceRecordLinkA.Init();
SourceRecordLinkA.Copy(SourceRecordLink);
SourceRecordLinkA."Record ID" := ToSalesHeader.RecordId;
SourceRecordLinkA.Insert();
// Message('%1', Rec.RecordId);
// end
// else begin
// Message('%1', 'Not Found');
// end;
PAGE.Run(PAGE::"Sales Return Order", ToSalesHeader);
end;
end
else begin
cu_CopyDocumentMgt.SetProperties(true, false, false, false, false, false, false);
cu_CopyDocumentMgt.SetArchDocVal(rec.ArchieveOccurrence, rec.ArchieveVersionNo);
cu_CopyDocumentMgt.CopySalesDoc("Sales Document Type From"::"Arch. Order", rec.No, ToSalesHeader);
rec_EnquiriesLine.SetRange("Document No.", Rec.No);
if rec_EnquiriesLine.FindSet() then begin
SourceRecordLink.SetRange("Record ID", Rec.RecordId);//copy note part
if SourceRecordLink.FindSet() then begin
// LastLinkID := 0;
// GetLastLinkID();
// LastLinkID += 1;
SourceRecordLinkA.Init();
SourceRecordLinkA.Copy(SourceRecordLink);
SourceRecordLinkA."Record ID" := ToSalesHeader.RecordId;
SourceRecordLinkA.Insert();
// Message('%1', Rec.RecordId);
// end
// else begin
// Message('%1', 'Not Found');
// end;
PAGE.Run(PAGE::"Sales Return Order", ToSalesHeader);
end;
end;
end;
rec_EnquiriesLine.SetRange("Document No.", Rec.No);
if rec_EnquiriesLine.FindSet() then begin
repeat
rec_SalesLines.SetRange("Document No.", ToSalesHeader."No.");
rec_SalesLines.SetRange("Document Type", enum_DocumentType::"Return Order");
rec_SalesLines.SetRange("Line No.", rec_EnquiriesLine."Line No.");
if rec_SalesLines.FindFirst() then begin
if rec_EnquiriesLine."Return/Replace" > 0 then begin
rec_SalesLines.Quantity := rec_EnquiriesLine."Return/Replace";
rec_SalesLines.Validate(Quantity);
rec_SalesLines."Return Qty. to Receive" := rec_EnquiriesLine."Return/Replace";
rec_SalesLines."Return Reason Code" := rec_EnquiriesLine."Return Reason Code";
rec_SalesLines.Validate("Return Qty. to Receive");
//exitvalue := rec_SalesLines."Total Returned";
total := rec_EnquiriesLine."Return/Replace";
rec_SalesLines.Modify(true);
rec_SalesLineRetuurned.SetRange("Document No.", rec.No);
rec_SalesLineRetuurned.SetRange("Document Type", enum_DocumentType::Order);
rec_SalesLineRetuurned.SetRange("Line No.", rec_EnquiriesLine."Line No.");
if rec_SalesLineRetuurned.FindFirst() then begin
// exitvalue := rec_SalesLineRetuurned."Total Returned";
// rec_SalesLineRetuurned."Total Returned" := exitvalue + total;
rec_SalesLineRetuurned.Modify(true);
end;
rec_Item.SetRange("No.", rec_SalesLineRetuurned."No.");
if rec_Item.FindFirst() then begin
//itemexitvalue := rec_Item.TotalReturn;
// rec_Item.TotalReturn := itemexitvalue + exitvalue + total;
rec_Item.Modify(true);
end
end
else begin
// rec_SalesLines.Delete();
end;
end;
until rec_EnquiriesLine.next() = 0;
end;
rec_SalesLines.Reset();
rec_SalesLines.SetRange("Document No.", ToSalesHeader."No.");
rec_SalesLines.SetRange("Document Type", enum_DocumentType::"Return Order");
rec_SalesLines.SetRange("No.", 'CARRIAGE');
if rec_SalesLines.FindFirst() then begin
repeat
rec_SalesLines.Delete();
until rec_SalesLines.Next() = 0;
end;
// lineno := cu_commonhelper.GetLastLineNo(ToSalesHeader."No.");
rec_SalesLines.Reset();
rec_SalesLines.Init();
rec_SalesLines."Document No." := ToSalesHeader."No.";
rec_SalesLines."Document Type" := enum_DocumentType::"Return Order";
rec_SalesLines.Type := "Sales Line Type"::Item;
rec_SalesLines."Line No." := lineno;
rec_SalesLines."No." := 'RETURNCHARGE';
rec_SalesLines.Validate("No.");
rec_SalesLines.Insert(true);
// cu_EnquiriesAndReturns.ItemJournalPost(rec_SalesLines."No.", rec_SalesLines."Document No.", rec_SalesLines.Quantity, rec_SalesLines.Amount, rec_SalesLines.Description);
end;
if Rec.CollectionCharge = Rec.CollectionCharge::CollectPlus then begin
Message('CollectPlus');
end;
if Rec.CollectionCharge = Rec.CollectionCharge::Waiver then begin
Message('Waiver');
end;
end;
end;
end;
}
}
}
// local procedure GetLastLinkID()
// var
// RecordLink: Record "Record Link";
// LastLinkID: Integer;
// begin
// RecordLink.Reset();
// if RecordLink.FindLast() then
// LastLinkID := RecordLink."Link ID"
// else
// LastLinkID := 0;
// end;
trigger OnOpenPage()
var
recEnquiries: Record Enquiries;
recItemJournal: Record "Item Journal Line";
begin
recEnquiries.SetRange(No, Rec.No);
if recEnquiries.FindSet() then
CurrPage.SetTableView(recEnquiries);
end;
}
