Просмотр исходного текста страницы DRILL AND FILL

[[DRILL_AND_FILL]] - это программа из справочника [[R266]]
 Заполнить документ [[RIL]] за период
[[DRILL_AND_FILL]]()
= Текст =
 local ip, my, end_data, name, tmp_path
 
 if UserKod <> 1008
   if ![[IsA]]()
     [[Message]]( 'Формировать документ "Запас сырья и материалов" может только администратор' )
     return
   endif
 endif
 
 name := 'Fill_and_dance.txt'
 tmp_path := 'j:\1\'
 
 ip := [[InputPeriod]]( true )
 
 if [[Empty]]( ip )
   return
 endif
 
 my := [[StoD]]( ip[1] )
 end_data := [[StoD]]( ip[2] ) + 1
 
 while my <> end_data
   FILL_RIL_2( my, tmp_path, name )
   my := my + 1
 end
= Смотрите также =
[[Полезные функции]]

[[Функции Delphi]]