Da li mi možete dati malo pojašnjenje kako se definiše status ugovora?
Pošto je nemoguće editovati polje na formi koje kontroliše status, jer je svojstvo
Locked postavljeno na
Yes. Zato i pitam za pojašnjenje kako se definiše isti. U kodu za događaj
Form_Current pod formom UgovorDetaljno na osnovu statusa ugovora se definiše mogućnost dodavanja, editovanja ili brisanja zapisa u formi DokumentStavka, kao i ažuriranje ostalih stavki ugovora. Koliko vidim ako je status ugovora 1 (U pripremi) postoji mogućnost rada sa stavkama, u ostalim slučajevima zapisi se zaključavaju kroz VBA kod. Status ugovora 5 (Neotpisan) nije definisan kroz VBA kod.
Ako bi se svojstvo za kombo boks StatusUgovoraID
Locked postavilo na
No i sledeći deo koda iz događaja
Form_Current prebacio na događaj
After Update pod kombo boksom:
Code:
Select Case StatusUgovoraID
Case 1
Me.cmdOveri.Visible = True
Me.AllowAdditions = True
Me.AllowEdits = True
Me.AllowDeletions = True
Me.DokumentStavka.Locked = False
Me.Tab_Povratnica.Visible = False
If Me.NacinPlacanjaID = 2 Then
Me!AdministrativnaZabrana.Form!cmdDatumDokumenta.Visible = True
Me.AdministrativnaZabrana.Locked = False
End If
If Me.NacinPlacanjaID = 3 Then
Me!CekoviGradjana.Form!cmdDatumDokumenta.Visible = True
Me!CekoviGradjana.Form!cmdDatumAktivacije.Visible = True
Me!CekoviGradjana.Locked = False
End If
Case 2
Me.cmdOveri.Visible = False
Me.DokumentStavka.Locked = True
Me.AllowAdditions = False
Me.AllowEdits = False
Me.AllowDeletions = False
Me.Tab_Povratnica.Visible = True
If Me.NacinPlacanjaID = 2 Then
Me!AdministrativnaZabrana.Form!cmdDatumDokumenta.Visible = False
Me.AdministrativnaZabrana.Locked = True
End If
If Me.NacinPlacanjaID = 3 Then
Me!CekoviGradjana.Form!cmdDatumDokumenta.Visible = False
Me!CekoviGradjana.Form!cmdDatumAktivacije.Visible = False
Me.CekoviGradjana.Locked = True
End If
Case 3
Me.cmdOveri.Visible = False
Me.DokumentStavka.Locked = True
Me.AllowAdditions = False
Me.AllowEdits = False
Me.AllowDeletions = False
Me.Tab_Povratnica.Visible = True
Me.Povratnica.Locked = True
Me!Povratnica.Form!cmdDatumDokumenta.Visible = False
Me!Povratnica.Form!cmdOvera.Visible = False
If Me.NacinPlacanjaID = 2 Then
Me!AdministrativnaZabrana.Form!cmdDatumDokumenta.Visible = False
Me.AdministrativnaZabrana.Locked = True
End If
If Me.NacinPlacanjaID = 3 Then
Me!CekoviGradjana.Form!cmdDatumDokumenta.Visible = False
Me!CekoviGradjana.Form!cmdDatumAktivacije.Visible = False
Me.CekoviGradjana.Locked = True
End If
Case 4
Me.cmdOveri.Visible = False
Me.DokumentStavka.Locked = True
Me.AllowAdditions = False
Me.AllowEdits = False
Me.AllowDeletions = False
Me.Tab_Povratnica.Visible = False
If Me.NacinPlacanjaID = 2 Then
Me!AdministrativnaZabrana.Form!cmdDatumDokumenta.Visible = False
Me.AdministrativnaZabrana.Locked = True
End If
If Me.NacinPlacanjaID = 3 Then
Me!CekoviGradjana.Form!cmdDatumDokumenta.Visible = False
Me!CekoviGradjana.Form!cmdDatumAktivacije.Visible = False
Me.CekoviGradjana.Locked = True
End If
End Select
mislim da bi se dobila mogućnost editovanja zapisa i unosa novih.