Este artigo se aplica ao Microsoft Dynamics NAV para a localidade de idioma dinamarquês (dk).
Sintomas
Você não pode criar uma fatura eletrônica que contenha um valor de linha de fatura de vendas negativo na versão dinamarquesa do Microsoft Dynamics NAV. No entanto, você deve ser capaz de criar uma fatura eletrônica que contenha valores de linha negativos quando o valor total for positivo.
Esse problema ocorre nos seguintes produtos:
- A versão dinamarquesa do Microsoft Dynamics NAV 2009 R2
- A versão dinamarquesa do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- A versão dinamarquesa do Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
Resolução
Informações sobre o hotfix
Um hotfix com suporte agora está disponível na Microsoft. No entanto, ele destina-se apenas a corrigir o problema descrito neste artigo. Aplique-o somente a sistemas que estão enfrentando esse problema específico. Esse hotfix pode receber testes adicionais. Portanto, se você não for severamente afetado por esse problema, é recomendável aguardar o próximo pacote de serviços do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.
Observação Em casos especiais, os encargos que normalmente são incorridos para chamadas de suporte podem ser cancelados se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determinar que uma atualização específica resolve seu problema. Os custos de suporte em geral aplicam-se a questões e problemas de suporte adicionais 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 para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não se limita a, as garantias implícitas de comercialização ou adequação a uma finalidade específica. Este artigo pressupõe que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudá-lo, fornecendo a explicação da funcionalidade de determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidade adicional nem criarão procedimentos específicos para atender às suas necessidades específicas.
Observação Antes de instalar esse hotfix, verifique se todos os usuários cliente do Microsoft Navision estão conectados ao sistema. Isso inclui usuários cliente do NAS (Microsoft Navision Application Services). Você deve ser o único usuário cliente que está conectado ao implementar esse hotfix.
Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.
Recomendamos que a conta de usuário na janela Logons do Windows ou na janela Logons de Banco de Dados seja atribuída à ID da função "SUPER". Se a conta de usuário não puder ser atribuída à ID da função "SUPER", você deverá verificar se a conta de usuário tem as seguintes permissões:
- A permissão Modificar para o objeto que você estará alterando.
- A permissão Executar para o objeto System Object ID 5210 e para o objeto System Object ID 9015.
Observação Você não precisa ter direitos para os armazenamentos de dados, a menos que precise executar o reparo de dados.
Alterações de código
Observação Sempre teste correções de código em um ambiente controlado antes de aplicar as correções aos computadores de produção.
Para resolver este problema, execute as seguintes etapas:
Altere o valor global na guia Constat de Texto na codeunit OIOUBL Check Sales Header (13602) da seguinte maneira:
Valor existente
Text 000 ='DAN=Bel›bet i feltet %1 p† linje nummer %2 m† ikke v're negativt. Hvis du vil bogf›re en refusion, skal du oprette en kreditnota.; ENU=O valor no campo %1 no número de linha %2 não pode ser negativo. Para postar um reembolso, crie um memorando de crédito.'; Valor de substituição
Text000 = 'DAN=Bel›bet i feltet %1 p† linje nummer %2 m† ikke v're negativt. Hvis du vil bogf›re en refusion, skal du oprette en kreditnota.; ENU=O valor total não pode ser negativo. Para postar um reembolso, crie um memorando de crédito.';Adicione uma nova variável local na função CheckSalesLines na codeunit OIOUBL Check Sales Header (13602) e especifique a variável da seguinte maneira:
- Nome: LineAmount
- DataType: Decimal
Altere o código na função CheckSalesLines na codeunit OIOUBL Check Sales Header (13602) da seguinte maneira:
Código existente... EmptyLineFound := FALSE; WITH SalesLine DO BEGIN RESET; SETRANGE("Document Type",SalesHeader."Document Type"); SETRANGE("Document No.",SalesHeader."No."); IF FIND('-') THEN REPEAT IF (Type <> Type::" ") AND ("No." <> '') AND ("Unit of Measure" = '') THEN ERROR(Text13612,"Document Type","Document No.",FIELDCAPTION("Unit of Measure")); IF Description = '' THEN IF (Type <> Type::" ") AND ("No." <> '') THEN ERROR(Text13608,"Document Type","Document No.", FIELDCAPTION(Type),FIELDCAPTION("No."),FIELDCAPTION(Description)); // Delete the following lines. IF "Line Amount" < 0 THEN ERROR(Text000,FIELDCAPTION("Line Amount"),"Line No."); // End of the lines. LineAmount += "Line Amount"; IF (Type = Type::" ") OR ("No." = '') THEN EmptyLineFound := TRUE; UNTIL (NEXT = 0); IF EmptyLineFound THEN ...Código de substituição
... EmptyLineFound := FALSE; // Add the following line. CLEAR(LineAmount); WITH SalesLine DO BEGIN RESET; SETRANGE("Document Type",SalesHeader."Document Type"); SETRANGE("Document No.",SalesHeader."No."); IF FIND('-') THEN REPEAT IF (Type <> Type::" ") AND ("No." <> '') AND ("Unit of Measure" = '') THEN ERROR(Text13612,"Document Type","Document No.",FIELDCAPTION("Unit of Measure")); IF Description = '' THEN IF (Type <> Type::" ") AND ("No." <> '') THEN ERROR(Text13608,"Document Type","Document No.", FIELDCAPTION(Type),FIELDCAPTION("No."),FIELDCAPTION(Description)); LineAmount += "Line Amount"; IF (Type = Type::" ") OR ("No." = '') THEN EmptyLineFound := TRUE; UNTIL (NEXT = 0); // Add the following lines. IF LineAmount < 0 THEN ERROR(Text000); // End of the lines. IF EmptyLineFound THEN ...Altere o valor global na guia Constat de Texto na codeunit OIOUBL Check Service Header (13613) da seguinte maneira:
Valor existente
Text 000 ='DAN=Bel›bet i feltet %1 p† linje nummer %2 m† ikke v're negativt. Hvis du vil bogf›re en refusion, skal du oprette en kreditnota.; ENU=O valor no campo %1 no número de linha %2 não pode ser negativo. Para postar um reembolso, crie um memorando de crédito.'; Valor de substituição
Text000 = 'DAN=Bel›bet i feltet %1 p† linje nummer %2 m† ikke v're negativt. Hvis du vil bogf›re en refusion, skal du oprette en kreditnota.; ENU=O valor total não pode ser negativo. Para postar um reembolso, crie um memorando de crédito.';Adicione uma nova variável local na função CheckServiceLines na codeunit OIOUBL Check Service Header (13613) e especifique a variável da seguinte maneira:
- Nome: LineAmount
- DataType: Decimal
Altere o código na função CheckServiceLines na codeunit OIOUBL Check Service Header (13613) da seguinte maneira:
Código existente... EmptyLineFound := FALSE; WITH ServiceLine DO BEGIN RESET; SETRANGE("Document Type",ServiceHeader."Document Type"); SETRANGE("Document No.",ServiceHeader."No."); IF FIND('-') THEN REPEAT IF (Type <> Type::" ") AND ("No." <> '') AND ("Unit of Measure" = '') THEN ERROR(Text13612,"Document Type","Document No.",FIELDCAPTION("Unit of Measure")); IF Description = '' THEN IF (Type <> Type::" ") AND ("No." <> '') THEN ERROR(Text13608,"Document Type","Document No.", FIELDCAPTION(Type),FIELDCAPTION("No."),FIELDCAPTION(Description)); // Delete the following lines. IF "Line Amount" < 0 THEN ERROR(Text000,FIELDCAPTION("Line Amount"),"Line No."); // End of the lines. IF (Type = Type::" ") OR ("No." = '') THEN EmptyLineFound := TRUE; UNTIL (NEXT = 0); IF EmptyLineFound THEN ...Código de substituição
... EmptyLineFound := FALSE; // Add the following line. CLEAR(LineAmount); WITH ServiceLine DO BEGIN RESET; SETRANGE("Document Type",ServiceHeader."Document Type"); SETRANGE("Document No.",ServiceHeader."No."); IF FIND('-') THEN REPEAT IF (Type <> Type::" ") AND ("No." <> '') AND ("Unit of Measure" = '') THEN ERROR(Text13612,"Document Type","Document No.",FIELDCAPTION("Unit of Measure")); IF Description = '' THEN IF (Type <> Type::" ") AND ("No." <> '') THEN ERROR(Text13608,"Document Type","Document No.", FIELDCAPTION(Type),FIELDCAPTION("No."),FIELDCAPTION(Description)); // Add the following line. LineAmount += "Line Amount"; IF (Type = Type::" ") OR ("No." = '') THEN EmptyLineFound := TRUE; UNTIL (NEXT = 0); // Add the following lines. IF LineAmount < 0 THEN ERROR(Text000); // End of the lines. IF EmptyLineFound THEN ...
Pré-requisitos
Você deve ter um dos seguintes produtos instalados para aplicar este hotfix:
- A versão dinamarquesa do Microsoft Dynamics NAV 2009 R2
- A versão dinamarquesa do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- A versão dinamarquesa do Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
Informações sobre remoção
Você não pode remover esse hotfix.
Status
A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na seção "Aplica-se a".
Observação Este é um artigo "FAST PUBLISH" criado diretamente na organização de suporte da Microsoft. As informações contidas aqui são fornecidas como resposta aos problemas possíveis. Como resultado da prontidão de disponibilizá-lo, os materiais pode conter erros tipográficos e podem ser revisados a qualquer momento são aviso prévio. Consulte Termos de Uso para obter outras considerações.