Сложная проводка, содержащая документы по главе А и главам Б-Д

Описание

Текст примера

 import InsCarryDoc;

record dout (document); /* Документ проводки по главе А */
record din (document); /* Документ проводки по главе А */

record ob (obdocum); /* Документ проводки по главе В */

macro MakeDocument( out, in ) /* Подготовка документов */
setbuff( dout, out );
setbuff( din, in );

Copy(dout,din);
InsertRubDocument; /* Документ главы А */

setbuff(ob,out); /* ! */

Copy(ob,din);
ob.Chapter = 3; 
ob.Account_Payer = "1";
ob.Account_Receiver = "4343";

InsertOutBalRubDocument; /* Документ главы В */
end;