:: Не фоксом единым
Работа с 1С
Maxiv
Автор
Стояла задача удалить одну из фирм в 1С Торговле и все документы относящиеся к ней.
Вот кусочек возможно не лучшего кода, но с задачей он справился.

V7=CREATEOBJECT("v77.Application")
PATH_1C=Путь к базе
V7.INITIALIZE(V7.RMTRADE, '/D'+PATH_1C+' /M','NO_SPLASH_SHOW')

ДОК=V7.CREATEOBJECT('Документ')
ДОК.ВЫБРАТЬДОКУМЕНТЫ()
DO WHILE ДОК.ПОЛУЧИТЬДОКУМЕНТ()>0
ТДОК=ДОК.ТЕКУЩИЙДОКУМЕНТ()
ДОКАТР=ТДОК.ПОЛУЧИТЬАТРИБУТ("Фирма")
IF ДОКАТР.НАИМЕНОВАНИЕ==Название фирмы подлежащей удалению
ДОК.УДАЛИТЬ(0)
ENDIF
ENDDO
Ratings: 0 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 6 (Гостей: 6)

© 2000-2024 Fox Club 
Яндекс.Метрика