m_data = get_path + "ZaplData" OPEN DATABASE (m_data) SET DATABASE TO (m_data) DECLARE new_flds[1] STORE 0 TO fld_new SELECT Sel_Lang GO TOP depo_vhod = "SELECT Nu.egn, Rab.ime, Nu.izs, Rab.fl_depo, Nu.bgod, ScanZapl(Rab.Egn) AS OsZp, Rab.Key1, Struct.Text" SCAN depo_vhod = depo_vhod + ",Rab.Ime" + STRZERO(Kod,2)+", Struct.Text"+ STRZERO(Kod,2) DECLARE new_fld[fld_new] new_fld[fld_new] = STRZERO(Kod,2) ENDSCAN depo_vhod = depo_vhod + " FROM zapldata!nu INNER JOIN zapldata!rab ON Nu.egn = Rab.egn INNER JOIN zapldata!Struct ON Rab.egn = Struct.egn WHERE Nu.kod = ?__nKod .AND. .NOT. Rab.NoZapl ORDER BY Rab.Ime" IF LEN(depo_vhod) > 255 depo_vhod = "CREATE SQL VIEW DepoVhod AS " + depo_vhod m_file = dloc + "ViewProg.PRG" m_file1 = dloc + "ViewProg.FXP" STRTOFILE(depo_vhod, m_file) COMPILE (m_file) DO (m_file1) ERASE (m_file) ERASE (m_file1) ELSE CREATE SQL VIEW DepoVhod AS &depo_vhod ENDIF v_tables = "ZaplData!Nu,ZaplData!Rab" SetPropView("DepoVhod", "__nKod, 'N'") DBSETPROP("DepoVhod.Egn" , "Field", "KeyField" , .t.) DBSETPROP("DepoVhod.Egn" , "Field", "Updatable" , .t.) DBSETPROP("DepoVhod.Egn" , "Field", "UpdateName", "ZaplData!Nu.Egn") DBSETPROP("DepoVhod.Egn" , "Field", "DataType" , "C(10)") DBSETPROP("DepoVhod.bGod" , "Field", "KeyField" , .t.) DBSETPROP("DepoVhod.bGod" , "Field", "Updatable" , .t.) DBSETPROP("DepoVhod.bGod" , "Field", "UpdateName", "ZaplData!Nu.bGod") DBSETPROP("DepoVhod.bGod" , "Field", "DataType" , "N(4)") DBSETPROP("DepoVhod.Fl_Depo", "Field", "KeyField", .t.) DBSETPROP("DepoVhod.Fl_Depo", "Field", "Updatable", .t.) DBSETPROP("DepoVhod.Fl_Depo", "Field", "UpdateName", "ZaplData!Rab.Fl_Depo") DBSETPROP("DepoVhod.Fl_Depo", "Field", "DataType" , "L(1)") DBSETPROP("DepoVhod.Ime", "Field", "KeyField", .t.) DBSETPROP("DepoVhod.Ime", "Field", "Updatable", .t.) DBSETPROP("DepoVhod.Ime", "Field", "UpdateName", "ZaplData!Rab.Ime") DBSETPROP("DepoVhod.Ime", "Field", "DataType" , "C(40)") DBSETPROP("DepoVhod.Izs", 'Field', 'KeyField', .T.) DBSETPROP("DepoVhod.Izs", 'Field', 'Updatable', .T.) DBSETPROP("DepoVhod.Izs", 'Field', 'UpdateName', 'ZaplData!Nu.Izs') DBSETPROP("DepoVhod.Izs", 'Field', 'DataType', "N(12,2)") DBSETPROP("DepoVhod.Oszp", 'Field', 'KeyField', .F.) DBSETPROP("DepoVhod.Oszp", 'Field', 'Updatable', .F.) DBSETPROP("DepoVhod.Oszp", 'Field', 'UpdateName', '') DBSETPROP("DepoVhod.Oszp", 'Field', 'DataType', "N(13,2)") FOR asd = 1 TO fld_new DBSETPROP("DepoVhod.Ime"+new_fld[asd], 'Field', 'KeyField', .T.) DBSETPROP("DepoVhod.Ime"+new_fld[asd], 'Field', 'Updatable', .T.) DBSETPROP("DepoVhod.Ime"+new_fld[asd], 'Field', 'UpdateName', 'zapldata!Rab.Ime'+new_fld[asd]) DBSETPROP("DepoVhod.Ime"+new_fld[asd], 'Field', 'DataType', "C(40)") DBSETPROP("DepoVhod.Text"+new_fld[asd], 'Field', 'KeyField', .T.) DBSETPROP("DepoVhod.Text"+new_fld[asd], 'Field', 'Updatable', .f.) DBSETPROP("DepoVhod.Text"+new_fld[asd], 'Field', 'UpdateName', 'zapldata!Struct.Text'+new_fld[asd]) DBSETPROP("DepoVhod.Text"+new_fld[asd], 'Field', 'DataType', "C(60)") NEXT SET DATABASE TO CLOSE DATA ALL FUNCTION SetPropView(which_view, param_lst) DBSETPROP(which_view, 'View', 'UpdateType', 1) DBSETPROP(which_view, 'View', 'WhereType', 3) DBSETPROP(which_view, 'View', 'FetchMemo', .F.) DBSETPROP(which_view, 'View', 'SendUpdates', .T.) DBSETPROP(which_view, 'View', 'UseMemoSize', 255) DBSETPROP(which_view, 'View', 'FetchSize', 100) DBSETPROP(which_view, 'View', 'MaxRecords', -1) DBSETPROP(which_view, 'View', 'Tables', v_tables) DBSETPROP(which_view, 'View', 'Prepared', .F.) DBSETPROP(which_view, 'View', 'CompareMemo', .T.) DBSETPROP(which_view, 'View', 'FetchAsNeeded', .F.) DBSETPROP(which_view, 'View', 'FetchSize', 100) DBSETPROP(which_view, 'View', 'ParameterList', param_lst) DBSETPROP(which_view, 'View', 'Comment', "") DBSETPROP(which_view, 'View', 'BatchUpdateCount', 1) DBSETPROP(which_view, 'View', 'ShareConnection', .F.) RETURN