Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-11-12, 11:02x



Odpowiedz w temacie  [ Posty: 4 ] 
Przekazanie wartości z SQL do View 
Autor Wiadomość

Rejestracja: 2014-06-01, 13:35
Posty: 20
Post Przekazanie wartości z SQL do View
Kod:
string SQL
string ZMIENNA

Form "Wpisz dokładny numer faktury", 375, 170
ed1=Edit "", ZMIENNA, 20, 30, 255, 18
Button "&OK", 50, 80, 150, 23, 3
Button "&Anuluj", 230, 80, 70, 23, -1
If ExecForm == -1 Then Error ""

SQL = "SELECT DP.lp MZ "
SQL += "inner JOIN MG "
SQL += "ON MG.id = MZ.super "
SQL += "inner JOIN DK "
SQL += "ON MG.idhandl = DK.id "
SQL += "inner JOIN DP "
SQL += "ON DP.super = DK.id "
SQL += "WHERE MG.kod = '"+ZMIENNA+"%' "
SQL += "AND MZ.idtw <> DP.idtw "
SQL += "ORDER BY DP.lp DESC "

Popup(0,"Zbieranie danych")
Popup(1,"Proszę czekać ....")

con.CommandTimeout = 1000

Form "Brakujace pozycje", 380, 230
View "LP:", SQL, 130, 20, 210, 60
Button "&Anuluj", 220, 160, 100, 24, -1
Button "O&K", 60, 160, 100, 24, 2
ExecForm
Error ""


Zamiast podać że nie ma LP 3,2
Daje zapytanie SQL jako tekst, jak to poprawić?


2015-08-24, 11:41
Wyświetl profil
Autor Wiadomość
 


Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3994
Pomógł: 447
Post Re: Przekazanie wartości z SQL do View
A gdzie jest recordset do, którego przekazujesz wynik zapytania?

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2015-08-24, 12:46
Wyświetl profil

Rejestracja: 2014-06-01, 13:35
Posty: 20
Post Re: Przekazanie wartości z SQL do View
Kod:
string faktura
string sConStr
   sConStr = "Driver={Pervasive ODBC Client Interface};ServerName=ADMIN-3FF462258;ServerDSN=power"

   Dispatch con
   dispatch hm
   string SQL

int nx2=260
   int ny=130
   int x,y,dx,dy

   #define adOpenStatic   3
   hm  = "ADODB.Recordset"
   con  = "ADODB.Connection"
   con.ConnectionString = sConStr
   con.Open
IORec ior

Form "",nx2, ny
   x=10 : y=10 : dx=nx2-30 : dy=47
Group "AUTOR: ",x,y,dx,dy
      Edit "", faktura, x+10,y+20, dx-20, 19
      button "&OK",nx2-99,ny-60,80,25,2
      button "Anuluj",nx2-199,ny-60,80,25,-1
      if ExecForm == 2 then

SQL = "SELECT TW.id  from TW "
SQL += "INNER JOIN DP "
SQL += "ON DP.idtw = TW.id "
SQL += "INNER JOIN DK "
SQL += "ON DK.id = DP.super "
SQL += "INNER JOIN MG "
SQL += "ON MG.idhandl = DK.id "
SQL += "INNER JOIN MZ "
SQL += "ON MZ.super = MG.id "
SQL += "WHERE DK.kod = '"+faktura+"' "
SQL += "AND MZ.idtw <> DP.idtw "
SQL += "ORDER BY DP.idtw DESC "

con.CommandTimeout = 1000

      hm.open( SQL, con, adOpenStatic)
      while !hm.eof
          ior.SetField("id",using "%.f",hm.fields("id").value)
      hm.movenext()
        wend
      hm.close
endif
con.close()
showlistwindow(ior,"TW")
nooutput()



Zmieniłem na taka wersje, jednak otwieranie TW nic mi nie daje, wolałbym poprzednią wersje i żeby pokazał LP z bazy DP
Nie widzie w dokumentacji recordset tylko record, jednak dalej nie wiem jak to połączyć z SQL.


2015-08-24, 14:14
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3994
Pomógł: 447
Post Re: Przekazanie wartości z SQL do View
No to po co pokazujesz towary zamiast wypisać pozycje

Kod:
hm.open( SQL, con, adOpenStatic)
      while !hm.eof
          //ior.SetField("id",using "%.f",hm.fields("id").value)
            print hm.fields("dp.lp"),hm.fields("dp.kod"),lf
      hm.movenext()
        wend
      hm.close
endif
con.close()
//showlistwindow(ior,"TW")
//nooutput()

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2015-08-25, 08:49
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 4 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. deklaracja PIT 28 i przekazanie 1%

w Programy Księgowe

pszczepan

0

2168

2009-01-15, 10:53

pszczepan Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Nieodpłatne przekazanie VAT należny

w Programy Księgowe

Abco

0

2253

2017-02-21, 11:20

Abco Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. faktura wewnętrzna dokumentująca przekazanie towaru

w Programy Księgowe

Iva

6

5604

2013-05-22, 13:13

wrob Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Pervasive SQL czy MS SQL 2005 lub 2008 - co lepiej?

w Programy Handlowe

sosnek

1

4113

2009-11-20, 10:33

Notos Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 13 gości


Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników

Szukaj:
Przejdź do:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant