dispatch xGetParams=xFactory.NewObject("XParams")
string sGetError
Dispatch xTw
xTw = xFactory.NewObject("BTowar")

string sub Wymiary( string sKod)
int iWym
xTw.Load(sKod)
xGetParams.Clear()
xGetParams.kod=sKod
xTw=xFactory.GetObject("BTw",xGetParams)
Wymiary = xTw.nazwa

   for iWym = 1 to iWym > xTw.WartosciWymiarow.Count()
      Wymiary += xTw.WartosciWymiarow.Item(iWym).wymiar.definicja.nazwa+ ": " + xTw.WartosciWymiarow.Item(iWym).wartosc + lf
   next iWym

endsub

Message Wymiary("504343")

Problem pojawia się taki:

Błąd wykonania
Obiekt OLE nie został zainicjowany

dispatch xConn=GetAdoConnection()
dispatch xConnTmp=GetAdoConnection()
dispatch xConnTemp=GetAdoConnection()
dispatch xRec="ADODB.Recordset"
dispatch xRTmp="ADODB.Recordset"
dispatch xRTemp="ADODB.Recordset"
dispatch cmdAdo = "ADODB.Command"
cmdAdo.ActiveConnection = xConnTemp
cmdAdo.CommandTimeout = 50000


xRec.CursorType=1
xRec.LockType=3

xRTmp.CursorType=1
xRTmp.LockType=3

string sSQL
long lCount

//-------------------------------------------------------------------------------------------------------------
int sub funWymiarylist()
   
string sKodTowaru
int dIdElementu
string sMiejsceMag

   sSQL="SELECT kod FROM TW "
   sSQL+="WHERE typ = 0 "

   xRec.Open(sSQL,xConn)
   While !xRec.EOF()
      lCount+=1
      sKodTowaru = xRec.Fields("kod").value

      print xRec.Fields("kod").value
      print LF;
      print using "%d",lCount;
      print LF;

         xRtmp.Open("SELECT ElementId From SSCommon.STElements WHERE SSCommon.STElements.Title='"+sKodTowaru+"'",xConnTmp)
         While !xRtmp.EOF()
               dIdElementu = xRtmp.Fields("ElementId").value
               xRtmp.MoveNext()
         wend
         xRtmp.Close()

         xRtmp.Open("SELECT CDim_Miejsce#składowaniaHM_6780_1 FROM SSCommon.ProductClassification WHERE SSCommon.ProductClassification.ElementId ="+(using "%d",dIdElementu),xConnTmp)
         While !xRtmp.EOF()
               if xRtmp.Fields("CDim_Miejsce#składowaniaHM_6780_1").value then // to jest potrzebne, bo jak pusta komórka, to element jest int (chyba 0 albo null), jak pełna - to string
                  sMiejsceMag = xRtmp.Fields("CDim_Miejsce#składowaniaHM_6780_1").value
            endif

               xRtmp.MoveNext()
         wend
         xRtmp.Close()
   
         print sMiejsceMag
         print LF;
         xRec.MoveNext()
   wend
   xRec.Close() : lCount=0

Endsub

string sub funDajTwWymiar(string sKodTowaru)
   int dIdElementu
   string sMiejsceMag

   xRtmp.Open("SELECT ElementId From SSCommon.STElements WHERE SSCommon.STElements.Title='"+sKodTowaru+"'",xConnTmp)
   While !xRtmp.EOF()
         dIdElementu = xRtmp.Fields("ElementId").value
         xRtmp.MoveNext()
   wend
   xRtmp.Close()

   xRtmp.Open("SELECT CDim_Miejsce#składowaniaHM_6780_1 FROM SSCommon.ProductClassification WHERE SSCommon.ProductClassification.ElementId ="+(using "%d",dIdElementu),xConnTmp)
   While !xRtmp.EOF()
      if xRtmp.Fields("CDim_Miejsce#składowaniaHM_6780_1").value then // to jest potrzebne, bo jak pusta komórka, to element jest int (chyba 0 albo null), jak pełna - to string
         funDajTwWymiar = xRtmp.Fields("CDim_Miejsce#składowaniaHM_6780_1").value
      ELSE
         funDajTwWymiar = ""
      endif
      xRtmp.MoveNext()
   wend
   xRtmp.Close()
Endsub



int sub funZmienTwWymiar(string sKodTowaru, string sNoweMiejsce)
   int dIdElementu
   string sMiejsceMag

   print sKodTowaru;
   print " nowe miejsce: ";
   print sNoweMiejsce;
   print " ";

   
   xRtmp.Open("SELECT ElementId From SSCommon.STElements WHERE SSCommon.STElements.Title='"+sKodTowaru+"'",xConnTmp)
   While !xRtmp.EOF()
         dIdElementu = xRtmp.Fields("ElementId").value
         xRtmp.MoveNext()
   wend
   xRtmp.Close()
   if dIdElementu then
      xRtmp.Open("SELECT CDim_Miejsce#składowaniaHM_6780_1 FROM SSCommon.ProductClassification WHERE SSCommon.ProductClassification.ElementId ="+(using "%d",dIdElementu),xConnTmp)
      While !xRtmp.EOF()
         if xRtmp.Fields("CDim_Miejsce#składowaniaHM_6780_1").value then // to jest potrzebne, bo jak pusta komórka, to element jest int (chyba 0 albo null), jak pełna - to string
            print "znalazłem stare miejsce ";
            sMiejsceMag = xRtmp.Fields("CDim_Miejsce#składowaniaHM_6780_1").value
            print sMiejsceMag;
            cmdAdo.CommandText = "UPDATE SSCommon.ProductClassification SET CDim_Miejsce#składowaniaHM_6780_1 = '"+sNoweMiejsce+"' WHERE SSCommon.ProductClassification.ElementId="+(using "%d",dIdElementu)
            cmdAdo.Execute()
            print " zmienione";
            //print xRtmp.Fields("CDim_Miejsce#składowaniaHM_6780_1").value
         ELSE
            print "nie znalazłem rekordu miejsca"
            print LF
         endif
         xRtmp.MoveNext()
      wend
      xRtmp.Close()
   else
      print " nie znalazłem kartoteki"
   endif



   print LF;
Endsub



int sub funImportMiejscatxt()

      int id, idWyst
      String Plik_w ="C:\\MIEJSCA\\MIEJSCA.txt"
      Int Numer_plik = Open Plik_w For input
      Int tw2, err
      String strLine, strKod, strMiejsce, konc
      Float cena, ilosc

      buf = ""
      Input # Numer_plik, strLine
      
      Do
         buf = strLine
         konc = Find Regular "{;*}\{;*}\{;*}"
         
         strKod = Regular 1
         strMiejsce = Regular 2
         buf = strKod
         delete ";"
         strKod = buf
         
         buf = strMiejsce
         delete ";"
         strMiejsce = buf
         
         funZmienTwWymiar(strKod,strMiejsce)
         Input # Numer_plik, strLine
      Loop Until strLine=="EOF"
endsub