Linkform 'HozOper 04' Prototype Is 'HozOper'




Скачать 75.02 Kb.
НазваниеLinkform 'HozOper 04' Prototype Is 'HozOper'
Дата публикации28.07.2013
Размер75.02 Kb.
ТипДокументы
vbibl.ru > Банк > Документы




.Linkform 'HozOper_04' Prototype Is 'HozOper'

.NameInList '4. Типовые хозяйственные операции и проводки к ним в формате RTF'

.Var

sDebetKauLevel : array[1..7] of string;

sDebetKau : array[1..7] of string;

sKreditKauLevel : array[1..7] of string;

sKreditKau : array[1..7] of string;

a, i, j, x, t : comp;

sKreditSch : string

.endVar

.fields

NameDoc

NameTXO

PlSch

Npp

SchO + '.' + SubSchO

sKreditSch

Vh Proc

if (x < i, 'КАУ ', '') + sDebetKauLevel[x] + if (x < i, ':', '')

sDebetKau[x]

if (x < j, 'КАУ ', '') + sKreditKauLevel[x] + if (x < j, ':', '')

sKreditKau[x]

DatPr

SodPr

Alg

'<' + Val + '>'

AlgVal

AlgKol

SkFormula

FiltCO

CyclObr

Rez

ConvSumVal

ExClHozOb

PlSchF

NppF

StBudF ProcF

CO

DatPrF

PeriodF

KauLevelF

KauF

SodPrF

AlgF

'<' + ValF + '>'

AlgValF

AlgKolF

SkFormulaF

FiltCOF

CyclObrF

NppK NameK AlgK PrimK

.endfields


^ Реестр типовых хозяйственных операций и

формируемых проводок по счетам бухгалтерского учета

.{

.if HozDoc



Хозяйственный документ:

^

.end


^

.{ CheckEnter SeeBuh

.case

.when Buh_LastOborot

.when Buh_LastElse

.end

Регистр учета:

^

п/п

Корреспонденция

Вх.

Процент

.{

.begin

i := 0;

for (a := 1; a <= 7; a := a + 1)

{

sDebetKauLevel[a] := '';

sDebetKau[a] := '';

sKreditKauLevel[a] := '';

sKreditKau[a] := '';

}

end.

.{ CheckEnter KauO

.begin

i := i + 1;

sDebetKauLevel[i] := KauLevelO;

sDebetKau[i] := KauO;

end.

.}

.begin

i := i + 1;

sDebetKauLevel[i] := 'Подразделение:';

sDebetKau[i] := PodrO;
sKreditSch := SchK + '.' + SubSchK;

j := 0;

end.

.{ CheckEnter KauK

.begin

j := j + 1;

sKreditKauLevel[j] := KauLevelK;

sKreditKau[j] := KauK;

end.

.}

.begin

j := j + 1;

sKreditKauLevel[j] := 'Подразделение:';

sKreditKau[j] := PodrK;
if (i > j)

t := i;

else

t := j;
x := 0;

end.

^

ДЕБЕТ: ^

КРЕДИТ: ^

^

^

.{while x <> t

.begin

x := x + 1;

end.




^ ^

^ ^







.}




^ Дата проводки:

^










Содержание проводки:

^










^ Внешняя классификация:

^







.}

.}

.{ CheckEnter SeeFP

.case

.when FP_LastOborot

.when FP_LastFpOborot

.when FP_LastElse

.end

Регистр учета:

^

п/п

Корреспонденция

Процент

.{

^

Статья:

^

^




ЦО:

^






Период:

^




.{ CheckEnter KauFP




КАУ ^:

^




.}




Содержание проводки:

^







Алгоритм в НДЕ:

^







Циклическая обработка:

^




.}

.}

.if SeeFormula

.case

.when Form_LastOborot

.when Form_LastFPOborot

.when Form_LastElse

.end

п/п

Алгоритмы для расчета сумм проводки

Примечание к алгоритму

.{

^

^ = ^

^

.}

.end

.case

.when LastOborot

.when LastFPOborot

.when LastFormula













.when LastElse

.end

.}

.endform

Добавить документ в свой блог или на сайт

Похожие:

Linkform \Linkform 'AsrVerifLog02Rtf' prototype is AsrVerifLog

Linkform \Linkform 'BelReestrPP' prototype is 'BudgKlass'

Linkform \Linkform 'Реестр (rtf)' prototype is 'ReestrBDoc'

Linkform \Linkform 'InvCardosbudget rtf' prototype is 'FormOS6'
Равно значению настройки wGetTune('OS. SrokIspEdIzm'). Для того чтобы не читать каждый раз её из базы

Linkform \Linkform 'GroupOs 15 rtf' prototype is 'GroupOs'

Linkform \Linkform 'RasGr 103' prototype is 'Rasgr'

Linkform \Linkform 'RasGr 115' prototype is 'Rasgr'

Linkform \LinkForm 'blankper 03 va rtf' Prototype is 'blankper'

Linkform \Linkform 'PU3 Link' prototype is 'PU3'

Linkform \Linkform 'Form nma1 Rus rtf' prototype is 'FormOS6'
Код сче­та и объ­ек­та ана­ли­ти­чес­ко­го уче­та (для от­не­се­ния амор­ти­за­ции не­ма­те­ри­аль­ных ак­ти­вов)

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2013
контакты
vbibl.ru
Главная страница