Как скопировать проводки из архивные в отложенные в rs bank 5..

• Как скопировать проводки из архивные в отложенные в rs bank 5.. ( Orifjon  19.07.2011 09:32 )
  Оценка:5(1)

  дела в том что каждый день водим одни и тежи проводки по сто документов каждый рас повторяется прежние проводки только изменяется сумма и дата скажите пожалуйста ест возможность скопировать проводки из архивные документы в отложенные документы и тут редактировать потом проводит по новому rs bank 5.00.090 За ране Благодарен !
  
  • Измени arhdoc.mac ( verhov  22.07.2011 11:10 )
    Оценка:5(1)

    Вставь в тело макроса вот этот кусок
    

    array mm1;
    var mm;
    
    mm1(0)="Копирование документа в отложенные";
    
    
    import CarryDoc;
    
    MACRO CopyDoc_To_PostDoc(Документ)
    Private Var 
      Chapter = 1,
      doc = TRecHandler(FileName(Документ),"bank.def");
    
      doc.Clear();
      Copy(doc, Документ);
      doc.rec.iApplicationKind = 8;
      doc.rec.ApplicationKey = GetApplicationKey();
      doc.rec.Result_Carry = 0;
      doc.rec.Kind_Carry = 0;
      doc.rec.Control = "";
      doc.rec.ControlDate = Date(0,0,0);
      doc.rec.ControlTime = Time(0,0,0);
      doc.rec.Date_Value = {curdate};
      if (StrUpr(SubStr(FileName(Документ), 1, 2)) != "OB") 
        doc.rec.Post_Sun = 0;
      else
        Chapter = doc.rec.Chapter;
      end;
      If (MakePostDoc(Chapter,doc) == 0)
        MsgBox("Успешно скопирован!");
        Return True;
      Else
        MsgBox("Скопировать не удалось!");
        Return False;
      End;
    End; 
    
    

    А так же подправь функцию пользователя (вызываемую по контрл-Z)
    

    
    mm=menu (mm1,"Надо что то выбрать или нажать ~Esc~ для выхода","Дополнительные функции");
    
      if (mm==0)
       CopyDoc_To_PostDoc (Документ);
      end;