From eb023fc716eeee6420e7d56d5976cd3a3b67cf11 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Fri, 19 Sep 2008 12:00:12 +0000
Subject: [PATCH] Ticket #117 -> Al exportar un pedido a proveedor a Word, no
 se interpreta el texto RTF

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@601 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Reports/uRptWordPedidoProveedor.dfm       | 43 +++++++++++++------
 1 file changed, 29 insertions(+), 14 deletions(-)

diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm
index 960d919b..31143a5b 100644
--- a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm	
@@ -1,8 +1,8 @@
 object RptWordPedidoProveedor: TRptWordPedidoProveedor
   OldCreateOrder = False
   OnCreate = DataModuleCreate
-  Height = 366
-  Width = 514
+  Height = 223
+  Width = 337
   object schReport: TDASchema
     ConnectionManager = dmServer.ConnectionManager
     DataDictionary = DataDictionary
@@ -192,18 +192,19 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
             Default = True
             SQL = 
               'SELECT DET.ID, DET.ID_PEDIDO,'#10'       DET.POSICION, DET.TIPO_DETA' +
-              'LLE,'#10'       ARTICULOS.REFERENCIA, DET.CONCEPTO, DET.CANTIDAD,'#10'  ' +
-              '     DET.UNIDAD_MEDIDA, DET.IMPORTE_UNIDAD - (DET.IMPORTE_UNIDAD' +
-              ' * (DET.DESCUENTO / 100)) as IMPORTE_UNIDAD, DET.IMPORTE_TOTAL,'#10 +
-              '       ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REFERENCIA_PROVE' +
-              'EDOR,'#10'       ARTICULOS.REFERENCIA_FABR as REFERENCIA_FABRICANTE'#10 +
-              'FROM PEDIDOS_PROVEEDOR_DETALLES DET'#10'LEFT OUTER JOIN ARTICULOS ON' +
-              ' (DET.ID_ARTICULO = ARTICULOS.ID)'#10'LEFT JOIN PEDIDOS_PROVEEDOR ON' +
-              ' (PEDIDOS_PROVEEDOR.ID = DET.ID_PEDIDO)'#10'LEFT JOIN ARTICULOS_PROV' +
-              'EEDORES ON ((ARTICULOS_PROVEEDORES.ID_ARTICULO = ARTICULOS.ID) A' +
-              'ND (ARTICULOS_PROVEEDORES.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PR' +
-              'OVEEDOR))'#10#10'WHERE DET.ID_PEDIDO = :ID_PEDIDO AND DET.VISIBLE = 1 ' +
-              'AND {Where}'#10'ORDER BY DET.ID_PEDIDO, DET.POSICION;'#10#10
+              'LLE,'#10'       ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO) as C' +
+              'ONCEPTO, DET.CONCEPTO as CONCEPTO_RTF,'#10'       DET.CANTIDAD,'#10'    ' +
+              '   DET.UNIDAD_MEDIDA, DET.IMPORTE_UNIDAD - (DET.IMPORTE_UNIDAD *' +
+              ' (DET.DESCUENTO / 100)) as IMPORTE_UNIDAD, DET.IMPORTE_TOTAL,'#10'  ' +
+              '     ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REFERENCIA_PROVEED' +
+              'OR,'#10'       ARTICULOS.REFERENCIA_FABR as REFERENCIA_FABRICANTE'#10'FR' +
+              'OM PEDIDOS_PROVEEDOR_DETALLES DET'#10'LEFT OUTER JOIN ARTICULOS ON (' +
+              'DET.ID_ARTICULO = ARTICULOS.ID)'#10'LEFT JOIN PEDIDOS_PROVEEDOR ON (' +
+              'PEDIDOS_PROVEEDOR.ID = DET.ID_PEDIDO)'#10'LEFT JOIN ARTICULOS_PROVEE' +
+              'DORES ON ((ARTICULOS_PROVEEDORES.ID_ARTICULO = ARTICULOS.ID) AND' +
+              ' (ARTICULOS_PROVEEDORES.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROV' +
+              'EEDOR))'#10#10'WHERE DET.ID_PEDIDO = :ID_PEDIDO AND DET.VISIBLE = 1 AN' +
+              'D {Where}'#10'ORDER BY DET.ID_PEDIDO, DET.POSICION;'#10#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -253,6 +254,10 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
               item
                 DatasetField = 'REFERENCIA_FABRICANTE'
                 TableField = 'REFERENCIA_FABRICANTE'
+              end
+              item
+                DatasetField = 'CONCEPTO_RTF'
+                TableField = 'CONCEPTO_RTF'
               end>
           end>
         Name = 'Informe_Detalles'
@@ -282,6 +287,11 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
           item
             Name = 'CONCEPTO'
             DataType = datString
+            Size = 32765
+          end
+          item
+            Name = 'CONCEPTO_RTF'
+            DataType = datString
             Size = 2000
           end
           item
@@ -454,6 +464,11 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
       item
         Name = 'CONCEPTO'
         DataType = datString
+        Size = 32765
+      end
+      item
+        Name = 'CONCEPTO_RTF'
+        DataType = datString
         Size = 2000
       end
       item