<?php
 /****************************/
 require_once("elah2.php"); // внутрення разработка, чтобы залогиниться и запоролиться
 /****************************/
  ERROR_REPORTING(0+1+2+3+4+5);
 /****************************/
    /* ЭТИ ПЕРЕМЕННЫЕ ПРИХОДЯТ ПО URL из другого файла, в котором они выведены в строку через join! */
     $mas_pp451=array();
     $mas_pp451=split(':',$mp451);
     /* --------- -------------- -------------- */
     $mas_pp451t=array();
     $mas_pp451t=split(':',$mp451t);
     /* ------------------------------------------------------ */
     $mas_pcl32=array();
     $mas_pcl32=split(':',$mcl32);
     /* --------- ------------------------------------------- */
     $mas_pcl32t=array();
     $mas_pcl32t=split(':',$mcl32t);
     /* ------------------------------------------------------ */
     $mas_pcl33=array();
     $mas_pcl33=split(':',$mcl33);
     /* --------- -------------------------------------------- */
     $mas_pcl33t=array();
     $mas_pcl33t=split(':',$mcl33t);
     /* ------------------------------------------------------ */
     $mas_pkk=array();
     $mas_pkk=split(':',$kk);
     /* ------------------------------------------------------ */
     $mas_pp704=array();
     $mas_pp704=split(':',$p704);
     /* ------------------------------------------------------ */
 

/***************************/ 
     $db='DDB'; // сервер базы данных
     $conn=Connect($db);
/****************************/

/* ------------------------------------------------------ */
     $m=array();

     for ($i=0; $i<count($mas_pp451); $i++) {
      
      $m=$mas_pp451[$i];      
      $mt=$mas_pp451t[$i];
      $cl32=$mas_pcl32[$i];
      $cl32t=$mas_pcl32t[$i];
      $cl33=$mas_pcl33[$i];
      $cl33t=$mas_pcl33t[$i];
      $kk = $mas_pkk[$i];
      $p704 = $mas_pp704[$i];
      /////////////////////////////////////////////////////
/*  КОД НИЖЕ НУЖЕН ДЛЯ ПЕРЕВОДА ИЗ ОДНОЙ КОДИРОВКИ В ДРУГУЮ */
      $r_p451='A'.$m;
      $r_p451t='A'.$mt;
      $r1_p451=@iconv("UTF-8", "KOI8-R", $r_p451);
      $r_p451=((!empty($r1_p451)) ? $r1_p451 : $r_p451);
      $r_p451=substr($r_p451,1);
      $rp451=$r_p451;

      $r1_p451t=@iconv("UTF-8", "KOI8-R", $r_p451t);
      $r_p451t=((!empty($r1_p451t))?$r1_p451t:$r_p451t);
      $r_p451t=substr($r_p451t,1);
      $rp451t=$r_p451t;
      //////////////////////////////////////////////////////

/* А ТУТ НАЧИНАЕТСЯ АБРА-КАДАБРА...................... */

$st=OCIParse($conn,"
             DECLARE
S_CE72 AB250.AE990H01.CE73%TYPE;
S_CE73 AB250.AE990H01.CE73%TYPE;
S_P451 AB250.AE990H01.P451%TYPE;
S_X703 AB250.AE990H01.X703%TYPE;
S_P704 AB250.AE990H01.P704%TYPE;
S_X368 AB250.AE990H01.X368%TYPE;
S_CL32 AB250.AE990H01.CL32%TYPE;
S_CL33 AB250.AE990H01.CL33%TYPE; 

S_CE72_NEW AB250.AE990H01.CE72%TYPE;
S_CE73_NEW AB250.AE990H01.CE73%TYPE;
S_P451_NEW AB250.AE990H01.P451%TYPE;
S_P704_NEW AB250.AE990H01.P704%TYPE;
S_X368_NEW AB250.AE990H01.X368%TYPE;
S_CL32_NEW AB250.AE990H01.CL32%TYPE;
S_CL33_NEW AB250.AE990H01.CL33%TYPE; 


BEGIN
     
  S_P451_NEW:=UPPER($rp451);
  S_CL32_NEW:=$cl32;
  S_CL33_NEW:=$cl33;
  S_X368_NEW:=trunc(sysdate);
   
  S_P704_NEW:=$p704;
 ------------------
 IF $kk=3 THEN
  SELECT CE72,CE73,P451,X703,P704,X368,CL32,CL33
   INTO S_CE72,S_CE73,S_P451,S_X703,S_P704,S_X368,S_CL32,S_CL33
    FROM AB250.AE990H01
    WHERE P451=$rp451t and CL32=$cl32t and CL33=$cl33t; 
 
INSERT INTO AB250.AB250H02
          (CE72,CE73,P451,X703,P704,X368,CL32,CL33)
  VALUES(S_CE72,S_CE73,S_P451_NEW ,'3',S_P704_NEW,S_X368_NEW,S_CL32_NEW,S_CL33_NEW);
  ------------------
  END IF;
  COMMIT; 
 END;
END; ");


      /* 
      // Этот вариант не сработал, поэтому значения подставлял напрямую через пхп переменные
      OCIBindByName ($st,":rp451",&$rp451,20);
      OCIBindByName ($st,":rp451t",&$rp451t,20);
      OCIBindByName ($st,":cl32",&$cl32,8);
      OCIBindByName ($st,":cl32t",&$cl32t,8);
      OCIBindByName ($st,":cl33",&$cl33,2);
      OCIBindByName ($st,":cl33t",&$cl33t,2);
      OCIBindByName ($st,":kk",&$kk,1);
      OCIBindByName ($st,":v_p704",&$v_p704,7);
      */
      
      OCIExecute($st);
   
  
      } // заканчивается for
    
     Disconnect($conn);
?>

$st=OCIParse($conn,
"DECLARE".
"S_CE72 AB250.AE990H01.CE73%TYPE;".
"S_CE73 AB250.AE990H01.CE73%TYPE;".
"S_P451 AB250.AE990H01.P451%TYPE;".
"S_X703 AB250.AE990H01.X703%TYPE;".
"S_P704 AB250.AE990H01.P704%TYPE;".
"S_X368 AB250.AE990H01.X368%TYPE;".
"S_CL32 AB250.AE990H01.CL32%TYPE;".
"S_CL33 AB250.AE990H01.CL33%TYPE; ".