ник: час
1 база NOMENKLATURA источник, табл= NOMENKLATURA_TBL
2 база ARM, таблица = COMODITY_TBL
Структуры таблиц один в один.
надо бы перенести данные из NOMENKLATURA_TBL в COMODITY_TBL
после переноса удалить записи с не указанными реквизитами
GLB_con.Execute "DELETE COMODITY_TBL.SHTRIKHKOD, Len([SHTRIKHKOD]) From COMODITY_TBL Where (((COMODITY_TBL.SHTRIKHKOD) Is Null Or (COMODITY_TBL.SHTRIKHKOD) = """")) Or (((Len([SHTRIKHKOD])) < 13)) WITH OWNERACCESS OPTION;"
GLB_con.Execute "DELETE COMODITY_TBL.COMMODITY_NAME From COMODITY_TBL Where (((COMODITY_TBL.Commodity_Name) Is Null Or (COMODITY_TBL.Commodity_Name) = """")) WITH OWNERACCESS OPTION;"
GLB_con.Execute "DELETE COMODITY_TBL.PRICE From COMODITY_TBL Where (((COMODITY_TBL.Price) Is Null)) Or (((COMODITY_TBL.Price) = 0)) WITH OWNERACCESS OPTION;"
GLB_con.Execute "DELETE COMODITY_TBL.METAGE From COMODITY_TBL Where (((COMODITY_TBL.METAGE) Is Null)) Or (((COMODITY_TBL.METAGE) = """")) WITH OWNERACCESS OPTION;"
|