Este artículo se aplica a Microsoft Dynamics NAV para la configuración regional del idioma noruego (no).
Síntomas
Cuando ejecuta el puerto de datos "Remesa: importación (BBS)" (15000060) para importar datos en la versión noruega de Microsoft Dynamics NAV, siempre se crean entradas de saldo para cada transacción de pago. El puerto de datos "Remesa: importación (BBS)" (15000060) no tiene en cuenta la configuración en el cuadro de diálogo Tarjeta de acuerdo de remesa ni en el cuadro de diálogo Tarjeta de cuenta de remesa .
Este problema se produce en los siguientes productos:
- La versión noruega de Microsoft Dynamics NAV 2009 R2
- La versión noruega de Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- La versión noruega de Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
Resolución
Información de revisiones
Una revisión compatible ya está disponible en Microsoft. Sin embargo, solo está pensado para corregir el problema que se describe en este artículo. Aplicarlo solo a los sistemas que experimentan este problema específico. Esta revisión puede recibir pruebas adicionales. Por lo tanto, si no se ve afectado gravemente por este problema, le recomendamos que espere al siguiente Service Pack de Microsoft Dynamics NAV o a la siguiente versión de Microsoft Dynamics NAV que contenga esta revisión.
Nota En casos especiales, los cargos que se incurren normalmente por las llamadas de soporte técnico pueden cancelarse si un profesional de soporte técnico de Microsoft Dynamics y productos relacionados determina que una actualización específica resolverá el problema. Se aplicarán los costos habituales de soporte técnico a las consultas y cuestiones de soporte técnico adicionales que no guarden relación con la actualización en cuestión.
Información de instalación
Microsoft proporciona ejemplos de programación solo para ilustración, sin garantía expresa o implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad o idoneidad para un propósito determinado. En este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se usan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos adaptados a sus necesidades específicas.
Nota Antes de instalar esta revisión, verifique que todos los usuarios cliente de Microsoft Navision hayan cerrado sesión en el sistema. Esto incluye a los usuarios cliente de Microsoft Navision Application Services (NAS). Usted debe ser el único usuario del cliente que ha iniciado sesión al implementar esta revisión.
Para implementar esta revisión, debe tener una licencia de desarrollador.
Le recomendamos que la cuenta de usuario en la ventana Inicios de sesión de Windows o en la ventana Inicios de sesión de base de datos tenga asignado el id. de rol "SUPER". Si no se puede asignar a la cuenta de usuario el id. de rol "SUPER", debe comprobar que la cuenta de usuario tiene los permisos siguientes:
- El permiso Modificar para el objeto que va a cambiar.
- El permiso Execute para el objeto System Object ID 5210 y para el objeto System Object ID 9015.
Nota No es necesario tener derechos sobre los almacenes de datos a menos que tenga que realizar una reparación de datos.
Cambios de código
Nota Pruebe siempre las correcciones de código en un entorno controlado antes de aplicar las correcciones a los equipos de producción.
Para resolver este problema, siga estos pasos:
Cambie el código de la función ProcessBETFOR23and04 en el puerto de datos Remesa - importación (Banco) (15000050) de la siguiente manera:
Código existente... // Update Waiting journal WaitingJournal.VALIDATE(WaitingJournal."Payment Order ID - Settled",PaymOrder.ID); WaitingJournal.VALIDATE("Journal, Settlement Template",GenJournalLine."Journal Template Name"); WaitingJournal.VALIDATE("Journal - Settlement",GenJournalLine."Journal Batch Name"); WaitingJournal.MODIFY(TRUE); // Update round off END ELSE // This error should not occur. ERROR(Text026,ReturnCode); ...Código de reemplazo
... // Update Waiting journal WaitingJournal.VALIDATE(WaitingJournal."Payment Order ID - Settled",PaymOrder.ID); WaitingJournal.VALIDATE("Journal, Settlement Template",GenJournalLine."Journal Template Name"); WaitingJournal.VALIDATE("Journal - Settlement",GenJournalLine."Journal Batch Name"); // Add the following line. WaitingJournal."Remittance Status" := WaitingJournal."Remittance Status"::Sent; WaitingJournal.MODIFY(TRUE); // Update round off END ELSE // This error should not occur. ERROR(Text026,ReturnCode); ...Cambie el código de la función CreateBalanceEntry en el puerto de datos (15000050) remesa - importación (Banco) de la siguiente manera:
Código existente... BalanceEntryAmount := BalanceEntryAmountLCY ELSE BalanceEntryAmount := ROUND(BalanceEntryAmountLCY * GenJournalLine."Currency Factor"); GenJournalLine.VALIDATE(Amount,-BalanceEntryAmount); GenJournalLine.VALIDATE("Document No.",TransDocumentNo); CASE LatestRemAgreement."New Document Per." OF LatestRemAgreement."New Document Per."::Date: GenJournalLine.VALIDATE( Description,STRSUBSTNO(Text031,LatestDate)); LatestRemAgreement."New Document Per."::Vendor: ...Código de reemplazo
... BalanceEntryAmount := BalanceEntryAmountLCY ELSE BalanceEntryAmount := ROUND(BalanceEntryAmountLCY * GenJournalLine."Currency Factor"); GenJournalLine.VALIDATE(Amount,-BalanceEntryAmount); GenJournalLine.VALIDATE("Document No.",TransDocumentNo); // Add the following lines. GenJournalLine.VALIDATE("Remittance Account Code",WaitingJournal."Remittance Account Code"); GenJournalLine.VALIDATE("Remittance Agreement Code",WaitingJournal."Remittance Agreement Code"); // End of the lines. CASE LatestRemAgreement."New Document Per." OF LatestRemAgreement."New Document Per."::Date: GenJournalLine.VALIDATE( Description,STRSUBSTNO(Text031,LatestDate)); LatestRemAgreement."New Document Per."::Vendor: ...Cambie el código en Elemento de datos Número 1 en el puerto de datos Remesa - importación (BBS) (15000060) de la siguiente manera:
Código existente... ERROR(Text005,FileImp,Recordtype); END; END; OnPostDataItem=BEGIN // Recordtype89 must be read by the end of import: IF NOT Recordtype89IsRead THEN ERROR( Text006 + Text007,FileImp); ...Código de reemplazo
... ERROR(Text005,FileImp,Recordtype); END; END; OnPostDataItem=BEGIN // Add the following line. CreateBalanceEntry(TransBBSDate,'',WaitingJournal."Account No.",RemAccount,RemAgreement); // Recordtype89 must be read by the end of import: IF NOT Recordtype89IsRead THEN ERROR( Text006 + Text007,FileImp); ...Cambie el código de la función ProcessTransaction en el puerto de datos Remesa - importación (BBS) (15000060) de la siguiente manera:
Código existente... WaitingJournal.VALIDATE("BBS Shipment No.",ShipmentNo); WaitingJournal.VALIDATE("BBS Payment Order No.",PaymOrderNo); WaitingJournal.VALIDATE("BBS Transaction No.",TransNo); WaitingJournal.VALIDATE("Journal, Settlement Template",GenJnlLine."Journal Template Name"); WaitingJournal.VALIDATE("Journal - Settlement",GenJnlLine."Journal Batch Name"); // Delete the following lines. WaitingJournal.MODIFY(TRUE); UNTIL WaitingJournal.NEXT = 0; CreateBalanceEntry(TransBBSDate,'',WaitingJournal."Account No.",RemAccount,RemAgreement); // End of the lines. END; LOCAL PROCEDURE CreatePaymOrder@6(); VAR NextPaymOrderID@1000000000 : Integer; ...Código de reemplazo
... WaitingJournal.VALIDATE("BBS Shipment No.",ShipmentNo); WaitingJournal.VALIDATE("BBS Payment Order No.",PaymOrderNo); WaitingJournal.VALIDATE("BBS Transaction No.",TransNo); WaitingJournal.VALIDATE("Journal, Settlement Template",GenJnlLine."Journal Template Name"); WaitingJournal.VALIDATE("Journal - Settlement",GenJnlLine."Journal Batch Name"); // Add the following lines. WaitingJournal."Remittance Status" := WaitingJournal."Remittance Status"::Sent; WaitingJournal.MODIFY(TRUE); UNTIL WaitingJournal.NEXT = 0; // End of the lines. END; LOCAL PROCEDURE CreatePaymOrder@6(); VAR NextPaymOrderID@1000000000 : Integer; ...Cambie el código de la función CreateBalanceEntry en el puerto de datos De remesa - importación (BBS) (15000060) de la siguiente manera:
Código existente... GenJnlLine.VALIDATE("Posting Date",LatestDate); GenJnlLine.VALIDATE("Account Type",LatestRemAccount."Account Type"); GenJnlLine.VALIDATE("Account No.",LatestRemAccount."Account No."); GenJnlLine.VALIDATE(Amount,-BalanceEntryAmountLCY); GenJnlLine.VALIDATE("Document No.",TransDocumentNo); CASE LatestRemAgreement."New Document Per." OF LatestRemAgreement."New Document Per."::Date: GenJnlLine.VALIDATE( Description,STRSUBSTNO(Text012,LatestDate)); LatestRemAgreement."New Document Per."::Vendor: ...Código de reemplazo
... GenJnlLine.VALIDATE("Posting Date",LatestDate); GenJnlLine.VALIDATE("Account Type",LatestRemAccount."Account Type"); GenJnlLine.VALIDATE("Account No.",LatestRemAccount."Account No."); GenJnlLine.VALIDATE(Amount,-BalanceEntryAmountLCY); GenJnlLine.VALIDATE("Document No.",TransDocumentNo); // Add the following lines. GenJnlLine.VALIDATE("Remittance Account Code",WaitingJournal."Remittance Account Code"); GenJnlLine.VALIDATE("Remittance Agreement Code",WaitingJournal."Remittance Agreement Code"); // End of the lines. CASE LatestRemAgreement."New Document Per." OF LatestRemAgreement."New Document Per."::Date: GenJnlLine.VALIDATE( Description,STRSUBSTNO(Text012,LatestDate)); LatestRemAgreement."New Document Per."::Vendor: ...Cambie el código de la función NewTransaction en el puerto de datos De remesa - importación (BBS) (15000060) de la siguiente manera:
Código existente... BEGIN // Initialize transaction import. // Called before import is started, after a transaction in the file is closed (BETFOR99) // and before the next transaction from the same file starts. First := TRUE; //Control of balance entry; // Delete the following line. BalanceEntryAmountLCY := 0; LatestDate := 0D; LatestVend := ''; CLEAR(LatestRemAccount); END; ...Código de reemplazo
... BEGIN // Initialize transaction import. // Called before import is started, after a transaction in the file is closed (BETFOR99) // and before the next transaction from the same file starts. First := TRUE; //Control of balance entry; LatestDate := 0D; LatestVend := ''; CLEAR(LatestRemAccount); END; ...Cambie el código de la función FindFiles de la orden de pago Rem. - informe de importación (15000003) de la siguiente manera:
Código existente... FilePath := RemTools.FindPath(ReturnFileSetup."Return File Name"); File.SETFILTER(Path,FilePath); // not case-sensitive File.SETRANGE("Is a file",TRUE); // Copy all these files to a temporary table with file name in lower-case letters: FileCopy.DELETEALL; // Delete the following lines. IF File.FIND('-') THEN REPEAT FileCopy.Name := LOWERCASE(File.Name); FileCopy.Size := File.Size; FileCopy.Date := File.Date; FileCopy.Time := File.Time; FileCopy.INSERT; UNTIL File.NEXT = 0; // End of the lines. // From now on use copies of file names : FileCopy.SETFILTER(Name,LOWERCASE(RemTools.FindFilename(ReturnFileSetup."Return File Name"))); IF FileCopy.FIND('-') THEN REPEAT ReturnFiles.INIT; ...Código de reemplazo
... FilePath := RemTools.FindPath(ReturnFileSetup."Return File Name"); File.SETFILTER(Path,FilePath); // not case-sensitive File.SETRANGE("Is a file",TRUE); // Copy all these files to a temporary table with file name in lower-case letters: FileCopy.DELETEALL; // Add the following lines. IF EXISTS(FilePath) THEN BEGIN IF File.FIND('-') THEN REPEAT FileCopy.Name := LOWERCASE(File.Name); FileCopy.Size := File.Size; FileCopy.Date := File.Date; FileCopy.Time := File.Time; FileCopy.INSERT; UNTIL File.NEXT = 0; END; // End of the lines. // From now on use copies of file names : FileCopy.SETFILTER(Name,LOWERCASE(RemTools.FindFilename(ReturnFileSetup."Return File Name"))); IF FileCopy.FIND('-') THEN REPEAT ReturnFiles.INIT; ...
Requisitos previos
Debe tener uno de los siguientes productos instalados para aplicar esta revisión:
- La versión noruega de Microsoft Dynamics NAV 2009 R2
- La versión noruega de Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- La versión noruega de Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
Información sobre la eliminación
No puede quitar esta revisión.
Estado
Microsoft ha confirmado que se trata de un problema de los productos de Microsoft que se enumeran en la sección "Aplicable a".
Nota Esto es un artículo "PUBLICACIÓN RÁPIDA" creado directamente desde la organización de soporte técnico de Microsoft. La información contenida se proporciona tal cual en respuesta a nuevos problemas. Como resultado de la rapidez en la publicación, es posible que los materiales incluyan errores tipográficos. Además, se pueden revisar en cualquier momento sin previo aviso. Consulte los Términos de uso para otras consideraciones.