 |
|
Strona 1 z 1
|
[ Posty: 11 ] |
|
| Autor |
Wiadomość |
|
Agusia
Rejestracja: 2008-05-28, 19:48
Posty: 34
|
 Kody obce witam
szukam raportu który pozwoli mi wyszukiwać towary po kodzie obcym w Handlu Forte
|
| 2010-02-02, 10:45 |
|
|
| Autor |
Wiadomość |
|
Mix-soft.pl
|
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4000 Pomógł: 448
|
Kod: //"mixkodo.sc","Szukaj po kodzie obcym","\Procedury\Raporty z menu kartotek\Towary\",0,1.0.0,SYSTEM
dispatch con = GetAdoConnection()
dispatch rs = "ADODB.Recordset"
dispatch xTw = xFactory.NewObject("BTw")
dispatch xTwParams = xTw.Params()
dispatch xIdRows = xFactory.NewObject("IdRows")
string sIn
input "Podaj kod obcy", sIn
string sSQL = using "SELECT iduz FROM UZ WHERE typ = 32 AND kodobcy like '%%%s%%'", sIn
if rs.State == 1 then rs.Close()
rs.Open ( sSQL ,con,3)
if rs.RecordCount > 0 then
rs.MoveFirst()
while !rs.EOF
xIdRows.Add( rs.Fields("iduz").Value )
rs.MoveNext()
wend
endif
xTwParams.wybrane = xIdRows
xTw.Load(xTwParams)
OpenWindow(xTw)
NoOutPut()
|
| 2010-02-02, 11:41 |
|
|
|
Agusia
Rejestracja: 2008-05-28, 19:48
Posty: 34
|
Właśnie o to chodziło
Dziękuję
|
| 2010-02-02, 13:00 |
|
|
|
zz
Rejestracja: 2008-03-10, 14:01
Posty: 593
|
Na towarze działa super.
Próbowałem podobnie z niezrealizowanymi ZMO, na których jest dany kod towaru.
Próbowałem użyć obiektu BDokumentZo
Niestety otrzymuję błąd "Obiekt nie obsługuje właściwości lub metody o nazwie 'wybrane' ",
Jak to można inaczej wyszukać?
_________________
zz
|
| 2010-02-14, 14:59 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4000 Pomógł: 448
|
Kod: //"mixszzo.sc","Szukaj zamówienia z towarem","\Procedury\Raporty z menu kartotek\Zamówienia obce\",0,1.0.0,SYSTEM
dispatch con = GetAdoConnection()
dispatch rs = "ADODB.Recordset"
dispatch xZo = xFactory.NewObject("BDokZo")
dispatch xZoParams = xZo.Params()
dispatch xIdRows = xFactory.NewObject("IdRows")
string sIn
input "Podaj kod towaru", sIn
string sSQL = using "SELECT z.id FROM ZO z WHERE z.id IN (SELECT p.super FROM ZP p WHERE p.kod like '%%%s%%')", sIn
if rs.State == 1 then rs.Close()
rs.Open ( sSQL ,con,3)
if rs.RecordCount > 0 then
rs.MoveFirst()
while !rs.EOF
xIdRows.Add( rs.Fields("id").Value )
rs.MoveNext()
wend
endif
xZoParams.wybrane = xIdRows
xZo.Load(xZoParams)
OpenWindow(xZo)
NoOutPut()
|
| 2010-02-14, 22:49 |
|
|
|
zz
Rejestracja: 2008-03-10, 14:01
Posty: 593
|
Rafał jesteś wielki!!
Jeszcze ok=0 w zapytaniu ;)
_________________
zz
|
| 2010-02-15, 18:12 |
|
|
|
kajzii
Rejestracja: 2011-01-03, 14:47
Posty: 13
|
Witam, jak dodać do tego raportu przedział dat by nie sprawdzał bazy od początku np. z dwóch ostatnich lat.
Dzięki
rafal pisze: Kod: //"mixszzo.sc","Szukaj zamówienia z towarem","\Procedury\Raporty z menu kartotek\Zamówienia obce",0,1.0.0,SYSTEM
dispatch con = GetAdoConnection()
dispatch rs = "ADODB.Recordset"
dispatch xZo = xFactory.NewObject("BDokZo")
dispatch xZoParams = xZo.Params()
dispatch xIdRows = xFactory.NewObject("IdRows")
string sIn
input "Podaj kod towaru", sIn
string sSQL = using "SELECT z.id FROM ZO z WHERE z.id IN (SELECT p.super FROM ZP p WHERE p.kod like '%%%s%%')", sIn
if rs.State == 1 then rs.Close()
rs.Open ( sSQL ,con,3)
if rs.RecordCount > 0 then
rs.MoveFirst()
while !rs.EOF
xIdRows.Add( rs.Fields("id").Value )
rs.MoveNext()
wend
endif
xZoParams.wybrane = xIdRows
xZo.Load(xZoParams)
OpenWindow(xZo)
NoOutPut()
|
| 2011-02-07, 20:45 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4000 Pomógł: 448
|
Kod: //"mixszzo.sc","Szukaj zamówienia z towarem","\Procedury\Raporty z menu kartotek\Zamówienia obce\",0,1.0.0,SYSTEM
dispatch con = GetAdoConnection()
dispatch rs = "ADODB.Recordset"
dispatch xZo = xFactory.NewObject("BDokZo")
dispatch xZoParams = xZo.Params()
dispatch xIdRows = xFactory.NewObject("IdRows")
string sIn
// te inputy możnaby zamienić juz na jakieś ładne FORM
input "Podaj kod towaru", sIn
input "Data od", sDataOd
input "Data do", sDataDo
string sSQL = using "SELECT z.id FROM ZO z WHERE z.id IN (SELECT p.super FROM ZP p WHERE p.kod like '%%%s%%') AND datasp BETWEEN '%s' AND '%s'", sIn, sDataOd, sDataDo
if rs.State == 1 then rs.Close()
rs.Open ( sSQL ,con,3)
if rs.RecordCount > 0 then
rs.MoveFirst()
while !rs.EOF
xIdRows.Add( rs.Fields("id").Value )
rs.MoveNext()
wend
endif
xZoParams.wybrane = xIdRows
xZo.Load(xZoParams)
OpenWindow(xZo)
NoOutPut()
|
| 2011-02-07, 22:44 |
|
|
|
kajzii
Rejestracja: 2011-01-03, 14:47
Posty: 13
|
Dzięki za pomoc, ale mam jeszcze pytanko u mnie nie chce to chodzić, wyskakoje błąd skłądni w lini 14. Oczekiwana zmienna tekstowa jako argument przy wywołaniu INPUT.
mam Symfonię Forte Handel 2010.1.
|
| 2011-02-07, 22:59 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4000 Pomógł: 448
|
Kod: //"mixszzo.sc","Szukaj zamówienia z towarem","\Procedury\Raporty z menu kartotek\Zamówienia obce\",0,1.0.0,SYSTEM
dispatch con = GetAdoConnection()
dispatch rs = "ADODB.Recordset"
dispatch xZo = xFactory.NewObject("BDokZo")
dispatch xZoParams = xZo.Params()
dispatch xIdRows = xFactory.NewObject("IdRows")
string sIn, sDataOd, sDataDo
// te inputy możnaby zamienić juz na jakieś ładne FORM
input "Podaj kod towaru", sIn
input "Data od", sDataOd
input "Data do", sDataDo
string sSQL = using "SELECT z.id FROM ZO z WHERE z.id IN (SELECT p.super FROM ZP p WHERE p.kod like '%%%s%%') AND datasp BETWEEN '%s' AND '%s'", sIn, sDataOd, sDataDo
if rs.State == 1 then rs.Close()
rs.Open ( sSQL ,con,3)
if rs.RecordCount > 0 then
rs.MoveFirst()
while !rs.EOF
xIdRows.Add( rs.Fields("id").Value )
rs.MoveNext()
wend
endif
xZoParams.wybrane = xIdRows
xZo.Load(xZoParams)
OpenWindow(xZo)
NoOutPut()
|
| 2011-02-08, 12:01 |
|
|
|
kajzii
Rejestracja: 2011-01-03, 14:47
Posty: 13
|
Dzięki, teraz juz działa.
|
| 2011-02-08, 14:08 |
|
|
|
|
Strona 1 z 1
|
[ Posty: 11 ] |
|
Kto jest online |
Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 36 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
|
|
|
|
