InsERT GT => Dodatki - zestawienia - sfera => Wątek zaczęty przez: sqby w Wrzesień 24, 2015, 10:34:20

Tytuł: Import zamówienia z excela
Wiadomość wysłana przez: sqby w 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,

Tytuł: Odp: Import zamówienia z excela
Wiadomość wysłana przez: dkozlowski w 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ń.

Tytuł: Odp: Import zamówienia z excela
Wiadomość wysłana przez: sqby w Wrzesień 24, 2015, 11:40:01

Dziękuję bardzo za odpowiedź! W sumie nie gryzłem tematu od strony Sfery, zajrzę do dokumentacji.

Tytuł: Odp: Import zamówienia z excela
Wiadomość wysłana przez: sqby w 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:

Kod: [Zaznacz]

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