Автоматическая подвязка договора
Добавлено: 02 сен 2016, 12:13
Доброго дня. решаю вопрос по созданию Разового договора из Счет-фактуры. вроде бы всё создаётся нормально
теперь мне нужно, что бы после создания этого договора он сразу же прикреплялся к счет-фактуре из которой был создан. и с этим не получается справиться... пробовал привязать basedoc.cdogovor к dogovor.nrec, но что-то не выходит...
Код: Выделить всё
...
if (b1.getfirst basedoc = tsOk)
{
b1.clearbuffer(b1.tNDOGOVOR);
b1.Dogovor.DESCR := b1.basedoc.DESCR;
b1.Dogovor.DESGR := b1.basedoc.DESGR;
b1.Dogovor.SUMMA := b1.basedoc.TOTAL;
b1.Dogovor.SUMNDS := b1.basedoc.NDS;
b1.Dogovor.CORG := b1.basedoc.CORG;
b1.Dogovor.CPLAT := b1.basedoc.CORG;
b1.Dogovor.DDOC := Data;
b1.Dogovor.NODOC := b1.basedoc.NODOC;
b1.Dogovor.NODOC_EXT := b1.basedoc.NODOC;
b1.Dogovor.CNOTE := '4001D16E626FBBBDh';
b1.Dogovor.DIRECT := word(1);
b1.Dogovor.TIDK := word(400);
b1.Dogovor.TIPMONEY := word(1);
b1.Dogovor.VHODNAL := word(2);
b1.Dogovor.CBANKPOL := b1.basedoc.CMYBANK;
b1.Dogovor.CMYORG := b1.basedoc.CGROTPR;
b1.Dogovor.CPOL := b1.basedoc.CGROTPR;
b1.Dogovor.CGROTP := b1.basedoc.CGROTPR;
b1.Dogovor.VIDDOG := word(0);
b1.Dogovor.CVIDDOG := '4001896F2F136F54h';
b1.Dogovor.DINPUT := Data;
b1.Dogovor.DBEG := Data;
b1.Dogovor.DEND := Data;
b1.Dogovor.Status := word(1);
b1.insert current Dogovor;
...