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

Klucze tabeli rozrachunków HandelPremium 2012
https://forum.mix-soft.pl/viewtopic.php?f=15&t=3606		 Strona 1 z 1
Autor:  konikan [ 2012-01-08, 23:28 ]
Tytuł:  Klucze tabeli rozrachunków HandelPremium 2012
Witam wszystkich,

próbuję znając identyfikator danej płatności wyciągnąć wszystkie rozliczenia z tabeli RL jakie były rozliczane dana płatnością. Problem polega na tym, że nie wiem jakie sa klucze w tabeli RL. Bardzo proszę o jakieś wskazówki.
Autor:  rafal [ 2012-01-10, 22:34 ]
Tytuł:  Re: Klucze tabeli rozrachunków HandelPremium 2012
id1 - dokument z PN rozliczny
id2 - dokument z PN rozliczający

daj znać czy tak jest bo nie pamietam dokładnie
Autor:  konikan [ 2012-01-10, 23:51 ]
Tytuł:  Re: Klucze tabeli rozrachunków HandelPremium 2012
nie do końca z tego co udało mi się potestować wniskuję są tam dwa klucze: cross1 i cross2 zawierające id1, id2 i w zależności od typu dokumentu tj czy wpłacający czy wypłacający znaczenie tych id jest odwrotne.
Autor:  kat [ 2018-12-05, 14:01 ]
Tytuł:  Re: Klucze tabeli rozrachunków HandelPremium 2012
Podepnę się pod temat, próbuję użyć klucza cross1 z tabeli zz, ale tak aby zignorować pole id2. Niestety nie wiem jak to zrobić, jeśli użyję zz.SetKeySeg("id2", 0) to oczywiście nie otrzymuję żadnych wyników. Chcę wyeksportować rabaty kontrahentów i nie chciałbym dodatkowo sprawdzać if-em każdego wiersza (muszę tak zrobić w przypadku zz.GetRec(GE))
Jak to ugryźć?

Kod:
BaseZZ zz
   BaseKH kh
   kh.SetKey("id")
   zz.SetKey("cross1")
   zz.SetKeySeg("baza1", 20)
   zz.SetKeySeg("baza2", 2)
   zz.SetKeySeg("typi", 64)
   long id
   int err_zz
   int err_pos
   
   err_pos = SetTaggedPos(FS)

   while err_pos
      id = GetLineId()
      zz.SetKeySeg("id1", id)
      zz.SetKeySeg("id2", 0)
      err_zz = zz.GetRec(EQ)
      while !err_zz
         print zz.GetField("baza1"), zz.GetField("baza2"), zz.GetField("typi"), zz.GetField("id1"), LF
         err_zz = zz.GetRec(NX)
      wend
      err_pos = SetTaggedPos(NX)
   wend
Autor:  rafal [ 2018-12-05, 16:23 ]
Tytuł:  Re: Klucze tabeli rozrachunków HandelPremium 2012
Kod:
baseZZ zz
zz.Open()
int errZZ

long lPos = SetTaggedPos( FS )
long lKh

while lPos

   lKh = GetLineId( lPos )   
   
   zz.SetKey( "cross1" )
   zz.SetKeySeg( "typi", 64 )
   zz.SetKeySeg( "baza1", 20 )
   zz.SetKeySeg( "id1", lKh )   
   zz.SetKeySeg( "baza2", 22 )
   zz.SetKeySeg( "id2", 0 )

   errZZ = zz.GetRec( GE )

   while !errZZ
      if zz.GetField("id1") != lKh then exit   

      print zz.GetField("kod1"), zz.GetField("kod2"), zz.GetField("cena"),zz.GetField("waluta"),lf

      errZZ = zz.GetRec( NX )
   wend
   lPos = SetTaggedPos( NX )
wend

zz.Close()
Autor:  kat [ 2018-12-05, 16:57 ]
Tytuł:  Re: Klucze tabeli rozrachunków HandelPremium 2012
Dziękuję! jutro sprawdzę, ale na pewno działa :-)
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/