Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-03-28, 19:42x



Odpowiedz w temacie  [ Posty: 11 ] 
Kody obce 
Autor Wiadomość

Rejestracja: 2008-05-28, 19:48
Posty: 34
Post Kody obce
witam
szukam raportu który pozwoli mi wyszukiwać towary po kodzie obcym w Handlu Forte


2010-02-02, 10:45
Wyświetl profil
Autor Wiadomość
 


Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post 
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()

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

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


2010-02-02, 11:41
Wyświetl profil

Rejestracja: 2008-05-28, 19:48
Posty: 34
Post 
Właśnie o to chodziło
Dziękuję


2010-02-02, 13:00
Wyświetl profil

Rejestracja: 2008-03-10, 14:01
Posty: 590
Post 
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
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post 
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()

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

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


2010-02-14, 22:49
Wyświetl profil

Rejestracja: 2008-03-10, 14:01
Posty: 590
Post 
Rafał jesteś wielki!!

Jeszcze ok=0 w zapytaniu ;)

_________________
zz


2010-02-15, 18:12
Wyświetl profil

Rejestracja: 2011-01-03, 14:47
Posty: 13
Post 
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
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post 
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()

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

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


2011-02-07, 22:44
Wyświetl profil

Rejestracja: 2011-01-03, 14:47
Posty: 13
Post 
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
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post 
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()

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

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


2011-02-08, 12:01
Wyświetl profil

Rejestracja: 2011-01-03, 14:47
Posty: 13
Post 
Dzięki, teraz juz działa.


2011-02-08, 14:08
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 11 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. Kody obce

w Ogólne

agnes11

2

5553

2015-11-19, 16:51

agnes11 Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Załączniki Kody obce

w Programy Handlowe

szejki

13

5057

2021-04-19, 15:50

rafal Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Załączniki Kody obce - eksport

w Programy Handlowe

szejki

11

6052

2023-06-06, 08:37

szejki Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Kody CN

w Programy Handlowe

poly

2

3006

2012-10-12, 14:50

poly Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 7 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:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant