Forum Użytkownikow Subiekt GT
InsERT GT => Dodatki - zestawienia - sfera => Wątek zaczęty przez: someone w Kwiecień 09, 2017, 13:24:07
-
Robiąc aktualizacje towarów z pliku .epp wg tego kodu:
Private Sub ImUstawieniaSynchronizacji()
Dim oSubGT As InsERT.Subiekt
Dim oIm As InsERT.Importer
Dim oImBlWyk As InsERT.ImBladWykonania
Dim i As Integer
Set oSubGT = UruchomSubiekta()
Set oIm = oSubGT.Importer
oIm.Synchronizacja(gtaSynchronizacjaTypTowar) = gtaSynchronizacjaTowarSymbol + gtaSynchronizacjaAktualizacja + gtaSynchronizacjaDodawanie
oIm.WczytajPlik "c:\TW.epp", gtaWczytajTowary
oIm.ZapiszObiekt (-1)
For i = 1 To oIm.BledyWykonania.Liczba
Set oImBlWyk = oIm.BledyWykonania.Element(i)
Debug.Print oImBlWyk.KodBledu & ": " & oImBlWyk.Opis
Next i
End Sub
działa dla małej ilości towarów. Przy większej ilości, plik ma ok 6 MB, wiesza się, tzn. SUBIEKT nie odpowiada
Można coś z tym zrobić ?
-
Zaczekać, aż zacznie opowiadać... Aktualizacja towaru jest przecież dość wymagającą operacją.
-
A zamiast "odpowiada/nie odpowiada" lepiej zobacz obciążenie procesora i co robi serwer SQL.