Susiduriate su neteisingo eksporto problemomis, kai kuriate užsienio mokėjimo failą vokiška "„Microsoft“ Dynamics NAV" versija su įtrauktais "AddOn Mokėjimai"

Taikoma

Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 R2

Šis straipsnis taikomas "„Microsoft“ Dynamics NAV", skirtai vokiečių (de) kalbos lokalei.

Požymiai

Vokiškoje "„Microsoft“ Dynamics NAV" versijoje su įtrauktais "AddOn Mokėjimai", kurdami užsienio mokėjimo failą, susiduriate su šiomis neteisingo eksportavimo problemomis:

Tarkime, kad sukūrėte užsienio mokėjimo failą, kuriame yra mokesčių sąskaita. Jei mokesčių sąskaita skiriasi nuo banko sąskaitos, kuri naudojama mokėjimui, pastebėsite, kad mokėjimo faile įrašytas neteisingas banko sąskaitos numeris.
Laukas "V-Satz " (10) faile netikėtai užpildomas "N". Manote, kad duomenys lauke bus tušti.
Laukas T-Satz (10a) faile netikėtai užpildomas "DE". Tikitės, kad lauke bus duomenys "JAV", nes tiekėjas yra iš JAV, o tik banko sąskaita yra DE.

Ši problema kyla šiuose produktuose:

"„Microsoft“ Dynamics NAV 2009" 1 pakeitimų paketo (SP1) vokiečių kalbos versija
"„Microsoft“ Dynamics NAV 2009 R2" vokiečių kalbos versija

Sprendimas

Karštųjų pataisų informacija

Dabar palaikomas karštąsias pataisas galima gauti iš "„Microsoft“". Tačiau juo siekiama tik išspręsti šiame straipsnyje aprašytą problemą. Taikyti ją tik sistemoms, kuriose kilo ši konkreti problema. Ši karštoji pataisa gali būti papildomai patikrinta. Todėl, jei ši problema jūsų rimtai nepaveikė, rekomenduojame palaukti kito "„Microsoft“ Dynamics NAV 2009" pakeitimų paketo arba kitos "„Microsoft“ Dynamics NAV" versijos, kurioje yra ši karštoji pataisa.

Pastaba Ypatingais atvejais mokesčiai, kurie paprastai taikomi už palaikymo skambučius, gali būti atšaukti, jei "„Microsoft“ Dynamics" ir susijusių produktų techninio palaikymo specialistas nustato, kad konkretus naujinimas išspręs jūsų problemą. Įprastos palaikymo išlaidos bus taikomos papildomiems palaikymo klausimams ir problemoms, kurios neatitinka atitinkamo konkretaus naujinimo reikalavimų.

Diegimo informacija

"„Microsoft“" pateikia programavimo pavyzdžių tik iliustracijai, be išreikštų ar numanomų garantijų. Tai apima, bet neapsiriboja, numanomas tinkamumo parduoti arba tinkamumo konkrečiam tikslui garantijas. Straipsnyje laikomasi nuomonės, kad esate susipažinę su demonstruojama programavimo kalba ir įrankiais, naudojamais kuriant ir derinant procedūras. "„Microsoft“" palaikymo inžinieriai gali padėti paaiškinti konkrečios procedūros funkcionalumą, bet jie nemodifikuos šių pavyzdžių, kad suteiktų papildomų funkcinių galimybių, ir nesukurs procedūrų, atitinkančių jūsų konkrečius reikalavimus.

Pastaba Prieš diegdami šią karštąją pataisą patikrinkite, ar visi "„Microsoft“ Navision" kliento vartotojai yra atsijungę nuo sistemos. Tai apima "„Microsoft“ Navision" programų tarnybų (NAS) kliento vartotojus. Turite būti vienintelis kliento vartotojas, kuris yra prisijungęs, kai įdiegiate šią karštąją pataisą.

Norėdami įdiegti šią karštąją pataisą, privalote turėti kūrėjo licenciją.

Rekomenduojame vartotojo paskyrai "Windows" prisijungimų lange arba duomenų bazės prisijungimų lange priskirti "SUPER" vaidmens ID. Jei vartotojo paskyrai negalima priskirti "SUPER" vaidmens ID, turite patikrinti, ar vartotojo paskyra turi šias teises:

Objekto, kurį keisite, modifikavimo teisė.
Sistemos objekto ID 5210 ir sistemos objekto ID 9015 objekto vykdymo teisės.

Pastaba: neturite turėti teisių į duomenų saugyklas, nebent turite atlikti duomenų taisymą.

Kodo keitimai

Pastaba Visada išbandykite kodo pataisas kontroliuojamoje aplinkoje prieš taikydami jas gamybos kompiuteriuose.
Norėdami išspręsti šią problemą, atlikite šiuos veiksmus:

Pakeiskite AZV kodo vieneto (5001905) funkcijos Open Exportfile kodą taip:
Pakeiskite visuotinio kintamojo apibrėžimą taip

Senas apibrėžimas: Dtaus: Kodas[150];
Naujas apibrėžimas: Dtaus: Code[260];

Esamas kodas

...
     CompanyInfo.GET;
// Delete the following line.  
  NameOfCompany := CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27));

  FormatAddr.BankAcc(AddrArray,BankAccount); 
...

Pakeitimo kodas

...
   CompanyInfo.GET;
// Add the following line. 
  NameOfCompany := COPYSTR(CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27)),1,MAXSTRLEN(NameOfCompany));

  FormatAddr.BankAcc(AddrArray,BankAccount);
...

Pakeiskite AZV kodo vieneto (5001905) funkcijos FormatBankAcc kodą tokiu būdu:
Sukurkite naują vietinį kintamąjį BankAccount3 taip:

BankAccount3@ : Rekordas 270

Esamas kodas

...
   IF (PaymLedgEntry."Account No. Charges"<>") AND (PaymLedgEntry."Account No. Charges"<>PaymLedgEntry."Bank Account No.") THEN
  BEGIN
// Delete the following lines.  
    BankAccount.GET(PaymLedgEntry."Account No. Charges");
    "Bank Code" := BankAccount."Bank Branch No.";
    IF STRLEN("Bank Code") = 0 THEN
      ERROR(Text1105400002,BankAccount."No.");
    BankCodeBank := FormatBankCode("Bank Code");
    IF STRLEN(BankCodeBank) <> 8 THEN
      ERROR(Text1105400003,BankAccount."No.");
    BankCodeRec3 := BankCodeBank;
    Account := BankAccount."Bank Account No.";
    IF STRLEN(Account) = 0 THEN
      ERROR(Text1105400004,BankAccount."No.");
    AccountBank := FormatAccount(Account);
    IF STRLEN(AccountBank) >10 THEN
      ERROR(
         Text1105400005,BankAccount."No.");
    AccountRec3 := AccountBank;
// End of the deleted lines.   

  END ELSE BEGIN
    BankCodeRec3 := PADSTR('',8,'0');
    AccountRec3 := PADSTR('',10,'0');
  END; 
...

Pakeitimo kodas

...
   IF (PaymLedgEntry."Account No. Charges"<>") AND (PaymLedgEntry."Account No. Charges"<>PaymLedgEntry."Bank Account No.") THEN
  BEGIN

// Add the following lines.  
    BankAccount3.GET(PaymLedgEntry."Account No. Charges");
    IF STRLEN(BankAccount3."Bank Branch No.") = 0 THEN
      ERROR(Text1105400002,BankAccount3."No.");
    BankCodeRec3 := FormatBankCode(BankAccount3."Bank Branch No.");
    IF STRLEN(BankCodeRec3) <> 8 THEN
      ERROR(Text1105400003,BankAccount3."No.");
    IF STRLEN(BankAccount3."Bank Account No.") = 0 THEN
      ERROR(Text1105400004,BankAccount3."No.");
    AccountRec3 := FormatAccount(BankAccount3."Bank Account No.");
    IF STRLEN(AccountRec3) >10 THEN  
      ERROR(
         Text1105400005,BankAccount3."No.");
//End of the added lines. 

  END ELSE BEGIN
    BankCodeRec3 := PADSTR('',8,'0');
    AccountRec3 := PADSTR('',10,'0');
  END;
...

Pakeiskite AZV kodo vieneto (5001905) funkcijos VendBankFormat kodą tokiu būdu:
Esamas kodas

...
        ERROR(Text1105400129,Country."Bank Country Code");
  END;

// Delete the following line.
  VendCountry := Country."Bank Country Code";

  IF PostedAZV.IBAN <>'' THEN BEGIN
    Account := DELCHR(PostedAZV.IBAN);
    Account := CheckFormat(UPPERCASE(PADSTR(Account,34,' ')));  
...

Pakeitimo kodas

...
         ERROR(Text1105400129,Country."Bank Country Code");
  END;

// Add the following line.
  VendCountry := PostedAZV."Country Code";

  IF PostedAZV.IBAN <> '' THEN BEGIN
    Account := DELCHR(PostedAZV.IBAN);
    Account := CheckFormat(UPPERCASE(PADSTR(Account,34,' ')));
...

Pakeiskite AZV kodo vieneto (5001905) funkcijos PaymFileHeader kodą tokiu būdu:
Esamas kodas

...
     IF STRLEN(CompanyNo) <>8 THEN
      ERROR(Text1105400137,BankAccount."No.");
  END;

  Account := BankAccount."Bank Account No.";
  IF STRLEN(Account) = 0 THEN  
...

Pakeitimo kodas

...
       IF STRLEN(CompanyNo) <>8 THEN
      ERROR(Text1105400137,BankAccount."No.");

// Add the following lines.          
  END ELSE BEGIN
    IF CompanyNo = '' THEN
      CompanyNo := PADSTR('',8,'0');
// End of the added lines.           

  END;

  Account := BankAccount."Bank Account No.";
  IF STRLEN(Account) = 0 THEN
...

Pakeiskite AZV kodo vieneto (5001905) funkcijos CreateRegistration kodą taip:
Ištrinti vietinį kintamąjį InfoTransitUnsalableInvL: Code[1]

Esamas kodas

...
       PassagingTransitL := 'N';
   BrokenTransitL := 'N';
// Delete the following line.   
   InfoTransitUnsalableInvL := 'N';
   InfoTransitUnsalableForeignL := 'N';
   IF RegistrationSet."Passaging Transit" THEN
     PassagingTransitL := 'J';
   IF RegistrationSet."Broken Transit" THEN BEGIN
     BrokenTransitL := 'J';
     RegistrationSet.TESTFIELD("Add. Information Transit");
     Transit := COPYSTR(Transit,1,62) +
     PADSTR(CheckFormat(FORMAT(UPPERCASE(RegistrationSet."Add. Information Transit"),40)),40,' ');
   END;

// Delete the following lines.   
   IF RegistrationSet."Info Transit unsalable Inv" THEN
     InfoTransitUnsalableInvL := 'J';
// End of the deleted lines.     

   IF RegistrationSet."Info Transit unsalable forei." THEN
     InfoTransitUnsalableForeignL := 'J';

   Z := Text1105400025 +
        PADSTR(RegistrationSet."Itemname Trading Goods",27,' ') +
        NumToString(RegistrationSet."Capitel No. Goods",2,'0') +
        PADSTR('',7,'0') +
        PADSTR(BankCountries."Bank Country Short Name",7,' ') +
        PADSTR(RegistrationSet."Country Code",3,' ') +
        NumToString(FORMAT(ROUND(MAmount,1,'<'),12,1),12,'0') +
        PassagingTransitL +
        BrokenTransitL +
// Delete the following line.        
        InfoTransitUnsalableInvL +
        InfoTransitUnsalableForeignL +
        Transit;
   Exportfile.SEEK(Exportfile.POS-2);
...

Pakeitimo kodas

...
    PassagingTransitL := 'N';
   BrokenTransitL := 'N';
   InfoTransitUnsalableForeignL := 'N';
   IF RegistrationSet."Passaging Transit" THEN
     PassagingTransitL := 'J';
   IF RegistrationSet."Broken Transit" THEN BEGIN
     BrokenTransitL := 'J';
     RegistrationSet.TESTFIELD("Add. Information Transit");
     Transit := COPYSTR(Transit,1,62) +
     PADSTR(CheckFormat(FORMAT(UPPERCASE(RegistrationSet."Add. Information Transit"),40)),40,' ');
   END;
   IF RegistrationSet."Info Transit unsalable forei." THEN
     InfoTransitUnsalableForeignL := 'J';

   Z := Text1105400025 +
        PADSTR(RegistrationSet."Itemname Trading Goods",27,' ') +
        NumToString(RegistrationSet."Capitel No. Goods",2,'0') +
        PADSTR('',7,'0') +
        PADSTR(BankCountries."Bank Country Short Name",7,' ') +
        PADSTR(RegistrationSet."Country Code",3,' ') +
        NumToString(FORMAT(ROUND(MAmount,1,'<'),12,1),12,'0') +
        PassagingTransitL +
        BrokenTransitL +
// Add the following line.        
        PADSTR('',1,' ') +
        InfoTransitUnsalableForeignL +
        Transit;
   Exportfile.SEEK(Exportfile.POS-2);  
...

Pakeiskite AZV kodo vieneto (5001905) funkcijos CheckFormat kodą taip:
Esamas kodas

...
    WHILE STRPOS(FieldContent,'š') >0 DO
    FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'š')-1) + Text1105400035 +
                  COPYSTR(FieldContent,STRPOS(FieldContent,'š')+1,MAXSTRLEN(FieldContent));

  CheckRec := DELCHR(FieldContent,'=',Text1105400036); 
...

Pakeitimo kodas

...
     WHILE STRPOS(FieldContent,'š') >0 DO
    FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'š')-1) + Text1105400035 +
                  COPYSTR(FieldContent,STRPOS(FieldContent,'š')+1,MAXSTRLEN(FieldContent));

// Add the following lines.      
  WHILE STRPOS(FieldContent,'&') > 0 DO
    FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'&')-1) + ' ' +
                  COPYSTR(FieldContent,STRPOS(FieldContent,'&')+1,MAXSTRLEN(FieldContent));
  WHILE STRPOS(FieldContent,'$') > 0 DO
    FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'$')-1) + ' ' +
                  COPYSTR(FieldContent,STRPOS(FieldContent,'$')+1,MAXSTRLEN(FieldContent));
  WHILE STRPOS(FieldContent,'*') > 0 DO
    FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'*')-1) + ' ' +
                  COPYSTR(FieldContent,STRPOS(FieldContent,'*')+1,MAXSTRLEN(FieldContent));
  WHILE STRPOS(FieldContent,'%') > 0 DO
    FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'%')-1) + ' ' +
                  COPYSTR(FieldContent,STRPOS(FieldContent,'%')+1,MAXSTRLEN(FieldContent));
//End of the added lines.                       

  CheckRec := DELCHR(FieldContent,'=',Text1105400036);
...

Pakeiskite AZV kodo vieneto (5001905) funkcijos CheckPaymFile parametro Drive apibrėžimą tokiu būdu:
- Senas apibrėžimas: Dtaus: Vairuoti: Kodas[150];
- Naujas apibrėžimas: Dtaus: Pavara: Kodas[250];

Pakeiskite AZV kodo vieneto (5001905) funkcijos TestCompanyInfo kodą tokiu būdu:
Esamas kodas

...
    CompanyInfo.GET;
// Delete the following line. 
  CompName := CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27));
  BankAccount.GET(Bacc);
  "Bank Code" := BankAccount."Bank Branch No.";
  IF STRLEN("Bank Code") = 0 THEN 
...

Pakeitimo kodas

...
   CompanyInfo.GET;
// Add the following line.  
  CompName := COPYSTR(CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27)),1,MAXSTRLEN(CompName));
  BankAccount.GET(Bacc);
  "Bank Code" := BankAccount."Bank Branch No.";
  IF STRLEN("Bank Code") = 0 THEN  
...

Būtinosios sąlygos

Norėdami taikyti šią karštąją pataisą, turite įdiegti vieną iš šių produktų:

"„Microsoft“ Dynamics NAV 2009" 1 pakeitimų paketo (SP1) vokiečių kalbos versija
"„Microsoft“ Dynamics NAV 2009 R2" vokiečių kalbos versija

Pašalinimo informacija

Šios karštosios pataisos pašalinti negalite.

Būsena

„„Microsoft““ patvirtino, kad tai yra „„Microsoft““ produktų, išvardytų dalyje „Taikoma“, problema.

Nuorodos

VSTF DynamicsNAV SE: 245257; 254071; 277428

Pastaba: tai "SPARČIOJO PUBLIKAVIMO" straipsnis, sukurtas tiesiogiai iš "„Microsoft“" palaikymo organizacijos. Čia pateikta informacija pateikiama tokia, kokia yra, reaguojant į kylančias problemas. Dėl greito jos pateikimo medžiagoje gali būti spausdinimo klaidų ir ji gali būti peržiūrėta bet kuriuo metu be išankstinio įspėjimo. Dėl kitų aplinkybių žr. Naudojimo sąlygas .

Susiduriate su neteisingo eksporto problemomis, kai kuriate užsienio mokėjimo failą vokiška "„Microsoft“ Dynamics NAV" versija su įtrauktais "AddOn Mokėjimai"

Požymiai

Sprendimas

Karštųjų pataisų informacija

Diegimo informacija

Kodo keitimai

Būtinosios sąlygos

Pašalinimo informacija

Būsena

Nuorodos

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimą!