#doc Требование-накладная. Форма м-11п (rtf) #end. linkform - davaiknam.ru o_O
Главная
Поиск по ключевым словам:
страница 1
Похожие работы
Название работы Кол-во страниц Размер
Товарная накладная. Форма торг-12 в валюте документа [портрет]. 1 204.94kb.
Товарная накладная. Форма торг-12 в валюте документа [ландшафт]. 1 198.9kb.
Основной текст статьи 1 52.68kb.
Тезисы конференции будут изданы отдельным сборником. Требования к... 1 41.95kb.
Правила оформления тезисов докладов и статьей для публикации в электронном... 1 69.31kb.
Правила оформления тезисов докладов и статьей Текст и рисунки должны... 1 38.9kb.
Международная конвенция об унификации некоторых правил, касающихся... 1 190.71kb.
1 Принять требование в работу. Приготовить лекарственную форму. 1 91.84kb.
'Накладная на отпуск материалов на сторону 1 130.33kb.
Linkform 'F16vn 1' prototype is F16VN. nameinlist ‘О причинах заболеваемости... 1 240.7kb.
Djulia end Romeo ромео и джульетта 5 1071.85kb.
Модули в языке Паскаль. Необходимость использования модулей 1 82.64kb.
Направления изучения представлений о справедливости 1 202.17kb.

#doc Требование-накладная. Форма м-11п (rtf) #end. linkform - страница №1/1

#doc

Требование-накладная. Форма М-11п (RTF)



#end

.linkform 'Form_M11p' prototype is 'printinmovnak'

.NameInList '6. Требование-накладная. Форма М-11п (RTF)'

.Group 'Vnut'

.var

mfo_, unn_ : string;

SchMain, KodMain : string;

SchSpec, KodSpec : string;

KolStrM: word;

.endvar

.begin

mfo_ := ' ' + sGetTune('KatOrg.FldView.MFO') + ' ';

unn_ := ' ' + sGetTune('KatOrg.FldView.UNN') + ' ';

KolStrM := 4;

end.

.create view SchInfo

from

KatSopr (readonly),



SoprHoz (readonly),

Oborot (readonly)

where

((

НрекДокумента == KatSopr.nRec and



KatSopr.nRec == SoprHoz.cSoprDoc and

KatSopr.VidSopr == SoprHoz.TipDoc and

SoprHoz.TipDoc == Oborot.TiDk and

SoprHoz.cSoprDoc == Oborot.cSoprDoc

))

;

.begin



if (SchInfo.GetFirst KatSopr = tsOK)

if (SchInfo.GetFirst SoprHoz = tsOK)

if (SchInfo.GetFirst Oborot = tsOK)

{};


SchMain := '';

KodMain := '';

RunInterface('iPrnShowSchet26', НрекДокумента, '', SchMain, '', '', '', KodMain);

SchSpec := SchMain;

KodSpec := KodMain;

end.


.var

Tire : string

CurP,kounter : word

PrintPic: boolean

NextPage: boolean

sch: word;

StrKol: word;

Спецсимвол: boolean;

.endvar

.fields

ОКДП

if( мой_ИМЯ = '', Организация,



мой_ИМЯ

+ ' ОКПО ' + мой_ОКПО

+ unn_ + мой_УНН

+ ' Адрес ' + мой_Адрес

+ ' Банк:' + мой_БАНК_Имя

+ ' р/с ' + мой_БАНК_Счет

+ mfo_ + мой_БАНК_Мфо)

ОКПО


To
Nom Tire CurP

Dat Nom Dat To From

МОЛ_Откуда_Должность МОЛ_Откуда

МОЛ_Куда_Должность МОЛ_Куда


SchSpec

KodSpec


NameMC

NomMC


ed
DoubleToStr(Кол_Док, Kol_Pr)

DoubleToStr(Kol, Kol_Pr)
DoubleToStr(Price, Cena_Pr)

DoubleToStr(SumPr - if(NDS_in_Price, SumNDS * Koef, 0), Cena_Pr)

.endfields

.{

.begin



CurP := -1;

Tire := ' ';

kounter := 1;

NextPage := true;

Спецсимвол := false;

end.

.{

.{?Internal;((kounter mod 2) <> 0 and NextPage and Спецсимвол)


.}

.{?Internal;((kounter mod 2) <> 0 and NextPage)

.begin

CurP := CurP + 1;

if (CurP > 0) Tire := '-';

NextPage := false;

StrKol := KolStrM;

Спецсимвол := true;



end.

Форма № М-11п
























Коды















Форма по ОКУД

^

^

по ОКЮЛП

^

наименование организации

^











наименование структурного подразделения













ТРЕБОВАНИЕ-НАКЛАДНАЯ
на отпуск материалов

Номер
документа

Дата
составления

^ ^ @#@@

^

Таблица 1

Код вида
операции

Номер
документа

Дата
составления

Отправитель

Получатель

Учетная единица
выпуска продукции
(работ, услуг)

структурное
подразделение

вид
деятельности

структурное подразделение

вид
деятельности




1

2

3

4

5

6

7

8




^

^

^




^










Через кого

^










^




должность




подпись




фамилия, инициалы

Затребовал

^










^




должность




подпись




фамилия, инициалы

Разрешил



















должность




подпись




фамилия, инициалы

Таблица 2

Оборотная сторона формы № М-11п

Корреспонди-рующий счет

Материалы

Единица измерения

Количество

Цена,

руб.


Сумма, руб.

Порядковый номер
карточки
складского
учета

счет,
суб-счет

код аналити-ческого учета

наименование, сорт, размер, марка

Номенклату-рный номер

код

Наиме-нование

Затребо-вано

Отпущено




1

2

3

4

5

6

7

8

9

10

11

.}































.begin




























Sch := sch + 1;




























if (sch = StrKol)




























{































NextPage := true;

























sch := 0; //кол-во строк на странице

























kounter := kounter + 1;

























}































end.































^

^

^

^




^

^

^

^

^




.{?Internal;((kounter mod 2) <> 0 and NextPage)

.fields

МОЛ_Откуда_Должность

МОЛ_Откуда


МОЛ_Куда_Должность

МОЛ_Куда


.endfields


Отпустил

^










^




должность




подпись




фамилия, инициалы

Получил

^










^




должность




подпись




фамилия, инициалы

.}

.}

.{?INTERNAL;TRUE



.fields

МОЛ_Откуда_Должность

МОЛ_Откуда
МОЛ_Куда_Должность

МОЛ_Куда


.endfields


Отпустил

^










^




должность




подпись




фамилия, инициалы

Получил

^










^




должность




подпись




фамилия, инициалы

.}
.}

.endform




Точный прогноз погоды на завтра вы узнаете послезавтра. Телепрограмма ОРТ
ещё >>