superedit-KSIEG_DOKUMENTY_ZASOB1182_SUBIEKT_MSSQL_IMPORT.php 32 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876
  1. <?php
  2. function KSIEG_DOKUMENTY_ZASOB1182_SUBIEKT_MSSQL_IMPORT() {
  3. ?>
  4. <html>
  5. <head>
  6. <style type="text/css">
  7. element {
  8. }
  9. element1 {
  10. }
  11. </style>
  12. </head>
  13. </html><?php
  14. //Plan dzialania - skrypt KSIEG_DOKUMENTY_ZASOB1182_SUBIEKT_MSSQL_IMPORT.php
  15. // I - import z subiekta - koszty
  16. //1. Import z SUBIEKTA do FAKTUR wszelkich faktur kosztowych -> ID_PROJECT
  17. //
  18. //2. Import z Subiekta do FAKTUR wszelkich wielkosci amortyzacji -> ID_PROJECT (inwestycje)
  19. //3. Import z Subiekta do FAKTUR wszelkich wielkosci nakladow -> ID_PROJECT - (wielkosci nadane na konta 0-80)
  20. // II - analiza sprzedazy
  21. //1. Nalezy w SERVICES dac znacznik ID_PROJECT i powiazac jego nadawanie z identyfikacja typu zasobu mieszkaniowego
  22. // III - do wdrozenia w "http://se.dev.webone.pl/budynki.php?ANALIZA_HISTORII_USERS2=1"
  23. //(1). Nalezy importowac sprzedaz do analizy czynnikow w innych skryptach ( analiza )
  24. //(2). Nalezy w systemach analizowac parametry wspolczynniki
  25. //(3). HP-HC/ID_PROJECT ( Podlaczeni do Zasiegu sieci) - na podstawie telboxes--U2_marketing - TARGET HANDLOWY/
  26. //(4). Naklady/HC (Naklady do ilosci abonentow) - TARGET INWESTYCJI
  27. //(5). Naklady/Suma calkowitej sprzedazy + suma aktualnych kontraktow (wartosci podpisane)/ID_PROJECT - TARGET HANDLOWY
  28. //(6). Wydatki calego marketingu - Pracownicy, reklamy, (sprawy podlegle pod marketing) (minus) Cala wartosc nowej sprzedazy * wspolczynnik , jezeli wiecej niz 3000 PLN, to jest to premia dla dzialu marketingowego TARGET HANDLOWY
  29. if ($_FILES["file1182"]["error"] > 0)
  30. {
  31. echo "Error: " . $_FILES["file1182"]["error"] . "<br />";
  32. print_r($_FILES);
  33. }
  34. else if(isset($_FILES["file1182"]["name"]))
  35. {
  36. echo "Upload: " . $_FILES["file1182"]["name"] . "<br />";
  37. echo "Type: " . $_FILES["file1182"]["type"] . "<br />";
  38. echo "Size: " . ($_FILES["file1182"]["size"] / 1024) . " Kb<br />";
  39. echo "Stored in: " . $_FILES["file1182"]["tmp_name"];
  40. /*
  41. //$ourFileName = "testFile.txt";
  42. $fh = fopen($_FILES["file1182"]["tmp_name"], 'r') or die("Can't open file");
  43. $theData = fread($fh, filesize($_FILES["file1182"]["tmp_name"]));
  44. fclose($fh);
  45. echo "<br>the data is<br>\n";
  46. //echo $theData;
  47. echo "<br>the data was<br>\n";
  48. fclose($fh);
  49. */
  50. $xml = simplexml_load_file($_FILES["file1182"]["tmp_name"]);
  51. //tutaj kasujemy stare importy
  52. if(isset($xml)) {
  53. $ZAP_SQL="delete from KSIEG_DOKUMENTY where
  54. unix_timestamp(DATA_DOK)>unix_timestamp('".$_REQUEST['START_ROK']."-".$_REQUEST['START_MIESIAC']."-".$_REQUEST['START_DZIEN']."') and
  55. unix_timestamp(DATA_DOK)<unix_timestamp('".$_REQUEST['KONIEC_ROK']."-".$_REQUEST['KONIEC_MIESIAC']."-".$_REQUEST['KONIEC_DZIEN']."')
  56. and TYP_DOKUMENTU='IMPORT' ;
  57. ";
  58. include(".config.php");
  59. // ZAP_SQL('select 1+1');
  60. ZAP_SQL($ZAP_SQL);
  61. echo "<br>".$ZAP_SQL;
  62. // print_r($_SESSION);
  63. }
  64. echo "<pre>";
  65. // var_dump($xml);
  66. // print_r($xml->FormattedReport->FormattedAreaPair->FormattedAreaPair->FormattedArea);
  67. // foreach($xml->FormattedReport->FormattedAreaPair->FormattedAreaPair->FormattedArea as $A => $V ) {
  68. echo "<table border=1>";
  69. echo "<tr><td>Konto:</td><td>Opis Konta</td><td>BO Wn</td><td> BO Ma</td><td> Obroty Wn </td><td>Obroty Ma </td><td>Obroty NWn </td><td>Obroty NMa</td><td>
  70. Saldo Wn </td><td>Saldo Ma</td></tr>";
  71. foreach($xml->FormattedAreaPair->FormattedAreaPair as $A2 => $V2) {
  72. // echo "<tr><td>A1:".$A1." </td></tr>\n";
  73. foreach($V2->FormattedArea->FormattedSections->FormattedSection->FormattedReportObjects->FormattedReportObject as $A => $V ) {
  74. // echo "###1 A:".$A." \n V: ".$V->ObjectName."\n";
  75. // echo "A:".$A." \n V: ".$V->FormattedValue."\n";
  76. // echo "A:".$A." \n V: ".$V->Value."\n";
  77. //print_r($V);
  78. $INDNAME=(string)$V->ObjectName;
  79. $KDI[$INDNAME]=$V->Value;
  80. }
  81. // print_r($KD);
  82. echo "<tr><td>".$KDI['z1f1']."</td><td>".$KDI['Field2']."</td><td>".$KDI['Field3']."</td><td>".$KDI['Field4']."</td>
  83. <td>".$KDI['Field5']."</td><td>".$KDI['Field6']."</td><td>".$KDI['Field7']."</td><td>".$KDI['Field8']."</td><td>
  84. ".$KDI['Field9']."</td><td>".$KDI['Field10']."</td></tr>";
  85. unset($KD);
  86. foreach($V2->FormattedAreaPair as $A3 => $V3) {
  87. foreach($V3->FormattedArea->FormattedSections->FormattedSection->FormattedReportObjects->FormattedReportObject as $A => $V ) {
  88. /// echo " ###2 A:".$A." \n V: ".$V->ObjectName."\n";
  89. // echo "A:".$A." \n V: ".$V->FormattedValue."\n";
  90. /// echo " A:".$A." \n V: ".$V->Value."\n";
  91. //print_r($V);
  92. $INDNAME=(string)$V->ObjectName;
  93. $KD[$INDNAME]=$V->Value;
  94. }
  95. echo "<tr><td>".$KD['Field44']."</td><td>".$KD['Field45']."</td><td>".$KD['Field46']."</td><td>".$KD['Field47']."</td>
  96. <td>".$KD['Field48']."</td><td>".$KD['Field49']."</td><td>".$KD['Field50']."</td><td>"."</td><td>
  97. "."</td><td>"."</td></tr>";
  98. //print_r($KD);
  99. if(($KD['Field44']<>'BO-1')||(!isset($_REQUEST['IGNORE_BO']))) {
  100. if(strlen($KD['Field46'])>strlen($KD['Field47'])) {
  101. //echo "<br>\n WINIEN";
  102. $WINIEN_MA='WINIEN';
  103. $KWOTA=$KD['Field46'];
  104. } else {
  105. $WINIEN_MA='MA';
  106. $KWOTA=$KD['Field47'];
  107. }
  108. $ZAP_SQL="insert into KSIEG_DOKUMENTY (A_RECORD_CREATE_DATE,A_RECORD_CREATE_AUTHOR, DATA_DOK, NUMER_DOK , SPRZEDAWCA ,
  109. ID_SPRZEDAWCA , ILOSC , CENA_JEDN_NETTO , STAWKA_VAT , wartosc , CZY_URZADZENIE , TYP_DOKUMENTU, ID_PROJECT, ID_BUDZET,A_STATUS,KONTO_KSIEG , WINIEN_MA) values (
  110. now() , '".$_SESSION['AUTHORIZE_USER']."' ,
  111. '".$KD['Field45']."','".$KD['Field44']."--".$KD['Field48']."',
  112. 'SPRZEDAWCA','ID_SPRZEDAWCA','1','".$KWOTA."','0','".$KWOTA."','NOT_DEVICE',
  113. 'IMPORT','ID_PROJECT','ID_BUDZET','NORMAL','".$KDI['z1f1']."', '".$WINIEN_MA."')";
  114. // echo "<br>\n".$ZAP_SQL;
  115. ZAP_SQL($ZAP_SQL);
  116. //die();
  117. }
  118. unset($KD);
  119. }
  120. }
  121. //foreach($xml->FormattedAreaPair as $a=>$b) {
  122. // echo $a,'="',$b,"\"\n";
  123. //}
  124. echo "</pre>";
  125. }
  126. //print_r($_FILES);
  127. //phpinfo();
  128. SEF('TRIM_ZERO');
  129. if($_REQUEST['UPDATE_MAPA_DEKRETOW']) {
  130. // $ZAP_SQL="update KSIEG_DOKUMENTY set ID_BUDZET='39-INWESTYCJE' where
  131. // and TYP_DOKUMENTU='IMPORT' ";
  132. ZAP_SQL('select 1+1;');
  133. $ZAP_SQL="select * from KSIEG_DOKUMENTY where TYP_DOKUMENTU='IMPORT'
  134. and ( KONTO_KSIEG like 'XXXX011-%' or
  135. KONTO_KSIEG like '071-%' or
  136. KONTO_KSIEG like '080-%' or
  137. KONTO_KSIEG like 'XXXX138-%' or
  138. KONTO_KSIEG like 'XXXX139-%' or
  139. KONTO_KSIEG like '2%-%' or
  140. KONTO_KSIEG like '310-%' or
  141. KONTO_KSIEG like 'XXXX202-%' or
  142. KONTO_KSIEG like 'XXXX220-%' or
  143. KONTO_KSIEG like 'XXXX221-%' or
  144. KONTO_KSIEG like 'XXXX230-%' or
  145. KONTO_KSIEG like '750-%' or
  146. KONTO_KSIEG like '751-%' or
  147. KONTO_KSIEG like '761-%' or
  148. KONTO_KSIEG like '703-%' or
  149. KONTO_KSIEG like '4%-%' ) ; ";
  150. $r=mysql_query($ZAP_SQL) or die('Error z zap_sql'.$ZAP_SQL);
  151. echo "<pre>";
  152. while($h=mysql_fetch_array($r)) {
  153. echo "\n";
  154. echo "/".$h['ID'];
  155. echo "/".$h['DATA_DOK'];
  156. echo "/".$h['KONTO_KSIEG'];
  157. echo "/".$h['ID_PROJECT'];
  158. echo "/".$h['BUDZET'];
  159. echo "/".$h['ID_BUDZET'];
  160. if(isset($t)) unset($t);
  161. //preg_match_all("/^([[:digit:]]{2,5}-/", $h['KONTO_KSIEG'], $matches, PREG_SET_ORDER);
  162. $m=explode('-',$h['KONTO_KSIEG']);
  163. $m[0]=TRIM_ZERO($m[0]);
  164. $m[1]=TRIM_ZERO($m[1]);
  165. if(($m[0]>=310)&&($m[0]<=310)) { //konta 4xx
  166. // $t['ID_BUDZET']=TRIM_ZERO($m[2]);
  167. // $t['ID_PROJECT']=TRIM_ZERO($m[3]);
  168. $t['KONTO_SYN']=$m[0];
  169. } else if(($m[0]>=400)&&($m[0]<=499)) { //konta 4xx
  170. if($m[3]=="0000")$m[3]=$m[2];
  171. $t['ID_BUDZET']=TRIM_ZERO($m[2]);
  172. $t['ID_PROJECT']=TRIM_ZERO($m[3]);
  173. $t['KONTO_SYN']=$m[0][0];
  174. } else if(($m[0]>=71)&&($m[0]<=71)) { //konta 80
  175. $t['KONTO_SYN']=TRIM_ZERO($m[0]);
  176. //$t['ID_BUDZET']=TRIM_ZERO($m[2]);
  177. // $t['ID_PROJECT']=TRIM_ZERO($m[1]);
  178. //print_r($m);
  179. } else if(($m[0]>=80)&&($m[0]<=80)) { //konta 80
  180. $t['KONTO_SYN']=TRIM_ZERO($m[0]);
  181. //$t['ID_BUDZET']=TRIM_ZERO($m[2]);
  182. $t['ID_PROJECT']=TRIM_ZERO($m[1]);
  183. //print_r($m);
  184. } else if(($m[0]>=201)&&($m[0]<=201)) { //naleznosci od klientow 201
  185. $t['KONTO_SYN']=TRIM_ZERO($m[0]);
  186. //$t['ID_BUDZET']=TRIM_ZERO($m[2]);
  187. if($h['WINIEN_MA']=='WINIEN') $t['201_WINIEN']=$h['wartosc'];
  188. if($h['WINIEN_MA']=='MA') $t['201_MA']=$h['wartosc'];
  189. //print_r($m);
  190. } else if(($m[0]>=202)&&($m[0]<=299)) { //naleznosci od dostawcow 202
  191. $t['KONTO_SYN']=TRIM_ZERO($m[0]);
  192. if($h['WINIEN_MA']=='WINIEN') $t['202_WINIEN']=$h['wartosc'];
  193. if($h['WINIEN_MA']=='MA') $t['202_MA']=$h['wartosc'];
  194. } else if(($m[0]>=703)&&($m[0]<=703)) { //odsetki od kredytow i odsetki
  195. $t['KONTO_SYN']=TRIM_ZERO($m[0]);
  196. } else if(($m[0]>=750)&&($m[0]<=750)) { //pozostale koszty operacyjne
  197. $t['KONTO_SYN']=TRIM_ZERO($m[0]);
  198. } else if(($m[0]>=751)&&($m[0]<=751)) { //pozostale koszty operacyjne
  199. $t['KONTO_SYN']=TRIM_ZERO($m[0]);
  200. } else if(($m[0]>=761)&&($m[0]<=761)) { //pozostale koszty operacyjne
  201. $t['KONTO_SYN']=TRIM_ZERO($m[0]);
  202. //$t['ID_BUDZET']=TRIM_ZERO($m[2]);
  203. if($h['WINIEN_MA']=='WINIEN') $t['202_WINIEN']=$h['wartosc'];
  204. if($h['WINIEN_MA']=='MA') $t['202_MA']=$h['wartosc'];
  205. //print_r($m);
  206. } else if(($m[0]>=751)&&($m[0]<=751)) { //odsetki od kredytow i odsetki
  207. $t['KONTO_SYN']=TRIM_ZERO($m[0]);
  208. //$t['ID_BUDZET']=TRIM_ZERO($m[2]);
  209. if($h['WINIEN_MA']=='WINIEN') $t['202_WINIEN']=$h['wartosc'];
  210. if($h['WINIEN_MA']=='MA') $t['202_MA']=$h['wartosc'];
  211. //print_r($m);
  212. }
  213. //print_r($t);
  214. if(isset($t)) { //update do bazy
  215. $ZAP_UPD="update KSIEG_DOKUMENTY set KONTO_SYN='".$t['KONTO_SYN']."', ID_BUDZET='".$t['ID_BUDZET']."' , ID_PROJECT='".$t['ID_PROJECT']."' ,
  216. 201_WINIEN='".$t['201_WINIEN']."', 201_MA='".$t['201_MA']."' ,
  217. 202_WINIEN='".$t['202_WINIEN']."' , 202_MA='".$t['202_MA']."' where ID='".$h['ID']."' limit 1";
  218. //echo "\n ".$ZAP_UPD;
  219. ZAP_SQL($ZAP_UPD);
  220. }
  221. }
  222. echo "</pre>";
  223. }
  224. if($_REQUEST['ANALIZUJ_PLYNNOSC_KONT_2XX']) {
  225. echo "<pre>";
  226. //1. Budowa tabeli slownikowej INDEKS24
  227. echo "<br>//Tworze slownikowa tabele od 0 do 24 miesiecy w przeszlosc\n";
  228. $ZAP_SQL=" drop table if exists INDEKS24 ;"; //echo "<br> $ZAP_SQL <br>\n";
  229. ZAP_SQL($ZAP_SQL);
  230. $ZAP_SQL=" create table INDEKS24 (ID int(3) , DATA date ) ;";
  231. // echo "<br> $ZAP_SQL <br>\n";
  232. ZAP_SQL($ZAP_SQL);
  233. $i=-24;
  234. $LP=24;
  235. while ($i < 48 ) {
  236. $i++;
  237. $LP--;
  238. //echo "Nas z miesiac to $i<br>";
  239. $ZAP_SQL="insert into INDEKS24 SELECT '".$LP."', DATE_FORMAT(concat(PERIOD_ADD( DATE_FORMAT(now(), '%Y%m') ,-$i),'01'),'%Y-%m-%d'); ";
  240. ZAP_SQL($ZAP_SQL);
  241. // echo " $ZAP_SQL \n <br>";
  242. //EOF Tworze slownikowa tabele od 0 do 24
  243. }
  244. ZAP_SQL("select t1.ID as LP , t1.DATA as DATA , count(t2.ID) as COUNT,
  245. t2.ID, t2.DATA_DOK, t2.KONTO_KSIEG, t2.wartosc, t2.TYP_DOKUMENTU, t2.ID_PROJECT, t2.WINIEN_MA ,
  246. sum(201_WINIEN) as A201_WINIEN_S , sum(201_MA) as A201_MA_S ,
  247. sum(202_WINIEN) as A202_WINIEN_S , sum(202_MA) as A202_MA_S
  248. from INDEKS24 as t1
  249. left join KSIEG_DOKUMENTY as t2 on ( YEAR(t1.DATA)=year(t2.DATA_DOK) and MONTH(t1.DATA)=MONTH(t2.DATA_DOK) )
  250. where t2.TYP_DOKUMENTU='IMPORT' or t2.TYP_DOKUMENTU is NULL or TYP_DOKUMENTU='IMPORT-KOSZTORYS'
  251. group by year(t1.DATA) , month(t1.DATA)
  252. order by t1.ID "); //, t2.ID_PROJECT,t2.KONTO_SYN
  253. echo "<table border=1>";
  254. echo "<tr><td>LP</td><td>DATA</td><td>COUNT</td><td>KONT_KSIEG</td>
  255. <td>ID_PROJECT</td><td>A201_WINIEN_S</td><td>A201_MA_S</td><td>A202_WINIEN_S</td>
  256. <td>A202_MA_S</td><td>ZOB_KLIENT</td>
  257. <td>ZOB_DOST</td> <td>ZOB_ALL</td>
  258. <td>ZOB_KLIENT_S</td><td>ZOB_DOST_S</td><td>ZOB_ALL_S</td>
  259. </tr>";
  260. while ($h=mysql_fetch_object($result )) {
  261. echo "\n";
  262. //print_r($h);
  263. $ZOB_KLIENT=$h->A201_WINIEN_S-$h->A201_MA_S;
  264. $ZOB_DOST=$h->A202_WINIEN_S-$h->A202_MA_S;
  265. $ZOB_ALL=$ZOB_DOST-$ZOB_KLIENT;
  266. $ZOB_KLIENT_S+=$ZOB_KLIENT;
  267. $ZOB_DOST_S+=$ZOB_DOST;
  268. $ZOB_ALL_S+=$ZOB_ALL;
  269. echo "<tr><td>".$h->LP."</td><td>".$h->DATA."</td><td>".$h->COUNT."</td><td>".$h->KONT_KSIEG."</td>
  270. <td>".$h->ID_PROJECT."</td><td>".$h->A201_WINIEN_S."</td><td>".$h->A201_MA_S."</td><td>".$h->A202_WINIEN_S."</td>
  271. <td>".$h->A202_MA_S."</td><td>".$ZOB_KLIENT."</td>
  272. <td>".$ZOB_DOST."</td> <td>".$ZOB_ALL."</td>
  273. <td>".$ZOB_KLIENT_S."</td><td>".$ZOB_DOST_S."</td><td>".$ZOB_ALL_S."</td>
  274. </tr>";
  275. }
  276. echo "</table>";
  277. echo "\n </pre>";
  278. } //eof if($_REQUEST['ANALIZUJ_PLYNNOSC_KONT_2XX']) {
  279. if($_REQUEST['AKTUALIZACJA_ZAMOWIEN_ZD_SUBIEKT']) {
  280. echo "<pre>";
  281. echo "<br>Lacze sie do bazy IS";
  282. $db=mssql_connect($CNF_ZASOB['1182']['INTERFACE_ADDR'],$CNF_ZASOB['1182']['SQL_USER'],$CNF_ZASOB['1182']['SQL_USER_PASS']);
  283. mssql_select_db($CNF_ZASOB['1182']['SQL_DATABASE'],$db);
  284. $query="select *, CONVERT(varchar(10), dok_DataWyst , 20) as dok_DataWyst ,
  285. CONVERT(varchar(10), dok_DataMag , 20) as dok_DataMag ,
  286. CONVERT(varchar(10), dok_PlatTermin , 20) as dok_PlatTermin ,
  287. CONVERT(varchar(10), dok_TerminRealizacji , 20) as dok_TerminRealizacji
  288. from dok__Dokument where dok_NrPelny like 'ZD%' ; ";
  289. //$query=" convert(datetime, '2016-10-23 20:44:11.500', 121)";
  290. ZAP_SQL("delete from KSIEG_DOKUMENTY where TYP_DOKUMENTU='IMPORT-KOSZTORYS' ");
  291. $R=mssql_query($query);
  292. while ($r=mssql_fetch_object($R)) {
  293. //print_r($r);
  294. if(isset($t)) unset($t);
  295. //list('',$t['ID_PROJECT_GUESS'])=
  296. list(,$t['ID_PROJECT_SGT'])=explode('/',$r->dok_NrPelny);
  297. $ZAP_SQL="select ID from IN7_MK_BAZA_DYSTRYBUCJI where ID like '".$t['ID_PROJECT_SGT']."'";// echo "\n".$ZAP_SQL;
  298. //if($t['ID_PROJECT_SGT'])
  299. ZAP_SQL($ZAP_SQL);
  300. // $RES=mysql_fetch_array($result);
  301. // print_r($RES);
  302. list($t['ID_PROJECT_GUESS'])=mysql_fetch_array($result);
  303. if($t['ID_PROJECT_GUESS']==$t['ID_PROJECT_SGT']) $t['ID_PROJECT']=$t['ID_PROJECT_GUESS'];
  304. $ZAP_SQL="select ID from IN7_MK_BAZA_DYSTRYBUCJI where M_DIST_DESC like '%(magazyn_".$t['ID_PROJECT_SGT'].")%'";
  305. if(!isset($t['ID_PROJECT'])) ZAP_SQL($ZAP_SQL);
  306. list($t['ID_PROJECT_GUESS'])=mysql_fetch_array($result);
  307. if(mysql_num_rows($result)>1) die("<br> Za duzo powiazanych projektow o tym samym oznaczeniu magazynu w opisie : ".$t['ID_PROJECT_SGT'].".<br>Dokument : ".$r->dok_NrPelny."<br> w opisie projektu musi byc tylko 1 magazyn opisany w sposob : (magazyn ".$t['ID_PROJECT_SGT']."), a jest:".mysql_num_rows($result));
  308. if($t['ID_PROJECT_GUESS']) $t['ID_PROJECT']=$t['ID_PROJECT_GUESS'];
  309. if(!isset($t['ID_PROJECT'])) die("<br> Nie mozna rozpoznac magazynu dla rekordu ze wskazanym magazynem : ".$t['ID_PROJECT_SGT'].".<br>Dokument : ".$r->dok_NrPelny."<br> w opisie projektu musi byc magazyn opisany w sposob : (magazyn ".$t['ID_PROJECT_SGT'].")");
  310. //tu szukamy glownego numeru sprawy budzetu!
  311. $safe=10;
  312. if($t['ID_PROJECT']) $t['ID_PROJECT_GUESS']=$t['ID_PROJECT'];
  313. $t['ID_PROJECT_ROOT_GUESS']=$t['ID_PROJECT_GUESS'];$t['ID_PROJECT_ROOT_LAST']=$t['ID_PROJECT_ROOT_GUESS'];
  314. while($safe>0) {
  315. $ZAP_SQL="select P_ID from IN7_MK_BAZA_DYSTRYBUCJI where ID='".$t['ID_PROJECT_ROOT_GUESS']."'";
  316. ZAP_SQL($ZAP_SQL); //echo "\n".$ZAP_SQL;
  317. list($t['ID_PROJECT_ROOT_LAST'])=mysql_fetch_array($result);
  318. if($t['ID_PROJECT_ROOT_LAST']=='0') {
  319. unset($t['ID_PROJECT_ROOT_LAST']);
  320. break;
  321. } else $t['ID_PROJECT_ROOT_GUESS']=$t['ID_PROJECT_ROOT_LAST'];
  322. $safe--;
  323. echo ".";
  324. }
  325. //if(!)
  326. print_r($t);
  327. $ZAP_SQL="insert into KSIEG_DOKUMENTY (A_RECORD_CREATE_DATE,A_RECORD_CREATE_AUTHOR, DATA_DOK, NUMER_DOK , SPRZEDAWCA ,
  328. ID_SPRZEDAWCA , ILOSC , CENA_JEDN_NETTO , STAWKA_VAT , wartosc , CZY_URZADZENIE , TYP_DOKUMENTU, ID_PROJECT,
  329. ID_BUDZET,A_STATUS,KONTO_KSIEG , WINIEN_MA , 202_WINIEN) values (
  330. now() , '".$_SESSION['AUTHORIZE_USER']."' ,
  331. '".$r->dok_TerminRealizacji."','".$r->dok_NrPelny."',
  332. '".$r->dok_PlatnikId."','".$r->dok_PlatnikId."','1','".$r->dok_WartNetto."','0','".$r->dok_WartNetto."','NOT_DEVICE',
  333. 'IMPORT-KOSZTORYS','".$t['ID_PROJECT_GUESS']."','".$t['ID_PROJECT_ROOT_GUESS']."','NORMAL','400-00-".$t['ID_PROJECT_ROOT_GUESS']."-".$t['ID_PROJECT_GUESS']."', 'WINIEN' , '".$r->dok_WartBrutto."')";
  334. echo "<br>\n".$ZAP_SQL;
  335. ZAP_SQL($ZAP_SQL);
  336. }
  337. echo "</pre>";
  338. } //eof if($_REQUEST['AKTUALIZACJA_ZAMOWIEN_ZD_SUBIEKT']) {
  339. //print_r($_SESSION);
  340. if($_REQUEST['IMPORT_FAKTUR_Z_ZASOB_719']) {
  341. echo "<pre>";
  342. //$ZAP_SQL="select * from BILLS_FVAT_POS limit 100";
  343. //$res719 = mysql_query($ZAP_SQL,$conn719) or die("Blad zapytania ZAP_SQL. *$ZAP_SQL*!");
  344. //$numrows719=mysql_numrows($res719);
  345. //echo "\n".$numrows719;
  346. SEF('SYNC_MYDATABASE_SQIX');
  347. $sync_tables=array('BILLS_FVAT_POS','BILLS_FVAT');
  348. // $sync_tables=array('BILLS_FVAT_X');
  349. //$sync_tables=array('SERVICES');
  350. SYNC_MYDATABASE_SQIX('719',$sync_tables,$DATABASE_ROOT_ZASOB_ID);
  351. //print_r($_SESSION);
  352. // $sync_tables=array('SES_VOIP_A','SES_USERS2_A','SERVICES');
  353. // $sync_tables=array('SES_VOIP_A','SERVICES');
  354. // SYNC_MYDATABASE_SQIX('695',$sync_tables,'14');
  355. //2012-01-05 wywalone by Bzyk & plabudda
  356. echo "</pre>";
  357. }//eof IMPORT_FAKTUR_Z_ZASOB_719
  358. if($_REQUEST['RAPORT_WYNIKOWY_ala_Cyperska']) {
  359. //funkcja napisana @2012-09-05 na potrzeby analizy kosztow projektow
  360. echo "<pre>";
  361. //1. Budowa tabeli slownikowej INDEKS24
  362. echo "<br>//Tworze slownikowa tabele od 0 do 24 miesiecy w przeszlosc\n";
  363. $ZAP_SQL=" drop table if exists INDEKS24 ;"; //echo "<br> $ZAP_SQL <br>\n";
  364. ZAP_SQL($ZAP_SQL);
  365. $ZAP_SQL=" create table INDEKS24 (ID int(3) , DATA date ) ;";
  366. // echo "<br> $ZAP_SQL <br>\n";
  367. ZAP_SQL($ZAP_SQL);
  368. $i=-24;
  369. $LP=24;
  370. while ($i < 24 ) {
  371. $i++;
  372. $LP--;
  373. //echo "Nas z miesiac to $i<br>";
  374. $ZAP_SQL="insert into INDEKS24 SELECT '".$LP."', DATE_FORMAT(concat(PERIOD_ADD( DATE_FORMAT(now(), '%Y%m') ,-$i),'01'),'%Y-%m-%d'); ";
  375. ZAP_SQL($ZAP_SQL);
  376. // echo " $ZAP_SQL \n <br>";
  377. }
  378. //EOF Tworze slownikowa tabele od 0 do 24
  379. //jedziemy po datach biezacy rok //
  380. $ZAP_SQL="select DATA from INDEKS24 where year(DATA) like year(now()) or year(DATA) like year(DATE_ADD(date(now()),INTERVAL -1 YEAR)) order by DATA limit 24 ";
  381. $result_date=mysql_query($ZAP_SQL);
  382. while($res=mysql_fetch_object($result_date)) {
  383. $DATA=$res->DATA;
  384. //koszty dotyczace czworek 4
  385. $CYP_RAP_RODZAJE=array(703=>'PR '.$DATA ,750=>'PR '.$DATA,760=>'PR '.$DATA,4=>'KO '.$DATA,751=>'KO '.$DATA,761=>'KO '.$DATA,80=>'IN '.$DATA,310=>'IN '.$DATA);
  386. foreach($CYP_RAP_RODZAJE as $CYP_RAP_RODZAJ=>$CYP_RAP_KOSZT_INWEST) {
  387. $zap_sql="select KD.ID, KD.KONTO_SYN, KD.KONTO_KSIEG, KD.DATA_DOK,KD.NUMER_DOK, KD.wartosc,
  388. KD.WINIEN_MA, KD.201_WINIEN,KD.201_MA,KD.202_WINIEN,KD.202_MA,KD.TYP_DOKUMENTU,KD.BUDZET,KD.ID_PROJECT
  389. , PR.M_DIST_TYPE , PR.M_DISTRIBUTOR, PR.M_DIST_DESC ,KD.ID_BUDZET
  390. from KSIEG_DOKUMENTY as KD
  391. left join IN7_MK_BAZA_DYSTRYBUCJI as PR on PR.ID=KD.ID_PROJECT
  392. where month(KD.DATA_DOK) like month('".$DATA."') and year(KD.DATA_DOK) like year('".$DATA."') and KD.TYP_DOKUMENTU='IMPORT'
  393. and KD.KONTO_SYN='".$CYP_RAP_RODZAJ."'
  394. -- and PR.ID='629'
  395. order by KD.ID_BUDZET,PR.M_DIST_TYPE ";
  396. ZAP_SQL($zap_sql);
  397. $CYP_RAP[$CYP_RAP_KOSZT_INWEST][$CYP_RAP_RODZAJ]=array();
  398. while($h=mysql_fetch_object($result)){
  399. if($h->ID_BUDZET=="") $h->ID_BUDZET="0";
  400. if($h->ID_PROJECT=="") $h->ID_PROJECT="0";
  401. $CYP_RAP[$CYP_RAP_KOSZT_INWEST][$CYP_RAP_RODZAJ]['detale']['analityka-projekty'][$h->ID_PROJECT]+=$h->wartosc;
  402. $KONTO_RODZAJ=split('-',$h->KONTO_KSIEG);
  403. $CYP_RAP[$CYP_RAP_KOSZT_INWEST][$CYP_RAP_RODZAJ]['detale']['analityka-1'][$KONTO_RODZAJ[0]]+=$h->wartosc;
  404. $CYP_RAP[$CYP_RAP_KOSZT_INWEST][$CYP_RAP_RODZAJ]['detale']['analityka-2'][$KONTO_RODZAJ[1]]+=$h->wartosc;
  405. $CYP_RAP[$CYP_RAP_KOSZT_INWEST][$CYP_RAP_RODZAJ]['detale']['analityka-2-M_DIST'][$h->M_DIST_TYPE][$KONTO_RODZAJ[1]]+=$h->wartosc;
  406. $CYP_RAP[$CYP_RAP_KOSZT_INWEST][$CYP_RAP_RODZAJ]['detale']['analityka-2-M_DIST-ID_PROJ'][$KONTO_RODZAJ[1]][$h->M_DIST_TYPE][$h->ID_PROJECT]+=$h->wartosc;
  407. $CYP_RAP[$CYP_RAP_KOSZT_INWEST][$CYP_RAP_RODZAJ]['detale']['M_DIST_TYPE'][$h->M_DIST_TYPE]+=$h->wartosc;
  408. $RYP_CAP_PREFIX=$KONTO_RODZAJ[0]."--".$KONTO_RODZAJ[1]."--".$h->ID_BUDZET;
  409. //$RYP_CAP_SUFFIX="</b></nobr>";
  410. $CYP_RAP_USED[$RYP_CAP_PREFIX.$h->ID_PROJECT.$RYP_CAP_SUFFIX]['DATA'][$CYP_RAP_KOSZT_INWEST]+=$h->wartosc;
  411. $CYP_RAP_USED[$RYP_CAP_PREFIX.$h->ID_PROJECT.$RYP_CAP_SUFFIX]['KONTO_RODZAJ0']=$KONTO_RODZAJ[0];
  412. $CYP_RAP_USED[$RYP_CAP_PREFIX.$h->ID_PROJECT.$RYP_CAP_SUFFIX]['KONTO_RODZAJ1']=$KONTO_RODZAJ[1];
  413. $CYP_RAP_USED[$RYP_CAP_PREFIX.$h->ID_PROJECT.$RYP_CAP_SUFFIX]['ID_PROJECT']=$h->ID_PROJECT;
  414. $CYP_RAP_USED[$RYP_CAP_PREFIX.$h->ID_PROJECT.$RYP_CAP_SUFFIX]['ID_BUDZET']=$h->ID_BUDZET;
  415. $CYP_RAP_DATA['ID_PROJECT'][$RYP_CAP_PREFIX.$h->ID_PROJECT.$RYP_CAP_SUFFIX]['ID_PROJECT']=$h->ID_PROJECT;
  416. $CYP_RAP_DATA['ID_PROJECT'][$RYP_CAP_PREFIX.$h->ID_PROJECT.$RYP_CAP_SUFFIX]['M_DIST_TYPE']=$h->M_DIST_TYPE;
  417. $CYP_RAP_DATA['ID_PROJECT'][$RYP_CAP_PREFIX.$h->ID_PROJECT.$RYP_CAP_SUFFIX]['M_DIST_DESC']=$h->M_DIST_DESC;
  418. $CYP_RAP_DATA['ID_PROJECT'][$RYP_CAP_PREFIX.$h->ID_PROJECT.$RYP_CAP_SUFFIX]['M_DISTRIBUTOR']=$h->M_DISTRIBUTOR;
  419. $CYP_RAP_DATA['ID_PROJECT'][$RYP_CAP_PREFIX.$h->ID_PROJECT.$RYP_CAP_SUFFIX]['ID_BUDZET'][$h->ID_BUDZET]=1;
  420. $CYP_RAP_DATA['ID_PROJECT'][$RYP_CAP_PREFIX.$h->ID_PROJECT.$RYP_CAP_SUFFIX]['WYSTEPUJE_W_RODZAJACH'][$KONTO_RODZAJ[1]]=1;
  421. $CYP_RAP_DATA['ID_PROJECT'][$RYP_CAP_PREFIX.$h->ID_PROJECT.$RYP_CAP_SUFFIX]['WYSTEPUJE_W_DZIALACH'][$KONTO_RODZAJ[0]]=1;
  422. $CYP_RAP_DATA['ID_PROJECT'][$RYP_CAP_PREFIX.$h->ID_PROJECT.$RYP_CAP_SUFFIX]['SUMA_KOSZTOW']+=$h->wartosc;
  423. $CYP_RAP[$CYP_RAP_KOSZT_INWEST][$CYP_RAP_RODZAJ]['detale']['syntetyka']+=$h->wartosc;
  424. $CYP_RAP[$CYP_RAP_KOSZT_INWEST]['suma']+=$h->wartosc;
  425. }
  426. } //foreach foreach($CYP_RAP_RODZAJE as $CYP_RAP_RODZAJ) {
  427. } //foreach $result_date
  428. // print_r($CYP_RAP);
  429. echo "</pre>";
  430. //algin wszystkich projektow z bazy
  431. // $zap_sql="select PR.M_DIST_TYPE , PR.M_DISTRIBUTOR, PR.M_DIST_DESC from IN7_MK_BAZA_DYSTRYBYCJI as PR where PR.A_STATUS!='DELETED' "
  432. $LP=1;
  433. echo "<table border=1><tr><td>Lp.</td><td>Konto</td><td>Rodzaj</td><td>Dzial-ID</td><td>PROJEKT</td><td>Typ Projektu</td><td>Opis</td><td>Koszta dzialach/rodzajach</td><td>Koszta w dzialach</td><td>Suma na prawo</td>";
  434. //malujemy naglowek
  435. foreach($CYP_RAP as $RCI=>$RCA) {
  436. echo "<td>".$RCI."</td>";
  437. }
  438. //malujemy w dol
  439. echo "</tr>";
  440. echo "<tr>><td>".$LP."</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>Sumy Przychodow</td><td>";
  441. $LP++;
  442. $NAG=0;
  443. foreach($CYP_RAP as $RCI=>$RCA) {
  444. $NAG++;
  445. if($NAG==1) $SUMY['PR']+=$RCA['suma'];
  446. if($NAG==3) $NAG=0;
  447. }
  448. echo $SUMY['PR'];
  449. echo "</td>";
  450. //PRZYCHOD
  451. $NAG=0;
  452. foreach($CYP_RAP as $RCI=>$RCA) {
  453. echo "<td>";
  454. $NAG++;
  455. if($NAG==1) echo "<b>".str_replace('.',',',$RCA['suma'])."<b>";
  456. if($NAG==3) $NAG=0;
  457. echo "</td>";
  458. }
  459. echo "</tr>";
  460. //KOSZTY
  461. echo "<tr><td>".$LP."</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>Sumy Kosztow</td><td>";
  462. $NAG=0; $LP++;
  463. foreach($CYP_RAP as $RCI=>$RCA) {
  464. $NAG++;
  465. if($NAG==2) $SUMY['KO']+=$RCA['suma'];
  466. if($NAG==3) $NAG=0;
  467. }
  468. echo $SUMY['KO'];
  469. echo "</td>";
  470. $NAG=0;
  471. foreach($CYP_RAP as $RCI=>$RCA) {
  472. echo "<td>";
  473. $NAG++;
  474. if($NAG==2) echo "<b>".str_replace('.',',',$RCA['suma'])."<b>";
  475. if($NAG==3) $NAG=0;
  476. echo "</td>";
  477. }
  478. echo "</tr>";
  479. //INWESTYCJE
  480. echo "<tr><td>".$LP."</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>.</td><td>Sumy Inwestycji</td><td>";
  481. foreach($CYP_RAP as $RCI=>$RCA) {
  482. $NAG++;$LP++;
  483. if($NAG==3) $SUMY['IN']+=$RCA['suma'];
  484. if($NAG==3) $NAG=0;
  485. }
  486. echo $SUMY['IN'];
  487. echo "</td>";
  488. $NAG=0;
  489. foreach($CYP_RAP as $RCI=>$RCA) {
  490. echo "<td>";
  491. $NAG++;
  492. if($NAG==3) echo "<b>".str_replace('.',',',$RCA['suma'])."<b>";
  493. if($NAG==3) $NAG=0;
  494. echo "</td>";
  495. }
  496. echo "</tr>";
  497. foreach($CYP_RAP_USED as $RPUI1=>$RPUA1) {
  498. echo "<tr>";//"<td>".$RPUI1."</td>";
  499. echo "<td>".$LP."</td>";$LP++;
  500. echo "<td>".$RPUA1['KONTO_RODZAJ0']."</td>";
  501. echo "<td>".$RPUA1['KONTO_RODZAJ1']."</td>";
  502. echo "<td>".$RPUA1['ID_BUDZET']."</td>";
  503. echo "<td>".$RPUA1['ID_PROJECT']."</td>";
  504. echo "<td>".str_replace('_',' ',$CYP_RAP_DATA['ID_PROJECT'][$RPUI1]['M_DIST_TYPE'])."</td>";
  505. echo "<td>".$CYP_RAP_DATA['ID_PROJECT'][$RPUI1]['M_DIST_DESC']." ".$CYP_RAP_DATA['ID_PROJECT'][$RPUI1]['M_DISTRIBUTOR']."</td>";
  506. echo "<td>";
  507. foreach ($CYP_RAP_DATA['ID_PROJECT'][$RPUI1]['WYSTEPUJE_W_DZIALACH'] as $ind=>$arr) echo $ind.", ";
  508. echo "--";
  509. foreach ($CYP_RAP_DATA['ID_PROJECT'][$RPUI1]['WYSTEPUJE_W_RODZAJACH'] as $ind=>$arr) echo $ind.", ";
  510. echo "</td>";
  511. echo "<td>";
  512. foreach ($CYP_RAP_DATA['ID_PROJECT'][$RPUI1]['ID_BUDZET'] as $ind=>$arr) echo $ind.", ";
  513. echo "</td><td><b>".str_replace('.',',',$CYP_RAP_DATA['ID_PROJECT'][$RPUI1]['SUMA_KOSZTOW'])."</b></td>";
  514. $BGCOL_IND=0;
  515. foreach($CYP_RAP as $CRAI1=>$CRAA1) {
  516. $BGCOL_IND++;
  517. if($BGCOL_IND==1) $BGCOLOR="bgcolor='#ccffff'";
  518. else if($BGCOL_IND==2) $BGCOLOR="bgcolor='#ffccff'";
  519. else if($BGCOL_IND==3) { $BGCOLOR="bgcolor='#ffffcc'"; $BGCOL_IND=0; }
  520. echo "<td ".$BGCOLOR.">".str_replace('.',',',$RPUA1['DATA'][$CRAI1])."</td>";
  521. }
  522. echo "</tr>";
  523. }
  524. //echo "</tr>";
  525. echo "</table>";
  526. } //eof if($_REQUEST['RAPORT_WYNIKOWY_ala_Cyperska']) ###############################################
  527. echo "<form method=\"post\" enctype=\"multipart/form-data\"> \n
  528. <input type=hidden name=\"FUNCTION_INIT\" value=\"KSIEG_DOKUMENTY_ZASOB1182_SUBIEKT_MSSQL_IMPORT\">
  529. <input type=hidden name=UPDATE_MAPA_DEKRETOW value=1>
  530. <input type=submit value='AKTUALIZUJ_MAPE_DEKRETOW ( po imporcie XML)'></form><br>
  531. ";
  532. echo "<form method=\"post\" enctype=\"multipart/form-data\"> \n
  533. <input type=hidden name=\"FUNCTION_INIT\" value=\"KSIEG_DOKUMENTY_ZASOB1182_SUBIEKT_MSSQL_IMPORT\">
  534. <input type=hidden name=RAPORT_WYNIKOWY_ala_Cyperska value=1>
  535. <input type=submit value=RAPORT_WYNIKOWY_ala_Cyperska></form><br>
  536. ";
  537. echo "<form method=\"post\" enctype=\"multipart/form-data\"> \n
  538. <input type=hidden name=\"FUNCTION_INIT\" value=\"KSIEG_DOKUMENTY_ZASOB1182_SUBIEKT_MSSQL_IMPORT\">
  539. <input type=hidden name=ANALIZUJ_PLYNNOSC_KONT_2XX value=1>
  540. <input type=submit value=ANALIZUJ_PLYNNOSC_KONT_2XX></form><br>
  541. ";
  542. echo "<form method=\"post\" enctype=\"multipart/form-data\"> \n
  543. <input type=hidden name=\"FUNCTION_INIT\" value=\"KSIEG_DOKUMENTY_ZASOB1182_SUBIEKT_MSSQL_IMPORT\">
  544. <input type=hidden name=AKTUALIZACJA_ZAMOWIEN_ZD_SUBIEKT value=1>
  545. <input type=submit value=AKTUALIZACJA_ZAMOWIEN_ZD_SUBIEKT></form><br>
  546. ";
  547. echo "<form method=\"post\" enctype=\"multipart/form-data\"> \n
  548. <input type=hidden name=\"FUNCTION_INIT\" value=\"KSIEG_DOKUMENTY_ZASOB1182_SUBIEKT_MSSQL_IMPORT\">
  549. <input type=hidden name=IMPORT_FAKTUR_Z_ZASOB_719 value=1>
  550. <input type=submit value=IMPORT_FAKTUR_Z_ZASOB_719></form><br>
  551. ";
  552. echo "<form method=\"post\" enctype=\"multipart/form-data\"> \n
  553. <table border=1><tr><td colspan=2>
  554. <input type=hidden name=\"FUNCTION_INIT\" value=\"KSIEG_DOKUMENTY_ZASOB1182_SUBIEKT_MSSQL_IMPORT\">
  555. <br>wkaz lokalizacje ZSO - szczegolowe w postaci XML (analityka 4)
  556. <label for=\"file\">Filename:</label>
  557. <input type=\"file\" name=\"file1182\" id=\"file1182\">\n
  558. </td></tr>
  559. <tr><td>POCZATEK OKRESU IMPORTOWANYCH DANYCH</td><td>DATA KONCA IMPORTU DANYCH</td></tr>
  560. <tr><td><br>ROK YYYY<input type=text size=4 name=START_ROK value=".$_REQUEST['START_ROK']."> \n
  561. <br>MIESIAC MM<input type=text size=2 name=START_MIESIAC value=".$_REQUEST['START_MIESIAC']."> \n
  562. <br>DZIEN DD<input type=text size=2 name=START_DZIEN value=".$_REQUEST['START_DZIEN']."> \n
  563. </td><td><br>ROK YYYY<input type=text size=4 name=KONIEC_ROK value=".$_REQUEST['KONIEC_ROK']."> \n
  564. <br>MIESIAC MM<input type=text size=2 name=KONIEC_MIESIAC value=".$_REQUEST['KONIEC_MIESIAC']."> \n
  565. <br>DZIEN DD<input type=text size=2 name=KONIEC_DZIEN value=".$_REQUEST['KONIEC_DZIEN']."> \n
  566. </td></tr>
  567. <tr><td colspan=2>Ignorowanie Bilansow Otwarcia - BO-1 <input type=CHECKBOX name=IGNORE_BO";
  568. if($_REQUEST['IGNORE_BO']) echo " checked=1 ";
  569. echo "></td></tr>
  570. <tr><td colspan=2>Wgranie pliku skasuje wszystkie TYP_DOKUMENTU=IMPORT danych w FAKTURY dla <input type=submit value=wyslij></td></tr>
  571. </table>
  572. </form>";
  573. //phpinfo();
  574. /*
  575. echo "TEST";
  576. $db=mssql_connect($myServer,$myUser,$myPass);
  577. mssql_select_db($myDB,$db);
  578. $query="
  579. SELECT KhEw.kh_Id,KhEw.kh_Zablokowany,KhEw.kh_Osoba,KhEw.kh_Rodzaj,KhEw.kh_Symbol,AdrEwid.adr_Id,AdrEwid.adr_Nazwa,AdrEwid.adr_NIP,AdrEwid.adr_Adres,AdrEwid.adr_Miejscowosc,AdrEwid.adr_NazwaPelna,case
  580. when kh_NrAnalitykaO<>'' and kh_NrAnalitykaD<>'' and kh_NrAnalitykaO <> kh_NrAnalitykaD
  581. then 'BLAD w analitykach '+kh_NrAnalitykaO + ' ' + kh_NrAnalitykaD
  582. when kh_NrAnalitykaD<>'' then kh_NrAnalitykaD
  583. when kh_NrAnalitykaO<>'' then kh_NrAnalitykaO
  584. else ''
  585. end as Analityka,Flagi.flg_Numer,FlagiWartosci.flw_CzasOstatniejZmiany,FlagaUzytk.uz_Identyfikator,FlagiWartosci.flw_Komentarz,FlagiWartosci.flw_IdFlagi,Flagi.flg_Text,Flagi.flg_Id FROM kh__Kontrahent AS KhEw LEFT JOIN adr__Ewid AS AdrEwid ON KhEw.kh_Id=AdrEwid.adr_IdObiektu LEFT JOIN sl_Wojewodztwo AS WojEwid ON AdrEwid.adr_IdWojewodztwo=WojEwid.woj_Id LEFT JOIN (SELECT adr_IdObiektu as kdk_IdKontrahenta, COUNT(adr_IdObiektu) AS IleDokBibl FROM bib_Dokument LEFT JOIN adr__Ewid ON adr_Id = bib_IdObiektu WHERE bib_TypObiektu = 1 GROUP BY adr_IdObiektu) AS BiblDok ON KhEw.kh_Id=BiblDok.kdk_IdKontrahenta LEFT JOIN (SELECT zdk_IdKlienta,COUNT(zdk_IdZadania) AS LiczbaNotatek FROM zd_Uczestnik INNER JOIN zd__Zadanie ON zd_Id=zdk_IdZadania AND zd_Rodzaj=4 GROUP BY zdk_IdKlienta) AS KhNotatka ON AdrEwid.adr_Id=KhNotatka.zdk_IdKlienta LEFT JOIN fl_Wartosc AS FlagiWartosci ON KhEw.kh_Id=FlagiWartosci.flw_IdObiektu AND flw_IdGrupyFlag = 18 LEFT JOIN pd_Uzytkownik AS FlagaUzytk ON FlagiWartosci.flw_IdUzytkownika=FlagaUzytk.uz_Id LEFT JOIN fl__Flagi AS Flagi ON FlagiWartosci.flw_IdFlagi=Flagi.flg_Id";
  586. // WHERE kh_Jednorazowy=0 AND ((adr_Id is NULL) OR (adr_TypAdresu = 1)) AND KhEw.kh_IdGrupa=4";
  587. $query="select * from sys.Tables";
  588. //$query="SELECT column_name , data_type + COALESCE( '(' + CAST(character_maximum_length AS VARCHAR) + ')' , '(' + CAST(numeric_precision AS VARCHAR) + ')' , '' ) , column_default, is_nullable FROM information_schema.columns WHERE table_name = '__BeforeDropOldTables';";
  589. $query="nz__Finanse";
  590. $result=mssql_query($query);
  591. if ($result_arr=mssql_fetch_array($result)) {
  592. echo "<table border=1><tr>";
  593. for ($i=0;$i<mssql_num_fields($result);$i++) {
  594. $fields_name[]=mssql_field_name($result,$i);
  595. echo "<td>".mssql_field_name($result,$i)."</td>";
  596. }
  597. echo "</tr>";
  598. do {
  599. echo "<tr>";
  600. foreach ($fields_name as $field_name)
  601. echo "<td>".$result_arr[$field_name]."</td>";
  602. echo "</tr>";
  603. /* //###
  604. $query2="SELECT column_name
  605. , data_type +
  606. COALESCE(
  607. '(' + CAST(character_maximum_length AS VARCHAR) + ')'
  608. , '(' + CAST(numeric_precision AS VARCHAR) + ')'
  609. , ''
  610. ) , column_default, is_nullable FROM information_schema.columns
  611. WHERE
  612. table_name = '".$result_arr[0]."';";
  613. //echo "<tr><td colspan=20>".$query2."<br>";
  614. $result2=mssql_query($query2);
  615. if ($result_arr2=mssql_fetch_array($result2)) {
  616. echo "<tr><td colspan=20><table border=1><tr>";
  617. for ($i=0;$i<mssql_num_fields($result2);$i++) {
  618. $fields_name2[]=mssql_field_name($result2,$i);
  619. echo "<td>".mssql_field_name($result2,$i)."</td>";
  620. }
  621. echo "</tr>";
  622. do {
  623. echo "<tr>";
  624. foreach ($fields_name2 as $field_name)
  625. echo "<td>".$result_arr2[$field_name]."</td>";
  626. echo "</tr>";
  627. } while ($result_arr2=mssql_fetch_array($result2));
  628. echo "</table></td></tr>";
  629. }
  630. //###
  631. } while ($result_arr=mssql_fetch_array($result));
  632. echo "</table>";
  633. }
  634. */
  635. echo '</body></html>';
  636. exit;
  637. }