qwe=SqlConnect("pro","deload_dev","deload")
DO WHILE !EOF("OUT")
  SQLEXEC(qwe, "Select * From valuta where kod="+STR(out.Kod_Val, 3 ), "valuta")
  IF EOF("Valuta")
    cSQL="Insert into valuta (Simvol, Name, Kod)"+;
     " Values (' "+ALLTRIM(Out.Simvol_Val)+" ', ' "+ALLTRIM(Out.Name_Val)+" ', ' "+Str(Out.Kod_Val,3)+" ')"
    ?cSQL 
    ?SQLEXEC(qwe, cSQL, "valuta")
  EndIf
  SKIP IN out
EndDo
?SQLDISCONNECT(qwe)