Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.28;
Скачать: CL | DM;

Вниз

Delphi+1C. Поиск документов   Найти похожие ветки 

 
emelin   (2007-10-02 12:36) [0]

Помогите, пожалуйста!
Необходимо найти документы (Счет, ОказаниеУслуг, СчетФактура) конкретного контрагента и изменить значения некоторых реквизитов.
Как реализовать в делфях поиск документа 1С с фильтром по реквизиту?
возможно ли что-то типа:

doc:=Ole1C.CreateObject("Документ.ОказаниеУслуг");
doc.SelectByValue(Дата1, Дата2, "Контрагент", "НужныйКонтрагент");
while doc.GetDocument = 1 do
begin
// дальше делаю что то с doc
doc.Write;
doc.MakeActions;
end;

С 1С работаю ну ооочень недавно, помогите плиз!


 
Сергей М. ©   (2007-10-02 13:55) [1]


> возможно ли что-то типа:
>
> doc:=Ole1C.CreateObject("Документ.ОказаниеУслуг");


Невозможно.


 
Sairex ©   (2007-10-02 14:13) [2]

Интересно. НО зачем?
там есть файлик "чегото там.dd" внем написано где и какая база.
Но возиться с этим долго. проще сделать в 1С конфиге. и быстрей получиться и проще. Хотя можешь и 1с передавать в прогу. а так РТФМ


 
Сергей М. ©   (2007-10-02 14:20) [3]


> НО зачем?


Что "зачем" ?)


 
emelin   (2007-10-02 15:18) [4]


> > возможно ли что-то типа:
> >
> > doc:=Ole1C.CreateObject("Документ.ОказаниеУслуг");
>
>
> Невозможно.


ваши предложения ?)


 
oxffff ©   (2007-10-02 15:37) [5]


> ваши предложения ?)


Ole1C.CreateObject("V77.Application");

Далее ищи disp и dual интерфейс в google до "Документ.ОказаниеУслуг"


 
oxffff ©   (2007-10-02 15:38) [6]


> и

=или


 
Сергей М. ©   (2007-10-02 16:04) [7]


> oxffff ©   (02.10.07 15:37) [5]


под Ole1c, вероятно, имеется ввиду как раз тот самый ранее созданный автором объект 1СV7.Application.

А в сабже автор требует у этого объекта создать объект "Документ.ОказаниеУслуг"


 
emelin   (2007-10-02 16:47) [8]


> под Ole1c, вероятно, имеется ввиду как раз тот самый ранее
> созданный автором объект 1СV7.Application.
>

Именно.
Проблема не в создании объекта 1СV7.Application.
Вопрос в реализации поиска документа по реквизиту.
Делаю так:
spr=Ole1C.CreateObject("Справочник.Контрагенты"); //создаем справочник контрагентов
if spr.FindByCode(1)=0 then raise exception.create("Не найден контрагент"); // Ищем контрагента в справочнике, для дальнейшей сверки с документами.
doc:=Ole1C.CreateObject("Документ.ОказаниеУслуг");
doc.SelectDocuments(1);//выбираем все документы
while doc.GetDocument(1)<>0 do //Перебираем документы
begin
 if doc.GetAttrib("Контрагент").GetAttrib("Код")=spr.GetAttrib("Код") then
 //Проверяем тот контрагент или нет
  begin
    // Что то делаю
    // Но после этих действий (обновления существующих значений
    //реквизитов) обновление реально не происходит
    doс.Write;
    doc.MakeActions;
 end;
end;



Страницы: 1 вся ветка

Текущий архив: 2007.10.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.017 c
15-1191529240
TwentyTwo
2007-10-05 00:20
2007.10.28
Задать вопрос, который юридически невозможно закрыть даже методом


2-1191312738
webpauk
2007-10-02 12:12
2007.10.28
PopupMenu.Items.Width


1-1186741765
Kolan
2007-08-10 14:29
2007.10.28
Одинаковые имена модулей в разных пакетах, как исправить


15-1191595206
lookin
2007-10-05 18:40
2007.10.28
Фильм "Русский транзит" - где скачать...


1-1187095274
NKT
2007-08-14 16:41
2007.10.28
MainMenu - ActionList , замена свойства Caption