Addressed issues with the address creation and expiry bits.

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@3678 248e525c-4dfb-0310-94bc-949c084e9493

Modules/mip_parties.pck

@@ -102,6 +102,14 @@ CREATE OR REPLACE PACKAGE mip_parties AS
    PROCEDURE add_address(p_address addresses%ROWTYPE);
    --
    
+   /**
+    Update an existing address in the system.
+    
+    %param p_address - the new address details.
+    */
+   PROCEDURE update_address(p_address addresses%ROWTYPE);
+   --
+  
    /**
       allows an address in the system to be associated with a party
       
@@ -715,8 +723,8 @@ CREATE OR REPLACE PACKAGE BODY mip_parties AS
                   p_address.postcode AS postcode
              FROM dual) l_addr
     ON (addr.code = l_addr.code AND 
-        addr.sub_building = l_addr.sub_building AND 
+        (addr.sub_building = l_addr.sub_building OR (addr.sub_building IS NULL AND l_addr.sub_building IS NULL)) AND 
-        addr.building = l_addr.building AND 
+        (addr.building = l_addr.building OR (addr.building IS NULL AND l_addr.building IS NULL) ) AND 
         addr.street = l_addr.street AND 
         addr.city = l_addr.city AND 
         addr.postcode = p_address.postcode)
@@ -740,6 +748,25 @@ CREATE OR REPLACE PACKAGE BODY mip_parties AS
   END add_address;
   --
   
+  /**
+    Update an existing address in the system.
+    
+    %param p_address - the new address details.
+    */
+  PROCEDURE update_address(p_address addresses%ROWTYPE) AS
+  BEGIN
+    UPDATE addresses addr
+       SET addr.sub_building = p_address.sub_building, 
+           addr.building = p_address.building,
+           addr.street = p_address.street,
+           addr.city = p_address.city,
+           addr.postcode = p_address.postcode
+     WHERE addr.code = p_address.code;
+       
+  END update_address;
+  --
+  
+
   /**
       associate an address with a party
       
@@ -950,6 +977,11 @@ CREATE OR REPLACE PACKAGE BODY mip_parties AS
                                  FROM party_address_roles paddr_roles
                                  WHERE paddr_roles.rt_code = p_paddr_type);
 
+    UPDATE party_address_roles paddro
+       SET paddro.end_date = SYSDATE
+     WHERE paddro.paddr_prty_id = p_prty_id
+       AND paddro.rt_code = p_paddr_type;
+       
   END expire_old_addresses;
   --