The Option tab for printing the VAT Statement report is missing after you install the latest VAT update in the RoleTailored client (RTC) in the Austrian version of Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Change the code in the request form as follows:
   Existing code

   ...
   {
    
   // Delete the following lines.
   }
   CONTROLS
   {
   // End of the deleted lines.
   
   }
   ...

   Replacement code

   ...
   {
   
   // Add the following lines.
    SaveValues=Yes;
    OnInit=BEGIN
    XMLFilenameControlVisible := TRUE;
    FDFFilenameControlVisible := TRUE;
    END;
    
    OnOpenPage=BEGIN
    CLEAR(NumberPar6Abs1);
    
    IF (Startingdate <> 0D) AND (Endingdate <> 0D) THEN BEGIN
    IF (Startingdate = CALCDATE('<-CQ>',Startingdate)) AND (Endingdate = CALCDATE('<+CQ>',Startingdate)) THEN
    PeriodType := PeriodType::quarter
    ELSE IF (Startingdate = CALCDATE('<-CM>',Startingdate)) AND (Endingdate = CALCDATE('<+CM>',Startingdate)) THEN
    PeriodType := PeriodType::month
    ELSE
    PeriodType := PeriodType::"defined period";
    END ELSE
    PeriodType := PeriodType::"defined period";
    
    FDFFilenameControlVisible := NOT ISSERVICETIER;
    XMLFilenameControlVisible := NOT ISSERVICETIER;
    END;
     }
    CONTROLS
    {
    { 1900000001;0;Container;
    ContainerType=ContentArea }
    
    { 1900000002;1;Group ;
    CaptionML=ENU=Options }
    
    { 1160010;2;Field ;
    CaptionML=[ENU=Starting Date;
    DEA=Startdatum];
    SourceExpr=Startingdate;
    OnValidate=VAR
    RefDate@1160000 : Date;
    BEGIN
    CLEAR(RefDate);
    IF Startingdate <> 0D THEN
    RefDate := Startingdate
    ELSE IF Endingdate <> 0D THEN
    RefDate := Endingdate;
    IF RefDate <> 0D THEN BEGIN
    IF PeriodType = PeriodType::quarter THEN BEGIN
    Startingdate := CALCDATE('<-CQ>',RefDate);
    Endingdate := CALCDATE('<+CQ>',RefDate);
    END ELSE IF PeriodType = PeriodType::month THEN BEGIN
    Startingdate := CALCDATE('<-CM>',RefDate);
    Endingdate := CALCDATE('<+CM>',RefDate);
    END ELSE BEGIN
    IF Endingdate = 0D THEN
    Endingdate := RefDate;
    IF Startingdate = 0D THEN
    Startingdate := RefDate;
    END;
    END;
    END;
    }
    
    { 1160012;2;Field ;
    CaptionML=[ENU=Ending Date;
    DEA=Enddatum];
    SourceExpr=Endingdate;
    OnValidate=VAR
    RefDate@1160000 : Date;
    BEGIN
    CLEAR(RefDate);
    IF Endingdate <> 0D THEN
    RefDate := Endingdate
    ELSE IF Startingdate <> 0D THEN
    RefDate := Startingdate;
    IF RefDate <> 0D THEN BEGIN
    IF PeriodType = PeriodType::quarter THEN BEGIN
    Startingdate := CALCDATE('<-CQ>',RefDate);
    Endingdate := CALCDATE('<+CQ>',RefDate);
    END ELSE IF PeriodType = PeriodType::month THEN BEGIN
    Startingdate := CALCDATE('<-CM>',RefDate);
    Endingdate := CALCDATE('<+CM>',RefDate);
    END ELSE BEGIN
    IF Startingdate = 0D THEN
    Startingdate := RefDate;
    IF Endingdate = 0D THEN
    Endingdate := RefDate;
    END;
    END;
    END;
    }
    
    { 8 ;2 ;Field ;
    CaptionML=[ENU=Include VAT Entries;
    DEA=MwSt.-Posten einschlieáen];
    OptionCaptionML=[ENU=Open,Closed,Open and Closed;
    DEA=Offen,Geschlossen,Offen und geschlossen];
    SourceExpr=Selection }
    
    { 4 ;2 ;Field ;
    CaptionML=[ENU=Include VAT Entries;
    DEA=MwSt.-Posten einschlieáen];
    OptionCaptionML=[ENU=Before and Within Period,Within Period;
    DEA=Vor und innerhalb Periode,Innerhalb Periode];
    SourceExpr=PeriodSelection }
    
    { 11 ;2 ;Field ;
    CaptionML=[ENU=Reporting Type;
    DEA=Berichtstyp];
    OptionCaptionML=[ENU=Quarter,Month,Defined period;
    DEA=Quartal,Monat,Definierte Periode];
    SourceExpr=PeriodType;
    OnValidate=BEGIN
    IF PeriodType = PeriodType::month THEN
    monthPeriodTypeOnValidate;
    IF PeriodType = PeriodType::quarter THEN
    quarterPeriodTypeOnValidate;
    END;
    }
    
    { 1160007;2;Field ;
    CaptionML=[ENU=Check Positions;
    DEA=Positionen prfen];
    SourceExpr=CheckPositions }
    
    { 1 ;2 ;Field ;
    CaptionML=[ENU=Round to Whole Numbers;
    DEA=Auf ganze Zahlen runden];
    SourceExpr=PrintInWholeNumbers }
    
    { 1160015;2;Field ;
    Name=PDFFilenameControl;
    CaptionML=[ENU=PDF File Name;
    DEA=PDF-Dateiname];
    SourceExpr=PDFFileName;
    OnAssistEdit=BEGIN
    PDFFileName := CommonDlgMgt.OpenFile(Text1160052,PDFFileName,4,Text1160053,0);
    END;
    }
    
    { 1160017;2;Field ;
    Name=FDFFilenameControl;
    CaptionML=[ENU=FDF File Name;
    DEA=FDF-Dateiname];
    SourceExpr=FDFFileName;
    Visible=FDFFilenameControlVisible;
    OnAssistEdit=BEGIN
    FDFFileName := CommonDlgMgt.OpenFile(Text1160054,FDFFileName,4,Text1160055,1);
    END;
    }
    
    { 1160001;2;Field ;
    Name=XMLFilenameControl;
    CaptionML=[ENU=XML File Name;
    DEA=XML-Dateiname];
    SourceExpr=XMLFileName;
    Visible=XMLFilenameControlVisible;
    OnAssistEdit=BEGIN
    XMLFileName := CommonDlgMgt.OpenFile(Text1160056,XMLFileName,4,Text1160057,1);
    END;
    }
    
    { 1160003;2;Field ;
    CaptionML=[ENU=Surplus Used to Pay Dues;
    DEA=Fr Zahlung von Verbindlichkeiten genutzter šberschuss];
    SourceExpr=UseARE }
    
    { 1160005;2;Field ;
    CaptionML=[ENU=Additional Invoices sent via Mail;
    DEA=Weitere per Post geschickte Rechnungen];
    SourceExpr=UseREPO }
    
    { 1160000;2;Field ;
    CaptionML=[ENU=Number õ6 Abs. 1;
    DEA=Nummer õ 6 Abs. 1];
    Numeric=Yes;
    BlankZero=Yes;
    SourceExpr=NumberPar6Abs1;
    MinValue=0;
    MaxValue=99 }
   // End of the added lines.
   
   }
   ...

2. Add a global variable, and then specify the variable as follows:
   • Name: FDFFilenameControlVisible
   • DataType: Boolean
   • Subtype: INDATASET
3. Add a global variable, and then specify the variable as follows:
   • Name: XMLFilenameControlVisible
   • DataType: Boolean
   • Subtype: INDATASET
4. Change the code in the quarterPeriodTypeOnValidatefunction as follows:
   Existing code

   ...
   BEGIN
   ...
   

   Replacement code

   ...
   
   // Add the following lines.
   LOCAL PROCEDURE quarterPeriodTypeOnValidate@19029369();
   BEGIN
    IF Startingdate <> 0D THEN
    IF (Startingdate <> CALCDATE('<-CQ>',Startingdate)) OR (Endingdate <> CALCDATE('<+CQ>',Startingdate)) THEN
    IF CONFIRM(Text1160061, TRUE) THEN BEGIN
    Startingdate := CALCDATE('<-CQ>',Startingdate);
    Endingdate := CALCDATE('<+CQ>',Startingdate);
    END ELSE
    ERROR('');
    END;
    
    LOCAL PROCEDURE monthPeriodTypeOnValidate@19063435();
    BEGIN
    IF Startingdate <> 0D THEN
    IF (Startingdate <> CALCDATE('<-CM>',Startingdate)) OR (Endingdate <> CALCDATE('<+CM>',Startingdate)) THEN
    IF CONFIRM(Text1160061, TRUE) THEN BEGIN
    Startingdate := CALCDATE('<-CM>',Startingdate);
    Endingdate := CALCDATE('<+CM>',Startingdate);
    END ELSE
    ERROR('');
    END;
   // End of the added lines. 
   
   BEGIN
   ...

Prerequisites

• The Austrian version of Microsoft Dynamics NAV 2009 R2
• The Austrian version of Microsoft Dynamics NAV 2009 Service Pack 1

Removal information