mojaSymfonia FORUM
https://forum.mix-soft.pl/

Utworzenia kontrahenta z poziomu AMBasic w Handel ERP 50c
https://forum.mix-soft.pl/viewtopic.php?f=15&t=10202		 Strona 1 z 1
Autor:  michal@pysz.org [ 2022-02-25, 11:38 ]
Tytuł:  Utworzenia kontrahenta z poziomu AMBasic w Handel ERP 50c
W związku z migracją z Handlu 2.0 do ERP musimy poprawić nasz raport z menu, który importuje ze sklepu internetowego zamówienia.
Niestety nie potrafimy znaleźć dokumentacji opisującej jak:
- szukać kontrahenta (np o nipie, nazwie itp)
- dodać nowego kontrahenta
- dodać nowy dokument

W Handlu 2.0 kontrahentów szukaliśmy i dodawaliśmy z użyciem baseKH (przykład poniżej postu) a dokumenty z użyciem takiej składni:
Kod:
ioRec ioX
/// tutaj dodanie informacj o dokumencie oraz jego pozycji
idDok = ioX.ImportSP()


Czy może ktoś podpowiedzieć jak wykonywać teraz te operacje, może jest gdzieś dokumentacja mogąca w tym pomóc?


Kod:
basekh kh
kh.Open()
kh.Clear()
kh.SetKey("id")
kh.SetKeySeg("id", 0)
kh.SetField("typ", 0)
kh.SetField("subtypi", 0)
kh.SetField("kod", kod)
kh.SetField("nazwa", nazwa)
kh.SetField("miejscowosc", miasto)
kh.SetField("ulica", ulica)
kh.SetField("kodpocz", kodpocz)
kh.SetField("email", email)
kh.SetField("tel1", tel1)
kh.SetField("nip", nip)
kh.SetField("idkraju", idKraju)
kh.SetField("katalog", 2100)
kh.SetField("rodzaj", 3100)
err1 = kh.InsRec()
long id = kh.GetField("id")
kh.Close()
Autor:  michal@pysz.org [ 2022-02-25, 12:13 ]
Tytuł:  Re: Utworzenia kontrahenta z poziomu AMBasic w Handel ERP 50
Możliwe , że dodawanie kontrahenta już znalazłem:
Kod:
   String strLoad
   strLoad = "BDaneKh"
   Dispatch xDane = xFactory.NewObject(strLoad)

   xDane.KhTyp = 1
   xDane.KhKod = 'kod'
   xDane.KhNazwa = 'firma'
   xDane.KhUlica = 'Hutnicza'
   xDane.KhDomu = '5'
   xDane.KhLokal = '2'
   xDane.KhMiasto = 'Warszawa'
   xDane.KhPoczta = '00-950'
   xDane.KhNIP = '678-000-11-22'
   xDane.kraj = 'PL'
   xDane.Save()


Szukanie po ID tak, ale jak po emailu czy nipie ?!?
Kod:
   String sId='5'
   String strLoad
   strLoad = "BKontrahent"
   Dispatch xKontrahent = xFactory.NewObject(strLoad)
   xKontrahent.Load(Using "id=%s", sId)
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/