String sZnacznik = ""
String sSekcja = "Import dokumentu z pliku"
int i = 1, n, m, iok
Record Pozycje
   long idtw
   String sKodtw[50]
   string spole1[500]
   string spole2[500]
   string spole3[500]
EndRec
Pozycje p(1)


IORec ior
Limit 10000

String szSciezka
String szSciezkaT
Int plik_imp
int Sub KatalogDocelowy()
   load
   szSciezka = FileDlg(1,"Plik raportu (*.csv*)","*.csv*","Wszystkie pliki (*.*)","*.*" )
   KatalogDocelowy=1
EndSub
//================================================================================
int Sub CzyJestPlik()
   save
   CzyJestPlik = 2
   if !(Find File (szSciezka)) then
      message "Nie znaleziono wybranego pliku Ico:!"
      CzyJestPlik = 1
   endif   
   load   
endsub
//================================================================================
Int sub OnCommand(int id, int msg)
endsub
//================================================================================
int nRezerwoj
Int sub Formatka()   
   if GetIni( sSekcja, "szSciezka" ) != "" then
      szSciezka = GetIni ( sSekcja, "szSciezka" )
   else
      szSciezka = ""
   endif
   int nx=690
   int ny=150
   int x,y,dx,dy
   Form "Wczytywanie pliku",nx, ny
      button "&Anuluj",nx-99,ny-60,80,25,-1
      button "&OK",nx-180,ny-60,80,25,CzyJestPlik()
   x=10 : y=10 : dx=nx-30 : dy=45
   Group "Miejsce docelowe",x,y,dx,dy
      Edit "Katalog", szSciezka, x+80,y+15, dx-140, 17
      button "katalog",dx-45,y+15, 45, 20,KatalogDocelowy()
   int wyjdz = ExecForm OnCommand
   If wyjdz != 2 Then  error ""
   PutIni ( sSekcja, "szSciezka", using "%s", szSciezka )
EndSub

String szLinia
String szpozycja
String szPole
//===============================================================================
// Otwiera plik
//===============================================================================
Int Sub OtworzPlik()
   szSciezkaT=szSciezka
   int plik_impT
   plik_imp = open  szSciezka for Input
   if plik_imp<=0 then
      Close plik_imp
      error ""
   endif   
EndSub

int Sub pobierzpozycje()
   pobierzpozycje = Input #plik_imp,szLinia
   buf = mid(szLinia,1,len(szlinia)-1)+";"
   find regular "{*};{*};{*};{*};"
   p(size(p)).sKodtw = regular 1
   p(size(p)).spole1 = regular 2
   p(size(p)).spole2 = regular 3
   p(size(p)).spole3 = regular 4
   grow p,1
   Endsub

//===============================================================================

Int Sub ZbierzDane()
      do
      iok = pobierzpozycje()
   loop while iok == 1
EndSub   


//=======================================================================================================================

int sub tworzdokument()

dispatch Cn = "ADODB.Connection"
dispatch Rs = "ADODB.Recordset"   
Cn = GetAdoConnection()

for i = 1 to i > size(p)
Popup(1,"Pozycja "+(using "%.f",i)+" z "+(using "%.f",size(p)))
Rs = Cn.Execute("Select ElementId from SSCommon.STElements where Title = '"+p(i).skodtw+"'")
if !Rs.EOF then
p(i).idtw = Rs.fields("ElementId").value
endif   
next i

for i = 1 to i > size(p)
Popup(1,"Pozycja "+(using "%.f",i)+" z "+(using "%.f",size(p)))   
Rs = Cn.Execute("Update SSCommon.ProductClassification set CDim_Pole1 = '"+p(i).spole1+"',CDim_Pole2 = '"+p(i).spole2+"',CDim_Pole3 = '"+p(i).spole3+"' where ElementId = '"+(using "%.f",p(i).idtw)+"'")   
next i

Cn.Close()
endsub

Formatka()
OtworzPlik()
ZbierzDane()
tworzdokument()
NoOutput()