diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
index b359f0c6..137d40b2 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm	
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm	
@@ -110,16 +110,16 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
               'LBARANES_CLIENTE.POBLACION,'#10'  V_ALBARANES_CLIENTE.PROVINCIA,'#10'  V' +
               '_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10'  V_ALBARANES_CLIENTE.TELEF' +
               'ONO,'#10'  V_ALBARANES_CLIENTE.CALLE,'#10'  V_ALBARANES_CLIENTE.OBSERVAC' +
-              'IONES,'#10'  V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10'  EMPRESAS.NIF_CIF A' +
-              'S NIF_CIF_EMPRESA,'#10'  EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10'  EMPRES' +
-              'AS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10'  EMPRESAS.TELEFONO_1 A' +
-              'S TELEFONO_1_EMPRESA,'#10'  EMPRESAS.FAX AS FAX_EMPRESA,'#10'  EMPRESAS.' +
-              'MOVIL_1 AS MOVIL_1_EMPRESA,'#10'  EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRES' +
-              'A,'#10'  EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10'    V_ALBARA' +
-              'NES_CLIENTE'#10'  LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_A' +
-              'LBARANES_CLIENTE.ID_CLIENTE)'#10'  LEFT OUTER JOIN EMPRESAS ON (EMPR' +
-              'ESAS.ID = V_ALBARANES_CLIENTE.ID_EMPRESA)'#10'WHERE V_ALBARANES_CLIE' +
-              'NTE.ID = :ID'
+              'IONES,'#10'  V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10'  V_ALBARANES_CLIENT' +
+              'E.FECHA_PREVISTA_ENVIO,'#10'  EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' ' +
+              ' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10'  EMPRESAS.RAZON_SOCIAL AS R' +
+              'AZON_SOCIAL_EMPRESA,'#10'  EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA' +
+              ','#10'  EMPRESAS.FAX AS FAX_EMPRESA,'#10'  EMPRESAS.MOVIL_1 AS MOVIL_1_E' +
+              'MPRESA,'#10'  EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10'  EMPRESAS.PAGINA' +
+              '_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10'    V_ALBARANES_CLIENTE'#10'  LEFT O' +
+              'UTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_ALBARANES_CLIENTE.ID_' +
+              'CLIENTE)'#10'  LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_ALBARANE' +
+              'S_CLIENTE.ID_EMPRESA)'#10'WHERE V_ALBARANES_CLIENTE.ID = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -225,6 +225,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
               item
                 DatasetField = 'REFERENCIA_CLIENTE'
                 TableField = 'REFERENCIA_CLIENTE'
+              end
+              item
+                DatasetField = 'FECHA_PREVISTA_ENVIO'
+                TableField = 'FECHA_PREVISTA_ENVIO'
               end>
           end>
         Name = 'Informe_Cabecera'
@@ -438,6 +442,17 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'FECHA_PREVISTA_ENVIO'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'NIF_CIF_EMPRESA'
             DataType = datString
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
index 49657660..16e77333 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas	
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas	
@@ -25,9 +25,9 @@ type
     frxChartObject1: TfrxChartObject;
     frxDBCabecera: TfrxDBDataset;
     frxDBDetalles: TfrxDBDataset;
+    frxReport: TfrxReport;
     schReport: TDASchema;
     DataDictionary: TDADataDictionary;
-    frxReport: TfrxReport;
     procedure DataModuleCreate(Sender: TObject);
   private
     FConnection: IDAConnection;