Handel ERP2015 Przecena wartości magazynu
Witam serdecznie,
Mam bardzo pilną sprawę do wykonania i stanąłem w martwym punkcie.
Wystawiam dokument PWM poprzez BIOrec
Muszę w strukturze BIOrec ustawić obniżenie ceny i podwyższenie ceny.
Wydaje mi się ,że w dokumentacji jest błąd ponieważ zawiera ona następujące informacje.
cenyPWM typ: Int
Opis atrybutu
Czy to obniżenie ceny przeceny wartości magazynu:
0 – nie ma obniżenia ceny
1 – obniżenie ceny
Ma znaczenie dla dokumentu PWM. Na jednym dokumencie PWM mogą być pozycje podwyższające i obniżające cenę.
cenyPWM typ: Int
Opis atrybutu Czy to podwyższenie ceny przeceny wartości magazynu:
0 – nie ma podwyższenia ceny
1 – podwyższenie ceny
Ma znaczenie dla dokumentu PWM. Na jednym dokumencie PWM mogą być pozycje podwyższające i obniżające cenę.
Jak widzimy w obydwu przypadkach nazwa obiektu jest taka sama "cenyPWM"
Mój kod wygląda następująca, wykonuję go z poziomu VB6, niestety nie wiem jak ustawić w dokumencie aby zaznaczone były pola "obniżenie ceny" i "podwyższenie ceny"
PS. Czy wie ktoś ile maksymalnie może być pozycji w dokumencie magazynowym ?
Proszę o pomoc.
Kod:
Dim xDk As Object
Dim xBIORec As Object
Dim xFunkcja As Object
Dim err As Long
SymConnect True, cfg.serwer_ms, cfg.baz_ms, cfg.usr_ms, cfg.pas_ms
Set xFunkcja = xFact.NewObject("BFunkcja")
Set xDk = xFact.NewObject("BDokumentMg")
Set xBIORec = xFact.NewObject("BIORec")
err = xBIORec.SetField("typDk", "PWM")
err = xBIORec.SetField("Opis", "Test dokumentu PWM")
err = xBIORec.SetField("cenyPWM", "1")
err = xBIORec.BeginSection("Pozycja dokumentu")
err = xBIORec.SetField("kod", "TEST 1")
err = xBIORec.SetField("cena", "2")
err = xBIORec.EndSection()
idDok = xFunkcja.ImportMG(xBIORec)
Set xDk = Nothing
Set xBIORec = Nothing
Set xFunkcja = Nothing
MsgBox "Koniec"
