kenan 27.05.2015 19:34
Predmet:Re: Petlja problem

uglavnom ako neko ima nešto gotovo ili slično dobro jest ako ne ja svakako trenutno odusto od ovoga i ostavljam za kasnije

svakako hvala na trudu

zxz 27.05.2015 20:40
Predmet:Re: Petlja problem

Citat:
iif( isnull((select sum(QteEntree) from Stock where IdArt = a.IdArt group by IdArt)) ,0, (select sum(QteEntree) from Stock where IdArt = a.IdArt group by IdArt) )

Dobro ti kaze @Gjoreski. Tesko se snaci u ovom tvome.
Ne postoje niti relacijske veze izmedju tabela niti opisi polja.
E sad da ti bar napises sta zelis napraviti i to detaljno.
Primjer:
tabela ta i ta polje na formi to i to kao uslov da izvuces podatke iz te i te tabele.
Ti si stavio Query u kojemse pominju tabele a koje ne postoje u tvojoj bazi.
Nemoras odustajati ali ono sto napravis mora biti tebi bar sve jasno sta si napravio kao i daljni cilj sta zelis napraviti i naravno to sve opisano jer do kraja ces i ti sam zaboraviti sta si htio.

Ja sam pratio temu ali se nisam ubacivao jer mi je dosta stvari bilo nelogicno pa reko da ne zakomplikujem jos vise.

kenan 26.05.2015 16:05
Predmet:Re: Petlja problem

HVALA
ovo radi perfektno ono što sam zamislio, e sad i ide novo komplikovanje
moja finalna zamisio oko ove funkcije je da operater sam izabira polja koja će mu ići u šemu tj. da sa njima sam upravlja, uglavnom spaja određena polja ili čak da sam formuliše IIF funkciju koja će se odraditi u kodu. E sad ja sam se tu malo igrao i ranije i imao fiksne šeme u kojima operater buklalno nije mogao ništa uvjek je morao tražiti izmjenu i onda se svi zajedno pogubimo u u uslovima.
ovo bi trebala biti procedura koja bi to sve objedinjavala i davala slobodu operateru da se igra sa podatcima ili ćak sebi komplikuje na prikazima

na prvi recorsdet netreba obraćati pažnju on je nebitan ali neka komplet kod
opet je isti bitan SDUpis i sve se vrti oko njega

ovaj kod nekom može biti od koristi i radi

If zxzBox("Da li želite prebaciti podatke u finansisko knjigovodstvo prema zadanim modelima knjiženja?", vbYesNo, "eFinPos") = vbYes Then
'provjera ima li sta za prenos
Dim sql As String
uslov = "PrebFin = 0"
sql = "SELECT * " & _
"FROM OPIzvorSredstava WHERE " & uslov & " ;"
Set rbizv = CurrentDb().OpenRecordset(sql)
If rbizv.RecordCount = 0 Then
zxzBox "Neme ništa za PRENOS." & vbCrLf & "Svi dokumenti su več prebačeni!", vbInformation, "eFinPro"
rbizv.Close
Else
ng = "SELECT OpIzvorSredstava.IDVrstaNaloga, AKTIV.IDOrgJed, OpIzvorSredstava.IDFirma, OpIzvorSredstava.IDPeriod, [BrNalogaZadnji]+1 AS BrNaloga, Now() AS datum, 0 AS Prok, Last([IDNalog]+1) AS nalog " & _
"FROM FinGKG INNER JOIN ((AKTIV INNER JOIN OpIzvorSredstava ON AKTIV.firma = OpIzvorSredstava.IDFirma) INNER JOIN ZFVrstaNaloga ON OpIzvorSredstava.IDVrstaNaloga = ZFVrstaNaloga.IDVrNaloga) ON FinGKG.IDFirma = AKTIV.firma " & _
"GROUP BY OpIzvorSredstava.IDVrstaNaloga, AKTIV.IDOrgJed, OpIzvorSredstava.IDFirma, OpIzvorSredstava.IDPeriod, [BrNalogaZadnji]+1, Now(), 0;"
Set ngu = CurrentDb().OpenRecordset(ng)
Set NGUpis = CurrentDb().OpenRecordset("FinGKG")
With NGUpis
.AddNew
!IDNalog = ngu!nalog
!IDVrstaNaloga = ngu!IDVrstaNaloga
!IDOrg = ngu!IDOrgJed
!IDFirma = ngu!IDFirma
!IDPeriod = ngu!IDPeriod
!BrNaloga = ngu!BrNaloga
!Datum = ngu!Datum
DoCmd.RunSQL "UPDATE ZFVrstaNaloga SET ZFVrstaNaloga.BrNalogaZadnji = " & ngu!BrNaloga & " WHERE ZFVrstaNaloga.IDFirma=" & ngu!IDFirma & " AND ZFVrstaNaloga.IDVrNaloga=" & ngu!IDVrstaNaloga & " AND ZFVrstaNaloga.IDPeriod=" & ngu!IDPeriod & ";"
.Update
.Close
End With
'KOLIKO CE REDOVA BITI UPISANO PRILIKOM KNJIZENJA
RBC = "SELECT Count(ZFSemaD.ID) AS BROJ FROM OpIzvorSredstava INNER JOIN ZFSemaD ON OpIzvorSredstava.sema = ZFSemaD.IDSema;"
Set RbCount = CurrentDb().OpenRecordset(RBC)
'Nazive polja treba ovdje uzimati i upisiviti u SD
'ZAMJENA POLJA U QUERIJU
Polja = "SELECT ZFSemaD.ID, ZFSemaD.IDKonto, OpIzvorSredstava.IDVrstaNaloga, OpIzvorSredstava.IDIzvoraSredstava, ZFSemaD.Polje FROM OpIzvorSredstava INNER JOIN ZFSemaD ON OpIzvorSredstava.sema = ZFSemaD.IDSema GROUP BY ZFSemaD.ID, ZFSemaD.IDKonto, OpIzvorSredstava.IDVrstaNaloga, OpIzvorSredstava.IDIzvoraSredstava, ZFSemaD.Polje;"
Set PUPIS = CurrentDb().OpenRecordset(Polja)
'SD1 JE DIO CODA KOJI CE SE KORISTITI U PETLJI UPISA I VEZE SE SA SD MA POCETKU
sd = "SELECT OpIzvorSredstava.IDOrgJedIzvor, ZFSemaD.IDKonto, OpIzvorSredstava.IDValuta, OpIzvorSredstava.kurs, IIf([ZFSemaD]![PrenosSubAnal]=True,[OpIzvorSredstava]![IDkom]) AS Komit, OpIzvorSredstava.Datum, IIf([ZFSemaD]![DP]='D'," & PUPIS!Polja & ",0) AS Dug, IIf([ZFSemaD]![DP]='P'," & PUPIS!Polja & ",0) AS Pot, OpIzvorSredstava.Opis, OpIzvorSredstava.IDIzvoraSredstava "
sd1 = "FROM OpIzvorSredstava INNER JOIN ZFSemaD ON OpIzvorSredstava.sema = ZFSemaD.IDSema "
sd1 = sd1 & "GROUP BY OpIzvorSredstava.IDOrgJedIzvor, ZFSemaD.IDKonto, OpIzvorSredstava.IDValuta, OpIzvorSredstava.kurs, IIf([ZFSemaD]![PrenosSubAnal]=True,[OpIzvorSredstava]![IDkom]), OpIzvorSredstava.Datum, IIf([ZFSemaD]![DP]='D'," & PUPIS!Polja & ",0), IIf([ZFSemaD]![DP]='P'," & PUPIS!Polja & ",0), OpIzvorSredstava.Opis, OpIzvorSredstava.IDIzvoraSredstava;"
sd = sd & sd1
i = 0
Set SDUpis = CurrentDb().OpenRecordset(sd)
Set rs = CurrentDb().OpenRecordset("FINGKS", dbOpenDynaset, dbSeeChanges)
With rs
SDUpis.MoveFirst
Do While Not SDUpis.EOF
.AddNew
i = i + 1
Forms!f!T = SDUpis
!Knjizenje = i
!IDNalog = ngu!nalog
!IDVrstaNaloga = ngu!IDVrstaNaloga
!IDOrg = SDUpis!IDOrgJedIzvor
!IDKonto = SDUpis!IDKonto
!IDValuta = SDUpis!IDValuta
!IDKom = SDUpis!KOMit
!IDFirma = ngu!IDFirma
!Datum = SDUpis!Datum
!IDPeriod = ngu!IDPeriod
!Dug = SDUpis!Dug
!Pot = SDUpis!Pot
.Update
SDUpis.MoveNext
Loop
End With
End If
End If

kenan 26.05.2015 16:30
Predmet:Re: Petlja problem

GREŠKA
IPAK NE RADI DIO ZA PROMJENU POLJA IMAL KO KAKVU IDEJU UVJEK UZIMA ISTO

Gjoreski 27.05.2015 23:12
Predmet:Re: Petlja problem

Ma znam ja sto oce on da uradi.
Kod nas u gradu ima jedna firma koja ima jedan DOS program za knigovodstvo u kome sami korisnici su mogli kreirati neke izvestae ,e sad u cemu je bila fora.
Ja poznajem taj programer koj sve to uradio i pitao sam ga kako je toj to uradio a on mi rekao.
To je samo opticka varka za korisnici.Kaze ja sam uradio jednu tabelu koja na podizajne te forme se puni sa podatke od razlicite finkcije i u ta tabela se nalaze sve podatke sa koi moze raditi korisnik.
Uradio e isto i nekoliko funkcije u koi korisnik moze sabirati grupirati,deliti podatke i funkcije za raspored izvestaja.
Isto je uradio i tabela u koja se sve te parametre se upise u funkcija sa koja moze prikazivati izvestaj na osnovu parametri koi e zadao korisnik u parametarske tabele.
Bilo e super resenie za taj period (95-98 godine ) kada jos nisu bili sa zakonom doneti pravila za kompjuterske obrasci. Ova firma sad jos ima taj program ali su uradiri i novi program u C# i Sql server koi e kopija na ovaj dosovski i u novi su stavili nesto slicno samo sto u novi koriste funkcije koi mogu kreirati stored procedure na serveru ,i ovde to su uradili na isti nacin da podatke se vuku od jednom tabelu.
Zato ti kazem prvo moras uraditi plan sta oces da uradis, koi sve rezultate mozes dobiti i onda mozes se baciti na poslu. Kad sve ovo pripremis bice ti lakse da to uradis a i za nama je lakse da ti pomognemo u realizacije proekta.
Nemozes to uraditi sa jedan if then uslov.ako resis da radis to mi smo tu za pomos.srecno

Gjoreski 04.06.2015 19:11
Predmet:Re: Petlja problem

Sto bidna so ova ili operacijata e odlozena?

zxz 04.06.2015 21:05
Predmet:Re: Petlja problem

Izgleda odustao a nije trebao.

Avko 04.06.2015 21:46
Predmet:Re: Petlja problem

post za postom
pitanje za pitanjem, kao da je ovo teach support in real time,
pa treba sacekati mozda dan dva
i mogao bar staviti u skript vb kod pa da to necemu slici
doci ce sutra kad se malo odmori

Gjoreski 05.06.2015 10:08
Predmet:Re: Petlja problem

Kaj nas vikaat: TOA STO MOZES DA GO NAPRAVIS DENES NE OSTAVAJ GO ZA UTRE.

kenan 08.06.2015 13:23
Predmet:Re: Petlja problem

hvala svima na trudu nisam odustao nego sam rješio jednostavnije, ono što sam zamislio je bilo kompikovano mada ideja i dalje živi za nekad kasnije