Sistema no calcula el valor "Importe para pagar" y el monto de retención de impuestos como se esperaba en la versión italiana de Microsoft Dynamics NAV 2009

Información de la revisión

Ahora hay una revisión compatible de Microsoft. Sin embargo, sólo se diseñó para corregir el problema que se describe en este artículo. Aplíquela sólo a sistemas que experimenten este problema específico. Esta revisión puede ser sometida a comprobaciones adicionales. Por lo tanto, si no se ve muy afectado por este problema, recomendamos que espere al próximo service pack de Microsoft Dynamics NAV 2009 o la próxima versión de Microsoft Dynamics NAV que contenga esta revisión.

Nota: En casos especiales, los costos derivados normalmente de las llamadas pueden cancelarse si un profesional de soporte técnico de Microsoft Dynamics y productos relacionados de soporte determina que una actualización específica resolverá el problema. Los costos habituales de soporte se aplicarán a las preguntas de soporte técnico adicionales y problemas que no guarden relación con la actualización en cuestión.

Cambios de código

Nota: Siempre pruebe correcciones de código en un entorno controlado antes de aplicar las revisiones a los equipos de producción.
Para resolver este problema, siga estos pasos:

1. Cambie el código en la función CreateVendBillWithhTax en la tabla de línea de factura de proveedor (12182) como sigue:
   Código existente

   ...              VendBillWithhTax."Currency Code" := VendorBillHeader."Currency Code";
                 VendBillWithhTax."External Document No." := "External Document No.";
                 VendBillWithhTax."Related Date" := VendorBillHeader."Posting Date";
                 VendBillWithhTax."Withholding Tax Code" := WithholdCode;
                 VendBillWithhTax."Social Security Code" := SocialSecurityCode;
   
   // Delete the following line.
                 VendBillWithhTax.VALIDATE("Total Amount","Remaining Amount");
   
                 VendBillWithhTax."Old Withholding Amount" := VendBillWithhTax."Withholding Tax Amount";
                 VendBillWithhTax."Old Free-Lance Amount" := VendBillWithhTax."Free-Lance Amount";
               END;
               // IT0007.begin
               IF VendBillWithhTax."Withholding Tax Code" <> '' THEN
   ...
   
   

   Código de sustitución

   ...              VendBillWithhTax."Currency Code" := VendorBillHeader."Currency Code";
                 VendBillWithhTax."External Document No." := "External Document No.";
                 VendBillWithhTax."Related Date" := VendorBillHeader."Posting Date";
                 VendBillWithhTax."Withholding Tax Code" := WithholdCode;
                 VendBillWithhTax."Social Security Code" := SocialSecurityCode;
   
   // Add the following line.
                 VendBillWithhTax.VALIDATE("Total Amount","Amount to Pay");
   
                 VendBillWithhTax."Old Withholding Amount" := VendBillWithhTax."Withholding Tax Amount";
                 VendBillWithhTax."Old Free-Lance Amount" := VendBillWithhTax."Free-Lance Amount";
               END;
               // IT0007.begin
               IF VendBillWithhTax."Withholding Tax Code" <> '' THEN
   ...
   
   

2. Cambie el código en los controles de formulario de línea de pago (12188) proveedor Manual como sigue:
   Código existente 1

   ...                                                   InPage=0;
                                                      CaptionML=ENU=Withholding Tax Code;
                                                      SourceExpr=WithholdingTaxCode;
                                                      TableRelation="Withhold Code" }
         { 1130006;Label     ;440  ;2090 ;3300 ;440  ;ParentControl=1130005 }
   
   // Delete the following line.
         { 1130007;TextBox   ;13090;3190 ;1700 ;440  ;ParentControl=1130000;
   
                                                      InPage=0;
                                                      CaptionML=ENU=Vendor Bank Account;
                                                      SourceExpr=VendorBankAccount;
                                                      TableRelation="Vendor Bank Account";
                                                      OnLookup=VAR
   ...
   
   

   Código nuevo 1

   ...                                                   InPage=0;
                                                      CaptionML=ENU=Withholding Tax Code;
                                                      SourceExpr=WithholdingTaxCode;
                                                      TableRelation="Withhold Code" }
         { 1130006;Label     ;440  ;2090 ;3300 ;440  ;ParentControl=1130005 }
   
   // Add the following line.
         { 1130007;TextBox   ;13090;3740 ;1700 ;440  ;ParentControl=1130000;
   
                                                      InPage=0;
                                                      CaptionML=ENU=Vendor Bank Account;
                                                      SourceExpr=VendorBankAccount;
                                                      TableRelation="Vendor Bank Account";
                                                      OnLookup=VAR
   ...
   
   

   Código existente 2

   ...                                                              IF FORM.RUNMODAL(FORM::"Vendor Bank Account List",VendBankAcc,VendBankAcc.Code) = ACTION::LookupOK THEN
                                                                   VendorBankAccount := VendBankAcc.Code;
                                                                 // IT0001.end
                                                               END;
                                                                }
   
   // Delete the following line.
         { 1130008;Label     ;9680 ;3190 ;3300 ;440  ;ParentControl=1130007 }
   
         { 1130009;TextBox   ;3850 ;3190 ;5500 ;440  ;ParentControl=1130000;
                                                      InPage=0;
                                                      CaptionML=ENU=Description;
                                                      SourceExpr=Desc }
         { 1130010;Label     ;440  ;3190 ;3300 ;440  ;ParentControl=1130009 }
   ...
   
   

   Código nuevo 2

   ...                                                              IF FORM.RUNMODAL(FORM::"Vendor Bank Account List",VendBankAcc,VendBankAcc.Code) = ACTION::LookupOK THEN
                                                                   VendorBankAccount := VendBankAcc.Code;
                                                                 // IT0001.end
                                                               END;
                                                                }
   
   // Add the following line.
         { 1130008;Label     ;9680 ;3740 ;3300 ;440  ;ParentControl=1130007 }
   
         { 1130009;TextBox   ;3850 ;3190 ;5500 ;440  ;ParentControl=1130000;
                                                      InPage=0;
                                                      CaptionML=ENU=Description;
                                                      SourceExpr=Desc }
         { 1130010;Label     ;440  ;3190 ;3300 ;440  ;ParentControl=1130009 }
   ...
   
   

   Código existente 3

   ...      { 1130013;TextBox   ;13090;990  ;1700 ;440  ;ParentControl=1130000;
                                                      InPage=0;
                                                      CaptionML=ENU=Total Amount;
                                                      SourceExpr=TotalAmount }
         { 1130014;Label     ;9680 ;990  ;3300 ;440  ;ParentControl=1130013 }
   
   // Delete the following line.
         { 1130015;TextBox   ;13090;1540 ;2200 ;440  ;ParentControl=1130000;
   
                                                      InPage=0;
                                                      CaptionML=ENU=Document Type;
                                                      OptionCaptionML=ENU=" ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund";
                                                      OptionString=[ ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund];
                                                      SourceExpr=DocumentType }
   ...
   
   

   Código nuevo 3

   ...      { 1130013;TextBox   ;13090;990  ;1700 ;440  ;ParentControl=1130000;
                                                      InPage=0;
                                                      CaptionML=ENU=Total Amount;
                                                      SourceExpr=TotalAmount }
         { 1130014;Label     ;9680 ;990  ;3300 ;440  ;ParentControl=1130013 }
   
   // Add the following line.
         { 1130015;TextBox   ;13090;2090 ;2200 ;440  ;ParentControl=1130000;
   
                                                      InPage=0;
                                                      CaptionML=ENU=Document Type;
                                                      OptionCaptionML=ENU=" ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund";
                                                      OptionString=[ ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund];
                                                      SourceExpr=DocumentType }
   ...
   
   

   Código existente 4

   ...                                                   InPage=0;
                                                      CaptionML=ENU=Document Type;
                                                      OptionCaptionML=ENU=" ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund";
                                                      OptionString=[ ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund];
                                                      SourceExpr=DocumentType }
   
   // Delete the following lines.
        { 1130016;Label     ;9680 ;1540 ;3300 ;440  ;ParentControl=1130015 }
        { 1130017;TextBox   ;13090;2090 ;1700 ;440  ;ParentControl=1130000;
                                                     InPage=0;
                                                     CaptionML=ENU=Document No.;
                                                     SourceExpr=DocumentNo }
        { 1130018;Label     ;9680 ;2090 ;3300 ;440  ;ParentControl=1130017 }
        { 1130019;TextBox   ;13090;2640 ;1700 ;440  ;ParentControl=1130000;
                                                     InPage=0;
                                                     CaptionML=ENU=Document Date;
                                                     SourceExpr=DocumentDate }
        { 1130020;Label     ;9680 ;2640 ;3300 ;440  ;ParentControl=1130019 }
   // End of the lines.
   
         { 1130024;TextBox   ;3850 ;2640 ;2750 ;440  ;ParentControl=1130000;
                                                      InPage=0;
                                                      CaptionML=ENU=Social Security Code;
                                                      SourceExpr=SocialSecurityCode;
                                                      TableRelation="Contribution Code" }
   ...
   
   

   Código nuevo 4

   ...                                                   InPage=0;
                                                      CaptionML=ENU=Document Type;
                                                      OptionCaptionML=ENU=" ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund";
                                                      OptionString=[ ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund];
                                                      SourceExpr=DocumentType }
   
   // Add the following lines.
        { 1130016;Label     ;9680 ;2090 ;3300 ;440  ;ParentControl=1130015 }
        { 1130017;TextBox   ;13090;2640 ;1700 ;440  ;ParentControl=1130000;
                                                     InPage=0;
                                                     CaptionML=ENU=Document No.;
                                                     SourceExpr=DocumentNo }
        { 1130018;Label     ;9680 ;2640 ;3300 ;440  ;ParentControl=1130017 }
        { 1130019;TextBox   ;13090;3190 ;1700 ;440  ;ParentControl=1130000;
                                                     InPage=0;
                                                     CaptionML=ENU=Document Date;
                                                     SourceExpr=DocumentDate }
        { 1130020;Label     ;9680 ;3190 ;3300 ;440  ;ParentControl=1130019 }
   // End of the lines.
   
         { 1130024;TextBox   ;3850 ;2640 ;2750 ;440  ;ParentControl=1130000;
                                                      InPage=0;
                                                      CaptionML=ENU=Social Security Code;
                                                      SourceExpr=SocialSecurityCode;
                                                      TableRelation="Contribution Code" }
   ...
   
   

   5 el código existente

   ...                                                   InPage=0;
                                                      CaptionML=ENU=Social Security Code;
                                                      SourceExpr=SocialSecurityCode;
                                                      TableRelation="Contribution Code" }
         { 1130025;Label     ;440  ;2640 ;3300 ;440  ;ParentControl=1130024 }
         { 1130021;CommandButton;14410;5720;2200;550 ;HorzGlue=Right;
                                                      VertGlue=Bottom;
                                                      PushAction=FormHelp }
         { 1130022;CommandButton;11990;5720;2200;550 ;HorzGlue=Right;
                                                      VertGlue=Bottom;
   ...
   
   

   Código de reemplazo 5

   ...                                                   InPage=0;
                                                      CaptionML=ENU=Social Security Code;
                                                      SourceExpr=SocialSecurityCode;
                                                      TableRelation="Contribution Code" }
         { 1130025;Label     ;440  ;2640 ;3300 ;440  ;ParentControl=1130024 }
   
   // Add the following lines.
        { 1130026;TextBox   ;13090;1540 ;1700 ;440  ;ParentControl=1130000;
                                                     InPage=0;
                                                     CaptionML=ENU=Tax Base Amount;
                                                     SourceExpr=TaxBaseAmount }
        { 1130027;Label     ;9680 ;1540 ;3300 ;440  ;ParentControl=1130026 }
   // End of the lines.
   
         { 1130021;CommandButton;14410;5720;2200;550 ;HorzGlue=Right;
                                                      VertGlue=Bottom;
                                                      PushAction=FormHelp }
         { 1130022;CommandButton;11990;5720;2200;550 ;HorzGlue=Right;
                                                      VertGlue=Bottom;
   ...
   
   

   6 el código existente

   ...                                                              "Due Date" := PostingDate;
                                                                 "External Document No." := ExternalDocNo;
                                                                 "Instalment Amount" := TotalAmount;
                                                                 "Remaining Amount" := TotalAmount;
                                                                 "Gross Amount to Pay" := TotalAmount;
   
   // Delete the following line.
                                                                 "Amount to Pay" := TotalAmount;
   
                                                                 "Manual Line" := TRUE;
                                                                 "Cumulative Transfers" := TRUE;
                                                                 SetWithholdCode(WithholdingTaxCode);
                                                                 SetSocialSecurityCode(SocialSecurityCode);
                                                                 INSERT(TRUE)
   ...
   
   

   Código de reemplazo 6

   ...                                                              "Due Date" := PostingDate;
                                                                 "External Document No." := ExternalDocNo;
                                                                 "Instalment Amount" := TotalAmount;
                                                                 "Remaining Amount" := TotalAmount;
                                                                 "Gross Amount to Pay" := TotalAmount;
   
   // Add the following line.
                                                                 "Amount to Pay" := TaxBaseAmount;
   
                                                                 "Manual Line" := TRUE;
                                                                 "Cumulative Transfers" := TRUE;
                                                                 SetWithholdCode(WithholdingTaxCode);
                                                                 SetSocialSecurityCode(SocialSecurityCode);
                                                                 INSERT(TRUE)
   ...
   
   

3. Agregue la siguiente variable global en el proveedor Manual formato de líneas de pago (12188):

   TaxBaseAmount@1130000 : Decimal;

4. Cambie el código en la función CalculateWithholdingTax en la retención - contribución codeunit (12101) como sigue:
   Código existente 1

   ...      PROCEDURE CalculateWithholdingTax@1130001(VAR PurchHeader@1130000 : Record 38;Recalculate@1130001 : Boolean);
         VAR
           PurchWithSoc@1130002 : Record 12137;
           PurchLine@1130003 : Record 39;
   
   // Delete the following line.
           TotalAmount@1130004 : Decimal;
   
         BEGIN
           PurchLine.RESET;
           PurchLine.SETRANGE("Document Type",PurchHeader."Document Type");
           PurchLine.SETRANGE("Document No.",PurchHeader."No.");
           PurchLine.SETRANGE(Type,PurchLine.Type::"G/L Account");
   ...
   
   

   Código nuevo 1

   ...      PROCEDURE CalculateWithholdingTax@1130001(VAR PurchHeader@1130000 : Record 38;Recalculate@1130001 : Boolean);
         VAR
           PurchWithSoc@1130002 : Record 12137;
           PurchLine@1130003 : Record 39;
   
   // Add the following lines.
          TempPurchLine@1130005 : TEMPORARY Record 39;
          TotalAmount@1130004 : Decimal;
          VATAmount@1130006 : Decimal;
   // End of the lines.
   
         BEGIN
           PurchLine.RESET;
           PurchLine.SETRANGE("Document Type",PurchHeader."Document Type");
           PurchLine.SETRANGE("Document No.",PurchHeader."No.");
           PurchLine.SETRANGE(Type,PurchLine.Type::"G/L Account");
   ...
   
   

   Código existente 2

   ...        PurchLine.SETRANGE(Type,PurchLine.Type::"G/L Account");
   
           TotalAmount := 0;
           IF PurchLine.FIND('-') THEN
             REPEAT
   
   // Delete the following lines.
              TotalAmount := TotalAmount + PurchLine."Line Amount";
            UNTIL PurchLine.NEXT = 0;
   
   // End of the lines.
   
           IF PurchWithSoc.GET(PurchHeader."Document Type", PurchHeader."No.") THEN
             IF (PurchWithSoc."Total Amount" = 0) OR
                Recalculate
             THEN BEGIN
               PurchWithSoc."Currency Code" := PurchHeader."Currency Code";
   ...
   
   

   Código nuevo 2

   ...        PurchLine.SETRANGE(Type,PurchLine.Type::"G/L Account");
   
           TotalAmount := 0;
           IF PurchLine.FIND('-') THEN
             REPEAT
   
   // Add the following lines.
              IF PurchHeader."Prices Including VAT" THEN BEGIN
                TempPurchLine := PurchLine;
                TempPurchLine.VALIDATE("Amount Including VAT",PurchLine."Line Amount");
                TotalAmount += TempPurchLine."VAT Base Amount"
              END ELSE
                TotalAmount += PurchLine."Line Amount";
            UNTIL PurchLine.NEXT = 0;
   // End of the lines.
   
           IF PurchWithSoc.GET(PurchHeader."Document Type", PurchHeader."No.") THEN
             IF (PurchWithSoc."Total Amount" = 0) OR
                Recalculate
             THEN BEGIN
               PurchWithSoc."Currency Code" := PurchHeader."Currency Code";
   ...