Dobro jutro.
Citat:
FOX028:
Evo mene sa malim zakasnjenjem, odradio sam ti primer kako mozes stampati fakture. Trebace tu mozda jos detalja, ja sam ubacio samo neke. U prilogu je primer. A sto se tice ovog tvog koda okaci to zadnje sto si radio pa da vidimo u cemu je konkretno problem. Pozdrav.
Prvo hvala za pomoc i za trud.
Kada sam video sta si uradio to me i obradovalo ali i na jedan nacin bacilo u ocaj :)
Video sam da si fenomenalno resio to sa promenom cena i rabatom mada sam ja vec bio odustao od toga.
Ja sam pre ovoga gledajuci onaj tvoj program za fakturisanje i sluzeci se "resavskom prepisivackom skolom" :) , skoro zavrsio ovaj program za mene i jedino sto nisam uspeo da resim to je stampanje faktura i kartice sa dugovanjima kupaca.
Sada kada sam video da si ti dodao to za promene cene i rabat , znao sam da sam opet na pocetku jer zelim to da implementiram i zbog toga mala doza ocaja :).
Sada na ovo sto si ti uradio:
Kod klika na dugme fakturisanje javlja se greska. Kod sam ispravio ovako:
Originalan kod:
Code:
Private Sub Fakturisanje_Click()
If MsgBox("Da li ste sigurni da zelite izvsiti fakturisanje?", vbYesNo, "Fakturisanje") = vbYes Then
DoCmd.SetWarnings False
Me.Ukupno.Value = Form_FakturaOtpremnice.Ukupno.Value
DoCmd.OpenQuery "QFakturisanje"
Me.FakturaOtpremniceFakturisano.Requery
Me.FakturaOtpremnice.Requery
Me.Osveziti.Visible = True
Me.Fakturisanje.Visible = True
If Nz(Form_FakturaOtpremnice.Ukupno.Value, 0) <> 0 Then
Me.BrojFakture.SetFocus
Me.Osveziti.Visible = False
Me.Fakturisanje.Visible = False
End If
DoCmd.SetWarnings True
End If
End Sub
promenjen kod:
Code:
Private Sub Fakturisanje_Click()
If MsgBox("Da li ste sigurni da zelite izvsiti fakturisanje?", vbYesNo, "Fakturisanje") = vbYes Then
DoCmd.SetWarnings False
Me.Ukupno.Value = FakturaOtpremnice.Form!Ukupno.Value
DoCmd.OpenQuery "QFakturisanje"
Me.FakturaOtpremniceFakturisano.Requery
Me.FakturaOtpremnice.Requery
Me.Osveziti.Visible = True
Me.Fakturisanje.Visible = True
If Nz(FakturaOtpremnice.Form!Ukupno.Value, 0) <> 0 Then
Me.BrojFakture.SetFocus
Me.Osveziti.Visible = False
Me.Fakturisanje.Visible = False
End If
DoCmd.SetWarnings True
End If
End Sub
Zatim imam ponovo gresku da IDOtpremnica nije updatable
U QFakturisanje SQL kod je ovakav
Code:
UPDATE Otprmnice SET Otprmnice.IDOtpremnica = [IDOtpremnica], Otprmnice.IDKupac = [IDKupac], Otprmnice.Datum = [Datum], Otprmnice.Fakturisano = True
WHERE (((Otprmnice.IDKupac)=[Forms]![Fakture]![IDKupac]) AND ((Otprmnice.Datum)>=[Forms]![Fakture]![OdDatuma] And (Otprmnice.Datum)<=[Forms]![Fakture]![DoDatuma]) AND ((Otprmnice.Fakturisano)=False));
ja sam ga promenio ovako:
Code:
UPDATE Otpremnice SET Otpremnice.IDKupac = [IDKupac], Otpremnice.DatumOtpremnice = [DatumOtpremnice], Otpremnice.Fakturisano = True, Otpremnice.IDFaktura = [Forms]![Fakture]![IDFaktura]
WHERE (((Otpremnice.IDKupac)=[Forms]![Fakture]![IDKupac]) AND ((Otpremnice.DatumOtpremnice)>=[Forms]![Fakture]![OdDatuma] And (Otpremnice.DatumOtpremnice)<=[Forms]![Fakture]![DoDatuma]) AND ((Otpremnice.Fakturisano)=False));
Posle toga mi sve otpremnice prebaci u fakturisane i u tabeli Otpremnice ih obelezi kao fakturisane ali se onda zaustavi na ovome mestu:
Code:
If Nz(FakturaOtpremnice.Form!Ukupno.Value, 0) <> 0 Then
sa sledecom greskom:
run-time error 2427
You entered an expression that has no value
i posle toga dugmad Fakturisanje i Osvezi ostaju vidljiva.
A samo stampanje fakture na zalost ne funkcionise. U samoj formi u fakturisanim otpremnicama sve je lepo grupisano, dupli su samo oni unosi kod kojih je doslo do promene cene.
Npr. Hleb je u tom periodu obracuna poskupeo i onda imam dve stavke hleba po staroj i novoj ceni i to je jednostavno fenomenalno ali u samom Izvestaju za stampanje sve je izmesano pa tako npr. imam tacan zbir kifli kod kojih se nije menjala cena i koje sam isporucivao svaki dan (znaci sedam puta) ali su te kifle podeljene u tri stavke po meni nerazumljivoj logici.
Znaci u samoj formi u donjem delu gde su fakturisane otpremnice to je dobro izracunato ali u izvestaju za stampanje je potpuno haoticno nabacano pa imam slucaj gde za 10 potrebnih stavki u izvestaju imaju dve stranice racuna.
Pretpostavljam da je negde nastala greska u samom izvestaju ali ja ne mogu da je nadjem.
Pozdrav i prijatan dan