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ć ?
