FILL AND DANCE 2

Материал из Фабиус wiki
Версия от 16:58, 2 августа 2017; Hisava (обсуждение | вклад)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

FILL_AND_DANCE_2 - это процедура из справочника R266

Заполнить документ AND за период

Текст

local ip, my, end_data

ip := InputPeriod( true )

if Empty( ip )
  return
endif

my := StoD( ip[1] )
end_data := StoD( ip[2] ) + 1

while my <> end_data
  Fill_and_dance( my )
  my := my + 1
end

Смотрите также

Полезные функции

Функции Delphi