Quitar tabulaciones, intros y demás de las casillas de texto en Navision

Cuando copiamos una casilla de excell que contiene un valor para pegarla en una casilla de Navision nos añade el retorno de carro que debemos quitar a mano (Si nos damos cuenta).

Se puede poner un pequeño código para que estos caracteres los elimine de manera automática. PAra eso hay que hacer:
CodeUnit 1 dentro de la función MakeText poner nada más comenzar lo siguiente:
myChr = Char;
//Eliminados caracteres raros del Excel en todas las ediciones.
myChr:=13;  //CR
Text := DELCHR(Text,'=',FORMAT(myChr));
myChr:=10;  //LF
Text := DELCHR(Text,'=',FORMAT(myChr));
myChr:=9;   //TAB
Text := CONVERTSTR(Text,FORMAT(myChr),' ');
myChr:=255; //???
Text := CONVERTSTR(Text,FORMAT(myChr),' ');

Selector de Carpetas en Navision

Este post lo he copiado de mibuso pero tenia que ponerlo aquí para que veáis que sencillo es:

Name                DataType        Subtype Length
ShellControl     Automation      'Microsoft Shell Controls And Automation'.Shell
Folder               Automation      'Microsoft Shell Controls And Automation'.Folder3
FolderItems      Automation      'Microsoft Shell Controls And Automation'.FolderItems3
FolderItem        Automation      'Microsoft Shell Controls And Automation'.FolderItem2

IF ISCLEAR(ShellControl) THEN
CREATE(ShellControl);
Folder := ShellControl.BrowseForFolder(0,'',0);
IF NOT ISCLEAR( Folder ) THEN BEGIN
 FolderItems := Folder.Items();
 FolderItem := FolderItems.Item;
 EXIT(FORMAT(FolderItem.Path));
END;
CLEAR( ShellControl );
CLEAR( Folder );
CLEAR( FolderItems );
CLEAR( FolderItem );
EXIT('');

Manipular Ficheros físicos mediante Web Services

No se si alguna vez os ha surgido la necesidad de copiar o mover ficheros desde el cliente por roles o a través de Web Services.
Desde el cliente clásico funciona sin problemas, pero a la hora de hacerlo funcionar por Web Services surge el quebradero de cabeza.
Hay por ahí teorías que dan una posible solución que tiene que ver con que las funciones COPY,EXISTS,ERASE,etc.... no funcionan en la capa de WS.
Pero este no es el problema, el problema es que tenemos tres niveles en tres equipos. Es decir: que en nuestra arquitectura tenemos el cliente del Web Service (Capa 1), El Web Service en el servidor (Capa 2) y el servidor donde están los ficheros (Capa 3).
No se si habréis podido comprobar que si los ficheros a manipular están en el mismo servidor que donde tenemos instalada la capa de Web Service el problema desaparece. es más, es una de las recomendaciones que hace Microsoft para solucionar el problema.


La solución correcta consiste en Delegar servicios. Como ya he comentado, Microsoft recomienda que los archivos estén en el mismo servidor que la capa de Web Service para ahorrarte la enrevesada configuración de la Delegación.

Llamar a Web-Services de Navision desde Navision

PAra consumir los webservices de un servidor de Navision desde otro servidor de Navision tenemos que montar una petición httpRequest pasándole un XML bien formado y recuperar la respuesta para saber que es lo que ha ocurrido en el servidor de destino.

Para ello primero declaramos las variables:

Name	DataType	Subtype	Length
XmlHttpRequest	Automation	'Microsoft XML, v4.0'.XMLHTTP
XmlDoc	Automation	'Microsoft XML, v4.0'.DOMDocument
XmlString	Text		1024
BTSoap	BigText
BTValores	BigText

Creamos un BigText y le añadimos la cabecera de la petición:

BTPasado.ADDTEXT('<?xml version="1.0" encoding="utf-8"?>');
BTPasado.ADDTEXT('<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">');
BTPasado.ADDTEXT('<soap:Body>');
BTPasado.ADDTEXT(STRSUBSTNO('<%1 xmlns="urn:microsoft-dynamics-schemas/codeunit/%2">','MiFuncion','MiCodeUnit'));

BTValores.ADDTEXT('<nombre_parametro_que_espera_MiCodeunit_MiFuncion>');
BTValores.ADDTEXT('MI-VALOR');
BTValores.ADDTEXT('</nombre_parametro_que_espera_MiCodeunit_MiFuncion>');

BTPasado.ADDTEXT(STRSUBSTNO('</%1>','MiFuncion'));

BTPasado.ADDTEXT('</soap:Body>');
BTPasado.ADDTEXT('</soap:Envelope>');


Como veis es bien sencillo montar la petición de nuestro httprequest.
Ahora hacemos la llamada:

Name

DataType

Subtype

XmlDocPasado              Automation

'Microsoft XML, v4.0'.DOMDocument

IF (ISCLEAR(XmlHttpRequest)) THEN
  CREATE(XmlHttpRequest);

XmlHttpRequest.open('POST','http://servidor:7047/DynamicsNAV/WS/empresa/Codeunit/MiCodeunit',FALSE,'DOMINIO\usuario','password');
XmlHttpRequest.setRequestHeader('Host', 'localhost');
XmlHttpRequest.setRequestHeader('Content-Type', 'text/xml; charset=utf-8');
XmlHttpRequest.setRequestHeader('Content-Length', FORMAT(BTPasado.LENGTH));
XmlHttpRequest.setRequestHeader('SOAPAction','MiFuncion');
XmlHttpRequest.send(BTPasado);
XmlDocPasado := XmlHttpRequest.responseXML;


Con esto obtendríamos en XmlDocPasado un XML con el resultado.

Convertir líneas a columna en una consulta sql

Se puede pasar un resultado de una consulta sql de líneas a un varchar que representaría una columna con la función: COALESCE siempre que no contenga ningún null el resultado de la consulta.

Ejemplo:
DECLARE @valores VARCHAR(1000)
SELECT @valores= COALESCE(@valores + ',', '') + valor FROM MiConsulta-Tabla

Valor es uno de los campos de MiConsulta-Tabla.
El resultado es un varchar concatenado por comas.
Tenemos la limitación de la longitud del varchar (Aunque lo definamos con MAX) pero nos puede ser útil para salir del paso.

Crear un informe Recursivo con Reporting Services

Crear un informe recursivo es extremadamente fácil con Reporting Services.
Supongamos un listado que muestra los siguientes datos:

1. Primera Línea Padre
1. Primera Línea Hija Primera Línea Padre
2. Segunda Línea Hija Primera Línea Padre
1. Primera Línea HijaSegunda Línea Hija Primera Línea Padre
3. Tercera Línea Hija Primera Línea Padre
2. Segunda Línea Padre
3. Tercera Línea Padre
4. ....

Tenemos un ID que identifica la línea y un ID_PADRE que identifica la línea padre de la línea actual. En Repoting iríamos a la línea y le definiríamos un grupo:

 

En el grupo ponemos como campo de grupo el ID que identifica la línea.



En propiedades avanzadas indicamos cual es el campo recursivo de cada línea, es decir, el campo que identifica cual es su padre.

Y ya esta, ya tenemos nuestro informe recursivo.
Para que visualmente quede mas bonito se cambia el padding del campo para que vaya indentando las líneas y quede así:

También se puede cambiar la visualización del grupo para poder plegarlo o desplegarlo:

Obtener la lista de informes cuanto cuestan de sacar en tiempo

Esta consulta muestra una lista de los informes que mas cuestan de sacar por tiempo. Con esto podemos determinar que informes son los más pesados e intentar optimizarlos.


SELECT EL.UserNAme,Name Informe, b.path Ruta, Parameters Parametros,

FORMAT Formato,TimeStart Inicio, TimeEnd Fin, ByteCount,

(TimedataRetrieval+Timeprocessing+TimeRendering)/1000 AS Seg_TiempoTotal

FROM

[ReportServer].[dbo].[ExecutionLog] EL

JOIN [ReportServer].[dbo].[CATALOG] b

ON EL.reportid = b.itemid

--WHERE Name =@INFORME

ORDER BY (TimedataRetrieval+Timeprocessing+TimeRendering)/1000 DESC