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

Nowy rekord do bazy
https://forum.mix-soft.pl/viewtopic.php?f=15&t=1264
Strona 1 z 1

Autor:  edward [ 2009-10-08, 08:33 ]
Tytuł:  Nowy rekord do bazy

Witam,

Nie mogę w helpie znaleźć sposobu na dodanie do bazy np. kh (w Handel Premium) nowego rekordu. Any help?

Pozdrawiam

Autor:  Notos [ 2009-10-08, 08:45 ]
Tytuł: 

Fragment kodu dodawania kontrahenta:
Kod:
   basekh k
   k.Open()
   k.Clear()
   k.SetKey("id")
   k.SetKeySeg("id", 3100)
   if !k.GetRec(EQ) then
      k.SetField("id", 0)
      k.SetField("typ", "0")
      k.SetField("typi", 0)
      k.SetField("subtypi", 0)
      k.SetField("kod", khkod)
      k.SetField("nazwa", nazwa)
      k.SetField("kodpocz", kod)
      k.SetField("miejscowosc", miasto)
      k.SetField("ulica", ulica)
      k.SetField("dom", dom)
      k.SetField("lokal",lokal)
      k.SetField("idkraju", 5801)
      k.SetField("katalog", 2100)
      k.SetField("rodzaj", 3100)
      k.InsRec()
   endif
   k.Close()

Autor:  edward [ 2009-10-08, 08:53 ]
Tytuł: 

no wlasnie kurcze ja mam cos takiego:

Kod:
SetField (kh, "id", 0)      
SetField (kh, "poledod8", "pole 1" )
SetField (kh, "nip", "nip 1")
InsRec (kh)

baseError (kh, 4)


Takie cos wyrzuca mi błąd że rekord istnieje juz w bazie danych.

Autor:  Notos [ 2009-10-08, 08:59 ]
Tytuł: 

U góry cała procedura

Autor:  edward [ 2009-10-08, 09:30 ]
Tytuł: 

hmm nie wiem co jest nie tak ale nie dodaje mi nic do bazy. Moze to wina wersji demo.

Autor:  Notos [ 2009-10-08, 09:33 ]
Tytuł: 

Uzupełniasz wszystkie pola ?

Autor:  edward [ 2009-10-08, 09:34 ]
Tytuł: 

nie wszystkie. Jest taka koniecznosc? Probowalem tylko kilka oraz dokladnie to co wkleiles.

Autor:  Notos [ 2009-10-08, 09:39 ]
Tytuł: 

A wklejasz to jak leci, czy podstawiasz coś pod zmienne khkod, nazwa, itd. ?

Autor:  edward [ 2009-10-08, 09:40 ]
Tytuł: 

wstawiam oczywiscie bo by sie nie wykonalo w ogole

PS. dzieki poki co za pomoc, bede przy komputerze pozniej i nadal serdecznie licze na pomoc:)

Autor:  barnie [ 2009-10-08, 11:46 ]
Tytuł: 

nie czekaj juz na pomoc bo ją uzyskałeś od notosa.
bardziej wyczerpującej odpowiedzi nie można dać.

Autor:  rafal [ 2009-10-08, 11:55 ]
Tytuł: 

Notos pisze:
Fragment kodu dodawania kontrahenta:
Kod:
   basekh k
   k.Open()
   k.Clear()
   k.SetKey("id")
   k.SetKeySeg("id", 3100)
   if !k.GetRec(EQ) then
      k.SetField("id", 0)
[...]      k.InsRec()
   endif
   k.Close()


Nie uruchamiałem tego kodu ale dlaczego sprawdzasz czy istnieje kontrahent o id 3100?
Coś tu jest nie tak chyba.

Autor:  edward [ 2009-10-09, 08:44 ]
Tytuł: 

Sorry za zamieszanie juz dziala poprawnie. Odpowiedz byla jak najbardziej pomocna

Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/