Η καρτέλα επιλογή για την εκτύπωση της αναφοράς δήλωσης ΦΠΑ λείπει μετά την εγκατάσταση της τελευταίας ενημερωμένης έκδοσης ΦΠΑ στο εξατομικευμένο πρόγραμμα-πελάτη (RTC) στην αυστριακή έκδοση του Microsoft Dynamics NAV 2009

Ισχύει για
Dynamics NAV 2009

Αυτό το άρθρο ισχύει για το Microsoft Dynamics NAV για τις τοπικές ρυθμίσεις γλώσσας Αυστριακά (at).

Συμπτώματα

Ας υποθέσουμε ότι εγκαθιστάτε την πιο πρόσφατη ενημερωμένη έκδοση ΦΠΑ για την αυστριακή έκδοση του Microsoft Dynamics NAV 2009 R2 και του Microsoft Dynamics NAV 2009 Service Pack 1 (SP1). Όταν εκτυπώνετε την αναφορά δήλωσης ΦΠΑ (11110) στο εξατομικευμένο πρόγραμμα-πελάτη (RTC), η καρτέλα Επιλογή στο παράθυρο διαλόγου Επεξεργασία δήλωσης ΦΠΑ λείπει και δεν μπορείτε να ρυθμίσετε την αναφορά δήλωσης ΦΠΑ. Ωστόσο, στο κλασικό πρόγραμμα-πελάτη μπορείτε να εκτυπώσετε την έκθεση όπως αναμένεται. Για περισσότερες πληροφορίες σχετικά με την πιο πρόσφατη ενημερωμένη έκδοση ΦΠΑ, επισκεφθείτε μία από τις ακόλουθες τοποθεσίες της Microsoft στο Web:

Συνεργάτες:

Αλλαγή διάταξης δήλωσης ΦΠΑ 2012 για το Microsoft Dynamics NAV 2009 SP1 - Αυστρία Πελάτες:

Αλλαγή διάταξης δήλωσης ΦΠΑ 2012 για το Microsoft Dynamics NAV 2009 SP1 - Αυστρία

Επίλυση

Πληροφορίες επείγουσας επιδιόρθωσης

Μια υποστηριζόμενη επείγουσα επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, αυτή η ενέργεια προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Εφαρμόστε το μόνο σε συστήματα που αντιμετωπίζουν αυτό το συγκεκριμένο πρόβλημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, συνιστάται να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.

Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που προκύπτουν κανονικά για κλήσεις υποστήριξης ενδέχεται να ακυρωθούν, εάν ένας επαγγελματίας τεχνικής υποστήριξης για το Microsoft Dynamics και τα σχετικά προϊόντα προσδιορίσει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση, θα ισχύσουν οι συνηθισμένες χρεώσεις υποστήριξης.

          

Πληροφορίες εγκατάστασης

Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για απεικόνιση, χωρίς καμία εγγύηση, ρητή ή σιωπηρή. Αυτό περιλαμβάνει, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που επιδεικνύεται και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας βοηθήσουν να εξηγήσετε τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας. Ωστόσο, δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παρέχουν πρόσθετες λειτουργίες ούτε θα δημιουργήσουν διαδικασίες για να ικανοποιήσουν τις συγκεκριμένες απαιτήσεις σας.

Σημείωση Πριν να εγκαταστήσετε αυτήν την επείγουσα επιδιόρθωση, βεβαιωθείτε ότι όλοι οι χρήστες προγράμματος-πελάτη Microsoft Navision έχουν αποσυνδεθεί από το σύστημα. Αυτό περιλαμβάνει χρήστες προγράμματος-πελάτη Microsoft Navision Application Services (NAS). Θα πρέπει να είστε ο μόνος χρήστης-πελάτης που είναι συνδεδεμένος όταν υλοποιείτε αυτήν την επείγουσα επιδιόρθωση.

Για να υλοποιήσετε αυτήν την επείγουσα επιδιόρθωση, πρέπει να έχετε άδεια προγραμματιστή.

Συνιστούμε ο λογαριασμός χρήστη στο παράθυρο Συνδέσεις των Windows ή στο παράθυρο Συνδέσεις βάσης δεδομένων να έχει το αναγνωριστικό ρόλου "SUPER". Εάν δεν είναι δυνατή η εκχώρηση του αναγνωριστικού ρόλου "SUPER" στο λογαριασμό χρήστη, πρέπει να επαληθεύσετε ότι ο λογαριασμός χρήστη έχει τα ακόλουθα δικαιώματα:

  • Το δικαίωμα τροποποίησης για το αντικείμενο που θα αλλάξετε.
  • Το δικαίωμα εκτέλεσης για το αντικείμενο αναγνωριστικού αντικειμένου συστήματος 5210 και για το αντικείμενο αναγνωριστικού αντικειμένου συστήματος 9015.

Σημείωση Δεν χρειάζεται να έχετε δικαιώματα στους χώρους αποθήκευσης δεδομένων, εκτός εάν πρέπει να εκτελέσετε επιδιόρθωση δεδομένων.

Αλλαγές κώδικα

Σημείωση Ελέγχετε πάντα τις επιδιορθώσεις κώδικα σε ελεγχόμενο περιβάλλον, πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής σας.
Για να επιλύσετε αυτό το ζήτημα, αλλάξτε τον κωδικό στην έκθεση δήλωσης ΦΠΑ (11110). Για να το κάνετε αυτό, ακολουθήστε τα παρακάτω βήματα:

  1. Αλλάξτε τον κωδικό στη φόρμα αίτησης ως εξής:
    Υπάρχων κώδικας

    ...
{

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

}
...

    Κωδικός αντικατάστασης

    ...
{

// 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. Προσθέστε μια καθολική μεταβλητή και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

    • Όνομα: FDFFilenameControlVisible
    • Τύπος δεδομένων: Δυαδική τιμή
    • Δευτερεύων τύπος: INDATASET

  3. Προσθέστε μια καθολική μεταβλητή και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

    • Όνομα: XMLFilenameControlVisible
    • Τύπος δεδομένων: Δυαδική τιμή
    • Δευτερεύων τύπος: INDATASET

  4. Αλλάξτε τον κωδικό στη συνάρτηση quarterPeriodTypeOnValidatefunction ως εξής:
    Υπάρχων κώδικας

    ...
BEGIN
...

    Κωδικός αντικατάστασης

    ...

// 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
...

Προαπαιτούμενα

Πρέπει να έχετε ένα από τα ακόλουθα προϊόντα για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση:

  • Η αυστριακή έκδοση του Microsoft Dynamics NAV 2009 R2
  • Η αυστριακή έκδοση του Microsoft Dynamics NAV 2009 Service Pack 1

Πληροφορίες κατάργησης

Δεν μπορείτε να καταργήσετε αυτήν την επείγουσα επιδιόρθωση.

Κατάσταση

Η Microsoft έχει επιβεβαιώσει ότι πρόκειται για ένα ζήτημα που αφορά τα προϊόντα της Microsoft που παρατίθενται στην ενότητα "Ισχύει για".

Σημείωση Αυτό είναι ένα άρθρο "FAST PUBLISH" που δημιουργήθηκε απευθείας μέσα από τον οργανισμό υποστήριξης της Microsoft. Οι πληροφορίες που περιέχονται στο παρόν παρέχονται ως έχουν ως απάντηση σε αναδυόμενα ζητήματα. Ως αποτέλεσμα της ταχύτητας διάθεσής του, το υλικό μπορεί να περιλαμβάνει τυπογραφικά λάθη και μπορεί να αναθεωρηθεί ανά πάσα στιγμή χωρίς προειδοποίηση. Ανατρέξτε στους Όρους χρήσης για άλλα ζητήματα.