DRILL AND FILL2

Материал из Фабиус wiki
Перейти к: навигация, поиск

DRILL_AND_FILL2 - это программа из справочника R266

Изменить цену на муку в документе AND за период

DRILL_AND_FILL2()

Текст

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
  CHANGE_PRICE( my )
  my := my + 1
end

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

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

Функции Delphi