Iznosi plaćanja i otvoreni iznosi plaćanja su mešoviti i pogrešno se prikazuju u odeljku "Plaćanja izvan zakonskog ograničenja" u izveštaju o Plaćanja sa kašnjenjem dobavljača (10748) u verziji aplikacije Microsoft Dynamics NAV na španskom jeziku

Primenjuje se na
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

Ovaj članak se odnosi na Microsoft Dynamics NAV za region Španija (es).

Simptomi

Pretpostavimo da imate dva računa za prodavca u španskoj verziji sistema Microsoft Dynamics NAV. Knjižite uplatu za jedan račun. U ovom slučaju, kada pokrenete izveštaj o Plaćanja sa kašnjenjem dobavljača (10748), iznosi plaćanja i otvoreni iznosi plaćanja za prodavca se mešaju i prikazuju pogrešno u odeljku "Plaćanja izvan zakonskog ograničenja (LYC)". 
Ovaj problem se javlja u sledećim proizvodima:

  • Španska verzija programa Microsoft Dynamics NAV 2009 R2
  • Španska verzija servisnog paketa 1 za Microsoft Dynamics NAV 2009
  • Španska verzija usluge Microsoft Dynamics NAV 5.0 servisni paket 1

      

Rešenje

Informacije o hitnim ispravkama

Podržana hitna ispravka je sada dostupna od korporacije Microsoft. Međutim, namena je samo za rešavanje problema koji je opisan u ovom članku. Primenite je samo na sisteme koji imaju ovaj određeni problem. Ova hitna ispravka može proći dodatno testiranje. Stoga, ako ovaj problem ne utiče ozbiljno, preporučujemo da sačekate sledeći servisni paket za Microsoft Dynamics NAV 2009 ili sledeću verziju programa Microsoft Dynamics NAV koja sadrži ovu hitnu ispravku.

Napomena: U posebnim slučajevima, troškovi koji se obično nastaju za pozive podršci mogu biti otkazani ako stručnjak za tehničku podršku za Microsoft Dynamics i srodne proizvode utvrdi da će određena ispravka rešiti problem. Uobičajeni troškovi podrške primenjivaće se na dodatna pitanja podrške i probleme koji ne ispunjavaju uslove za određenu ispravku u pitanju.

            
          

Informacije o instalaciji

Microsoft pruža primere programiranja samo za ilustraciju, bez izričite ili podrazumevane garancije. Ovo uključuje, ali nije ograničeno na, podrazumevane garancije o podesnosti za prodaju ili o podesnosti za određenu namenu. U ovom članku se pretpostavlja da ste upoznati sa programskim jezikom koji se demonstrira i sa alatkama koje se koriste za kreiranje procedura i otklanjanje grešaka. Inženjeri Microsoft podrške mogu da vam objasne funkcionalnost određene procedure, ali neće izmeniti ove primere da bi obezbedili dodatnu funkcionalnost ili konstruisali procedure koje ispunjavaju vaše određene zahteve.

Napomena: Pre nego što instalirate ovu hitnu ispravku, proverite da li su svi korisnici Microsoft Navision klijenta odjavljeni iz sistema. To uključuje korisnike Microsoft Navision Application Services (NAS) klijenta. Vi bi trebalo da budete jedini korisnik klijenta koji je prijavljen kada primenjujete ovu hitnu ispravku.

Da biste primenili ovu hitnu ispravku, morate imati licencu za projektante.

Preporučujemo da se korisničkom nalogu u prozoru "Prijavljivanje u operativni sistem Windows" ili u prozoru "Prijavljivanje u bazu podataka" dodeli ID uloge "SUPER". Ako korisničkom nalogu nije moguće dodeliti ID uloge "SUPER", morate da proverite da li korisnički nalog ima sledeće dozvole:

  • Dozvola "Izmeni" za objekat koji ćete menjati.
  • Dozvola za izvršavanje za objekat sistema ID 5210 i za objekat sistema ID 9015.

                
Napomena: Ne morate da imate prava na skladišta podataka osim ako ne morate da izvršite popravku podataka.

Promene kodova

Napomena: Popravke kodova uvek testirajte u kontrolisanom okruženju pre nego što ih primenite na računare proizvodnje.
Pratite ove korake da biste rešili problem:

  1. Promenite kôd u stavci podataka broj 1 u izveštaju o prodavcu – dospjela Plaćanja (10748) na sledeći način:
    Postojeći kôd 1

    ...
}
{ PROPERTIES
{
SectionType=GroupFooter;
SectionWidth=17850;

// Delete the following line.
SectionHeight=2538;

OnPreSection=BEGIN
CurrReport.SHOWOUTPUT(VendTotalAmount <> 0);
END;
}
...

    Kôd za zamenu 1

    ...
}
{ PROPERTIES
{
SectionType=GroupFooter;
SectionWidth=17850;

// Add the following line.
SectionHeight=2961;

OnPreSection=BEGIN
CurrReport.SHOWOUTPUT(VendTotalAmount <> 0);
END;
}
...

    Postojeći kôd 2

    ...
DataSetFieldName=Vend_WeightedExceededAmount }
{ 1170000000;TextBox;13800;0 ;450 ;423 ;Visible=No;
ForeColor=65535;
SourceExpr=[VendWeightedExceededAmount ];
DataSetFieldName=WeightedExceededAmount1 }
}
}
{ PROPERTIES
{
SectionType=Footer;
...

    Kôd zamene 2

    ...
DataSetFieldName=Vend_WeightedExceededAmount }
{ 1170000000;TextBox;13800;0 ;450 ;423 ;Visible=No;
ForeColor=65535;
SourceExpr=[VendWeightedExceededAmount ];
DataSetFieldName=WeightedExceededAmount1 }

// Add the following lines.
{ 1000000000;Label ;5250 ;2115 ;4950 ;423 ;ParentControl=1000000001;
DataSetFieldName=ABS_OpenTotalPaymentOutsideDueDate_Caption }
{ 1000000001;TextBox;10350;2115 ;1800 ;423 ;CaptionML=[ENU=Open Payments outside the legal limit (LCY);
ESP=Pagos fuera del l¡mite legal (DL):];
SourceExpr=ABS(OpenVendPaymentOutsideDueDate);
DataSetFieldName=OpenVend_PaymentOutsideDueDate }
{ 1000000004;TextBox;12600;2115 ;1800 ;423 ;SourceExpr=FormatRatio(OpenVendPaymentOutsideDueDate,VendTotalAmount);
DataSetFieldName=OpenVend_PaymentOutsideDueDateRatio }
// End of the lines.

}
}
{ PROPERTIES
{
SectionType=Footer;
...

    Postojeći kôd 3

    ...
}
{ PROPERTIES
{
SectionType=Footer;
SectionWidth=17850;

// Delete the following line.
SectionHeight=2115;

OnPreSection=BEGIN
CurrReport.SHOWOUTPUT(TotalAmount <> 0);
END;
}
...

    Kôd za zamenu 3

    ...
}
{ PROPERTIES
{
SectionType=Footer;
SectionWidth=17850;

// Add the following line.
SectionHeight=2538;

OnPreSection=BEGIN
CurrReport.SHOWOUTPUT(TotalAmount <> 0);
END;
}
...

    Postojeći kôd 4

    ...
DataSetFieldName=Total_PaymentOutsideDueDateRatio }
{ 1100057;TextBox ;10350;846 ;1800 ;423 ;CaptionML=[ENU=Weighted average term exceeded:;
ESP=Plazo medio ponderado superado:];
SourceExpr=TotalWeightedExceededAmount / ABS(TotalAmount);
DataSetFieldName=Total_WeightedExceededAmount }
}
}
}
}
{ PROPERTIES
...

    Kôd zamene 4

    ...
DataSetFieldName=Total_PaymentOutsideDueDateRatio }
{ 1100057;TextBox ;10350;846 ;1800 ;423 ;CaptionML=[ENU=Weighted average term exceeded:;
ESP=Plazo medio ponderado superado:];
SourceExpr=TotalWeightedExceededAmount / ABS(TotalAmount);
DataSetFieldName=Total_WeightedExceededAmount }

// Add the following lines.
{ 1000000002;Label ;5250 ;2115 ;4950 ;423 ;ParentControl=1000000003;
DataSetFieldName=ABS_OpenTotalPaymentOutsideDueDate__Control1100045Caption }
{ 1000000003;TextBox;10350;2115 ;1800 ;423 ;CaptionML=[ENU=Open Payments outside the legal limit (LCY);
ESP=Pagos fuera del l¡mite legal (DL):];
SourceExpr=ABS(TotalOpenPaymentOutsideDueDate);
DataSetFieldName=OpenTotal_PaymentOutsideDueDate }
{ 1000000005;TextBox;12600;2115 ;1800 ;423 ;SourceExpr=FormatRatio(TotalOpenPaymentOutsideDueDate,TotalAmount);
DataSetFieldName=OpenTotal_PaymentOutsideDueDateRatio }
// End of the lines.

}
}
}
}
{ PROPERTIES
...

  2. Promenite kôd u stavci podataka broj 3 u izveštaju "Prodavac – dospjela Plaćanja (10748) na sledeći način:
    Postojeći kôd 1

    ...
IF AppldVendLedgEntryTmp.NEXT = 0 THEN
CurrReport.BREAK;
IF AppldVendLedgEntryTmp."Posting Date" > AppldVendLedgEntryTmp."Initial Entry Due Date" THEN BEGIN
DaysOverdue := AppldVendLedgEntryTmp."Posting Date" - AppldVendLedgEntryTmp."Initial Entry Due Date";

// Delete the following lines.
VendPaymentOutsideDueDate += AppldVendLedgEntryTmp."Amount (LCY)";
TotalPaymentOutsideDueDate += AppldVendLedgEntryTmp."Amount (LCY)";
// End of the lines.

END ELSE BEGIN
DaysOverdue := 0;
VendPaymentWithinDueDate += AppldVendLedgEntryTmp."Amount (LCY)";
TotalPaymentWithinDueDate += AppldVendLedgEntryTmp."Amount (LCY)";
END;
...

    Kôd za zamenu 1

    ...
IF AppldVendLedgEntryTmp.NEXT = 0 THEN
CurrReport.BREAK;
IF AppldVendLedgEntryTmp."Posting Date" > AppldVendLedgEntryTmp."Initial Entry Due Date" THEN BEGIN
DaysOverdue := AppldVendLedgEntryTmp."Posting Date" - AppldVendLedgEntryTmp."Initial Entry Due Date";

// Add the following lines.
IF AppldVendLedgEntryTmp."Applied Vend. Ledger Entry No." = 0 THEN BEGIN 
OpenVendPaymentOutsideDueDate += AppldVendLedgEntryTmp."Amount (LCY)"; 
TotalOpenPaymentOutsideDueDate += AppldVendLedgEntryTmp."Amount (LCY)"; 
END ELSE BEGIN 
VendPaymentOutsideDueDate += AppldVendLedgEntryTmp."Amount (LCY)";
TotalPaymentOutsideDueDate += AppldVendLedgEntryTmp."Amount (LCY)";
END; 
// End of the lines.

END ELSE BEGIN
DaysOverdue := 0;
VendPaymentWithinDueDate += AppldVendLedgEntryTmp."Amount (LCY)";
TotalPaymentWithinDueDate += AppldVendLedgEntryTmp."Amount (LCY)";
END;
...

    Postojeći kôd 2

    ...
IF AppldVendLedgEntryTmp."Entry Type" = AppldVendLedgEntryTmp."Entry Type"::"Initial Entry" THEN
AppldVendLedgEntryTmp."Posting Date" := 0D;
VendDaysOverdue += DaysOverdue;
VendWeightedExceededAmount += DaysOverdue * ABS(AppldVendLedgEntryTmp."Amount (LCY)");

// Delete the following lines.
VendTotalAmount := VendPaymentOutsideDueDate + VendPaymentWithinDueDate;
TotalDaysOverdue += DaysOverdue;
TotalWeightedExceededAmount += DaysOverdue * ABS(AppldVendLedgEntryTmp."Amount (LCY)");
TotalAmount := TotalPaymentOutsideDueDate + TotalPaymentWithinDueDate;
// End of the lines.

END;
}
SECTIONS
{
...

    Kôd zamene 2

    ...
IF AppldVendLedgEntryTmp."Entry Type" = AppldVendLedgEntryTmp."Entry Type"::"Initial Entry" THEN
AppldVendLedgEntryTmp."Posting Date" := 0D;
VendDaysOverdue += DaysOverdue;
VendWeightedExceededAmount += DaysOverdue * ABS(AppldVendLedgEntryTmp."Amount (LCY)");

// Add the following lines.
VendTotalAmount := VendPaymentOutsideDueDate + VendPaymentWithinDueDate + OpenVendPaymentOutsideDueDate; 
TotalDaysOverdue += DaysOverdue;
TotalWeightedExceededAmount += DaysOverdue * ABS(AppldVendLedgEntryTmp."Amount (LCY)");
TotalAmount := TotalPaymentOutsideDueDate + TotalPaymentWithinDueDate+TotalOpenPaymentOutsideDueDate; 
// End of the lines.

END;
}
SECTIONS
{
...

  3. Promenite kôd u izveštaju "Globalne promenljive" u izveštaju "Prodavac – dospjela Plaćanja (10748) na sledeći način:
    Postojeći kôd

    ...
VendPaymentWithinDueDate@1100016 : Decimal;
VendDaysOverdue@1100017 : Decimal;
TotalDaysOverdue@1100018 : Decimal;
TotalWeightedExceededAmount@1100019 : Decimal;
ShowPayments@1100012 : 'Overdue,Legally Overdue,All';
LOCAL PROCEDURE FindAppliedPayments@1210013(VendLedgEntryNo@1210000 : Integer);
VAR
DtldVendLedgEntry@1210001 : Record 380;
InvVendLedgEntry@1100000 : Record 25;
...

    Kôd za zamenu

    ...
VendPaymentWithinDueDate@1100016 : Decimal;
VendDaysOverdue@1100017 : Decimal;
TotalDaysOverdue@1100018 : Decimal;
TotalWeightedExceededAmount@1100019 : Decimal;
ShowPayments@1100012 : 'Overdue,Legally Overdue,All';

// Add the following lines.
OpenVendPaymentOutsideDueDate@1000000000 : Decimal;
TotalOpenPaymentOutsideDueDate@1000000001 : Decimal;
// End of the lines.

LOCAL PROCEDURE FindAppliedPayments@1210013(VendLedgEntryNo@1210000 : Integer);
VAR
DtldVendLedgEntry@1210001 : Record 380;
InvVendLedgEntry@1100000 : Record 25;
...

  4. Promenite kôd u funkciji ClearVendAmount u izveštaju o prodavcu - dospjelim Plaćanja (10748) na sledeći način:
    Postojeći kôd

    ...
VendTotalAmount := 0;
VendDaysOverdue := 0;
VendWeightedExceededAmount := 0;
VendPaymentOutsideDueDate := 0;
VendPaymentWithinDueDate := 0;
END;
BEGIN
END.
}
...

    Kôd za zamenu

    ...
VendTotalAmount := 0;
VendDaysOverdue := 0;
VendWeightedExceededAmount := 0;
VendPaymentOutsideDueDate := 0;
VendPaymentWithinDueDate := 0;

// Add the following line.
OpenVendPaymentOutsideDueDate := 0;

END;
BEGIN
END.
}
...

            
          

Preduslovi

Morate da imate instaliran jedan od sledećih proizvoda da biste primenili ovu hitnu ispravku:

  • Španska verzija programa Microsoft Dynamics NAV 2009 R2
  • Španska verzija servisnog paketa 1 za Microsoft Dynamics NAV 2009
  • Španska verzija usluge Microsoft Dynamics NAV 5.0 servisni paket 1

Informacije o uklanjanju

Ne možete da uklonite ovu hitnu ispravku.

Status

Microsoft je potvrdio da je ovo problem u Microsoft proizvodima koji su navedeni u odeljku „Odnosi se na“.

Napomena: Ovo je članak "BRZO OBJAVLJIVANJE" koji je kreiran direktno u okviru organizacije Microsoft podrške. Informacije koje se nalaze ovde pružaju se kakve jesu kao odgovor na nove probleme. Kao rezultat brzine stavljanja na raspolaganje, materijali mogu sadržavati tipografske greške i mogu se revidirati u bilo kom trenutku bez prethodne najave. Pogledajte Uslove korišćenja za druga razmatranja.