Objawy
Typ niepoprawnego dokumentu jest używany podczas importowania plików LSV DD (polecenie zapłaty) i odrzucone płatności istnieje w Szwajcarskiej wersji systemu Microsoft Dynamics NAV 2009. Gdy płatność została anulowana, typ dokumentu jest nadal równa płatności. Jednakże ze względu na niepoprawny znak kwoty nie można zaksięgować tych zapisów. Wykonaj kroki opisane w sekcji zmiany kodu , aby rozwiązać ten problem. Ten problem występuje w następujących produktach:
-
Szwajcarską wersję systemu Microsoft Dynamics NAV 2009 R2
-
Szwajcarski wersji dodatku SP1 dla programu Microsoft Dynamics NAV 2009
Rozwiązanie
Informacje o poprawce
Obsługiwana poprawka jest obecnie udostępniana przez firmę Microsoft. Jednak to jest przeznaczona tylko do usunięcia problemu opisanego w tym artykule. Zastosuj ją tylko w systemach, w których występuje ten problem. Ta poprawka może być wciąż w fazie testowania. Jeśli dany system nie jest poważnie narażony na ten problem, firma Microsoft zaleca, aby poczekać na następny dodatek service pack dla systemu Microsoft Dynamics NAV 2009 lub następną wersję systemu Microsoft Dynamics NAV, zawierający tę poprawkę.
Uwaga W wyjątkowych przypadkach opłaty, telefonujący do pomocy technicznej mogą zostać anulowane, jeśli pomocy technicznej dla systemu Microsoft Dynamics i produktów powiązanych Określa, że określonej aktualizacji, można rozwiązać swój problem. Koszty obsługi zwykłych zastosuje się do dodatkowych pytań i problemów, których nie można rozwiązać przy użyciu określonej aktualizacji.
Informacje dotyczące instalacji
Firma Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że użytkownik zna demonstrowany język programowania oraz narzędzia, które są używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura. Nie będą jednak modyfikować tych przykładów ani dodawać funkcjonalności i konstruować procedur w celu zaspokojenia określonych potrzeb użytkownika.
Uwaga Przed zainstalowaniem tej poprawki należy zweryfikować, że wszyscy użytkownicy klienta systemu Microsoft Dynamics NAV są wylogowani systemu. Obejmuje to usług systemu Microsoft Dynamics NAV aplikacji serwera (NAS). Powinny być użytkownika klienta, który jest zalogowany w momencie wdrożyć tę poprawkę.
Aby wdrożyć tę poprawkę, musi mieć licencję deweloperską.
Firma Microsoft zaleca, aby do konta użytkownika w oknie identyfikatorów logowania systemu Windows lub w oknie identyfikatorów logowania bazy danych być przypisany identyfikator roli "SUPER". Jeśli konto użytkownika nie można przypisać Identyfikatora roli "SUPER", należy sprawdzić, czy konto użytkownika ma następujące uprawnienia:
-
Uprawnienie Modyfikacja dla obiektu, który będzie zmieniany.
-
Uprawnienie Execute obiektu 5210 identyfikator obiektu systemu i 9015 identyfikator obiektu systemu
obiekt.
Uwaga Nie trzeba mieć prawa do magazynów danych, chyba że konieczne jest przeprowadzenie naprawy danych.
Zmiany kodu
Uwaga Zawsze test poprawki kodu w kontrolowanym środowisku przed zastosowaniem poprawki na komputerach produkcyjnych.
Aby rozwiązać ten problem, wykonaj następujące kroki:
-
Zmień kod w zmiennych globalnych w LSVMgt Codeunit (3010831) w następujący sposób:
Istniejący kod...Text11500@1150080 : TextConst 'ENU=Could not find Transaction No. %1 in Debit Direct Order No. %2.';
FileMgt@1150042 : Codeunit 419;
FileSystemObject@1150081 : Automation "{420B2830-E718-11CF-893D-00A0C9054228} 1.0:{0D43FE01-F093-11CF-8940-00A0C9054228}:'Microsoft Scripting Runtime'.FileSystemObject";
PROCEDURE ReleaseCustLedgEntries@1(_GenJnlLine@1150000 : Record 81);
BEGIN
...Kod zastępczy
...Text11500@1150080 : TextConst 'ENU=Could not find Transaction No. %1 in Debit Direct Order No. %2.';
FileMgt@1150042 : Codeunit 419;
FileSystemObject@1150081 : Automation "{420B2830-E718-11CF-893D-00A0C9054228} 1.0:{0D43FE01-F093-11CF-8940-00A0C9054228}:'Microsoft Scripting Runtime'.FileSystemObject";
// Add the following line.
IsCancellationExist@1150082 : Boolean;
// End of the added line.
PROCEDURE ReleaseCustLedgEntries@1(_GenJnlLine@1150000 : Record 81);
BEGIN
... -
Zmień kod w funkcji ImportDebitDirectFile w LSVMgt Codeunit (3010831) w następujący sposób:
Istniejący kod 1...FeeAmount := 0;
TotalRecRecords := 0;
TotalRecRecordsRev := 0;
// Journal name for no serie
GlBatchName.GET(ActGenJnlLine."Journal Template Name",ActGenJnlLine."Journal Batch Name");
...Kod zastępczy 1
...FeeAmount := 0;
TotalRecRecords := 0;
TotalRecRecordsRev := 0;
// Add the following line.
IsCancellationExist := FALSE;
// End of the added line.
// Journal name for no serie
GlBatchName.GET(ActGenJnlLine."Journal Template Name",ActGenJnlLine."Journal Batch Name");
...Istniejący kod 2
...// Split File line into fields
// Delete the following lines.
FileID := COPYSTR(Line,1,3);
IF FileID <> '036' THEN
ERROR(Text049 + Text011);
TA := COPYSTR(Line,36,2);
IF NOT (TA = '97') THEN BEGIN
TotalRecord := FALSE;
EVALUATE(InvoiceAmt,COPYSTR(Line,54,13));
EVALUATE(yyCR,COPYSTR(Line,4,2));
EVALUATE(mmCR,COPYSTR(Line,6,2));
EVALUATE(ddCR,COPYSTR(Line,8,2));
IF yyCR > 98 THEN
PostDate := DMY2DATE(ddCR,mmCR,1900 + yyCR)
ELSE
PostDate := DMY2DATE(ddCR,mmCR,2000 + yyCR);
DebitDirectOrderNo := COPYSTR(Line,34,2);
EVALUATE(DebitDirectRecordNo,COPYSTR(Line,38,6));
EVALUATE(RejectionCode,COPYSTR(Line,543,2));
Currency := COPYSTR(Line,51,3);
// DEBIT DIRECT
LsvJour.RESET;
LsvJour.SETRANGE("Credit Date",PostDate);
LsvJour.SETRANGE("DebitDirect Orderno.",DebitDirectOrderNo);
IF NOT LsvJour.FIND('+') THEN
ERROR(Text059,DebitDirectOrderNo,PostDate);
LsvJournalLine.RESET;
//CH0001.begin
LsvJournalLine.SETCURRENTKEY("LSV Journal No.","Transaction No.");
LsvJournalLine.SETRANGE("LSV Journal No.",LsvJour."No.");
//LsvJournalLine.SETRANGE("Line No.",DebitDirectRecordNo);
LsvJournalLine.SETRANGE("Transaction No.",DebitDirectRecordNo);
//LsvJournalLine.FIND('-');
IF NOT LsvJournalLine.FINDFIRST THEN BEGIN
d.CLOSE;
ERROR(Text11500, DebitDirectRecordNo, DebitDirectOrderNo);
END;
//CH0001.end
InInvoiceNo := LsvJournalLine."Applies-to Doc. No.";
// END DEBIT DIRECT
// Process transaction of credit record
CASE TA OF
'81': // Credit
BEGIN
Transaction := Transaction::Credit;
LsvJournalLine."LSV Status" := LsvJournalLine."LSV Status"::Open;
LsvJournalLine."DD Rejection Reason" := LsvJournalLine."DD Rejection Reason"::" ";
LsvJournalLine.MODIFY;
IF LSVSetup.READPERMISSION THEN BEGIN
ClosedByESR(InInvoiceNo);
END;
END;
'84': // Cancellation "Storno"
BEGIN
IF RejectionCode <> 2 THEN
Transaction := Transaction::Correction
ELSE
Transaction := Transaction::Cancellation;
LsvJournalLine."LSV Status" := LsvJournalLine."LSV Status"::Rejected;
LsvJournalLine."DD Rejection Reason" := RejectionCode;
LsvJournalLine.MODIFY;
END;
ELSE
ERROR(Text023 + Text011);
END;
END ELSE BEGIN
TotalRecord := TRUE;
EVALUATE(TempAmount,COPYSTR(Line,60,13));
CreditAmount := CreditAmount + TempAmount / 100;
EVALUATE(TempAmount,COPYSTR(Line,82,13));
RejectionAmount := RejectionAmount + TempAmount / 100;
EVALUATE(TempAmount,COPYSTR(Line,104,13));
ReversalAmount := ReversalAmount + TempAmount / 100;
EVALUATE(TempAmount,COPYSTR(Line,120,11));
FeeAmount := FeeAmount + TempAmount / 100;
// Credit Count
EVALUATE(TempAmount,COPYSTR(Line,54,6));
TotalRecRecords := TotalRecRecords + TempAmount;
// Rejection Count
EVALUATE(TempAmount,COPYSTR(Line,76,6));
TotalRecRecordsRev := TotalRecRecordsRev + TempAmount;
// Reversal Count
EVALUATE(TempAmount,COPYSTR(Line,98,6));
TotalRecRecordsRev := TotalRecRecordsRev + TempAmount;
END;
// END OF SPLIT
IF NOT (TotalRecord) AND (Transaction <> Transaction::Correction) THEN BEGIN
// End of the deleted lines.
// Insert GL line
GenJournalLine.INIT;
GenJournalLine."Journal Template Name" := ActGenJnlLine."Journal Template Name";
...Kod zastępczy 2
...// Split File line into fields
// Add the following lines.
FileID := COPYSTR(Line,1,3);
IF FileID <> '036' THEN
ERROR(Text049 + Text011);
TA := COPYSTR(Line,36,2);
IF NOT (TA = '97') THEN BEGIN
TotalRecord := FALSE;
EVALUATE(InvoiceAmt,COPYSTR(Line,54,13));
EVALUATE(yyCR,COPYSTR(Line,4,2));
EVALUATE(mmCR,COPYSTR(Line,6,2));
EVALUATE(ddCR,COPYSTR(Line,8,2));
IF yyCR > 98 THEN
PostDate := DMY2DATE(ddCR,mmCR,1900 + yyCR)
ELSE
PostDate := DMY2DATE(ddCR,mmCR,2000 + yyCR);
DebitDirectOrderNo := COPYSTR(Line,34,2);
EVALUATE(DebitDirectRecordNo,COPYSTR(Line,38,6));
EVALUATE(RejectionCode,COPYSTR(Line,543,2));
Currency := COPYSTR(Line,51,3);
// DEBIT DIRECT
LsvJour.RESET;
LsvJour.SETRANGE("Credit Date",PostDate);
LsvJour.SETRANGE("DebitDirect Orderno.",DebitDirectOrderNo);
IF NOT LsvJour.FIND('+') THEN
ERROR(Text059,DebitDirectOrderNo,PostDate);
LsvJournalLine.RESET;
//CH0001.begin
LsvJournalLine.SETCURRENTKEY("LSV Journal No.","Transaction No.");
LsvJournalLine.SETRANGE("LSV Journal No.",LsvJour."No.");
//LsvJournalLine.SETRANGE("Line No.",DebitDirectRecordNo);
LsvJournalLine.SETRANGE("Transaction No.",DebitDirectRecordNo);
//LsvJournalLine.FIND('-');
IF NOT LsvJournalLine.FINDFIRST THEN BEGIN
d.CLOSE;
ERROR(Text11500, DebitDirectRecordNo, DebitDirectOrderNo);
END;
//CH0001.end
InInvoiceNo := LsvJournalLine."Applies-to Doc. No.";
// END DEBIT DIRECT
// Process transaction of credit record
CASE TA OF
'81': // Credit
BEGIN
Transaction := Transaction::Credit;
LsvJournalLine."LSV Status" := LsvJournalLine."LSV Status"::Open;
LsvJournalLine."DD Rejection Reason" := LsvJournalLine."DD Rejection Reason"::" ";
LsvJournalLine.MODIFY;
IF LSVSetup.READPERMISSION THEN BEGIN
ClosedByESR(InInvoiceNo);
END;
END;
'84': // Cancellation "Storno"
BEGIN
IF RejectionCode <> 2 THEN
Transaction := Transaction::Correction
ELSE
Transaction := Transaction::Cancellation;
LsvJournalLine."LSV Status" := LsvJournalLine."LSV Status"::Rejected;
LsvJournalLine."DD Rejection Reason" := RejectionCode;
LsvJournalLine.MODIFY;
END;
ELSE
ERROR(Text023 + Text011);
END;
END ELSE BEGIN
TotalRecord := TRUE;
EVALUATE(TempAmount,COPYSTR(Line,60,13));
CreditAmount := CreditAmount + TempAmount / 100;
EVALUATE(TempAmount,COPYSTR(Line,82,13));
RejectionAmount := RejectionAmount + TempAmount / 100;
EVALUATE(TempAmount,COPYSTR(Line,104,13));
ReversalAmount := ReversalAmount + TempAmount / 100;
EVALUATE(TempAmount,COPYSTR(Line,120,11));
FeeAmount := FeeAmount + TempAmount / 100;
// Credit Count
EVALUATE(TempAmount,COPYSTR(Line,54,6));
TotalRecRecords := TotalRecRecords + TempAmount;
// Rejection Count
EVALUATE(TempAmount,COPYSTR(Line,76,6));
TotalRecRecordsRev := TotalRecRecordsRev + TempAmount;
// Reversal Count
EVALUATE(TempAmount,COPYSTR(Line,98,6));
TotalRecRecordsRev := TotalRecRecordsRev + TempAmount;
END;
// END OF SPLIT
IF NOT (TotalRecord) AND (Transaction <> Transaction::Correction) THEN BEGIN
// End of the added lines.
// Insert GL line
GenJournalLine.INIT;
GenJournalLine."Journal Template Name" := ActGenJnlLine."Journal Template Name";
...Istniejący kod 3
...GenJournalLine.INIT;
GenJournalLine."Journal Template Name" := ActGenJnlLine."Journal Template Name";
GenJournalLine."Journal Batch Name" := ActGenJnlLine."Journal Batch Name";
LastLineNo := LastLineNo + 10000;
GenJournalLine."Line No." := LastLineNo;
GenJournalLine."Document No." := NextDocNo;
...Kod zastępczy 3
... GenJournalLine.INIT;
GenJournalLine."Journal Template Name" := ActGenJnlLine."Journal Template Name";
GenJournalLine."Journal Batch Name" := ActGenJnlLine."Journal Batch Name";
// Add the following lines.
GenJournalLine."Posting Date" := PostDate;
GenJournalLine."Account Type" := GenJournalLine."Account Type"::Customer;
IF Transaction = Transaction::Cancellation THEN BEGIN
IsCancellationExist := TRUE;
GenJournalLine."Document Type" := GenJournalLine."Document Type"::Refund;
NextDocNo := NoSeriesMgt.GetNextNo(GlBatchName."No. Series",PostDate,FALSE);
END ELSE
GenJournalLine."Document Type" := GenJournalLine."Document Type"::Payment;
// End of the added lines.
LastLineNo := LastLineNo + 10000;
GenJournalLine."Line No." := LastLineNo;
GenJournalLine."Document No." := NextDocNo;
...Istniejący kod 4
...LastLineNo := LastLineNo + 10000;
GenJournalLine."Line No." := LastLineNo;
GenJournalLine."Document No." := NextDocNo;
// Delete the following lines.
GenJournalLine."Posting Date" := PostDate;
GenJournalLine."Account Type" := GenJournalLine."Account Type"::Customer;
GenJournalLine."Document Type" := GenJournalLine."Document Type"::Payment;
// End of the deleted lines.
GeneralLedgerSetup.GET;
IF GeneralLedgerSetup."LCY Code" <> Currency THEN
...Kod zastępczy 4
... LastLineNo := LastLineNo + 10000;
GenJournalLine."Line No." := LastLineNo;
GenJournalLine."Document No." := NextDocNo;
// Add the following lines.
IF Transaction = Transaction::Cancellation THEN
NextDocNo := NoSeriesMgt.GetNextNo(GlBatchName."No. Series",PostDate,FALSE);
// End of the added lines.
GeneralLedgerSetup.GET;
IF GeneralLedgerSetup."LCY Code" <> Currency THEN
...Istniejący kod 5
... IF CustLedgerEntry.FIND('-') THEN
GenJournalLine.VALIDATE("Account No.",CustLedgerEntry."Customer No.");
// Delete the following lines.
GenJournalLine."Applies-to Doc. Type" := GenJournalLine."Applies-to Doc. Type"::Invoice;
GenJournalLine."Applies-to Doc. No." := InInvoiceNo;
// End of the deleted lines.
IF GenJournalLine."Currency Code" <> CustLedgerEntry."Currency Code" THEN
GenJournalLine.VALIDATE("Currency Code",CustLedgerEntry."Currency Code");
...Kod zastępczy 5
... IF CustLedgerEntry.FIND('-') THEN
GenJournalLine.VALIDATE("Account No.",CustLedgerEntry."Customer No.");
// Add the following lines.
IF Transaction <> Transaction::Cancellation THEN BEGIN
GenJournalLine."Applies-to Doc. Type" := GenJournalLine."Applies-to Doc. Type"::Invoice;
GenJournalLine."Applies-to Doc. No." := InInvoiceNo;
END;
// End of the added lines.
IF GenJournalLine."Currency Code" <> CustLedgerEntry."Currency Code" THEN
GenJournalLine.VALIDATE("Currency Code",CustLedgerEntry."Currency Code");
...Istniejący kod 6
...// *** Bal account per line or as combined entry
// Delete the following line.
IF MultiplePostingDates THEN BEGIN
// End of the deleted line.
// Bal Account per line
IF GenJournalLine.FIND('-') THEN
REPEAT
...Kod zastępczy 6
...// *** Bal account per line or as combined entry
// Add the following line.
IF MultiplePostingDates OR IsCancellationExist THEN BEGIN
// End of the added line.
// Bal Account per line
IF GenJournalLine.FIND('-') THEN
REPEAT
...
Wymagania wstępne
Musi mieć jedną z następujących produktów, w celu zastosowania tej poprawki:
-
Szwajcarską wersję systemu Microsoft Dynamics NAV 2009 R2
-
Szwajcarski wersji dodatku SP1 dla programu Microsoft Dynamics NAV 2009
Informacje dotyczące usuwania
Nie można usunąć tej poprawki.
Stan
Firma Microsoft potwierdziła, że jest to problem występujący w produktach firmy Microsoft wymienionych w sekcji „Dotyczy”.
Uwaga Jest to artykuł " szybkiej publikacji" tworzony bezpośrednio przez organizację pomocy technicznej firmy Microsoft. Informacje zawarte w niniejszym dokumencie są dostarczane jako odpowiedź na pojawiające się problemy. W wyniku przyspieszonego udostępnienia, materiały te mogą zawierać błędy typograficzne i mogą być zmieniane w dowolnym czasie bez uprzedzenia. Zobacz Warunki użytkowaniadla innych względów.
