|
|
Strona 1 z 1
|
[ Posty: 8 ] |
|
Autor |
Wiadomość |
supersebek
Rejestracja: 2012-10-29, 20:13 Posty: 40
|
petelki
Mam 2 petle. Jedna jest zagniezdzona i gdy przejdzie ta zagniezdzona to wyskakuje blad. "Funkcja BOF lub EOF zwraca wartość prawdziwą lub bieżący rekord został usunięty" gdy ma isc od poczatku. //inicjalizacja obiektu dokumentu wydania z magazynu w buforze Kod: long sub znajdz_magazyn(long idmg) long mgmagazyn
BaseAll mg mg.setbase("MG") mg.setkey("id") mg.setkeyseg("id", idmg)
znajdz_magazyn = mg.getfield("magazyn") // message using "%l", mgmagazyn
endsub
long sub rez_tow(long idmg) dispatch con = GetAdoConnection() dispatch rs = "ADODB.Recordset" string querySQL, querySQL2, querySQL3, querySQL4 string qsql, qsql2 long ilosc2
long suma2 = 0 long suma long x long iloscre string s
dispatch xDokMg dispatch xTw, xMg, xKh dispatch xRezerwacja int err //ZO 3630/12/2012 //PW 3266/12/2012 long mgm long rez string params dispatch xDokumentMg string towar2
message using "%l", idmg querySQL = "select ilosc as ilo, tw.kod as towarkod from hm.mg join hm.mz on mg.id =mz.super join hm.tw on mz.idtw=tw.id where mg.id=" qsql = using "%s'%l'",querySQL,idmg
if rs.State == 1 then rs.Close() rs.Open(qsql, con, 3)
if rs.RecordCount > 0 then rs.MoveFirst() [u]while !rs.EOF[/u]
iloscre = rs.Fields("ilo").Value*(-1) towar2 = rs.Fields("towarkod").Value
suma = iloscre querySQL2 = "select (case when SUM(rez.iloscrz) IS null then 0 else SUM(rez.iloscrz) end) as iloscc,zp.ilosc as zpilosc,zo.kod as zokod1,zo.id as zoid from hm.mg join hm.mz on mg.id =mz.super join hm.tw on mz.idtw = tw.id join hm.zp on zp.idtw=tw.id join hm.zo on zo.id=zp.super left outer join (select rz.iloscrz,rz.idtw,zo.id from hm.zo left outer join hm.RZ on zo.id=rz.iddokrz join hm.TW on tw.id=rz.idtw) as rez on rez.idtw=zp.idtw and rez.id=zo.id where (zp.ilosc - (case when rez.iloscrz IS null then 0 else rez.iloscrz end)) > 0 and tw.kod=" querySQL3 = "group by zo.kod, zp.ilosc, zo.id having (zp.ilosc - (case when SUM(rez.iloscrz) IS null then 0 else SUM(rez.iloscrz) end)) > 0"
//case when rez.iloscrz IS null then 0 else rez.iloscrz end as iloscc qsql2 = using "%s'%s' %s",querySQL2,towar2,querySQL3 if rs.State == 1 then rs.Close() rs.Open(qsql2, con, 3)
if rs.RecordCount > 0 then rs.MoveFirst() [u]while !rs.EOF[/u] message using "%s", rs.Fields("zokod1").Value s = rs.Fields("zokod1").Value s = using "numer='%s'", s xDokMg = xFactory.NewObject("BDokZo") message using "%s", s
err = xDokMg.Load(s) //ZO 3630/12/2012 //PW 3266/12/2012 if err then error "Błąd Load()"
xDokumentMg = xFactory.NewObject("BDokumentZo") params = using "id=%l", xDokMg.item(1).id err = xDokumentMg.Load(params) if err then error "Błąd Load()"
xTw = xFactory.NewObject("BTw") xMg = xFactory.NewObject("BMg") xKh = xFactory.NewObject("BKh")
xRezerwacja = xFactory.NewObject("BRezerwacja") err = xRezerwacja.Edit() if err then error "Błąd Edit()" xRezerwacja.typ = 2 // rezerwacja do pozycji xRezerwacja.typrzrw = 1 // rezerwacja ilościowa message using "%s", towar2 params = using "kod='%s'", towar2 message using "%s", params xRezerwacja.towar = xTw.Give(params) params = using "kod='%s'", xDokumentMg.danekh.khkod xRezerwacja.kontrahent = xKh.Give(params)
mgm = znajdz_magazyn(idmg) message using "%l", mgm
//string mgm =using "id=%l", znajdz_magazyn(zidmg) params = using "id='%l'", mgm xRezerwacja.magazyn = xMg.Give(params)
xRezerwacja.termin = xDokumentMg.dataSprzedazy xRezerwacja.data = xDokumentMg.dataSprzedazy
suma = iloscre x = rs.Fields("zpilosc").Value - rs.Fields("iloscc").Value suma2 = suma2 + x
if suma2<suma then goto nastepny else x = suma-(suma2-x)
nastepny: if rs.Fields("zpilosc").Value - rs.Fields("iloscc").Value > suma then x = suma endif message using "%l", x xRezerwacja.ilosc = x //xDokumentMg.pozycje.item(1).ilosc message using "%l", x // powiązanie rezerwacji z pozycją dokumentu magazynowego xRezerwacja.iddokrz = xDokumentMg.id xRezerwacja.bazadokrz = 33 xRezerwacja.idpozrz = xDokumentMg.pozycje.item(1).id xRezerwacja.bazapozrz = 37 err = xRezerwacja.Save() if err then error "Błąd Save()" endif
if rs.Fields("zpilosc").Value - rs.Fields("iloscc").Value >= suma then exit endif
if suma-(suma2-x)<=rs.Fields("zpilosc").Value then exit endif
koniecpetli:
rs.MoveNext() wend endif rs.MoveNext() wend endif
endsub
/* */
|
2013-01-04, 21:42 |
|
|
Autor |
Wiadomość |
Mix-soft.pl
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4000 Pomógł: 448
|
Re: petelki
Chciałbym pomóc ale za dużo kodu do analizy jak dla mnie.
Napisz od początku kod który zawiera tylko te dwie pętle i zobacz jak po nich chodzi i co zwraca.
|
2013-01-04, 23:03 |
|
|
supersebek
Rejestracja: 2012-10-29, 20:13 Posty: 40
|
Re: petelki
Chyba wiem gdzie lezy problem. Po prostu jak otwieram pierwsze sql to na drugim jest zamykane rs. Jeszcze nie wiem jak do tego podejsc. 2 na raz nie da sie miec otwartych. ciekawe jak zrobic zeby sql pamietal te otwarte pierwsze zapytanie.
|
2013-01-05, 00:03 |
|
|
Administrator
Administrator
Rejestracja: 2007-11-15, 12:42 Posty: 102 Pomógł: 7
|
Re: petelki
Zadeklatuj rs i rs2 oddzielne dla kazdej petli
_________________ Administrator
forum.mojaSymfonia.pl
|
2013-01-05, 00:18 |
|
|
supersebek
Rejestracja: 2012-10-29, 20:13 Posty: 40
|
Re: petelki
dzieki. dziala. wszakze jeszcze musze troche posiedziec nad tym kodem, ale jedno z glowy:)
|
2013-01-05, 10:47 |
|
|
supersebek
Rejestracja: 2012-10-29, 20:13 Posty: 40
|
rezerwacje automatyczne
Mam tu taki kod, który za zadanie ma automatycznie rezerwować do zamówień z przyjęć towarów. Jak mam ZO na 2 identyczne towary to przy przyjęciu rezerwuje mi towar do pozycji jednej ZO i do pozycji 2 ZO. Tak jak by dublował rezerwacje, a ma wpisane w idpozrz konkretne id pozycji. Mimo tego tak jak napisałem rezerwuje się towar do 2 pozycji na ten sam towar. Kod: xRezerwacja.iddokrz = xDokumentMg.id xRezerwacja.bazadokrz = 45
xRezerwacja.idpozrz = zpid //xDokumentMg.pozycje.item(1).id xRezerwacja.bazapozrz = 30 Może coś z tym, ale nie wiem jak to zmodyfikować i czy w ogóle da się zamiast towaru podać konkretne id pozycji. Kod: params = using "kod='%s'", towar2
xRezerwacja.towar = xTw.Give(params) Kod: //inicjalizacja obiektu dokumentu wydania z magazynu w buforze
long sub znajdz_magazyn(long idmg) long mgmagazyn
BaseAll mg mg.setbase("MG") mg.setkey("id") mg.setkeyseg("id", idmg)
znajdz_magazyn = mg.getfield("magazyn") // message using "%l", mgmagazyn
endsub
long sub rez_tow(long idmg) dispatch con = GetAdoConnection() dispatch rs = "ADODB.Recordset" dispatch rs2 = "ADODB.Recordset" string querySQL, querySQL2, querySQL3, querySQL4 string qsql, qsql2 float ilosc2
float suma2 = 0.0 float suma float x float iloscre string s float w
dispatch xDokMg dispatch xTw, xMg, xKh dispatch xRezerwacja int err //ZO 3630/12/2012 //PW 3266/12/2012 long mgm long rez string params dispatch xDokumentMg string towar2 long zpid long zoid
querySQL = "select ilosc as ilo, tw.kod as towarkod from hm.mg join hm.mz on mg.id =mz.super join hm.tw on mz.idtw=tw.id where mg.id=" qsql = using "%s'%l'",querySQL,idmg
if rs.State == 1 then rs.Close()
rs.Open(qsql, con, 3)
rs.MoveFirst() while !rs.EOF // if rs.eof then //message "nie ma nic" //else iloscre = rs.Fields("ilo").Value*(-1) towar2 = rs.Fields("towarkod").Value
suma = iloscre //querySQL2 = "select zp.id as zpid, (case when SUM(rz.iloscrz) IS null then 0 else SUM(rz.iloscrz) end) as iloscc,zp.ilosc as zpilosc,zo.kod as zokod1,zo.id as zoid ,zp.lp from hm.ZO join hm.ZP on zp.super=zo.id left outer join hm.RZ on rz.iddokrz=zo.id where zo.data>='2013-01-21' and zp.kod=" //querySQL3 = "group by zp.id, zo.kod,zp.lp, zo.id,zp.ilosc having (zp.ilosc - (case when SUM(rz.iloscrz) IS null then 0 else SUM(rz.iloscrz) end)) > 0 order by zoid" querySQL2 = "select zp.id as zpid,(case when SUM(rez.iloscrz) IS null then 0 else SUM(rez.iloscrz) end) as iloscc, zp.ilosc as zpilosc,zo.kod as zokod1,zo.id as zoid ,zp.lp from hm.ZO join hm.ZP on zp.super=zo.id join hm.TW on zp.idtw=tw.id left outer join (select rz.iloscrz,rz.idtw,zo.id from hm.zo left outer join hm.RZ on zo.id=rz.iddokrz join hm.TW on tw.id=rz.idtw) as rez on rez.idtw=zp.idtw and rez.id=zo.id where zo.data>='2013-01-21' and tw.kod=" querySQL3 = "group by zp.id, zo.kod,zp.lp, zo.id,zp.ilosc having (zp.ilosc - (case when SUM(rez.iloscrz) IS null then 0 else SUM(rez.iloscrz) end)) > 0 order by zoid" //querySQL2 = "select zo.kod as zokod1,zp.id as zpid,zp.lp,(case when SUM(rz.iloscrz) IS null then 0 else SUM(rz.iloscrz) end) as iloscc,zo.id as zoid,zp.ilosc as zpilosc from hm.ZO join hm.zp on zp.super=zo.id left outer join hm.RZ on rz.iddokrz=zo.id where zp.kod=" //querySQL3 = "group by zo.kod,zp.lp,zp.id,zo.id,zp.ilosc having (zp.ilosc - (case when SUM(rz.iloscrz) IS null then 0 else SUM(rz.iloscrz) end)) > 0 order by zo.id" //case when rez.iloscrz IS null then 0 else rez.iloscrz end as iloscc qsql2 = using "%s'%s' %s",querySQL2,towar2,querySQL3 if rs2.State == 1 then rs2.Close() rs2.Open (qsql2, con, 3)
if rs2.eof then message "pusty" goto koniecpetli2
endif rs2.MoveFirst() while !rs2.EOF zpid = rs2.Fields("zpid").Value zoid =rs2.Fields("zoid").Value s = rs2.Fields("zokod1").Value s = using "numer='%s'", s xDokMg = xFactory.NewObject("BDokZo")
err = xDokMg.Load(s) //ZO 3630/12/2012 //PW 3266/12/2012 if err then error "Błąd Load()"
xDokumentMg = xFactory.NewObject("BDokumentZo") params = using "id=%l", zoid err = xDokumentMg.Load(params)
if err then error "Błąd Load()"
xTw = xFactory.NewObject("BTw") xMg = xFactory.NewObject("BMg") xKh = xFactory.NewObject("BKh")
xRezerwacja = xFactory.NewObject("BRezerwacja") err = xRezerwacja.Edit() if err then error "Błąd Edit()" xRezerwacja.typ = 2 // rezerwacja do pozycji xRezerwacja.typrzrw = 2 //1 // rezerwacja ilościowa
params = using "kod='%s'", towar2
xRezerwacja.towar = xTw.Give(params) params = using "kod='%s'", xDokumentMg.danekh.khkod xRezerwacja.kontrahent = xKh.Give(params)
mgm = znajdz_magazyn(idmg)
//string mgm =using "id=%l", znajdz_magazyn(zidmg) params = using "id='%l'", mgm xRezerwacja.magazyn = xMg.Give(params)
xRezerwacja.termin = xDokumentMg.dataSprzedazy xRezerwacja.data = xDokumentMg.dataSprzedazy
suma = iloscre
x = rs2.Fields("zpilosc").Value - rs2.Fields("iloscc").Value suma2 = suma2 + x
if suma2<suma then goto nastepny else x = suma-(suma2-x) message using "%d", x w = x goto nastepny2
nastepny: if rs2.Fields("zpilosc").Value - rs2.Fields("iloscc").Value > suma then x = suma endif
nastepny2: if x <= 0 then exit endif xRezerwacja.ilosc = x //xDokumentMg.pozycje.item(1).ilosc // powiązanie rezerwacji z pozycją dokumentu magazynowego xRezerwacja.iddokrz = xDokumentMg.id xRezerwacja.bazadokrz = 45
xRezerwacja.idpozrz = zpid //xDokumentMg.pozycje.item(1).id xRezerwacja.bazapozrz = 30 err = xRezerwacja.Save() if err then error "Błąd Save()" message using "Zarezerwowano towar %s w ilości %f do zamówienia %s", towar2,x,s endif
//if rs2.Fields("zpilosc").Value - rs2.Fields("iloscc").Value >= suma then //exit //endif
if x== w then exit endif
koniecpetli:
rs2.MoveNext() wend
koniecpetli2:
suma2 = 0.0 message "przechodzi" //if x ==suma-(suma2-x) then //exit //endif rs.MoveNext() //endif wend
endsub
/* */
|
2013-01-22, 13:56 |
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4000 Pomógł: 448
|
Re: petelki
U nie wywala się na Kod: xRezerwacja.ilosc = 1 Wersja 2012a
Załączniki:
hmfrez01.jpg [ 9.32 KiB | Przeglądany 3599 razy ]
|
2013-01-22, 16:01 |
|
|
supersebek
Rejestracja: 2012-10-29, 20:13 Posty: 40
|
Re: Rezerwacje auto
1. Wywołujemy metodę "rez_tow" w procedurze dokumentu magazynowego. OnAfterInsert Kod: #include "rezerwacja" OnAfterInsert = rez_tow(lId) raport rezerwacja: Kod: //inicjalizacja obiektu dokumentu wydania z magazynu w buforze
long sub znajdz_magazyn(long idmg) long mgmagazyn
BaseAll mg mg.setbase("MG") mg.setkey("id") mg.setkeyseg("id", idmg)
znajdz_magazyn = mg.getfield("magazyn") // message using "%l", mgmagazyn
endsub
long sub rez_tow(long idmg) dispatch con = GetAdoConnection() dispatch rs = "ADODB.Recordset" dispatch rs2 = "ADODB.Recordset" string querySQL, querySQL2, querySQL3, querySQL4 string qsql, qsql2 float ilosc2
float suma2 = 0.0 float suma float x float iloscre string s float w
dispatch xDokMg dispatch xTw, xMg, xKh dispatch xRezerwacja int err //ZO 3630/12/2012 //PW 3266/12/2012 long mgm long rez string params dispatch xDokumentMg string towar2 long zpid long zoid
querySQL = "select ilosc as ilo, tw.kod as towarkod from hm.mg join hm.mz on mg.id =mz.super join hm.tw on mz.idtw=tw.id where mg.id=" qsql = using "%s'%l'",querySQL,idmg
if rs.State == 1 then rs.Close()
rs.Open(qsql, con, 3)
rs.MoveFirst() while !rs.EOF // if rs.eof then //message "nie ma nic" //else iloscre = rs.Fields("ilo").Value*(-1) towar2 = rs.Fields("towarkod").Value
suma = iloscre //querySQL2 = "select zp.id as zpid, (case when SUM(rz.iloscrz) IS null then 0 else SUM(rz.iloscrz) end) as iloscc,zp.ilosc as zpilosc,zo.kod as zokod1,zo.id as zoid ,zp.lp from hm.ZO join hm.ZP on zp.super=zo.id left outer join hm.RZ on rz.iddokrz=zo.id where zo.data>='2013-01-21' and zp.kod=" //querySQL3 = "group by zp.id, zo.kod,zp.lp, zo.id,zp.ilosc having (zp.ilosc - (case when SUM(rz.iloscrz) IS null then 0 else SUM(rz.iloscrz) end)) > 0 order by zoid" querySQL2 = "select zp.id as zpid,(case when SUM(rez.iloscrz) IS null then 0 else SUM(rez.iloscrz) end) as iloscc, zp.ilosc as zpilosc,zo.kod as zokod1,zo.id as zoid ,zp.lp from hm.ZO join hm.ZP on zp.super=zo.id join hm.TW on zp.idtw=tw.id left outer join (select rz.iloscrz,rz.idtw,zo.id from hm.zo left outer join hm.RZ on zo.id=rz.iddokrz join hm.TW on tw.id=rz.idtw) as rez on rez.idtw=zp.idtw and rez.id=zo.id where zo.data>='2013-01-21' and tw.kod=" querySQL3 = "group by zp.id, zo.kod,zp.lp, zo.id,zp.ilosc having (zp.ilosc - (case when SUM(rez.iloscrz) IS null then 0 else SUM(rez.iloscrz) end)) > 0 order by zoid" //querySQL2 = "select zo.kod as zokod1,zp.id as zpid,zp.lp,(case when SUM(rz.iloscrz) IS null then 0 else SUM(rz.iloscrz) end) as iloscc,zo.id as zoid,zp.ilosc as zpilosc from hm.ZO join hm.zp on zp.super=zo.id left outer join hm.RZ on rz.iddokrz=zo.id where zp.kod=" //querySQL3 = "group by zo.kod,zp.lp,zp.id,zo.id,zp.ilosc having (zp.ilosc - (case when SUM(rz.iloscrz) IS null then 0 else SUM(rz.iloscrz) end)) > 0 order by zo.id" //case when rez.iloscrz IS null then 0 else rez.iloscrz end as iloscc qsql2 = using "%s'%s' %s",querySQL2,towar2,querySQL3 if rs2.State == 1 then rs2.Close() rs2.Open (qsql2, con, 3)
if rs2.eof then message "pusty" goto koniecpetli2
endif rs2.MoveFirst() while !rs2.EOF zpid = rs2.Fields("zpid").Value zoid =rs2.Fields("zoid").Value s = rs2.Fields("zokod1").Value s = using "numer='%s'", s xDokMg = xFactory.NewObject("BDokZo")
err = xDokMg.Load(s) //ZO 3630/12/2012 //PW 3266/12/2012 if err then error "Błąd Load()"
xDokumentMg = xFactory.NewObject("BDokumentZo") params = using "id=%l", zoid err = xDokumentMg.Load(params)
if err then error "Błąd Load()"
xTw = xFactory.NewObject("BTw") xMg = xFactory.NewObject("BMg") xKh = xFactory.NewObject("BKh")
xRezerwacja = xFactory.NewObject("BRezerwacja") err = xRezerwacja.Edit() if err then error "Błąd Edit()" xRezerwacja.typ = 2 // rezerwacja do pozycji xRezerwacja.typrzrw = 2 //1 // rezerwacja ilościowa
params = using "kod='%s'", towar2
xRezerwacja.towar = xTw.Give(params) params = using "kod='%s'", xDokumentMg.danekh.khkod xRezerwacja.kontrahent = xKh.Give(params)
mgm = znajdz_magazyn(idmg)
//string mgm =using "id=%l", znajdz_magazyn(zidmg) params = using "id='%l'", mgm xRezerwacja.magazyn = xMg.Give(params)
xRezerwacja.termin = xDokumentMg.dataSprzedazy xRezerwacja.data = xDokumentMg.dataSprzedazy
suma = iloscre
x = rs2.Fields("zpilosc").Value - rs2.Fields("iloscc").Value
suma2 = suma2 + x
if suma2<suma then goto nastepny else x = suma-(suma2-x) message using "%d", x w = x goto nastepny2
nastepny: if rs2.Fields("zpilosc").Value - rs2.Fields("iloscc").Value > suma then x = suma endif
nastepny2: if x <= 0 then exit endif
xRezerwacja.ilosc = x //xDokumentMg.pozycje.item(1).ilosc
// powiązanie rezerwacji z pozycją dokumentu magazynowego xRezerwacja.iddokrz = xDokumentMg.id xRezerwacja.bazadokrz = 45
xRezerwacja.idpozrz = zpid //xDokumentMg.pozycje.item(1).id xRezerwacja.bazapozrz = 30
err = xRezerwacja.Save() if err then error "Błąd Save()" message using "Zarezerwowano towar %s w ilości %f do zamówienia %s", towar2,x,s endif
//if rs2.Fields("zpilosc").Value - rs2.Fields("iloscc").Value >= suma then //exit //endif
if x== w then exit endif
koniecpetli:
rs2.MoveNext() wend
koniecpetli2:
suma2 = 0.0 message "przechodzi" //if x ==suma-(suma2-x) then //exit //endif rs.MoveNext() //endif wend
endsub
2. Tworzymy ZO 3. Tworzymy PW na ten towar z ZO Gdy tworzymy 2 towary na ZO takie same to tworzy rezerwacje do tych 2 pozycji.
|
2013-01-23, 10:59 |
|
|
|
Strona 1 z 1
|
[ Posty: 8 ] |
|
Kto jest online |
Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 27 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
|
|
|
|