Autor Wątek: Import zamówienia z excela  (Przeczytany 3421 razy)

0 użytkowników i 1 Gość przegląda ten wątek.

Offline sqby

  • Nowy użytkownik
  • *
  • Wiadomości: 8
  • Reputacja +0/-0
  • Wersja programu: 1.36
Import zamówienia z excela
« dnia: Wrzesień 24, 2015, 10:34:20 »
Witam serdecznie,
Dużo korzystam z Excela w kontekście optymalizacji zamówień do dostawców.
Napisałem kwerendy pobierające bezpośrednio z bazy stany magazynowe oraz sprzedaż towarów od konkretnych dostawców, tam wpisuję sobie (albo liczy za mnie to solver) ilość towarów do zamówienia, tak żeby bazując na średniej sprzedaży towarów starczało na tyle samo czasu.

Po obliczeniu zamówienia, muszę przepisać "z palca" n produktów i ich ilości do zamówienia.
I teraz pojawia się kwestia lenistwa, czy istnieje jakiś prosty sposób importu zamówienia do Subiekta z poziomu Excela? 

Mogłoby to być na zasadzie schowka wewnętrznego w Subiekcie typu kopiuj/wklej pozycje.
Dane, które chciałbym importować/wklejać/przenosić to symbol towaru i jego ilość - resztę mogę wklepać z ręki.
Kombinowałem z xmlami E-bis xml, ale ten proces liczenia checksum i formatowania plików xml, z poziomu excela jest dla mnie drogą przez mękę.

Pozdrawiam serdecznie,

Offline dkozlowski

  • Ekspert
  • *****
  • Wiadomości: 17064
  • Reputacja +798/-27
  • Wersja programu: GT/Navireo/nexo
Odp: Import zamówienia z excela
« Odpowiedź #1 dnia: Wrzesień 24, 2015, 10:41:29 »
Nie ma problemu, w Excelu można programować w VBA i skorzystać ze Sfery, do programu są dołączone przykłady takich rozwiązań.
Daniel, Białystok.

Offline sqby

  • Nowy użytkownik
  • *
  • Wiadomości: 8
  • Reputacja +0/-0
  • Wersja programu: 1.36
Odp: Import zamówienia z excela
« Odpowiedź #2 dnia: Wrzesień 24, 2015, 11:40:01 »
Dziękuję bardzo za odpowiedź! W sumie nie gryzłem tematu od strony Sfery, zajrzę do dokumentacji.

Offline sqby

  • Nowy użytkownik
  • *
  • Wiadomości: 8
  • Reputacja +0/-0
  • Wersja programu: 1.36
Odp: Import zamówienia z excela
« Odpowiedź #3 dnia: Wrzesień 28, 2015, 12:31:05 »
Witam, coś takiego udało mi się wyskrobać w VBA:
W excelu mam zoptymalizowane zamówienie oraz wprowadzone subiektowe ID produktu i jego ilość do zamówienia:

Sub Zamowienie_subiekt()
On Error GoTo ErrHandler
 
    Dim oSubGT As InsERT.Subiekt
    Dim oDok As InsERT.SuDokument
    Dim oPoz As InsERT.SuPozycja
    Dim NrWiersza As Integer
    Dim IdProduktu As Integer
    Dim IloscProduktu As Integer
    NrWiersza = 2
    Set oSubGT = UruchomSubiekta()
    Set oDok = oSubGT.Dokumenty.Dodaj(gtaSubiektDokumentZD)

oDok.KontrahentId = 3583
For NrWiersza = 2 To 41
IdProduktu = Cells(NrWiersza, 21).Value
IloscProduktu = Cells(NrWiersza, 22).Value
If IloscProduktu = 0 Then
Else
Set oPoz = oDok.Pozycje.Dodaj(IdProduktu)
   oPoz.IloscJm = IloscProduktu
End If

Next
  oDok.Wyswietl
 Exit Sub
ErrHandler:
    MsgBox "Wystąpił błąd: " & Err.Number & " - " & Err.Description
   
End Sub

Forum Użytkownikow Subiekt GT

Odp: Import zamówienia z excela
« Odpowiedź #3 dnia: Wrzesień 28, 2015, 12:31:05 »