Se añade nuevo logotipo de iso en los informes que lo requieren y se arregla fallo al rellenar la direccion de los contactos

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1045 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas

@@ -322,13 +322,14 @@ begin
     if FCliente.ID > 0 then
        edtPersonaContacto.Enabled := True;
 
-//    if FCliente.Direcciones.RecordCount > 0 then
+    if FCliente.Direcciones.RecordCount > 0 then
-//      ElegirDireccionCliente
+       ElegirDireccionCliente
-//    else begin
+    else begin
-//      FAlbaran.Edit;
+       FAlbaran.Edit;
-//      FAlbaran.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
+       FAlbaran.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
-//      RefrescarDireccion;
+       FAlbaran.ID_DIRECCIONIsNull := True;  //Limpiamos la direccion que pudiera tener el anterior cliente del documento si lo tuviere.
-//    end;
+       RefrescarDireccion;
+    end;
   end
   else begin
     dsCliente.DataTable := NIL;

Source/Modulos/Facturas de cliente/Views/uViewDatosYSeleccionClienteFacturaCliente.pas

@@ -131,6 +131,7 @@ procedure TfrViewDatosYSeleccionClienteFacturaCliente.actElegirDireccionExecute(
 begin
   inherited;
   ElegirDireccionCliente;
+  EscribirTextoDireccion;
 end;
 
 procedure TfrViewDatosYSeleccionClienteFacturaCliente.actElegirDireccionUpdate(
@@ -214,6 +215,7 @@ procedure TfrViewDatosYSeleccionClienteFacturaCliente.edtDireccionPropertiesButt
 begin
   inherited;
   ElegirDireccionCliente;
+  EscribirTextoDireccion;  
 end;
 
 procedure TfrViewDatosYSeleccionClienteFacturaCliente.ElegirCliente;
@@ -238,13 +240,7 @@ begin
   if Assigned(ADireccion) then
   begin
     FDireccion := ADireccion;
-
-//    if FDireccion.IDIsNull then
-//      LimpiarDireccionDeFactura
-//    else
     CopiarDireccionAFactura;
-
-    EscribirTextoDireccion;
   end;
 end;
 
@@ -285,9 +281,18 @@ begin
       FCliente.DataTable.Active := True;
 
     if FCliente.Direcciones.RecordCount > 0 then
-       ElegirDireccionCliente
+    begin
-    else
+       ElegirDireccionCliente;
+       EscribirTextoDireccion;
+    end
+    else begin
+       FFactura.Edit;
+       FFactura.ID_DIRECCIONIsNull := True;  //Limpiamos la direccion que pudiera tener el anterior cliente del documento si lo tuviere.
        RefrescarDireccion;
+       CopiarDireccionAFactura;
+       EscribirTextoDireccion;              
+    end;
+
   end
   else begin
     dsCliente.DataTable := NIL;
@@ -334,8 +339,6 @@ begin
       FDireccionesController.CopiarDireccion(FCliente.Direcciones, FDireccion)
   else
     FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
-
-  EscribirTextoDireccion;
 end;
 
 procedure TfrViewDatosYSeleccionClienteFacturaCliente.SetOnClienteChanged(
@@ -359,6 +362,7 @@ begin
       FCliente.DataTable.Active := True;
 
     RefrescarDireccion;
+    EscribirTextoDireccion;    
   end
   else begin
     dsFactura.DataTable := NIL;

Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas

@@ -326,6 +326,7 @@ begin
     else begin
       FPresupuesto.Edit;
       FPresupuesto.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
+      FPresupuesto.ID_DIRECCIONIsNull := True;  //Limpiamos la direccion que pudiera tener el anterior cliente del documento si lo tuviere.
       RefrescarDireccion;
     end;
   end