Depois de importar a actualização de declaração de IVA (2014 alteração de esquema de declaração do IVA para Microsoft Dynamics NAV 2009 SP1 - Áustria). O relatório de declaração de IVA não tem uma página de pedido na versão do Microsoft Dynamics NAV 2009 austríaca. Por conseguinte, é possível utilizar as mesmas opções no cliente Perfil personalizado (RTC), que são comparados com o cliente classic. Este problema ocorre nos seguintes produtos:
-
A versão do Microsoft Dynamics NAV 2009 R2 austríaca
-
A versão austríaca do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Resolução
Informações sobre correção
Agora tem uma correcção suportada disponível na Microsoft. Contudo, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-a apenas em sistemas que tenham este problema específico. Esta correcção poderá ser submetida a testes adicionais. Por conseguinte, se não estiver a ser gravemente afectado por este problema, recomendamos que aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contenha esta correcção.
Nota Em casos especiais, os custos normalmente inerentes para suporte chamadas poderão ser anuladas se um técnico de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma actualização específica resolverá o problema. Os custos de normais do suporte serão aplicados a questões de suporte adicionais e problemas que não se enquadrem na atualização específica em questão.
Informações de instalação
A Microsoft fornece exemplos de programação apenas a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.
Nota Antes de instalar esta correcção, certifique-se de que todos os utilizadores de cliente do Microsoft Dynamics NAV são registados no sistema. Isto inclui os serviços de servidor de aplicações (NAS) do Microsoft Dynamics NAV. Deve ser o único usuário do cliente que tem sessão iniciada quando implementar esta correcção.
Para implementar esta correcção, tem de ter uma licença de desenvolvedor.
Recomendamos que a conta de utilizador na janela Logins do Windows ou na janela Logins de base de dados seja atribuída a ID de função "SUPER". Se a conta de utilizador não é possível atribuir o ID de função "SUPER", tem de verificar que a conta de utilizador tem as seguintes permissões:
-
A permissão Modificar para o objecto que estará a alterar.
-
A permissão executar para o objecto 5210 de ID de objecto de sistema e para o 9015 de ID de objecto de sistema
objecto.
Nota Não tem de ter direitos para os arquivos de dados, excepto se tiver de efectuar a reparação de dados.
Alterações de código
Nota testar sempre correções de código num ambiente controlado antes de aplicar as correcções para os computadores de produção. Antes de aplicar a alteração, volte a importar todas as actualizações SEPA.
Para resolver este problema, siga estes passos:
-
Altere o código na página pedido no mapa declaração IVA em (11110) do seguinte modo:
Código existente 1...{
PROPERTIES
{
}
CONTROLS
{
...Código de substituição 1
...{
PROPERTIES
{
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
{
...Código existente 2
...}
CONTROLS
{
}
}
CODE
...Código de substituição 2
...}
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 }
}
}
CODE
... -
Altere o código na variáveis globais no relatório declaração de IVA em (11110) do seguinte modo:
Código existente...Text1160061@1160061 : TextConst 'ENU=Would you like to set the Starting and Ending Date according to the selected Reporting Type?;DEA=M�chten Sie das Start- und Enddatum entsprechend dem ausgew�hlten Berichtstyp festlegen?';
Text1160062@1160062 : TextConst 'ENU=Due to improper filter settings on the fields %1 and/or %2, your VAT Statement might contain incorrect values. Please check.;DEA=Aufgrund von nicht ordnungsgem��en Filtereinstellungen f�r die Felder %1 und/oder %2 enth�lt Ihre MwSt-Erkl�rung m�glicherweise fehlerhafte Werte. Bitte �berpr�fen Sie diese.';
Text1160063@1160063 : TextConst 'ENU=Default;DEA=Standard';
LOCAL PROCEDURE CalcLineTotal@3(VATStmtLine2@1160000 : Record 256;VAR TotalAmount@1160001 : Decimal;Level@1160002 : Integer) : Boolean;
BEGIN
...Código de substituição
...Text1160061@1160061 : TextConst 'ENU=Would you like to set the Starting and Ending Date according to the selected Reporting Type?;DEA=M�chten Sie das Start- und Enddatum entsprechend dem ausgew�hlten Berichtstyp festlegen?';
Text1160062@1160062 : TextConst 'ENU=Due to improper filter settings on the fields %1 and/or %2, your VAT Statement might contain incorrect values. Please check.;DEA=Aufgrund von nicht ordnungsgem��en Filtereinstellungen f�r die Felder %1 und/oder %2 enth�lt Ihre MwSt-Erkl�rung m�glicherweise fehlerhafte Werte. Bitte �berpr�fen Sie diese.';
Text1160063@1160063 : TextConst 'ENU=Default;DEA=Standard';
FDFFilenameControlVisible@19016139 : Boolean INDATASET;
XMLFilenameControlVisible@19067901 : Boolean INDATASET;
LOCAL PROCEDURE CalcLineTotal@3(VATStmtLine2@1160000 : Record 256;VAR TotalAmount@1160001 : Decimal;Level@1160002 : Integer) : Boolean;
BEGIN
... -
Altere o código na função quarterPeriodTypeOnValidate no mapa declaração IVA em (11110) do seguinte modo:
Código existente...XMLFile.CLOSE;
END;
BEGIN
END.
}
...Código de substituição
...XMLFile.CLOSE;
END;
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;
BEGIN
END.
}
...
Pré-requisitos
Tem de ter um dos seguintes produtos instalado para aplicar esta correcção:
-
A versão do Microsoft Dynamics NAV 2009 R2 austríaca
-
A versão do Microsoft Dynamics NAV 2009 SP1 austríaca
Além disso, tem de instalar a actualização de declaração de IVA (2014 alteração de esquema de declaração do IVA para Microsoft Dynamics NAV 2009 SP1 - Áustria).
Informações de remoção
Não é possível remover esta correcção.
Estado
A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na secção "Aplica-se a".
Nota Este é um artigo "Publicação rápida" criado diretamente a partir da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas como-se em resposta a questões emergentes. Como resultado da urgência na sua disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Para outras considerações, consulte os Termos de utilização.
