ADD OBJECT cmbpirkejas AS mcf_combo WITH ;
BoundColumn = 2, ;
ColumnCount = 1, ;
BoundTo = .T., ;
Name = "cmbPirkejas"
PROCEDURE cmbpirkejas.Init
SELECT SPACE(70) AS pavad, SPACE(7) AS kod FROM organizac ;
UNION ;
SELECT pavad, kod FROM organizac ;
ORDER BY 1 ;
INTO CURSOR cMok
This.RowSourceType = 2
This.RowSource = "cMok"
This.Value = cMok.kodas
ENDPROC
PROCEDURE cmbpirkejas.Valid
ThisForm.requery_grid()
ENDPROC