Untitled

page 50072 "Change VAT Entry Table"
{
    // version BSDP02/015

    // #BSDP02/015# - Change Posted Incoming Document No. and Date

    CaptionML = ENU='Change Date/Enternal Doc.No.',
                PLK='Zmień datę/Numer dokumentu zewnętrznego';
    PageType = Card;
    Permissions = TableData 17=rm,
                  TableData 25=rm,
                  TableData 122=rm,
                  TableData 254=rm,
                  TableData 380=rm,
                  TableData 5601=rm,
                  TableData 5802=rm,
                  TableData 52063068=rm;
    SourceTable = Table254;

    layout
    {
        area(content)
        {
            group("Ogólne")
            {
                CaptionML = ENU='Change date/External Document No.',
                            PLK='Zmień datę i numer faktury zakupu';
                field("External Document No.";"External Document No.")
                {
                    CaptionML = ENU='External Document No.',
                                PLK='Numer dokumentu zewnętrznego';
                    Editable = true;

                    trigger OnValidate();
                    begin
                        //START/BSDP02/015
                        IF "Source Code" = 'ZAKUPY' THEN BEGIN
                          //change in table 254
                          "Old External Document No." := xRec."External Document No.";
                          MODIFY;

                          //change in table 122
                          PurchInvHeader.SETRANGE(PurchInvHeader."No.","Document No.");
                          IF PurchInvHeader.FINDFIRST THEN BEGIN
                            PurchInvHeader."Old External Document No." := PurchInvHeader."Vendor Invoice No.";
                            PurchInvHeader."Vendor Invoice No." := "External Document No.";
                            PurchInvHeader.MODIFY;
                          END;

                          //change in table 17
                          GLEntry.SETRANGE(GLEntry."Document No.","Document No.");
                          IF GLEntry.FINDSET THEN
                            REPEAT
                              GLEntry."External Document No." := "External Document No.";
                              GLEntry.MODIFY;
                            UNTIL GLEntry.NEXT = 0;

                          //change in table 25
                          VendorLedgerEntry.SETRANGE(VendorLedgerEntry."Document No.","Document No.");
                          IF VendorLedgerEntry.FINDFIRST THEN BEGIN
                            VendorLedgerEntry."External Document No." := "External Document No.";
                            VendorLedgerEntry.MODIFY;
                          END;

                          //change in table 5601
                          FALedgerEntry.SETRANGE(FALedgerEntry."Document No.","Document No.");
                          IF FALedgerEntry.FINDFIRST THEN BEGIN
                            FALedgerEntry."External Document No." := "External Document No.";
                            FALedgerEntry.MODIFY;
                          END;

                          //change in table 5802
                          ValueEntry.SETRANGE(ValueEntry."Document No.","Document No.");
                          IF ValueEntry.FINDFIRST THEN
                            REPEAT
                              ValueEntry."External Document No." := "External Document No.";
                              ValueEntry.MODIFY;
                            UNTIL ValueEntry.NEXT = 0;
                        END
                        //STOP/BSDP02/015
                    end;
                }
                field("Document Date";"Document Date")
                {
                    Editable = true;

                    trigger OnValidate();
                    begin
                        //START/BSDP02/015
                        IF "Source Code" = 'ZAKUPY' THEN BEGIN
                          //change in table 254
                          "Old Document Date" := xRec."Document Date";
                          MODIFY;

                          //change in table 122
                          PurchInvHeader.SETRANGE(PurchInvHeader."No.","Document No.");
                          IF PurchInvHeader.FINDFIRST THEN BEGIN
                            PurchInvHeader."Old Document Date" := PurchInvHeader."Document Date";
                            PurchInvHeader."Document Date" := "Document Date";
                            PurchInvHeader.MODIFY;
                          END;

                          //change in table 17
                          GLEntry.SETRANGE(GLEntry."Document No.","Document No.");
                          IF GLEntry.FINDSET THEN
                            REPEAT
                              GLEntry."Document Date" := "Document Date";
                              GLEntry.MODIFY;
                            UNTIL GLEntry.NEXT = 0;

                          //change in table 25
                          VendorLedgerEntry.SETRANGE(VendorLedgerEntry."Document No.","Document No.");
                          IF VendorLedgerEntry.FINDFIRST THEN BEGIN
                            VendorLedgerEntry."Document Date" := "Document Date";
                            VendorLedgerEntry.MODIFY;
                          END;

                          //change in table 5601
                          FALedgerEntry.SETRANGE(FALedgerEntry."Document No.","Document No.");
                          IF FALedgerEntry.FINDFIRST THEN BEGIN
                            FALedgerEntry."Document Date" := "Document Date";
                            FALedgerEntry.MODIFY;
                          END;

                          //change in table 5802
                          ValueEntry.SETRANGE(ValueEntry."Document No.","Document No.");
                          IF ValueEntry.FINDFIRST THEN
                            REPEAT
                              ValueEntry."Document Date" := "Document Date";
                              ValueEntry.MODIFY;
                            UNTIL ValueEntry.NEXT = 0;

                        END
                        //STOP/BSDP02/015
                    end;
                }
                field("Document Receipt/Sales Date";"Document Receipt/Sales Date")
                {
                    CaptionML = ENU='Extrenal Document Date',
                                PLK='Data dokumentu zewnętrznego';
                    Editable = true;

                    trigger OnValidate();
                    begin
                        //START/BSDP02/015
                        IF "Source Code" = 'ZAKUPY' THEN BEGIN
                          //change in table 254
                          "Old Document Receipt Date" := xRec."Document Receipt/Sales Date";
                          MODIFY;

                          //change in table 122
                          PurchInvHeader.SETRANGE(PurchInvHeader."No.","Document No.");
                          IF PurchInvHeader.FINDFIRST THEN BEGIN
                            PurchInvHeader."Old Document Receipt Date" := PurchInvHeader."Document Receipt Date";
                            PurchInvHeader."Document Receipt Date" := "Document Receipt/Sales Date";
                            PurchInvHeader.MODIFY;
                          END;

                          //change in table 52063068
                          DetailedVATEntry.SETRANGE(DetailedVATEntry."Document No.","Document No.");
                          IF DetailedVATEntry.FINDFIRST THEN BEGIN
                            DetailedVATEntry."Document Receipt/Sales Date" := "Document Receipt/Sales Date";
                            DetailedVATEntry.MODIFY;
                          END;

                        END
                        //STOP/BSDP02/015
                    end;
                }
                field("Old External Document No.";"Old External Document No.")
                {
                    CaptionML = ENU='Old External Document Nio.',
                                PLK='Poprzedni  numer dokumentu zewnętrznego';
                    Editable = false;
                }
                field("Old Document Date";"Old Document Date")
                {
                }
                field("Old Document Receipt Date";"Old Document Receipt Date")
                {
                    CaptionML = ENU='Old External Document Date',
                                PLK='Poprzednia data dokumentu zewnętrznego';
                    Editable = false;
                }
            }
        }
    }

    actions
    {
    }

    var
        VATEntry : Record "254";
        PurchInvHeader : Record "122";
        GLEntry : Record "17";
        VendorLedgerEntry : Record "25";
        FALedgerEntry : Record "5601";
        DetailedVATEntry : Record "52063068";
        ValueEntry : Record "5802";

    procedure SetValuesDateNo(NewVATEntry : Record "254";OldVATEntry : Record "254");
    begin
    end;
}