¿Como saber si una fecha es de cierre?

Con esta sencilla parte de codigo C/AL podremos saber si una fecha es de cierre:

NormDate := NORMALDATE("Posting Date");

ClosDate := CLOSINGDATE(NormDate);

IF ClosDate = "Posting Date" THEN

  IsClosed := TRUE

ELSE

  IsClosed := FALSE;

¿Como establecer si un registro se muestra o no en un form o page?

En ocasiones podemos necesitar que determinados registros de una tabla se muestren o no en un formulario, para ello sería fenomenal disponer del comando SKIP como en los informes, pero no es así, con lo que deberemos "rascar" código para lograr el mismo efecto. Aquí os dejo un ejemplo:

Form - OnNextRecord(Steps : Integer) : Integer

IF Steps > 0 THEN

  Direction := Direction::Down

ELSE

  Direction := Direction::Up;

EXIT(NEXT(Steps));

Form - OnAfterGetRecord()

IF "myCondition" = TRUE THEN

  IF Direction = Direction::Down THEN

    Rec.NEXT

  ELSE

    Rec.NEXT(-1);

Imprimir PDF por codigo desde Navision Classic

Existen maneras de imprimir un PDF por codigo mediante C/AL.
En este ejemplo utilizaremos la impresora de Bullzip para imprimir una factura.

PrintSelCreated := FALSE;
IF NOT PrinterSelection.GET('',206) THEN BEGIN
  PrinterSelection.INIT;
  PrinterSelection."Report ID" := 206;
  PrinterSelection."Printer Name" := 'Bullzip PDF Printer';
  PrinterSelection.INSERT;
  PrintSelCreated := TRUE;
END ELSE BEGIN
  ActualPrinterSel := PrinterSelection."Printer Name";
  PrinterSelection."Printer Name" := 'Bullzip PDF Printer';
  PrinterSelection.MODIFY;
END;

CREATE(BullZipPDF);
BullZipPDF.Init;
BullZipPDF.LoadSettings;
RunOnceFile := BullZipPDF.GetSettingsFileName(TRUE);
BullZipPDF.SetValue('Output','C:\Temp\Sample.pdf');
BullZipPDF.SetValue('Showsettings', 'never');
BullZipPDF.SetValue('ShowPDF', 'no');
BullZipPDF.SetValue('ShowProgress', 'no');
BullZipPDF.SetValue('ShowProgressFinished', 'no');
BullZipPDF.SetValue('SuppressErrors', 'yes');
BullZipPDF.SetValue('ConfirmOverwrite', 'no');
BullZipPDF.WriteSettings(TRUE);

SalesInvHeader.SETRANGE("No.", '1103001');
REPORT.RUNMODAL(206,FALSE,FALSE,SalesInvHeader);

TimeOut := 0;
WHILE EXISTS(RunOnceFile) AND (TimeOut < 10) DO BEGIN
 SLEEP(1000);
 TimeOut := TimeOut + 1;
END;

IF PrintSelCreated THEN
 PrinterSelection.DELETE
ELSE BEGIN
 PrinterSelection."Printer Name" := ActualPrinterSel;
 PrinterSelection.MODIFY;
END;

//Para mostrar la factura generada
HYPERLINK('C:\Temp\Sample.pdf');

//Para enviarla por email
cu400.CreateMessage('Sender','sender@mycompany.com','recipient1@yourcompany.com;recipient2@yourcompany.com','Subject','Body',TRUE);
cu400.AddAttachment('C:\Temp\Sample.pdf');
cu400.Send;

Como enviar un email con un informe adjunto a través de Dynamics NAV

Previamente ha de configurarse el SMTP, mediante el Form 409.

//Create message
cu400.CreateMessage('Sender','sender@mycompany.com',
'recipient1@yourcompany.com;recipient2@yourcompany.com',
'Subject','Body <b>in HTML</b> format.<BR>Regards.',TRUE);
//Generate the report in html format
rpt101.SAVEASHTML(TEMPORARYPATH + 'report101.html');
//Attach file in to email
cu400.AddAttachment(TEMPORARYPATH + 'report101.html');
//Send email
cu400.Send;
//Erase file
ERASE(TEMPORARYPATH + 'report101.html');

Envío masivos de emails desde Navision

Uno de los principales problemas de los usuarios del CRM de Dynamics NAV (Navision), es que al hacer un envío de un número elevado de emails, el servidor SMTP por el que realizan el envío bloquea la cuenta por considerar que se está haciendo SPAM, aún cuando no es así.

Una solución es instalar el servicio SMTP que viene con Windows, junto al IS. Aunque hay que configurarlo ya que por defecto tiene limitaciones en el numero de emails que se pueden enviar por sesión.

A partir de entonces habrá de configurarse el servidor de salida a localhost (o el nombre del servidor interno donde esté instalado el servicio SMTP) para que los emails se envíen a través del SMTP de este equipo.

ExpandIT Launch - Idioma de ejecución

Cuando se ejecuta ExpandIT Launch Utility lo hace en el idioma por defecto de Navision que es el inglés. Esto puede resultar un incoveniente, por ejemplo, al lanzar informes. La solución es añadir esta línea de código al informe ejecutado, para cambiar el idioma:
GLOBALLANGUAGE := 1034
Donde, evidentemente, puede sustituirse el 1034 por el idioma que se prefiera.

IVA aduanas

En la configuración de grupos de registro de IVA, existe un tipo llamado "Total", mediante el cual podremos cargar el 100% del importe indicado tanto al registro de IVA como a la cuenta contable indicada en la configuración.

Esta configuración es muy útil sobre todo para cargar el IVA de las aduanas, en donde dicho organismo nos cobra el IVA de la importación, y por tanto necesitamos introducir en nuestros registros de IVA el total del importe indicado.

Usuarios avanzados también utilizan este tipo de IVA para corregir errores (alterar) en el registro de IVA.

Cambiar el Caption en tiempo de ejecución

Gracias a nilsm por contribuir en Tips dBits.

Existe una manera de cambiar el valor de la propiedad Caption de forma dinámica, incluso para diferentes idiomas. El truco consiste en utilizar la propiedad CaptionClass del control y personalizar la funcionalidad CaptionClassTranslate en la CodeUnit 1.

Teneis un documento con explicación detallada en Tips dBits.

Error traceflag 4616 al iniciar NAV sobre SQL 2005

Gracias a nilsm por postear en el foro de Tips dBits.

Al intentar ejecutar Dynamics NAV (Navision) sobre SQL 2005 aparece el siguiente error:
"El indicador de seguimiento 4616 no está establecido en el servidor. Debe establecer este indicador y reiniciar el servidor antes de conectarse utilizando Microsoft Dynamics NAV."

Para corregir esta situación, proceder como sigue:
01.) Open the Start Menu
02.) Go to Microsoft SQL Server 2005 Group
03.) Go to Configuration Tools Group
04.) Click on SQL Server Configuration Manager
05.) Click on SQL Server 2005 Services
06.) Right-click on SQL Server ($INSTANCENAME) and click on Properties
07.) Click on the Advanced tab
08.) Go to Startup Parameters
09.) Enter the string so that it looks as follows (notice the end is the only change):
-dC:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\DATA\master.mdf;-eC:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\LOG\ERRORLOG;-lC:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\DATA\mastlog.ldf;-T 4616
10.) Click OK
11.) Restart the SQL Server service

Movimientos de corrección

Existe un campo en los diarios denominado "Corrección" que puede utilizarse para corregir, no sólo el saldo de una cuenta, sino también la suma del "Debe" y del "Haber", ya que inserta un movimiento con un cargo o adeudo (según proceda) en negativo. Es decir, si se desea corregir un movimiento erróneo que ha anotado 500€ en el debe de una cuenta, mediante esta opción podremos anotar un movimiento de corrección de -500€ en el debe de la misma cuenta, en lugar de 500€ al haber.

Este campo también existe en las cabeceras de compra y de venta, para poder utilizarlo al registrar abonos que en realidad son correcciones de facturas erróneas.

Enviar pulsaciones de teclas

Gracias a sergio por "postear" en el foro de Tips dBits.

Para enviar pulsaciones de teclado desde Navision y mediante código C/AL podemos utilizar este sencillo truco:

Definimos una variable
WShell
de tipo
Automation
y subtipo
'Windows Script Host Object Model'.WshShell

y utilizamos el siguiente codigo para enviar la pulsación de la tecla Enter

IF ISCLEAR(WShell) THEN IF NOT CREATE(WShell) THEN EXIT;
WShell.SendKeys('{ENTER}');

que evidentemente podemos cambiar por la tecla que más nos convenga.

Ordenar un array

Codigo C/AL para ordenar un array.

OnRun()
myText[1] := 'Z8754';
myText[2] := 'M2532';
myText[3] := 'D1992';
myText[4] := 'A9900';

SortArrayOfText(myText);

FOR i := 1 TO ARRAYLEN(myText) DO BEGIN
 IF myText[i] <> '' THEN
  MESSAGE(myText[i]);
END;


SortArrayOfText(VAR ParamArray : ARRAY [999] OF Text[30])
COMPRESSARRAY(ParamArray);
FOR i := 1 TO ARRAYLEN(ParamArray) DO BEGIN
 IF ParamArray[i] = '' THEN
  Finish := i;
END;

REPEAT
 ToExit := TRUE;
 FOR i := 1 TO (Finish - 1) DO BEGIN
  IF ParamArray[i] > ParamArray[i + 1] THEN BEGIN
   Swap(ParamArray[i], ParamArray[i + 1]);
   ToExit := FALSE;
  END;
 END;
 Finish -= 1;
UNTIL ToExit;


Swap(VAR Param1 : Text[30];VAR Param2 : Text[30])
temp := Param2;
Param2 := Param1;
Param1 := temp;

Evitar caracteres extraños al importar / exportar

Cuando realizamos importaciones o exportaciones, mediante un dataport por ejemplo, podemos tener el problema de ver caracteres extraños en sustitución a los acentos, dieresis, eñes, u otros signos como el primero, primera, cedilla, etc.

Esto es debido a que el sistema utilizado por Navision y Windows son distintos, es decir, Navision utiliza el sistema ASCII y Windows utiliza el sistema ANSI, más completo. Aunque los caracteres "normales" como A, B, C, etc. utilizan el mismo código, no lo hacen los caracteres especiales mencionados anteriormente. Con lo que la conversión entre uno y otro sistema es errónea.

Para solventar este inconveniente, Microsoft puso a disposición de los usuarios y técnicos una CodeUnit que realiza la conversión entre el sistema ANSI al ASCII y vicevesa. La CodeUnit se puede descargar pulsando aquí.

La CodeUnit ofrece dos métodos. En función de si estamos importando o exportando utilizaremos un método u otro.

Para importar:
NewText := Ansi2Ascii( myText )

Para exportar:
NewText := Ascii2Ansi( myText )

Importante. No utilizar ninguno de estos métodos si lo que se pretende es exportar e importar de nuevo al mismo u otro Navision.

Abrir formulario por defecto

¿Sabes que desde C/AL se puede abrir el formulario por defecto asociado a una tabla? Eso es, sin necesidad de conocer su ID. Tan solo hay que indicar como parámetro de la función FORM.RUNMODAL(Number [, Record] [, Field]) un cero y la variable del record a tratar.

Por ejemplo:
recItem.SETFILTER("Gen. Prod. Posting Group", 'MERCADERIA');
FORM.RUNMODAL(0,recItem);
Utilizando la variable recItem de tipo record y subtipo Item y pasándola como parámetro lograremos que se abra su formulario asociado con los datos seleccionados.

Enviar email desde Navision

Para enviar un email desde Navision mediante CAL, utilizaremos el siguiente código:

Hay que definir la variable objApp como Atomation asignándola a 'Microsoft Outlook 11.0 Object Library'.Application y la variable objMail como Atomation asignándola a 'Microsoft Outlook 11.0 Object Library'.MailItem

//Create application
IF ISCLEAR(objApp) THEN CREATE(objApp);

//Create mail item
objMail := objApp.CreateItem(0);

//Set properties
objMail."To"('joseppages@hotmail.com');
objMail.Subject('Mail from Navision');
objMail.Body('This is a mail send from Navision.');

//Uncomment for display email
//objMail.Display();

//Send mail
objMail.Send();

Evidentemente que a través del objeto objMail tenemos otras propiedades que podemos utilizar a nuestra conveniencia, como CC o Importance.

Pasar parámetros entre objetos

En ocasiones es necesario comunicarse entre objetos de Navision con el fin de trasladar información adicional o complementaria al objeto llamado. La opción más utilizada para ello es mediante el pase de parámetros, o sea, desde un objeto ejecutamos a otro pero antes llamamos a una función definida por nosotros.

Por ejemplo: Desde el formulario A ejecutamos el formulario B pasándole algunos parámetros con información adicional.

Primero, en el formulario B deberemos añadir una función con los parámetros a recibir:
SetMisParametros(Param1 : Integer; Param2 : Integer)
MiParametro1 := Param1;
MiParametro2 := Param2;
MiParametro1 y MiParametro2 deben ser definidas como Globales, para que conserven el valor hasta que el objeto sea destruido.

Añadimos código en el evento OnOpenForm del formulario B para comprobar que las variables tienen el valor asignado mediante el pase de parámetros:
Form - OnOpenForm()
MESSAGE('MiParametro1 = %1', miParametro1);
MESSAGE('MiParametro2 = %1', miParametro2);

Segundo, en el formulario A, y antes de ejecutar al formulario B, pasar los parámetros:
control1000000000 - OnPush()
myFormB.SetMisParametros(1, 2); //Pase de parámetros a formulario B
myFormB.RUNMODAL; //Las var. MiParametro1 y MiParametro2 ya tienen valor
CLEAR(myFormB); //Las var. MiParametro1 y MiParametro2 NO tienen valor

Al ejecutar la linea myFormB.RUNMODAL mostrarán 2 mensajes informando del valor de las variables globales del formulario B.

Métodos de acceso a Navision

Debido a la persecución de la obtención de la excelencia en la cadena de valor de las organizaciones mediante la optimización de procesos de negocio (BPM), cada vez existe más necesidad de conectar aplicaciones distribuidas, con el fin de construir una infraestructura de software basada en servicios (SOA), y de esta manera, ganar en competitividad, haciendo sus procesos más eficientes, más flexibles y menos costosos y facilitar, así también, la toma de decisiones (BI).

Navision, como parte fundamental de dicha infraestructura (ERP), dispone de distintos métodos para facilitar su integración en los procesos.

Pulse aquí para acceder a un archivo powerpoint que muestra estos métodos.

Eliminar sesiones

Gracias a rvalls por "postear" en el foro de Tips dBits.

A partir de la version 4.0 de Microsoft Business Navision, es posible eliminar sesiones, tanto en la BBDD nativa como en SQL Server.
Para ello se accederá a la ventana de "Sesiones de la base de datos", mediante el menu Archivo-Base de datos-Informacion y en la pestaña "Sesiones" se accederá al LookUp de "Sesiones actuales". Simplemente pulsando la tecla F4 se podrá eliminar cualquier sesión, excepto la actual.

Reportar en Excel

Existe una manera fácil de exportar información desde Navision a Excel y es mediante la tabla Excel Buffer. La manera es insertar un registro en dicha tabla para cada celda, indicando las coordenadas y el valor.

El siguiente código inserta el valor 35 en la celda A1:
ExclBuffer.INIT;
ExclBuffer.VALIDATE("Row No.", 1);
ExclBuffer.VALIDATE("Column No.", 1);
ExclBuffer."Cell Value as Text" := FORMAT(35);
ExclBuffer.INSERT;

Finalmente, cuando se haya rellenado todas las celdas deseadas, ejecutar las siguientes funciones:
ExclBuffer.CreateBook;
ExclBuffer.CreateSheet('Mi hoja','Mi titulo',COMPANYNAME,USERID);
ExclBuffer.GiveUserControl;

Es importante que la declaración de la variable, en el ejemplo ExclBuffer, se defina como temporal, de esta manera no interferimos con otros usuarios Navision que puedieran estar utilizando la tabla Excel Buffer mediante el mismo u otros procesos de exportación a Excel.

Variables globales y variables locales

Todo programador de Navision sabe la diferencia entre las variables globales y las variables locales, pero aún y así vamos a repasar sus diferencias:

Variables globales:
Son accesibles desde todo el objeto. Eventos, funciones, etc.

Variables locales:
Son accesibles sólo desde el procedimiento en las que han sido declaradas.

Pero hay que tener especial cuidado con las variables globales cuando un objeto es llamado repetidamente (parte de su código se ejecuta 2 ó más veces), ya que las variables globales, a diferencia de las locales, guardan su valor entre las llamadas. Por el contrario, las variables locales son inicializadas cada vez.

Ejemplo mediante un CommandButton en un Form:
myBoton - OnPush()
varGlobal := varGlobal + 1;
varLocal := varLocal + 1;
MESSAGE('Global = %1\Local = %2', varGlobal, varLocal);

La variable global irá aumentando su valor tantas veces como se pulse el botón, no así la local que siempre será 1.

Esta casuística cobra especial importancia cuando se llaman objetos desde otros objetos, ya que esta regla se cumple en todos los casos, o sea, las variables globales del objeto llamado permanecen mientras permanezca el objeto.

Asiento de apertura inexistente

Navision, al contrario de la contabilidad "tradicional", no cierra ni abre los ejercicios, es decir, no existe ningún asiento de cierre a fin de ejercicio fiscal ni de apertura al inicio del próximo. ¿Qué pasa con los diarios oficiales? Navision "simula" el asiento de apertura, ya que es obligado en estos informes, utilizando los saldos de las cuentas de balance a final del ejercicio anterior.
Lo que sí existe es el asiento de regularización, lo que es el cuadre de las cuentas del grupo 6 y 7 (comerciales) con la cuenta 129. A este asiento, Navision le asigna una fecha de fin de ejercicio precedida por la letra U (U31/12/05 p.e.). Es una fecha ficticia entre el fin de ejercicio y el inicio del siguiente, con el fin de mantener los saldos correctos durante el ejercicio fiscal completo.
Es por ello que en el esquema de cuentas, el balance utiliza un formato de columnas que muestra el saldo a la fecha (.."HastaFecha") y la cuenta de resultados utiliza un formato de columnas que muestra el saldo del periodo ("DesdeFecha".."HastaFecha").

Acceder a Navision sin contraseña

Existe una manera de acceder a una BBDD de Navision sin que pida contraseña, aunque para ello deberemos tener una copia de seguridad.
El truco consiste en crear una BBDD nueva, restaurar la copia de seguridad y... ya está, estaremos dentro de la BBDD sin que nos haya pedido usuario y contraseña. Evidentemente, si la cerramos y volvemos a abrir, ya nos volverá a pedir la contraseña.

Enlace con varios subforms simultaneamente

Navision permite tener dentro de un form un subform y hacer un link entre ellos, de manera que al cambiar el registro del form cambie la información relacionada en el subform.
Pero no permite, de manera automática, enlazar un segundo subform. Esto se consigue con el evento OnTimer del form, el cual se ejecuta cada cierto tiempo programado (TimerInterval = 100, es un valor adecuado). Es en este evento donde podemos añadir codigo y verificar si hay que actualizar la información del segundo subform. Por ejemplo:

Form - OnTimer()
CurrForm.sbfItems.FORM.GETRECORD(ItemVendor); //Coge el registro actual
IF Key <> "No." + ItemVendor."Item No." THEN BEGIN //Si la info ha variado...
CurrForm.sbfPrices.FORM.myFilter("No.",ItemVendor."Item No."); //Actualiza el 2do subform
Key := "No." + ItemVendor."Item No."; //Coge nueva clave
END;

Teneis un ejemplo en la sección de downloads

Nº de movimiento - Igual entre distintas tablas

¿Sabías que... ?
Cuando Navision registra una transacción relacionada con un cliente, proveedor o banco asigna el mismo "Nº de movimiento" en todas las tablas.
Por ejemplo, al registrar una factura de un cliente, si examinamos el número de movimiento asignado al registro de la tabla de movimientos de cliente y hacemos "Navegar" y mostramos los movimientos de contabilidad, el apunte perteneciente a la cuenta 430xxxx tendrá el mismo número de movimiento que el de la tabla de movimientos de cliente.

Omitir IRPF de profesionales en 347

Al introducir facturas de profesionales, se suele introducir la cantidad de IRPF retenida como una linea de factura y asignándola directamente a una cuenta 475xxx. En este caso hay que prestar especial atención a la configuración de la cuenta: el campo "Omite en informe 347" de la pestaña "Informes" debe estar activado, ya que el importe (negativo) en la linea de la factura NO debe restar del total de la factura al imprimir el informe "Proveedor - Declaración anual".

Pérdida del control para ficheros en RequestForm del DataPort

Al poner controles en el "Request Form" de un "Dataport" se pierde el control por defecto que abre el asistente para la localización del fichero a importar o exportar.
Se puede solucionar incorporando un "Textbox" y estableciendo el valor de la propiedad "ID" a 1 y la propiedad "Assistedit" a Sí. A partir de este instante automáticamente aparecerá el "Assistbutton" que actuará exactamente igual que el control por defecto, tan sólo queda indicar el nombre del fichero al "Dataport", en el evento "OnPreDataport", estableciendo la propiedad "CurrDataport.FILENAME" := "varConElNombreDelFichero"