Block( {Графа 2} { bug 10505 } Let(@BufInt, DCL.GetRegString('HKCU',AppRegKey('MAIN\ПЕЧАТЬ'),'Печатать и получ и отпр', '0') ), Let(@BufMemo, ""), AddToMemo(@BufMemo, GetMemoVal(PRIM,'G082',1)), AddToMemo(@BufMemo, JoinDelim(' ', GetJoinedAddr(PRIM, Consignee, FormType), GetFieldVal(PRIM,'SenderMPO') )), AddToMemo(@BufMemo, Convert(JoinDelim(' ' , DCL.GetFieldVal(PRIM,'G08_PersCardName') , DCL.GetFieldVal(PRIM,'G08_PersCardSeries') , DCL.GetFieldVal(PRIM,'G08_PersCardNum') , DCL.GetFieldVal(PRIM,'G08_PersCardDate') ), Memo)), AddToMemo(@BufMemo, Convert( DCL.GetFieldVal(PRIM,'G08_PersCardOrg') , Memo)), Let(@BufMemo2, ""), AddToMemo(@BufMemo2, GetMemoVal(PRIM,'G022',1)), AddToMemo(@BufMemo2, JoinDelim(' ', GetJoinedAddr(PRIM, Consignor, FormType), GetFieldVal(PRIM,'ReceivMPO') )), AddToMemo(@BufMemo2, Convert(JoinDelim(' ' , DCL.GetFieldVal(PRIM,'G02_PersCardName') , DCL.GetFieldVal(PRIM,'G02_PersCardSeries') , DCL.GetFieldVal(PRIM,'G02_PersCardNum') , DCL.GetFieldVal(PRIM,'G02_PersCardDate') ), Memo)), AddToMemo(@BufMemo2, Convert( DCL.GetFieldVal(PRIM,'G02_PersCardOrg') , Memo)), VTT.SFP('Графа 2 Отпр','Caption',BufMemo2), VTT.SFP('Графа 2 Получ','Caption',BufMemo), VTT.SFP('Графа 2 ПК973','Caption', If((BufInt = 1), BufMemo+BufMemo2, If((DocType='ЭК'), BufMemo2, BufMemo ) ) ), If(DocType='80', Block( VTT.SFP('Графа 2','Caption',""), VTT.SFP('Графа 2_Код','Caption','') ), Block( If(PrintRcvrStation, If((DocType<>'ЭК') + (BufInt = 1), AddToMemo(@BufMemo, Supress(' ', DCL.GetFieldVal(PRIM,'RWSNAME')) + Supress(' ', DCL.GetFieldVal(PRIM,'RAILWAYST')) ) ) ), If(PrintSndrStation, If((DocType='ЭК') + (BufInt = 1), AddToMemo(@BufMemo2, Supress(' ', DCL.GetFieldVal(PRIM,'STOFFNAME')) + Supress(' ', DCL.GetFieldVal(PRIM,'STATIONOFF')) ) ) ), VTT.SFP('Графа 2','Caption', If((BufInt = 1), BufMemo+BufMemo2, If((DocType='ЭК'), BufMemo2, BufMemo ) ) ), If(DocType<>'ЭК', Block( VTT.SFP('Графа 2_ИНН','Caption',JoinDelim(' / ', DCL.GetFieldVal(PRIM,'M081'), DCL.GetFieldVal(PRIM,'KPP_RECEIV') )), VTT.SFP('Графа 2_Код','Caption',DCL.GetFieldVal(PRIM,'G081')), VTT.SFP('Графа 2_ОГРН','Caption',DCL.GetFieldVal(PRIM,'ReceivOgrn')) ), Block( VTT.SFP('Графа 2_ИНН','Caption',JoinDelim(' / ', DCL.GetFieldVal(PRIM,'M021'), DCL.GetFieldVal(PRIM,'KPP') )), VTT.SFP('Графа 2_Код','Caption',DCL.GetFieldVal(PRIM,'G021')), VTT.SFP('Графа 2_ОГРН','Caption',DCL.GetFieldVal(PRIM,'SenderOgrn')) )) )) )