מאפייני הבעיה
הפונקציונליות של תשלומים אלקטרוניים מספק את האפשרות לייצא תשלומים אלקטרוניים מיומן וממנו Cartera (תשלום הזמנות) בגירסה ספרדית של Microsoft Dynamics NAV 2009. רק exportation מתוך Cartera דרך הוראת תשלום אפשרית באמצעות SEPA (XML). יש לך את האפשרות לייצא SEPA מיומן עבור אשראי העברה (CT) גם. בצע את השלבים במקטע קוד שינויים כדי לפתור בעיה זו. בעיה זו מתרחשת במוצרים הבאים:
-
גירסת Microsoft Dynamics NAV 2009 R2 ספרדית
-
גירסת Microsoft Dynamics NAV 2009 SP1 ספרדית
פתרון
מידע על תיקונים חמים
תיקון חם נתמך זמין כעת מ- Microsoft. עם זאת, הוא מיועד רק לתיקון הבעיה המתוארת במאמר זה. יש להחיל אותו רק במערכות שהתעוררה בהן בעיה ספציפית זו. תיקון חם זה עשוי לעבור בדיקות נוספות. לכן, אם המערכת שברשותך לא נפגעה באופן חמור מבעיה זו, מומלץ להמתין ל- Microsoft Dynamics NAV 2009 service pack הבאה או גירסת Microsoft Dynamics NAV הבא המכיל תיקון חם זה.
הערה במקרים מיוחדים, שהצגת עבור שיחות עשויים לבטל אם מומחה תמיכה טכנית עבור Microsoft Dynamics ומוצרים קשורים יקבע שעדכון ספציפי יפתור את הבעיה. דמי התמיכה המקובלים יחולו על נוספים שאלות וסוגיות תמיכה אשר אינן מצריכות העדכון הספציפי האמור.
מידע על ההתקנה
מיקרוסופט מציעה דוגמאות תכנות לצורך ההדגמה בלבד, ללא אחריות, בין מפורשת ובין משתמעת. זה כולל, אך אינו מוגבל ל, אחריות מכללא לגבי סחירות או התאמה למטרה מסוימת. מאמר זה מבוסס על ההנחה שאתה מכיר את שפת התכנות המודגמת ובקי בהפעלת הכלים המשמשים ליצירת פרוצדורות ולניפוי שגיאות. מהנדסי התמיכה של Microsoft יכולים לסייע בהסברת הפונקציונליות של פרוצדורה מסוימת. עם זאת, הם לא ישנו את הדוגמאות כדי לספק פונקציונליות נוספת או כדי לבנות פרוצדורות שיענו על צרכיך הספציפיים.
הערה לפני התקנת תיקון חם זה, ודא כי כל המשתמשים לקוח Microsoft Dynamics NAV אינם מחוברים למערכת. זה כולל שירותי Microsoft Dynamics NAV יישום שרת (NAS). אתה אמור להיות לקוח בלבד המשתמש המחובר כאשר ליישם תיקון חם זה.
כדי ליישם תיקון חם זה, דרוש לך רשיון מפתחים.
אנו ממליצים חשבון המשתמש בחלון כניסות Windows או בחלון מסד הנתונים כניסות יוקצו את מזהה תפקיד "סופר". אם חשבון המשתמש אין אפשרות להקצות מזהה תפקיד של "עילי", עליך לוודא כי חשבון משתמש בעל ההרשאות הבאות:
-
שנה את ההרשאה עבור האובייקט שינוי.
-
הרשאת Execute עבור האובייקט 5210 מזהה אובייקט מערכת ועבור 9015 מזהה אובייקט מערכת
אובייקט.
הערה אין לך הרשאות למאגרי נתונים אלא אם כן יש לך לבצע תיקון נתונים.
שינויי קוד
הערה תמיד קוד מחשב פותר בסביבה מבוקרת לפני החלת התיקונים למחשבים הייצור שלך.
כדי לפתור בעיה זו, בצע את הפעולות הבאות:
-
שנה את הקוד בתוך הפקדים בטופס יומן תשלומים (256) כדלקמן:
קוד קיים 1... OnValidate=BEGIN
GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
ShowShortcutDimCode(ShortcutDimCode);
END;
}
{ 11 ;Label ;0 ;0 ;0 ;0 ;ParentControl=10;
...קוד החלפה 1
... OnValidate=BEGIN
GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
ShowShortcutDimCode(ShortcutDimCode);
// Add the following line.
CheckRecipientBankAccount;
// End of the added line.
END;
}
{ 11 ;Label ;0 ;0 ;0 ;0 ;ParentControl=10;
...קוד קיים 2
... SourceExpr="Reason Code" }
{ 70 ;Label ;0 ;0 ;0 ;0 ;ParentControl=69;
InColumnHeading=Yes }
{ 24 ;Frame ;220 ;6160 ;16060;1430 ;HorzGlue=Both;
VertGlue=Bottom;
ShowCaption=No }
...קוד החלפה 2
... SourceExpr="Reason Code" }
{ 70 ;Label ;0 ;0 ;0 ;0 ;ParentControl=69;
InColumnHeading=Yes }
// Add the following lines.
{ 1100012;TextBox ;71517;1100 ;1700 ;440 ;ParentControl=1;
InColumn=Yes;
SourceExpr="Recipient Bank Account" }
{ 1100013;Label ;0 ;0 ;0 ;0 ;ParentControl=1100012;
InColumnHeading=Yes }
// End of the added lines.
{ 24 ;Frame ;220 ;6160 ;16060;1430 ;HorzGlue=Both;
VertGlue=Bottom;
ShowCaption=No }
...קוד קיים 3
...CaptionML=ENU=Export;
OnPush=VAR
Text1100000@1100000 : TextConst 'ENU=Nothing to export.';
BEGIN
// es0006.begin
GenJnlLine.RESET;
...קוד החלפה 3
...CaptionML=ENU=Export;
OnPush=VAR
Text1100000@1100000 : TextConst 'ENU=Nothing to export.';
// Add the following line.
Selection@1100004 : Integer;
// End of the added line.
BEGIN
// es0006.begin
GenJnlLine.RESET;
...קוד קיים 4
... GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");
IF NOT GenJnlLine.FIND('-') THEN
ERROR(Text1100000);
GenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);
REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);
// es0006.end
END;
}
...קוד החלפה 4
... GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");
IF NOT GenJnlLine.FIND('-') THEN
ERROR(Text1100000);
// Add the following lines.
Selection := STRMENU(ExportFormatTypeTxt,2);
CASE Selection OF
1:
BEGIN
IF ExportedPmtExist(GenJnlLine) THEN
IF NOT CONFIRM(ExportAgainQst) THEN
EXIT;
CODEUNIT.RUN(CODEUNIT::"SEPA CT-Export File",GenJnlLine);
END;
2:
BEGIN
// End of the added lines.
GenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);
REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);
// Add the following lines.
END;
END;
// End of the added lines.
// es0006.end
END;
}
...קוד קיים 5
... // es0006.end
END;
}
{ ID=65;
CaptionML=ENU=Void Check;
OnPush=BEGIN
...קוד החלפה 5
... // es0006.end
END;
}
// Add the following lines.
{ ID=1100014;
PushAction=RunObject;
MenuLevel=1;
CaptionML=ENU=Show Export File Errors;
RunObject=Form 1228;
RunFormLink=Journal Template Name=FIELD(Journal Template Name),
Journal Batch Name=FIELD(Journal Batch Name) }
// End of the added lines.
{ ID=65;
CaptionML=ENU=Void Check;
OnPush=BEGIN
... -
שנה את הקוד במשתנים גלובליים בטופס יומן תשלומים (256) כדלקמן:
קוד קיים...ShowTotalBalance@1017 : Boolean;
ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
OpenedFromBatch@1019 : Boolean;
LOCAL PROCEDURE UpdateBalance@1();
BEGIN
...קוד החלפה
... ShowTotalBalance@1017 : Boolean;
ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
OpenedFromBatch@1019 : Boolean;
// Add the following lines.
ExportFormatTypeTxt@1100001 : TextConst 'ENU=SEPA,N34.1';
ExportAgainQst@1100000 : TextConst 'ENU=One or more of the selected lines have already been exported. Do you want to export again?';
// End of the added lines.
LOCAL PROCEDURE UpdateBalance@1();
BEGIN
... -
שנה את הקוד בפונקציה ExportedPmtExist בטופס יומן תשלומים (256) כדלקמן:
קוד קיים... CurrForm.TotalBalance.VISIBLE := ShowTotalBalance;
END;
BEGIN
{
<changelog>
...קוד החלפה
... CurrForm.TotalBalance.VISIBLE := ShowTotalBalance;
END;
// Add the following lines.
LOCAL PROCEDURE ExportedPmtExist@1100002(GenJournalLine@1100000 : Record 81) : Boolean;
VAR
GenJnlLine3@1100001 : Record 81;
BEGIN
GenJnlLine3.COPYFILTERS(GenJnlLine);
GenJnlLine3.SETRANGE("Exported to Payment File",TRUE);
EXIT(NOT GenJnlLine3.ISEMPTY);
END;
LOCAL PROCEDURE CheckRecipientBankAccount@1100000();
VAR
VendorBankAccount@1100000 : Record 288;
CustomerBankAccount@1100001 : Record 287;
BEGIN
IF ("Account No." <> xRec."Account No.") THEN
VALIDATE("Recipient Bank Account",'');
END;
// End of the added lines.
BEGIN
{
<changelog>
... -
שנה את קוד במאפייני בעמוד יומן תשלומים (256) כדלקמן:
קוד קיים...END;
END;
}
{ 1900000004;0 ;ActionContainer;
ActionContainerType=ActionItems }
{ 40 ;1 ;ActionGroup;
...קוד החלפה
... END;
END;
}
// Add the following lines.
{ 1100050 ;2 ;ActionGroup;
CaptionML=ENU=Electronic Payments }
{ 1100051 ;3 ;Action ;
CaptionML=ENU=Export;
OnAction=VAR
Text1100000@1100000 : TextConst 'ENU=Nothing to export.';
Selection@1100004 : Integer;
BEGIN
// es0006.begin
GenJnlLine.RESET;
GenJnlLine := Rec;
GenJnlLine.SETRANGE("Journal Template Name","Journal Template Name");
GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");
IF NOT GenJnlLine.FIND('-') THEN
ERROR(Text1100000);
Selection := STRMENU(ExportFormatTypeTxt,2);
CASE Selection OF
1:
BEGIN
IF ExportedPmtExist(GenJnlLine) THEN
IF NOT CONFIRM(ExportAgainQst) THEN
EXIT;
CODEUNIT.RUN(CODEUNIT::"SEPA CT-Export File",GenJnlLine);
END;
2:
BEGIN
GenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);
REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);
END;
END;
// es0006.end
END;
}
{ 1100052 ;3 ;Action ;
CaptionML=ENU=Void;
OnAction=VAR
VoidElecPayments@1101100000 : Report 10722;
BEGIN
// es0006.begin
GenJnlLine.RESET;
GenJnlLine := Rec;
GenJnlLine.SETRANGE("Journal Template Name","Journal Template Name");
GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");
CLEAR(VoidElecPayments);
VoidElecPayments.SETTABLEVIEW(GenJnlLine);
VoidElecPayments.RUNMODAL;
// es0006.end
END;
}
{ 1100014 ;3 ;Action ;
CaptionML=ENU=Show Export File Errors;
RunObject=Page 1228;
RunFormLink=Journal Template Name=FIELD(Journal Template Name),Journal Batch Name=FIELD(Journal Batch Name) }
// End of the added lines.
{ 1900000004;0 ;ActionContainer;
ActionContainerType=ActionItems }
{ 40 ;1 ;ActionGroup;
... -
שנה את הקוד בתוך הפקדים בדף יומן תשלומים (256) כדלקמן:
קוד קיים 1...OnValidate=BEGIN
GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
ShowShortcutDimCode(ShortcutDimCode);
END;
}
...קוד החלפה 1
...OnValidate=BEGIN
GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
ShowShortcutDimCode(ShortcutDimCode);
// Add the following line.
CheckRecipientBankAccount;
// End of the added line.
END;
}
...קוד קיים 2
...SourceExpr="Reason Code";
Visible=FALSE }
{ 24 ;1 ;Group }
{ 1903561801;2;Group ;
...קוד החלפה 2
...SourceExpr="Reason Code";
Visible=FALSE }
// Add the following lines.
{ 1100012;2;Field ;
SourceExpr="Recipient Bank Account" }
// End of the added lines.
{ 24 ;1 ;Group }
{ 1903561801;2;Group ;
... -
שינוי הקוד ב משתנים גלובליים בעמוד יומן תשלומים (256) כדלקמן:
קוד קיים...ShowTotalBalance@1017 : Boolean;
ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
OpenedFromBatch@1019 : Boolean;
BalanceVisible@19073040 : Boolean INDATASET;
TotalBalanceVisible@19063333 : Boolean INDATASET;
...קוד החלפה
...ShowTotalBalance@1017 : Boolean;
ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
OpenedFromBatch@1019 : Boolean;
// Add the following lines.
ExportFormatTypeTxt@1100001 : TextConst 'ENU=SEPA,N34.1';
ExportAgainQst@1100000 : TextConst 'ENU=One or more of the selected lines have already been exported. Do you want to export again?';
// End of the added lines.
BalanceVisible@19073040 : Boolean INDATASET;
TotalBalanceVisible@19063333 : Boolean INDATASET;
... -
שנה את הקוד בפונקציה ExportedPmtExist בדף יומן תשלומים (256) כדלקמן:
קוד קיים...TotalBalanceVisible := ShowTotalBalance;
END;
LOCAL PROCEDURE CurrentJnlBatchNameOnAfterVali@19002411();
BEGIN
CurrPage.SAVERECORD;
...קוד החלפה
...TotalBalanceVisible := ShowTotalBalance;
END;
// Add the following lines.
LOCAL PROCEDURE ExportedPmtExist@1100002(GenJournalLine@1100000 : Record 81) : Boolean;
VAR
GenJnlLine3@1100001 : Record 81;
BEGIN
GenJnlLine3.COPYFILTERS(GenJnlLine);
GenJnlLine3.SETRANGE("Exported to Payment File",TRUE);
EXIT(NOT GenJnlLine3.ISEMPTY);
END;
LOCAL PROCEDURE CheckRecipientBankAccount@1100000();
VAR
VendorBankAccount@1100000 : Record 288;
CustomerBankAccount@1100001 : Record 287;
BEGIN
IF ("Account No." <> xRec."Account No.") THEN
VALIDATE("Recipient Bank Account",'');
END;
// End of the added lines.
LOCAL PROCEDURE CurrentJnlBatchNameOnAfterVali@19002411();
BEGIN
CurrPage.SAVERECORD;
... -
שינוי קוד במאפייני ב xmlport pain.001.001.03 (1000) של SEPA CT כדלקמן:
קוד קיים...ELEMENTS
{
{ [{0EA1BA75-FB56-4C05-946C-A299E4809E84}]; ;Document ;Element ;Table ;
SourceTable=Table81 }
{ [{596E5521-E230-4D9C-B0F7-DF29388F515B}];1 ;xmlns ;Attribute;Text ;
VariableName=XMLNamespace }
...קוד החלפה
... ELEMENTS
{
{ [{0EA1BA75-FB56-4C05-946C-A299E4809E84}]; ;Document ;Element ;Table ;
SourceTable=Table81;
// Add the following line.
MaxOccurs=Once }
// End of the added line.
{ [{596E5521-E230-4D9C-B0F7-DF29388F515B}];1 ;xmlns ;Attribute;Text ;
VariableName=XMLNamespace }
... -
שנה את הקוד בפונקציה InitData ב xmlport pain.001.001.03 (1000) של SEPA CT כדלקמן:
קוד קיים... PaymentGroupNo@1000 : Integer;
BEGIN
SEPACTFillExportBuffer.FillExportBuffer("Gen. Journal Line",PaymentExportData);
PaymentExportData.GetRemittanceTexts(TempPaymentExportRemittanceTxt);
NoOfTransfers := FORMAT(PaymentExportData.COUNT);
...קוד החלפה
...PaymentGroupNo@1000 : Integer;
BEGIN
SEPACTFillExportBuffer.FillExportBuffer("Gen. Journal Line",PaymentExportData);
// Add the following lines.
"Gen. Journal Line".SETRANGE("Journal Template Name",'');
"Gen. Journal Line".SETRANGE("Journal Batch Name",'');
// End of the added lines.
PaymentExportData.GetRemittanceTexts(TempPaymentExportRemittanceTxt);
NoOfTransfers := FORMAT(PaymentExportData.COUNT);
...
דרישות מוקדמות
עליך להגדיר אחד מהמוצרים הבאים מותקנים כדי להחיל תיקון חם זה:
-
גירסת Microsoft Dynamics NAV 2009 R2 ספרדית
-
גירסת Microsoft Dynamics NAV 2009 SP1 ספרדית
מידע בדבר הסרת ההתקנה
אין אפשרות להסיר את התיקון החם.
מצב
Microsoft אישרה כי מדובר בבעיה במוצרי Microsoft הרשומים במקטע 'חל על'.
הערה זהו מאמר "פרסום מהיר" שנוצר ישירות בתוך ארגון התמיכה של Microsoft. המידע הכלול במסמך זה מסופק כמו שהוא כתגובה לבעיות המתעוררות. כתוצאה מהמהירות בביצוע כדי להפוך אותו לזמין, החומרים עשויים לכלול שגיאות טיפוגרפיות וייתכן שיבוצעו בהם שינויים בכל עת ללא הודעה מוקדמת. ראה תנאי השימוששיקולים נוספים.
