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

Kody obce
https://forum.mix-soft.pl/viewtopic.php?f=2&t=1678		 Strona 1 z 1
Autor:  Agusia [ 2010-02-02, 10:45 ]
Tytuł:  Kody obce
witam
szukam raportu który pozwoli mi wyszukiwać towary po kodzie obcym w Handlu Forte
Autor:  rafal [ 2010-02-02, 11:41 ]
Tytuł: 
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()
Autor:  Agusia [ 2010-02-02, 13:00 ]
Tytuł: 
Właśnie o to chodziło
Dziękuję
Autor:  zz [ 2010-02-14, 14:59 ]
Tytuł: 
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ć?
Autor:  rafal [ 2010-02-14, 22:49 ]
Tytuł: 
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()
Autor:  zz [ 2010-02-15, 18:12 ]
Tytuł: 
Rafał jesteś wielki!!

Jeszcze ok=0 w zapytaniu ;)
Autor:  kajzii [ 2011-02-07, 20:45 ]
Tytuł: 
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()
Autor:  rafal [ 2011-02-07, 22:44 ]
Tytuł: 
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()
Autor:  kajzii [ 2011-02-07, 22:59 ]
Tytuł: 
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.
Autor:  rafal [ 2011-02-08, 12:01 ]
Tytuł: 
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()
Autor:  kajzii [ 2011-02-08, 14:08 ]
Tytuł: 
Dzięki, teraz juz działa.
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/