- added Address ID

tcl/intranet-ubl-procs.tcl

@@ -132,6 +132,12 @@ namespace eval im_ubl {
 	set buyer_id_sql [parameter::get_from_package_key -package_key "intranet-ubl" -parameter "BuyerIdSqlExpression" -default "cust.company_id"]
 	set seller_id_sql [parameter::get_from_package_key -package_key "intranet-ubl" -parameter "SellerIdSqlExpression" -default "prov.company_id"]
 
+
+
+	set customer_address_id_sql [parameter::get_from_package_key -package_key "intranet-ubl" -parameter "CustomerAddressIdSqlExpression" -default "ocust.office_id"]
+	set provider_address_id_sql [parameter::get_from_package_key -package_key "intranet-ubl" -parameter "ProviderAddressIdSqlExpression" -default "oprov.office_id"]
+
+
 	if {![db_0or1row project_info "
 		select	c.*,
 			i.*,
@@ -206,6 +212,7 @@ namespace eval im_ubl {
 	
 	set prov_office_sql "
 		select
+			$provider_address_id_sql as provider_office_id,
 			oprov.address_line1 as provider_address_line1,
 			oprov.address_line2 as provider_address_line2,
 			oprov.address_city as provider_address_city,
@@ -227,6 +234,7 @@ namespace eval im_ubl {
 	
 	set cust_office_sql "
 		select
+			$customer_address_id_sql as customer_office_id,
 			ocust.address_line1 as customer_address_line1,
 			ocust.address_line2 as customer_address_line2,
 			ocust.address_city as customer_address_city,
@@ -344,6 +352,7 @@ namespace eval im_ubl {
 				<cbc:Name>$customer_name</cbc:Name>
 			</cac:PartyName>
 			<cac:Address>
+				<ID>$customer_office_id</ID>
 				<cbc:StreetName>$customer_address_line1 $customer_address_line2</cbc:StreetName>
 				<cbc:CityName>$customer_address_city</cbc:CityName>
 				<cbc:PostalZone>$customer_address_postal_code</cbc:PostalZone>
@@ -376,6 +385,7 @@ namespace eval im_ubl {
 				<cbc:Name>$provider_name</cbc:Name>
 			</cac:PartyName>
 			<cac:Address>
+				<ID>$provider_office_id</ID>
 				<cbc:StreetName>$provider_address_line1 $provider_address_line2</cbc:StreetName>
 				<cbc:CityName>$provider_address_city</cbc:CityName>
 				<cbc:PostalZone>$provider_address_postal_code</cbc:PostalZone>