Este artigo se aplica ao Microsoft Dynamics NAV para a localidade de idioma alemão (de).
Sintomas
Ao tentar criar o arquivo de pagamento usando a funcionalidade SEPA na versão alemã do Microsoft Dynamics NAV, você recebe a seguinte mensagem de erro:
Observação
Das Feld Mandate Identification beim Debitor 1 bei der Bank ... não deve estar vazio.
Esse problema ocorrerá se a conta bancária do cliente não contiver um valor no campo Identificação de Mandato ou no campo Data da Assinatura . No entanto, os campos não são necessários para pagamentos aos clientes. Os campos são necessários apenas para o débito direto do SEPA.
Observação No Microsoft Dynamics NAV, você pode usar a funcionalidade de pagamento para pagar o valor dos memorandos de crédito de volta aos clientes. Além disso, usando a funcionalidade SEPA, você pode pagar o valor a clientes estrangeiros.
Esse problema ocorre nos seguintes produtos:
- A versão alemã do Microsoft Dynamics NAV 2009 R2
- A versão alemã do Microsoft Dynamics NAV 2009 Service Pack 1
- A versão alemã do Microsoft Dynamics NAV 2009
- A versão alemã do Microsoft Dynamics NAV 5.0 Service Pack 1
- A versão alemã do Microsoft Dynamics NAV 5.0
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 resolve esse problema, altere o código na função CheckBeforePaym na codeunit de Gerenciamento de SEPA (5001911). Para fazer isso, siga estas etapas:
Adicione uma variável local e especifique a variável da seguinte maneira:
- Nome: CheckIdent
- Tipo: booliano
Altere o código da seguinte maneira:
Código existente... CLEAR(ErrorMessage); MaxErrors := ARRAYLEN(ErrorMessage); … IF GenJnlLine.FINDFIRST THEN REPEAT IF AccNo <> GenJnlLine."Account No." THEN CASE GenJnlLine."Account Type" OF GenJnlLine."Account Type"::Customer : BEGIN Customer.GET(GenJnlLine."Account No."); CustBankAcc.SETRANGE("Customer No.",Customer."No."); CustBankAcc.SETRANGE(Clearing,TRUE); IF NOT CustBankAcc.FINDFIRST THEN BEGIN ErrorCounter := ErrorCounter + 1; IF ErrorCounter <= MaxErrors THEN ErrorMessage[ErrorCounter] := COPYSTR( STRSUBSTNO( Text1105400011+ Text1105400012,Customer."No.",CustBankAcc.FIELDCAPTION(Clearing)),1,150); END ELSE BEGIN IF PaymentSetup."SEPA Identification" = '' THEN BEGIN ErrorCounter := ErrorCounter + 1; IF ErrorCounter <= MaxErrors THEN ErrorMessage[ErrorCounter] := COPYSTR( STRSUBSTNO( Text1105400049,PaymentSetup.FIELDCAPTION("SEPA Identification")),1,150); END; IF CustBankAcc."Mandate Identification" = '' THEN BEGIN ErrorCounter := ErrorCounter + 1; IF ErrorCounter <= MaxErrors THEN ErrorMessage[ErrorCounter] := COPYSTR( STRSUBSTNO( Text1105400050+ Text1105400014,CustBankAcc.FIELDCAPTION("Mandate Identification"),Customer."No.", CustBankAcc.Name),1,150); END; ...Código de substituição
... CLEAR(ErrorMessage); MaxErrors := ARRAYLEN(ErrorMessage); // Add the following line. CheckIdent := TRUE; ... IF GenJnlLine.FINDFIRST THEN REPEAT IF AccNo <> GenJnlLine."Account No." THEN CASE GenJnlLine."Account Type" OF GenJnlLine."Account Type"::Customer : BEGIN // Add the following lines. PaymLine.RESET; PaymLine.SETCURRENTKEY("Account Type","Account No.","Posting Date"); PaymLine.SETRANGE("Account Type",PaymLine."Account Type"::Customer); PaymLine.SETRANGE("Account No.",GenJnlLine2."Account No."); PaymLine.SETRANGE("Posting Date",GenJnlLine2."Posting Date"); PaymLine.SETRANGE(PaymLine."Applies-to Doc. No.",GenJnlLine2."Applies-to Doc. No."); IF PaymLine.FINDLAST THEN BEGIN PaymLedgEntry.SETRANGE("payment no.",paymline."payment no."); IF NOT PaymLedgEntry.ISEMPTY THEN PaymLedgEntry.FINDFIRST; CheckIdent := (PaymLedgEntry.Type<>PaymLedgEntry.Type::"Customer Credit"); END; CheckIdent := NOT (GenJnlLine."Applies-to Doc. Type" IN [GenJnlLine."Applies-to Doc. Type"::"Credit Memo", GenJnlLine."Applies-to Doc. Type"::Refund]) AND (GenJnlLine."Account Type" = GenJnlLine."Account Type"::Customer); //End of the lines. Customer.GET(GenJnlLine."Account No."); CustBankAcc.SETRANGE("Customer No.",Customer."No."); CustBankAcc.SETRANGE(Clearing,TRUE); IF NOT CustBankAcc.FINDFIRST THEN BEGIN ErrorCounter := ErrorCounter + 1; IF ErrorCounter <= MaxErrors THEN ErrorMessage[ErrorCounter] := COPYSTR( STRSUBSTNO( Text1105400011+ Text1105400012,Customer."No.",CustBankAcc.FIELDCAPTION(Clearing)),1,150); END ELSE BEGIN // Add the following line. IF CheckIdent THEN BEGIN IF PaymentSetup."SEPA Identification" = '' THEN BEGIN ErrorCounter := ErrorCounter + 1; IF ErrorCounter <= MaxErrors THEN ErrorMessage[ErrorCounter] := COPYSTR( STRSUBSTNO( Text1105400049,PaymentSetup.FIELDCAPTION("SEPA Identification")),1,150); END; IF CustBankAcc."Mandate Identification" = '' THEN BEGIN ErrorCounter := ErrorCounter + 1; IF ErrorCounter <= MaxErrors THEN ErrorMessage[ErrorCounter] := COPYSTR( STRSUBSTNO( Text1105400050+ Text1105400014,CustBankAcc.FIELDCAPTION("Mandate Identification"),Customer."No.", CustBankAcc.Name),1,150); END; IF CustBankAcc."Date of Signature" = 0D THEN BEGIN ErrorCounter := ErrorCounter + 1; IF ErrorCounter <= MaxErrors THEN ErrorMessage[ErrorCounter] := COPYSTR( STRSUBSTNO( Text1105400050+ Text1105400014,CustBankAcc.FIELDCAPTION("Date of Signature"),Customer."No.", CustBankAcc.Name),1,150); END; // Add the following line. END; ... lines. Customer.GET(GenJnlLine."Account No."); CustBankAcc.SETRANGE("Customer No.",Customer."No."); CustBankAcc.SETRANGE(Clearing,TRUE); IF NOT CustBankAcc.FINDFIRST THEN BEGIN ErrorCounter := ErrorCounter + 1; IF ErrorCounter <= MaxErrors THEN ErrorMessage[ErrorCounter] := COPYSTR( STRSUBSTNO( Text1105400011+ Text1105400012,Customer."No.",CustBankAcc.FIELDCAPTION(Clearing)),1,150); END ELSE BEGIN // Add the following line. IF CheckIdent THEN BEGIN IF PaymentSetup."SEPA Identification" = '' THEN BEGIN ErrorCounter := ErrorCounter + 1; IF ErrorCounter <= MaxErrors THEN ErrorMessage[ErrorCounter] := COPYSTR( STRSUBSTNO( Text1105400049,PaymentSetup.FIELDCAPTION("SEPA Identification")),1,150); END; IF CustBankAcc."Mandate Identification" = '' THEN BEGIN ErrorCounter := ErrorCounter + 1; IF ErrorCounter <= MaxErrors THEN ErrorMessage[ErrorCounter] := COPYSTR( STRSUBSTNO( Text1105400050+ Text1105400014,CustBankAcc.FIELDCAPTION("Mandate Identification"),Customer."No.", CustBankAcc.Name),1,150); END; IF CustBankAcc."Date of Signature" = 0D THEN BEGIN ErrorCounter := ErrorCounter + 1; IF ErrorCounter <= MaxErrors THEN ErrorMessage[ErrorCounter] := COPYSTR( STRSUBSTNO( Text1105400050+ Text1105400014,CustBankAcc.FIELDCAPTION("Date of Signature"),Customer."No.", CustBankAcc.Name),1,150); END; // Add the following line. END; ...
Pré-requisitos
Você deve ter um dos seguintes produtos instalados para aplicar este hotfix:
- A versão alemã do Microsoft Dynamics NAV 2009 R2
- A versão alemã do Microsoft Dynamics NAV 2009 Service Pack 1
- A versão alemã do Microsoft Dynamics NAV 2009
- A versão alemã do Microsoft Dynamics NAV 5.0 Service Pack 1
- A versão alemã do Microsoft Dynamics NAV 5.0
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.