If FUN_IS_TABLE_IN_BASA("COMMODITY_GROUP_TBL", GLB_DATA_DB_CONNECTION) = True Then
Set RST_COMMODITY_GROUP = New Recordset '"COMMODITY_GROUP_TBL"
Set RST_COMMODITY_GROUP_1 = New Recordset
' Открываем присланную
RST_COMMODITY_GROUP.Open " SELECT COMMODITY_GROUP_TBL.*" _
& " From COMMODITY_GROUP_TBL", GLB_DATA_DB_CONNECTION, adOpenKeyset, adLockOptimistic
If RST_COMMODITY_GROUP.RecordCount <> 0 Then RST_COMMODITY_GROUP.MoveFirst
' открываем местную
RST_COMMODITY_GROUP_1.Open " SELECT COMMODITY_GROUP_TBL.*" _
& " From COMMODITY_GROUP_TBL", GLB_CONNECTION, adOpenKeyset, adLockOptimistic
'просмотрим на совпадения и добавим если нужное
'бегаем по приланой RST_COMMODITY_GROUP
Do While Not RST_COMMODITY_GROUP.EOF ' заполняем наименованиями список товаров
' смотрим в местной имеется или нет такая гуппа
RST_COMMODITY_GROUP_1.Filter = "ID_GROUP = '" & RST_COMMODITY_GROUP("ID_GROUP") & "'"
If RST_COMMODITY_GROUP_1.RecordCount = 0 Then
' если новая группа
RST_COMMODITY_GROUP_1.AddNew
RST_COMMODITY_GROUP_1("ID_GROUP") = RST_COMMODITY("ID_GROUP") ' ID записи
RST_COMMODITY_GROUP_1("GROUP_NAME") = RST_COMMODITY("GROUP_NAME") ' наименование
RST_COMMODITY_GROUP_1("USER_NAME") = RST_COMMODITY("USER_NAME")
RST_COMMODITY_GROUP_1("DATE_RECORDS") = RST_COMMODITY("DATE_RECORDS")
RST_COMMODITY_GROUP_1.Update
End If
RST_COMMODITY_GROUP.MoveNext
Loop
End If
|