diff --git a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj
index 0caa9e4..ca65dab 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj	
+++ b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj	
@@ -49,10 +49,10 @@
     <DelphiCompile Include="AlbaranesCliente_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_data.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_model.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Articulos_controller.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Contactos_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_data.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
     <DCCReference Include="uAlbaranesClienteController.pas" />
     <DCCReference Include="uAlbaranesClienteReportController.pas" />
     <DCCReference Include="uArticulosAlbaranClienteController.pas" />
diff --git a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.res b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.res
index 8b251f3..1641339 100644
Binary files a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.res and b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.res differ
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
index 46af246..91bba4e 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas	
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas	
@@ -588,8 +588,21 @@ end;
 procedure TAlbaranesClienteController.Ver(AAlbaran: IBizAlbaranCliente);
 var
   AEditor : IEditorAlbaranCliente;
+//  AAlbaran2: IBizAlbaranCliente;
+//  Esnuevo: Boolean;
 begin
   AEditor := NIL;
+
+//  Esnuevo := AAlbaran.ID < 0;
+  //Es modificación
+//  if not Esnuevo then
+//  begin
+//     AAlbaran2 := Buscar(AAlbaran.ID);
+//     AAlbaran2.DataTable.Active := True;
+//  end
+//  else
+//     AAlbaran2 := Nuevo;
+
   RecuperarObjetos(AAlbaran);
 
   if (AAlbaran.TIPO = CTE_TIPO_ALBARAN) then
@@ -614,6 +627,10 @@ begin
       //MODO CONSULTAR (Se deja la tabla como estaba)
       if AEditor.ReadOnly then
          SetDataTableReadOnly(AAlbaran.DataTable, False);
+
+//      if Esnuevo then
+//         DuplicarRegistro(AAlbaran.DataTable, AAlbaran.DataTable, True, True, True);
+
     finally
       AEditor.Release;
       AEditor := NIL;
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
index 0cafdae..dbdd4e9 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm	
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm	
@@ -199,10 +199,6 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
     inherited actAnchoAuto: TAction
       ImageIndex = 22
     end
-    inherited actExportarExcel: TAction
-      Enabled = False
-      Visible = False
-    end
     object actGenerarFactura: TAction
       Category = 'Acciones'
       Caption = 'Generar factura'
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
index 7ae62f5..0022740 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas	
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas	
@@ -483,7 +483,7 @@ begin
 //                end;
 //      100    : begin   // Albaran nuevo vacio
                   if FController.Anadir(Albaranes) then
-                    FController.Ver(Albaranes);
+                     FController.Ver(Albaranes);
 //                end;
 //    end;
 //  end;