CREATE OR REPLACE FUNCTION insert_update_pietro_plan( sTmp text, sKey text )
  RETURNS void AS
$BODY$
declare
  _plan_odczytany integer;
  _lotus_unid text;
  _lotus_value text;
  r record;
  fIndex integer;
  lIndex integer;
  iKey text;
  _insert_str text;
  _update_str text;

begin
  _lotus_unid := ( strMiddle( sTmp, '<' & sKey & '>', '</' & sKey & '>') )  ;
  _plan_odczytany := ( select count(*) from pietro_plan where parent_id = _lotus_unid )  ;
if _plan_odczytany = 0  then

_insert_str := ( INSERT INTO pietro_plan VALUES ('%parent_id%' , '%zam_nr%' ,  '%zam_klient%' , '%mat_ilosc_rol%' , '%mat_indeks_id%' , '%wyk%' , '%mat_cecha_szer%'
, '%mat_cecha_dlug%', '%mat_cecha_gram%', '%mat_norma_zuzycia_obl_kg%', substring('%mat_data_rok%',1,4), substring('%mat_data_msc%',1,2), substring('%ws_data_start_pelny%',1,2)
, substring('%ws_hour_start_pelny%',1,10), '%parent_indeks_id%', '%parent_indeks_opis%', to_date('%@Created%', 'YYYY-MM-DD'), to_date('%data_realizacji_prod%', 'YYYY-MM-DD'), '%unid_id%')
 );

FOR r IN ( select trim( unnest( string_to_array(sTmp, '</br>') ) ) as res ) LOOP

	lIndex := (SELECT position('>' in r.res));
        iKey := (select substring ( r.res, 2, lIndex - 2 ));
        _lotus_value:= strMiddle( r.res, '<' & iKey & '>', '</' & iKey & '>'); 

        _insert_str := ( replace( _insert_str, '%' & iKey &'%', _lotus_value) );
        
    END LOOP;

    select _insert_str;

else

update pietro_plan set data_realizacji_prod = to_date( strMiddle( sTmp, '<data_realizacji_prod>', '</data_realizacji_prod>'), 'YYYY-MM-DD')
where unid_id = _lotus_unid;

end if ;

end
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;
ALTER FUNCTION insert_update_pietro_plan(text)
  OWNER TO postgres;

_insert_str := ( 'INSERT INTO pietro_plan VALUES (''%parent_id%'' , ''%zam_nr%'' ,  ''%zam_klient%'' , ''%mat_ilosc_rol%'' , ''%mat_indeks_id%'' , ''%wyk%'' , ''%mat_cecha_szer%''
, ''%mat_cecha_dlug%'', ''%mat_cecha_gram%'', ''%mat_norma_zuzycia_obl_kg%'', substring(''%mat_data_rok%'',1,4), substring(''%mat_data_msc%'',1,2), substring(''%ws_data_start_pelny%'',1,2)
, substring(''%ws_hour_start_pelny%'',1,10), ''%parent_indeks_id%'', ''%parent_indeks_opis%'', to_date(''%@Created%'', ''YYYY-MM-DD''), to_date(''%data_realizacji_prod%'', ''YYYY-MM-DD''), ''%unid_id%'')'
 );