Block( {Таблица} Var('TopBands',Memo,Global), smpDOC.SDP('Header'), smpDOC.SFP('Номер реестра', 'Caption', DCL.GetNDCaption(DCL.GetFieldVal(PRIM, 'DECLPRIM.ND')) ), Use('GetG14InfoToBufMemo.ppu'), Use('AddG54CertInfoToBufMemo.ppu'), AddStrToSnake(@BufMemo, Supress(' Дата оформления ', DCL.GetFieldVal(PRIM, 'G542'))), AddStrToSnake(@BufMemo, 'Направление - ' + DCL.GetFieldVal(PRIM, 'G011')), smpDOC.SFP('Наименование экспресс-перевозчика и проч.', 'Caption', BufMemo), Let(@BufString, DCL.GetNSIInfo('CustomsCodes','CODE', Left(smpDOC.GFP('Номер реестра', 'Caption'), 8), 'NAMT','(DATAS IS NULL OR DATAS>=DATE())') ), smpDOC.SFP('Наименование таможенного органа и проч.', 'Caption', BufString + Supress(If(Length(BufString), '. ', '') + 'Процедура - ', DCL.GetFieldVal(DOP, 'G37') ) ), smpDOC.SFP('Валюта фактурной стоимости', 'Caption', GetValAbbr(DCL.GetFieldVal(PRIM, 'G221'))), smpDOC.SFP('Валюта таможенной стоимости', 'Caption', 'RUB'), smpDOC.Update(), DOC.Roll(D.Instance(smpDOC)+'.Header'), DOC.Roll(D.Instance(smpDOC)+'.Table_Captions'), smpDOC.SDP('Table_Data'), Var('G32', Integer, Global), Var('GTD44Criteria', String, Global), Const('CargoSender', String, Global, SupressCRLFInMemo(GetMemoVal(PRIM, 'G022', 0)) + Supress('ИНН ', DCL.GetFieldVal(PRIM, 'M021'))), Const('CargoReceiver', String, Global, SupressCRLFInMemo(GetMemoVal(PRIM, 'G082', 0)) + Supress('ИНН ', DCL.GetFieldVal(PRIM, 'M081'))), While(Not(DCL.IsEOF(DOP)), Block( ClearPage(smpDOC), Let(@G32, DCL.GetFieldVal(DOP, 'DECLDOP.G32')), smpDOC.SFP('№ п/п', 'Caption', G32), Let(@GTD44Criteria, 'G32 = ' + G32 + ' AND G441 = ' + Quote1 + IndividualWaybillExpressCode() + Quote1), Let(@BufString, ''), Let(@BufInt, DCL.FindFirst(GTD44, GTD44Criteria)), While(BufInt, Block( Let(@BufString, Supress(BufString, ', ') + DCL.GetFieldVal(GTD44, 'G442')), Let(@BufInt, DCL.FindNext(GTD44, GTD44Criteria)) ) ), smpDOC.SFP('Номер индивидуальной накладной', 'Caption', BufString), smpDOC.SFP('Номер индивидуальной накладной при прибытии', 'Caption', BufString), Let(@GTD44Criteria, 'G32 = ' + G32 + ' AND G441 = ' + Quote1 + GeneralWaybillExpressCode() + Quote1), Let(@BufString, ''), Let(@BufInt, DCL.FindFirst(GTD44, GTD44Criteria)), While(BufInt, Block( Let(@BufString, Supress(BufString, ', ') + DCL.GetFieldVal(GTD44, 'G442')), Let(@BufInt, DCL.FindNext(GTD44, GTD44Criteria)) ) ), smpDOC.SFP('Номер общей накладной', 'Caption', BufString), smpDOC.SFP('Индивидуальный грузоотправитель', 'Caption', CargoSender), smpDOC.SFP('Отправитель', 'Caption', CargoSender), smpDOC.SFP('Индивидуальный грузополучатель', 'Caption', CargoReceiver), smpDOC.SFP('Получатель', 'Caption', CargoReceiver), smpDOC.SFP('Наименование экспресс-груза', 'Caption', GetCargoDscForTable(DOP, DOP, 0, 0, 0)), smpDOC.SFP('Код экспресс-груза по ТН ВЭД ТС', 'Caption', DCL.GetFieldVal(DOP, 'G33') + Supress(' ', DCL.GetFieldVal(DOP, 'G33_AddInfo'))), Let(@BufString, Trim( Supress(Zero('%g', DCL.GetFieldVal(DOP, 'G315A')), ' ' + DCL.GetFieldVal(DOP, 'G315')))), Let(@BufMemo, ConvertToMemo(BufString)), Let(@BufString, Trim( Supress(Zero('%g', DCL.GetFieldVal(DOP, 'G315C')), ' ' + DCL.GetFieldVal(DOP, 'G315CN')))), AddToMemo(@BufMemo, BufString), Let(@BufString, Trim( Supress(Zero('%g', DCL.GetFieldVal(DOP, 'G31_9')), ' ' + DCL.GetFieldVal(DOP, 'G31_91')))), AddToMemo(@BufMemo, BufString), smpDOC.SFP('Количество экспресс-грузов', 'Caption', BufMemo), smpDOC.SFP('Вес брутто/нетто, кг', 'Caption', ConvertToMemo(Format('%g', DCL.GetFieldVal(DOP, 'G35')) + '/') + ConvertToMemo(Format('%g', DCL.GetFieldVal(DOP, 'G38'))) ), smpDOC.SFP('Фактурная стоимость', 'Caption', Format('%.2f', DCL.GetFieldVal(DOP, 'G42'))), smpDOC.SFP('Таможенная стоимость', 'Caption', Format('%.2f', DCL.GetFieldVal(DOP, 'G45'))), Let(@BufMemo, ""), If(DCL.FindFirst(GTD47, 'G32 = ' + G32 + ' AND PAYM_ID IN (30,40,50,60,65,66) AND G473 IS NOT NULL AND G473<>' + EmptyStrInQuote1), Block( Let(@BufMemo, "Пошлина: "), AddToMemo(@BufMemo, DCL.GetFieldVal(GTD47,'G473') + Supress('/', DCL.GetNSIInfo('Units', 'Code', DCL.GetFieldVal(GTD47, 'G4733'), 'ShortName', '')) ), AddToMemo(@BufMemo, Format('%.2f ' + GetValAbbr(DCL.GetFieldVal(GTD47, 'G4741')), DCL.GetFieldVal(GTD47,'G474') ) + ' ' + DCL.GetFieldVal(GTD47,'G475') ) ) ), If(DCL.FindFirst(GTD47, 'G32 = ' + G32 + ' AND PAYM_ID IN (70,75,80) AND G473 IS NOT NULL AND G473<>' + EmptyStrInQuote1), Block( AddToMemo(@BufMemo, "Акциз: "), AddToMemo(@BufMemo, DCL.GetFieldVal(GTD47,'G473') + Supress('/', DCL.GetNSIInfo('Units', 'Code', DCL.GetFieldVal(GTD47, 'G4733'), 'ShortName', '')) ), AddToMemo(@BufMemo, Format('%.2f ' + GetValAbbr(DCL.GetFieldVal(GTD47, 'G4741')), DCL.GetFieldVal(GTD47,'G474') ) + ' ' + DCL.GetFieldVal(GTD47,'G475') ) ) ), If(DCL.FindFirst(GTD47, 'G32 = ' + G32 + ' AND PAYM_ID IN (90) AND G473 IS NOT NULL AND G473<>' + EmptyStrInQuote1), Block( AddToMemo(@BufMemo, "НДС: "), AddToMemo(@BufMemo, DCL.GetFieldVal(GTD47,'G473') + Supress('/', DCL.GetNSIInfo('Units', 'Code', DCL.GetFieldVal(GTD47, 'G4733'), 'ShortName', '')) ), AddToMemo(@BufMemo, Format('%.2f ' + GetValAbbr(DCL.GetFieldVal(GTD47, 'G4741')), DCL.GetFieldVal(GTD47,'G474') ) + ' ' + DCL.GetFieldVal(GTD47,'G475') ) ) ), smpDOC.SFP('Расчет таможенных платежей', 'Caption', BufMemo), Let(@GTD44Criteria, 'G32 = ' + G32 + ' AND ' + '(' + DCL.G44SectionClause() + ' = ' + Quote1 + G44Licences2010Section() + Quote1 + ' OR ' + DCL.G44SectionClause() + ' = ' + Quote1 + G44LicencesSection() + Quote1 + ')'), Let(@BufMemo, ""), Let(@BufInt, DCL.FindFirst(GTD44, GTD44Criteria)), While(BufInt, Block( AddToMemo(@BufMemo, DCL.GetFieldVal(GTD44, 'G444')), AddToMemo(@BufMemo, DCL.GetFieldVal(GTD44, 'G442')), AddToMemo(@BufMemo, Supress('выд.', DCL.GetFieldVal(GTD44, 'G443'))), Let(@BufInt, DCL.FindNext(GTD44, GTD44Criteria)) ) ), smpDOC.SFP('Сведения о документах', 'Caption', BufMemo), smpDOC.Update(), smpDOC.Recalc(), MakeTableLines(smpDOC, 'L', 36, 52, 'L35'), DOC.PrepareRoll(D.Instance(smpDOC)+'.Table_Data'), If(DOC.IsNewPage(), If(DOC.CurrPage()=0, DOC.SetTopBands(ConvertToMemo(D.Instance(smpDOC) + '.Pages_Info') + ConvertToMemo(D.Instance(smpDOC) + '.Table_Captions') ) ) ), DOC.CommitRoll(D.Instance(smpDOC)+'.Table_Data'), DCL.MoveNext(DOP) ) ), smpDOC.SDP('Footer'), smpDOC.SFP('Подпись документа', 'Caption', DCL.GetFIO(PRIM, 0) + ' ' + DCL.GetFieldVal(PRIM, 'G542')), smpDOC.Update(), DOC.Roll(D.Instance(smpDOC)+'.Footer') )