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 ""

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()

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()