martes, 31 de mayo de 2011

Métodos C# visibles en navision

Para crear métodos de C# que resulten visibles desde navision, es necesario tener un espacio de nombres System.Runtime.InteropServices que proporcione una variedad de miembros que admiten la interoperabilidad COM .

Lo primero que vamos a hacer es crear un nuevo proyecto que en este caso va a ser una biblioteca de clases, que es la que luego al generar la aplicación nos crea el fichero dll del que vamos a obtener la funcionalidad para utilizarla desde navision (la dll se encuentra en la ruta del proyecto/bin/release).

Una vez hecho esto vamos a configurar nuestra aplicación en visual studio para que admita la interoperabilidad con COM, para ello tendremos que cambiar las propiedades del proyecto en "Proyecto--> Propiedades de...NombreProyecto"

pulsamos en el botón "Información de ensamblado" y en el cuadro de diálogo que nos aparece "Información de ensamblado" validamos el tick "Crear ensamblado visible a través de COM" a true.




Una vez hecho vamos a la pestaña "Generar" y al igual que antes seleccionamos el tick de "Registrar para interoperabilidad COM" a true.



ya en el código de la aplicación es necesario añadir el espacio de nombres System.Runtime.InteropServices

using System.Runtime.InteropServices;

luego dentro de la clase que vamos a crear la estructura describimos como va a ser la interface



y luego creamos el método para operar que se tiene que declarar y llamar igual que el método de la interface, la clase que se crea tiene que ser heredada de la clase de la interface.



una vez hecho esto, ya podríamos crear una variable automation en navision haciendo referencia a esta dll.

miércoles, 18 de mayo de 2011

Consumir Web Service / Servicio Web SOAP

Lo que vamos a hacer es realizar una conexión desde Navision a un servicio web de tipo soap.en princpio con este método se deberia de poder llamar a una función con parámetros pero a veces suele ocasionar problemas.

Creamos las siguientes variables de tipo automation.

locautSoapHttpConnector
Automation 'Microsoft Soap Type Library v3.0'.HttpConnector30

locautSoapSerializer
Automation 'Microsoft Soap Type Library v3.0'.SoapSerializer30

locautXmlDoc Automation 'Microsoft XML, v6.0'.DOMDocument



IF ISCLEAR(LocautSoapHttpConnector) THEN
CREATE(LocautSoapHttpConnector);

LocautSoapHttpConnector.Property('ProxyServer','isaserver');
LocautSoapHttpConnector.Property('ProxyPassword','proxypass');
LocautSoapHttpConnector.Property('ProxyUser','username');

LocautSoapHttpConnector.Property('EndPointURL','http://servername:7047/DynamicsNAV/ws/coduenit/');
LocautSoapHttpConnector.Connect;
LocautSoapHttpConnector.Property('SoapAction','http://servername:7047/DynamicsNAV/ws/coduenit/thefunction');
LocautSoapHttpConnector.BeginMessage;

CREATE(LocautSoapSerialize);
LocautSoapSerialize.Init(LocautSoapHttpConnector.InputStream);

LocautSoapSerialize.StartEnvelope('SOAP','STANDARD');
LocautSoapSerialize.StartBody;
LocautSoapSerialize.StartElement(Elemento o nodo);

 LocautSoapSerialize.StartElement('Elemento hijo');
 LocautSoapSerialize.WriteString('Parametro valido');
 LocautSoapSerialize.EndElement;

LocautSoapSerialize.EndElement;
LocautSoapSerialize.EndBody;
LocautSoapSerialize.EndEnvelope;

LocautSoapHttpConnector.EndMessage;

IF ISCLEAR(XMLDOM) THEN
CREATE(XMLDOM);
//Cargar la respuesta del servicio web esta es un fichero xml
XMLDOM.load(LocautSoapHttpConnector.OutputStream);
XMLNode := XMLDOM.selectSingleNode('//valid');

miércoles, 11 de mayo de 2011

Excel Buffer

El Excel buffer es una tabla del estándar de Navision que se emplea para importar o exportar datos de una hoja excell. Lo que vamos a hacer es una especificación bastante básica de esta tabla y como se puede importar o exportar información. El único problema que tiene y me parece un poco grave es la concurrencia de diferentes usuarios a la vez .

Campos tabla
Para mí los principales campos de las tablas son:

Row No. Integer
xlRowID Text 10
Column No. Integer
xlColID Text 10
Cell Value as Text Text 250

“Row no.” es el campo donde se especifica la línea del Excel que vamos a procesar y en su on validate tiene código que actualiza el xlRowID que es la referencia que se utiliza en el excell.

“Column No.” Funciona exactamente igual que el Row no. Lo único que en su campo xLColID escribe la letra de la columna en vez del número de la misma.
“Cell Value as text” es el campo donde se guarda el contenido de la celda que queremos tratar y se guarda siempre como text.


Principales funciones

CreateBook: Crea un nuevo libro Excel y usa como parámetro ruta y nombre del fichero y nombre para la hoja que compone el documento.

OpenBook: Abre un documento de Excel y como parámetro se le introduce el documento Excel y la hoja que queremos abrir.

ReadSheet: lee las hojas que contiene el documento Excel y devuelve como parámetro el nombre de las mismas, se puede utilizar como parámetro de la función “ OpenBook”. Introduce direcatamente los registros leídos en la tabla ExcelBuffer.

CreateSheet: Crea la hoja del documento Excel y al igual que la “ReadSheet” se puede utilizar como parámetro de la función “CreateBook”.

SelectSheetsName: Saca una ventana de diálogo con cada una de las hojas que componen el libro Excel y asi seleccionar cual se quiere leer.

Para importar

Vamos a importar a una tabla de Navision la información de una hoja de Excel. En la tabla solo volcaremos la información que nos interese de esa tabla.
Lo primero que hay que hacer es volcar los datos a la tabla Excel buffer y de ahí leer esos datos y pasarlos a la tabla que nos interese. Una vez bloqueada la tabla Excel buffer ya podemos trabajar con ella.

CLEAR(rExcelBuffer);
rExcelBuffer.OpenBook(“rutafichero”,rExcelBuffer.SelectSheetsName(rutafichero));
rExcelBuffer.ReadSheet();

Una vez que lo tenemos importado todos los datos en la tabla Excel buffer vamos a leerlos y utilizar los que nos interesen para volcarlos en nuestra tabla.

//sacamos el último nº de fila y columna para determinar hasta donde tenemos que leer, en este caso hemos puesto todo lo que hay volcado.

IF rExcelBuffer.FINDLAST THEN BEGIN
vUltimaFila:=rExcelBuffer."Row No.";
vUltimaCol:=rExcelBuffer."Column No.";
END;

//Recorremos los registros desde donde nos interese hasta el final que hemos determinado anteriormente y en función de la columna que sea sabemos que es un campo u otro y lo asignamos a una variable que luego utilizaremos para cargar la tabla

FOR vIndice := 3 TO vUltimaFila DO BEGIN
rExcelBuffer.SETRANGE("Row No.",vIndice);
IF rExcelBuffer.FINDFIRST THEN REPEAT
CASE rExcelBuffer."Column No." OF
2:vNtraking:=DELCHR(rExcelBuffer."Cell Value as Text",'=','.');

rTabla.init;
rTabla.”Numero traking” := vNtraking;
rTabla.Insert;

//por úlitmo se cierra el bucle y elminamos los registros ya leidos y procesados
END;
CLEAR(rExcelBuffer);
rExcelBuffer.DELETEALL;

Para Exportar
Al igual que en la exportación lo primero es meter en la tabla excell buffer lo uqe nos interesa para luego exportarlo.

//lo que hacemos es recorrer una tabla de dos campos únicamente e insertar un registro por columna la primera sería 1,1 la segunda 1,2 la siguiente 2,1…N,2, con el bucle for le dicemiso que inserte una línea por columna y fuera actualiza el numero de línea

rExcel.DELETEALL;
vFila:=1;
IF FINDSET THEN REPEAT
rExcel.INIT;
rExcel.VALIDATE("Row No.",vFila);
FOR vIndex :=1 TO 2 DO BEGIN
rExcel.VALIDATE("Column No.",vIndex);
IF vIndex = 1 THEN
rExcel."Cell Value as Text":=FORMAT("Server Name");
IF vIndex = 2 THEN
rExcel."Cell Value as Text":=FORMAT("My Server");
IF rExcel.INSERT THEN;
END;
vFila+=1;
UNTIL NEXT = 0;

//Para mostrar esto en un Excel abrimos un libro creado y creamos la hoja y finalmente mostramos el documento abierto

rExcel.OpenBook('c:\a.xls',rExcel.SelectSheetsName('c:\a.xls'));
rExcel.CreateSheet('Hoja1','Hoja1',COMPANYNAME,USERID);
rExcel.GiveUserControl();
o también


rExcelB.CreateBook;
rExcelB.CreateSheet('NombreHoja','PurchDocs',COMPANYNAME(),USERID());
rExcelB.GiveUserControl();