andy/mip
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
Files
53df2a260d17b7c3f5fc9390b06af7c951f5046d
mip/Modules/mip_quotation_document.pck

708 lines
32 KiB
Plaintext
Raw Blame History

CREATE OR REPLACE PACKAGE mip_quotation_document IS
-- Author : HARDYA
-- Created : 15/11/2007 11:27:58
-- Purpose : Handle life-cycle of quotations
-- Public type declarations
--type <TypeName> is <Datatype>;
type cost_line is record(
cost_description varchar2(80),
cost_price number);
type address is varray(7) of varchar2(160);
type works is varray(20) of varchar2(160);
type costs is varray(20) of cost_line;
type caveats is varray(20) of varchar2(2000);
type dimensions is varray(10) of number;
type quote_data is record
(quote_ref NUMBER,
transaction_ref VARCHAR2(80),
mprn number(30),
supplier_address address := address(null,null,null,null,null,null,null),
current_date DATE,
agent_first_name varchar2(80),
site_address address := address(null,null,null,null,null,null,null),
mam varchar2(80),
quote_works works := works(null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null),
lead_time number,
total_cost number,
quote_costs costs := costs(null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null),
house_length number,
house_depth number,
house_height number,
house_ventilation number,
base_length number,
base_depth number,
base_height number,
outlet_termninal_size number,
quote_caveats caveats := caveats(null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null),
liquid_damage_day number,
liquid_damage_cap number,
base_dimensions dimensions := dimensions(null,null,null,null,null,null,null,null,null,null),
base_diagram number,
house_dimensions dimensions := dimensions(null,null,null,null,null,null,null,null,null,null),
house_diagram number,
module_dimensions dimensions := dimensions(null,null,null,null,null,null,null,null,null,null),
module_reference varchar2(80),
module_diagram number,
requested_qmax number,
module_qmax number,
module_qmin number,
module_inlet_height number,
module_outlet_height number,
module_inlet_size number,
module_outlet_size number,
module_inlet_type varchar2(80),
module_outlet_type varchar2(80),
module_inlet_orientation varchar2(80),
module_outlet_orientation varchar2(80)
);
-- Public constant declarations
-- <ConstantName> constant <Datatype> := <Value>;
-- Public variable declarations
--<VariableName> <Datatype>;
-- Public function and procedure declarations
-- function <FunctionName>(<Parameter> <Datatype>) return <Datatype>;
function get_mam(p_region_code varchar2) return varchar2;
function get_module_row(p_code varchar2) return modules%ROWTYPE;
function get_max_lead_time(p_quoteid number) return number;
FUNCTION determine_caveats(p_enquiryid in number) RETURN BOOLEAN;
procedure set_quote_items_data (p_quote_data in out quote_data, p_quoteid number, p_enqu_row enquiries%ROWTYPE);
FUNCTION get_detailed_quote_data(p_quoteid in number) RETURN quote_data;
FUNCTION generate_detailed_quote_pdf(p_quote_data in quote_data) RETURN BOOLEAN;
FUNCTION build_detailed_quote(p_enquiryid in number) RETURN BOOLEAN;
END mip_quotation_document;
/
CREATE OR REPLACE PACKAGE BODY mip_quotation_document IS
/*
FUNCTION get_mam
--The get_mam function returns a meter asset manager description for the supplied region code.
%param p_region_code - the code of the region you want to get the mam description of.
%return varchar(80)description of the supplied regions code mam
*/
function get_mam(p_region_code varchar2) return varchar2 is
l_mam_desc varchar2(80);
CURSOR c_get_mam(cp_region_code varchar2) IS
SELECT description
FROM regions
WHERE code = cp_region_code;
begin
IF NOT c_get_mam%ISOPEN THEN
OPEN c_get_mam(p_region_code);
END IF;
FETCH c_get_mam
INTO l_mam_desc;
CLOSE c_get_mam;
return l_mam_desc;
end get_mam;
/*
FUNCTION get_meter_row
--The get_meter_row function returns a meter record for the supplied meter code.
%param p_code - the code of the meter you want to get a record of.
%return meters row of the supplied meter code
*/
function get_meter_row(p_code varchar2) return meters%ROWTYPE is
l_meter_row meters%ROWTYPE;
CURSOR c_get_meter(cp_meter_code varchar2) IS
SELECT *
FROM meters
WHERE code = cp_meter_code;
begin
IF NOT c_get_meter%ISOPEN THEN
OPEN c_get_meter(p_code);
END IF;
FETCH c_get_meter
INTO l_meter_row;
CLOSE c_get_meter;
return l_meter_row;
end get_meter_row;
/*
FUNCTION get_module_row
--The get_module_row function returns a module record for the supplied module code.
%param p_code - the code of the module you want to get a record of.
%return modules row of the supplied module code
*/
function get_module_row(p_code varchar2) return modules%ROWTYPE is
l_module_row modules%ROWTYPE;
CURSOR c_get_module(cp_module_code varchar2) IS
SELECT *
FROM modules
WHERE code = cp_module_code;
begin
IF NOT c_get_module%ISOPEN THEN
OPEN c_get_module(p_code);
END IF;
FETCH c_get_module
INTO l_module_row;
CLOSE c_get_module;
return l_module_row;
end get_module_row;
/*
FUNCTION get_housing_row
--The get_housing_row function returns a housing record for the supplied housing code.
%param p_code - the code of the housing you want to get a record of.
%return housings row of the supplied housing code
*/
function get_housing_row(p_code varchar2) return housings%ROWTYPE is
l_housing_row housings%ROWTYPE;
CURSOR c_get_housing(cp_housing_code varchar2) IS
SELECT *
FROM housings
WHERE code = cp_housing_code;
begin
IF NOT c_get_housing%ISOPEN THEN
OPEN c_get_housing(p_code);
END IF;
FETCH c_get_housing
INTO l_housing_row;
CLOSE c_get_housing;
return l_housing_row;
end get_housing_row;
/*
FUNCTION get_base_row
--The get_base_row function returns a base record for the supplied base code.
%param p_code - the code of the base you want to get a record of.
%return bases row of the supplied base code
*/
function get_base_row(p_code varchar2) return bases%ROWTYPE is
l_base_row bases%ROWTYPE;
CURSOR c_get_base(cp_base_code varchar2) IS
SELECT *
FROM bases
WHERE code = cp_base_code;
begin
IF NOT c_get_base%ISOPEN THEN
OPEN c_get_base(p_code);
END IF;
FETCH c_get_base
INTO l_base_row;
CLOSE c_get_base;
return l_base_row;
end get_base_row;
/*
FUNCTION get_additional_item
--The get_additional_item function returns an additional_item record for the supplied additional
--item code.
%param p_code - the code of the additional item you want to get a record of.
%return additional_items row of the supplied item code
*/
function get_additional_item(p_code varchar2) return additional_items%ROWTYPE is
--Additional Items
l_add_item_row additional_items%ROWTYPE;
CURSOR c_get_add_item(cp_additid varchar2) IS
SELECT *
FROM additional_items
WHERE code = cp_additid;
begin
--get additional item
IF NOT c_get_add_item%ISOPEN THEN
OPEN c_get_add_item(p_code);
END IF;
FETCH c_get_add_item
INTO l_add_item_row;
CLOSE c_get_add_item;
return l_add_item_row;
end get_additional_item;
/*
FUNCTION get_max_lead_time
--The get_max lead_time function returns the contracted lead time for the provided quotation.
--It takes the largest lead time of all the quotation items (modules, addons, housings bases)
--hence the max bit
%param p_quoteid - the id of the quote you want to get the lead time.
%return number the maximum contacted lead time for the supplied quotation
*/
function get_max_lead_time(p_quoteid number) return number is
l_quote_item_maxlt number;
CURSOR c_get_max_lead_time (cp_id number) is
SELECT MAX(lead_time)
FROM quote_items
WHERE qute_id = cp_id;
begin
IF NOT c_get_max_lead_time%ISOPEN THEN
OPEN c_get_max_lead_time(p_quoteid);
END IF;
FETCH c_get_max_lead_time
INTO l_quote_item_maxlt;
CLOSE c_get_max_lead_time;
return l_quote_item_maxlt;
end get_max_lead_time;
/*
FUNCTION get_total_cost
--The get_total_cost function returns the total cost for a quotation (excluding lifting gear)
%param p_quoteid - the id of the quote you want to get the total cost for.
%return number the total cost
*/
function get_total_cost(p_quoteid number) return number is
l_quote_total_cost number;
CURSOR c_get_total_cost (cp_id number) is
SELECT SUM(selling_price + delivery_price)
FROM quote_items
WHERE qute_id = cp_id;
begin
IF NOT c_get_total_cost%ISOPEN THEN
OPEN c_get_total_cost(p_quoteid);
END IF;
FETCH c_get_total_cost
INTO l_quote_total_cost;
CLOSE c_get_total_cost;
return l_quote_total_cost;
end get_total_cost;
/*
FUNCTION determine_caveats
--This function should return a list of caveats, probably in an array, required for
--the quotation. It will need to be passed relevent data so that it can make the
--determinations
%param p_enquiryid - the current enquiry to make determinations against.
%param possibly a few more params to get the required data in
*/
FUNCTION determine_caveats(p_enquiryid in number) RETURN BOOLEAN is
begin
null;
end determine_caveats;
/*
PROCEDURE set_quote_items
--This procedure sets the data for each of the items associated with the quotation.
--may want to break it up a bit using individual functions for each type of items
--just to make it more legible(it's rather a large procedure)
%param p_quote_data in out - The current data for this enquiry(what write our data values to)
%param p_quoteid - used to list all the quote items.
%param p_enqu_row - the current enquiry row to get data only available in the enquiry.
*/
procedure set_quote_items_data (p_quote_data in out quote_data, p_quoteid number, p_enqu_row enquiries%ROWTYPE) is
--Enquiry type
l_enqu_type_row enquiry_types%ROWTYPE;
CURSOR c_get_enquiry_type(cp_enty_code varchar2) IS
SELECT *
FROM enquiry_types
WHERE code = cp_enty_code;
--Quote Items
l_quote_item_row quote_items%ROWTYPE;
CURSOR c_get_quote_item(cp_quoteid number) IS
SELECT *
FROM quote_items
WHERE qute_id = cp_quoteid;
--Module data
l_module_row modules%ROWTYPE;
--Additional Items
l_add_item_row additional_items%ROWTYPE;
l_works works := works(null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null); --list of works for the quote
l_addons varchar(300); --list of addons for the quote
l_housing_row housings%ROWTYPE;
l_base_row bases%ROWTYPE;
l_meter_row meters%ROWTYPE; -- used to get the qmax and qmin of the meter
l_total_cost number; --used to figure out the liquidated damages costs
l_counter number;
begin
--cycle through the quote items picking up each item to display on the
--description of works section
l_counter := 0;
FOR quote_item_rec IN c_get_quote_item(p_quoteid) LOOP
l_counter := l_counter + 1;
case quote_item_rec.quit_type
when 'BQI' then --base item
l_addons := l_addons || ', Base';
--Set the costs
p_quote_data.quote_costs(l_counter).cost_description := 'Base Materials cost';
p_quote_data.quote_costs(l_counter).cost_price := quote_item_rec.selling_price;
if not (quote_item_rec.delivery_price is null) then
p_quote_data.quote_costs(l_counter).cost_description := 'Base Labour cost';
p_quote_data.quote_costs(l_counter).cost_price := quote_item_rec.delivery_price;
end if;
--get the base details
l_base_row := get_base_row(quote_item_rec.bas_code);
p_quote_data.base_length := l_base_row.dim_a;
p_quote_data.base_depth := l_base_row.dim_b;
p_quote_data.base_height := l_base_row.depth;
--get base technical details
p_quote_data.base_dimensions(1) := l_base_row.depth;
p_quote_data.base_dimensions(2) := l_base_row.dim_a;
p_quote_data.base_dimensions(3) := l_base_row.dim_b;
p_quote_data.base_dimensions(4) := l_base_row.dim_c;
p_quote_data.base_dimensions(5) := l_base_row.dim_d;
p_quote_data.base_dimensions(6) := l_base_row.dim_e;
p_quote_data.base_dimensions(7) := l_base_row.dim_f;
p_quote_data.base_dimensions(8) := l_base_row.dim_g;
p_quote_data.base_dimensions(9) := l_base_row.dim_h;
p_quote_data.base_dimensions(10) := l_base_row.dim_i;
when 'HQI' then --housing item
l_addons := l_addons || ', Housing';
--Set up the costs
p_quote_data.quote_costs(l_counter).cost_description := 'Housing Materials cost';
p_quote_data.quote_costs(l_counter).cost_price := quote_item_rec.selling_price;
if not (quote_item_rec.delivery_price is null) then
p_quote_data.quote_costs(l_counter).cost_description := 'Housing Labour cost';
p_quote_data.quote_costs(l_counter).cost_price := quote_item_rec.delivery_price;
end if;
--get the housing code and return the housing details into p_quote_data
l_housing_row := get_housing_row(quote_item_rec.hou_code);
p_quote_data.house_length := l_housing_row.dim_l;
p_quote_data.house_depth := l_housing_row.dim_w;
p_quote_data.house_height := l_housing_row.dim_h;
p_quote_data.house_ventilation := ((l_housing_row.dim_l*l_housing_row.dim_w)/100)*3;
--get housing technical details
p_quote_data.house_dimensions(1) := l_housing_row.dim_l;
p_quote_data.house_dimensions(2) := l_housing_row.dim_w;
p_quote_data.house_dimensions(3) := l_housing_row.dim_h;
p_quote_data.house_dimensions(4) := l_housing_row.weight;
when 'AQI' then --add-on item
--If we get time add an if statement round this that checks if the
--Additional Item is lifting gear that it only appears for
--LP Diaphgram install/std install jobs
--Get costs
l_add_item_row := get_additional_item(quote_item_rec.adit_code);
p_quote_data.quote_costs(l_counter).cost_description := l_add_item_row.description||' Materials cost';
p_quote_data.quote_costs(l_counter).cost_price := quote_item_rec.selling_price;
if not(quote_item_rec.delivery_price is null) then
p_quote_data.quote_costs(l_counter).cost_description := l_add_item_row.description||' Labour cost';
p_quote_data.quote_costs(l_counter).cost_price := quote_item_rec.delivery_price;
end if;
--set the list of add-ons for this quote
l_addons := l_addons || ', '||l_add_item_row.description;
when 'MQI' then --module item
--get costs
p_quote_data.quote_costs(l_counter).cost_description := 'Module Materials cost';
p_quote_data.quote_costs(l_counter).cost_price := quote_item_rec.selling_price;
if not(quote_item_rec.delivery_price is null) then
p_quote_data.quote_costs(l_counter).cost_description := 'Module Labour cost';
p_quote_data.quote_costs(l_counter).cost_price := quote_item_rec.delivery_price;
end if;
--other module details
l_module_row := get_module_row (quote_item_rec.modu_code);
l_works(3) := 'Meter Type: '|| l_module_row.svcp_code || ' ' || l_module_row.metr_code;
p_quote_data.outlet_termninal_size := l_module_row.outlet_size;
--module technical details
p_quote_data.module_dimensions(1) := l_module_row.dim_a;
p_quote_data.module_dimensions(2) := l_module_row.dim_b;
p_quote_data.module_dimensions(3) := l_module_row.dim_c;
p_quote_data.module_dimensions(4) := l_module_row.dim_d;
p_quote_data.module_dimensions(5) := l_module_row.dim_e;
p_quote_data.module_dimensions(6) := l_module_row.dim_h;
p_quote_data.module_dimensions(7) := l_module_row.inlet_height;
p_quote_data.module_dimensions(8) := l_module_row.outlet_height;
p_quote_data.module_dimensions(9) := l_module_row.weight;
p_quote_data.module_reference := l_module_row.code;
p_quote_data.module_inlet_height := l_module_row.inlet_height;
p_quote_data.module_outlet_height := l_module_row.outlet_height;
p_quote_data.module_inlet_size := l_module_row.inlet_size;
p_quote_data.module_outlet_size := l_module_row.outlet_size;
p_quote_data.module_inlet_type := l_module_row.inlet_cnty_code;
p_quote_data.module_outlet_type := l_module_row.outlet_cnty_code;
p_quote_data.module_inlet_orientation := l_module_row.inlet_cnor_code;
p_quote_data.module_outlet_orientation := l_module_row.outlet_cnor_code;
--get meters qmax/qmin
l_meter_row := get_meter_row(l_module_row.metr_code);
p_quote_data.module_qmax := l_meter_row.qmax;
p_quote_data.module_qmin := l_meter_row.qmin;
end case;
END LOOP;
--get type of enquiry to display as works type
IF NOT c_get_enquiry_type%ISOPEN THEN
OPEN c_get_enquiry_type(p_enqu_row.enty_code);
END IF;
FETCH c_get_enquiry_type
INTO l_enqu_type_row;
CLOSE c_get_enquiry_type;
l_works(1) := 'Works Type: '||l_enqu_type_row.description;
--get service pressure
l_works(2) := 'Service Pressure: '|| p_enqu_row.required_svcp_code; --may need to get this from quote items table instead
--get existing meter if appropriate
if l_quote_item_row.enty_code <>'INSTALL' or l_quote_item_row.enty_code <>'STD INSTALL' then
l_works(4) := 'Existing Meter Type: '|| p_enqu_row.existing_mesc_code ||', '|| p_enqu_row.existing_meter_model;
end if;
if l_quote_item_row.enty_code <> 'OFMAT' or l_quote_item_row.enty_code <> 'ADVERSARIAL'then
l_total_cost := p_quote_data.total_cost;
if l_total_cost <= 1000 then
p_quote_data.liquid_damage_day := 20;
p_quote_data.liquid_damage_cap := 200;
else
p_quote_data.liquid_damage_day := (l_total_cost/100)*2.5;
p_quote_data.liquid_damage_cap := (l_total_cost/100)*25;
end if;
end if;
--
--add up all the addons and format the string
l_works(5) := 'Add-Ons: '|| l_addons;
p_quote_data.quote_works := l_works;
end set_quote_items_data;
/*
FUNCTION get_detailed_quote_data
--This function should return all required data for the quotation.
--The return value could be a type variable or perhaps an array?
%param p_quoteid - the quotation we want to build a pdf for.
%param possibly a few more params to get the required data in or change format of pdf
%return return the quote data in the quote_data reocrd type
*/
FUNCTION get_detailed_quote_data(p_quoteid in number) RETURN quote_data is
--Quote data
l_quote_data quote_data;
l_quote_row quotes%ROWTYPE;
CURSOR c_get_quote(cp_quote_id number) IS
SELECT *
FROM quotes
WHERE id = cp_quote_id;
--Enquiry data
l_enquiry_id number;
l_enqu_row enquiries%ROWTYPE;
CURSOR c_get_enquiry(cp_enqu_id number) IS
SELECT *
FROM enquiries
WHERE id = cp_enqu_id;
--supplier address data
l_addr_row v_current_party_addresses%ROWTYPE;
CURSOR c_get_address(cp_party_id number, cp_rt_type varchar2) IS
SELECT *
FROM v_current_party_addresses
WHERE id = cp_party_id and rt_code=cp_rt_type;
l_supplier_id number;
l_agent_id number;
--l_address_id number;
--Party name
l_party_row parties%ROWTYPE;
CURSOR c_get_party(cp_party_id number) IS
SELECT *
FROM parties
WHERE id = cp_party_id;
--Agent Name
l_agent_first_name varchar2(80);
l_agent_last_name varchar2(80);
--suppler name
l_supplier_name varchar2(80);
--Meter data
--l_meter_row meters%ROWTYPE;
--CURSOR c_get_meter(cp_meter_id number) IS
-- SELECT *
-- FROM meters
-- WHERE id = cp_meter_id;
--housing data
--l_housing_row housings%ROWTYPE;
begin
--probably call determine caveats here
--we can start filling all the data for the quotation
--will need data from the following tables
--quotes
--enquiries
--parties
--get the quote's data record
IF NOT c_get_quote%ISOPEN THEN
OPEN c_get_quote(p_quoteid);
END IF;
FETCH c_get_quote
INTO l_quote_row;
CLOSE c_get_quote;
--get the enquiry data
l_enquiry_id := l_quote_row.enqu_id;
IF NOT c_get_enquiry%ISOPEN THEN
OPEN c_get_enquiry(l_enquiry_id);
END IF;
FETCH c_get_enquiry
INTO l_enqu_row;
CLOSE c_get_enquiry;
--get the latest supplier address
IF NOT c_get_address%ISOPEN THEN
OPEN c_get_address(l_supplier_id,'OFFICE');
END IF;
FETCH c_get_address
INTO l_addr_row;
CLOSE c_get_address;
--get current supplier and agent ids for enquiry
l_supplier_id := mip_enquiry.get_enquiry_role(l_enqu_row.id,'ENQ SUPP');
l_agent_id := mip_enquiry.get_enquiry_role(l_enqu_row.id,'ENQ OWN');
--supplier
IF NOT c_get_party%ISOPEN THEN
OPEN c_get_party(l_supplier_id);
END IF;
FETCH c_get_party
INTO l_party_row;
CLOSE c_get_party;
l_supplier_name := l_party_row.name;
--agent
IF NOT c_get_party%ISOPEN THEN
OPEN c_get_party(l_agent_id);
END IF;
FETCH c_get_party
INTO l_party_row;
CLOSE c_get_party;
l_agent_first_name := l_party_row.first_name;
l_agent_last_name := l_party_row.last_name;
l_quote_data.quote_ref := l_quote_row.id;
l_quote_data.transaction_ref := l_enqu_row.transaction_reference;
l_quote_data.mprn := l_enqu_row.mprn;
l_quote_data.supplier_address(1) := l_agent_first_name||' '||l_agent_last_name;
l_quote_data.supplier_address(2) := l_supplier_name;
l_quote_data.supplier_address(3) := l_addr_row.sub_building;
l_quote_data.supplier_address(4) := l_addr_row.building;
l_quote_data.supplier_address(5) := l_addr_row.street;
l_quote_data.supplier_address(6) := l_addr_row.city;
l_quote_data.supplier_address(7) := l_addr_row.postcode;
l_quote_data.current_date := sysdate;
l_quote_data.agent_first_name := l_agent_first_name;
l_quote_data.site_address(1) := l_enqu_row.install_sub_building;
l_quote_data.site_address(2) := l_enqu_row.install_building;
l_quote_data.site_address(3) := l_enqu_row.install_street;
l_quote_data.site_address(4) := l_enqu_row.install_city;
l_quote_data.site_address(5) := l_enqu_row.install_postcode;
--need to find out how to get the mam
l_quote_data.mam := get_mam(mip_regions.get_region_for_postcode(l_enqu_row.install_postcode));
--l_quote_data.mam := '<need to write routine to get mam>';
l_quote_data.lead_time := get_max_lead_time(l_quote_row.id);
l_quote_data.total_cost := get_total_cost(l_quote_row.id);
l_quote_data.requested_qmax := l_enqu_row.qmax;
--get individual quote item details
set_quote_items_data(l_quote_data, l_quote_row.id,l_enqu_row);
--get caveats
--determine_caveats call (this could be a procedure, depends on what GW gives us)
--phew, lets return all that lovely data we captured then...
return l_quote_data;
end get_detailed_quote_data;
/*
FUNCTION generate_detailed_quote_pdf
--This function should return a data populated pdf of the detailed quotation.
--The return value could be a pdf or reference to a pdf that it has stored in the system?
%param p_quote_data - the data to build into the quote.
%param possibly a few more params to get the required data in
*/
FUNCTION generate_detailed_quote_pdf(p_quote_data in quote_data) RETURN BOOLEAN is
l_blob blob;
l_indent number := 31.7;
l_vertical_offset number := 30;
l_font varchar2(40) := 'Arial';
l_contracts_text varchar2(500);
l_big_text varchar2(9000);
begin
-- Get the blob from somewhere
--Simple example to retrieve and use template:
-- Initialize PDF
plpdf.init;
plpdf.NewPage;
-- Slap on our data
plpdf.SetLeftMargin(31.7);
plpdf.SetRightMargin(31.7);
plpdf.SetTopMargin(25.4);
plpdf.SetPrintFont(l_font,null,7);
-- Set header stuff up
plpdf.PrintText(140,10,'4 Abbotts Lane ');
plpdf.PrintText(140,13,'Coventry');
plpdf.PrintText(140,16,'CV1 4AY');
plpdf.PrintText(170,10,'T +44 (0) 24 7628 6000');
plpdf.PrintText(170,13,'F +44 (0) 24 7628 6022');
plpdf.PrintText(170,16,'www.nationalgrid.com');
-- And Footer stuff
plpdf.PrintText(50,280,'National Grid Metering is the trading name for National Grid Metering Ltd.');
plpdf.PrintText(50,283,'Registered Office: 1-3 Strand, London, WCZN 5EH. Registered in England and Wales, No. 3705992');
plpdf.SetPrintFont(l_font,null,10); -- big text please
plpdf.PrintText(l_indent,l_vertical_offset+10,'National Grid Metering''s Ref: '|| to_char(p_quote_data.quote_ref));
plpdf.PrintText(l_indent,l_vertical_offset+14,'Customer Reference: '|| p_quote_data.transaction_ref);
plpdf.PrintText(l_indent,l_vertical_offset+18,'MPRN: '|| to_char(p_quote_data.mprn));
plpdf.PrintText(l_indent,l_vertical_offset+26,p_quote_data.supplier_address(1));
plpdf.PrintText(l_indent,l_vertical_offset+30,p_quote_data.supplier_address(2));
plpdf.PrintText(l_indent,l_vertical_offset+34,p_quote_data.supplier_address(3));
plpdf.PrintText(l_indent,l_vertical_offset+38,p_quote_data.supplier_address(4));
plpdf.PrintText(l_indent,l_vertical_offset+42,p_quote_data.supplier_address(5));
plpdf.PrintText(l_indent,l_vertical_offset+46,p_quote_data.supplier_address(6));
plpdf.PrintText(l_indent,l_vertical_offset+50,p_quote_data.supplier_address(7));
plpdf.PrintText(l_indent,l_vertical_offset+58,'Date: '||p_quote_data.current_date);
plpdf.PrintText(l_indent,l_vertical_offset+66,'Quotation Contact: Customer Services Team 1');
plpdf.PrintText(l_indent,l_vertical_offset+70,'Telephone Number: 02476 286 320');
plpdf.PrintText(l_indent,l_vertical_offset+74,'Fax Number: 02476 286 044');
plpdf.PrintText(l_indent,l_vertical_offset+78,'E-mail address: iandcrequests1@uk.ngrid.com');
plpdf.PrintText(l_indent,l_vertical_offset+90,'Dear '|| p_quote_data.agent_first_name); --agent first name
plpdf.SetPrintFont(l_font,'B',10); --set bold
plpdf.PrintText(l_indent,l_vertical_offset+98,'Re: '||p_quote_data.site_address(1)||', '||p_quote_data.site_address(2)||', '||p_quote_data.site_address(3)||', '||p_quote_data.site_address(4)||', '||p_quote_data.site_address(5)||', '||p_quote_data.site_address(6)||', '||p_quote_data.site_address(7)); --site address
plpdf.SetPrintFont(l_font,null,10); --unset bold
l_contracts_text :='I am pleased to provide you with a quotation for works in accordance with the '||p_quote_data.mam;--mam
l_contracts_text := l_contracts_text||' General Conditions of Contract for Transactional Meter Works not Exceeding 7 Bar.';
plpdf.SetCurrentY(l_vertical_offset+106);
plpdf.PrintFlowingText(6,l_contracts_text);
plpdf.LineBreak;
plpdf.LineBreak;
l_big_text := 'This quotation is produced on the basis that, the information provided in the request is correct. Your acceptance of the quotation will be taken to mean that you also accept that the stated assumptions are correct. If it is later determined, by either party prior to works commencing on site, that any stated assumption is significantly incorrect, National Grid Metering will determine whether the quotation shall be varied or withdrawn. Works will only then commence if any variation is agreed in line with the relevant General Conditions of Contract.';
plpdf.PrintFlowingText(6,l_big_text);
plpdf.LineBreak;
plpdf.LineBreak;
l_big_text := 'To accept the quotation please submit a work request via IX, as outlined in the Rainbow Manual, or complete the enclosed Acceptance Form and return it to the above National Grid Metering office.';
plpdf.PrintFlowingText(6,l_big_text);
plpdf.LineBreak;
plpdf.LineBreak;
l_big_text := 'Please note that this quotation is valid for 90 days from the date specified in the quotation. Please use National Grid Metering''s Reference, which is at the top of the letter, on any future correspondence relating to this request.';
plpdf.PrintFlowingText(6,l_big_text);
plpdf.LineBreak;
plpdf.LineBreak;
plpdf.PrintFlowingText(6,'If you have any queries, please contact the team on the number above');
plpdf.LineBreak;
plpdf.LineBreak;
plpdf.PrintFlowingText(6,'Yours sincerely');
plpdf.PrintText(l_indent,l_vertical_offset+230,'David Harper');
plpdf.PrintText(l_indent,l_vertical_offset+234,'I&C Technical Manager');
plpdf.PrintText(l_indent,l_vertical_offset+238,'National Grid Metering');
----Das page one complete
plpdf.NewPage;
plpdf.SetPrintFont(l_font,'B',10); --set bold
plpdf.PrintText(l_indent,l_vertical_offset+10,'QUOTATION');
plpdf.SetPrintFont(l_font,null,10); --unset bold
plpdf.PrintText(l_indent,l_vertical_offset+18,'National Grid Metering''s Ref: '|| to_char(p_quote_data.quote_ref));
plpdf.PrintText(l_indent,l_vertical_offset+22,'Customer Reference: '|| p_quote_data.transaction_ref);
plpdf.PrintText(l_indent,l_vertical_offset+30,'Date: '||p_quote_data.current_date);
plpdf.SetPrintFont(l_font,'B',10); --set bold
plpdf.PrintText(l_indent,l_vertical_offset+38,'Re: '||p_quote_data.site_address(1)||', '||p_quote_data.site_address(2)||', '||p_quote_data.site_address(3)||', '||p_quote_data.site_address(4)||', '||p_quote_data.site_address(5)||', '||p_quote_data.site_address(6)||', '||p_quote_data.site_address(7)); --site address
plpdf.SetPrintFont(l_font,'U',10); --set underline
plpdf.PrintText(l_indent,l_vertical_offset+48,'Full Description of Works to be carried out by National Grid Metering:');
plpdf.SetPrintFont(l_font,'B',10); --set bold
plpdf.PrintText(l_indent,l_vertical_offset+56, p_quote_data.quote_works(1));
plpdf.PrintText(l_indent,l_vertical_offset+60, p_quote_data.quote_works(2));
plpdf.PrintText(l_indent,l_vertical_offset+64, p_quote_data.quote_works(3));
plpdf.PrintText(l_indent,l_vertical_offset+68, p_quote_data.quote_works(4));
plpdf.PrintText(l_indent,l_vertical_offset+72, p_quote_data.quote_works(5));
plpdf.PrintText(l_indent,l_vertical_offset+76, p_quote_data.quote_works(6));
plpdf.SetPrintFont(l_font,null,10); --unset bold
plpdf.PrintText(l_indent,l_vertical_offset+90, 'Indicative Lead Time from Acceptance to Physical Commencement: ');
plpdf.SetPrintFont(l_font,'B',10); --set bold
plpdf.PrintText(140,l_vertical_offset+90, p_quote_data.lead_time||' working days');
--get our beautiful pdf into the local var l_blob
plpdf.SendDoc(l_blob);
--punt the created pdf into the testpdf table
insert into testpdf (id, pdf_report)
values (11, l_blob);
return true;
end generate_detailed_quote_pdf;
FUNCTION build_detailed_quote(p_enquiryid in number) RETURN BOOLEAN is
begin
null;
end build_detailed_quote;
BEGIN
-- Initialization
NULL;
END mip_quotation_document;
/
Reference in New Issue View Git Blame Copy Permalink