DRILL AND FILL — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
Строка 1: Строка 1:
 
[[DRILL_AND_FILL]] - это программа из справочника [[R266]]
 
[[DRILL_AND_FILL]] - это программа из справочника [[R266]]
 
+
Заполнить документ [[RIL]] за период
Заполнить документ [[RIL]] за период
+
[[DRILL_AND_FILL]]()
 
+
 
= Текст =
 
= Текст =
 
 
  local ip, my, end_data, name, tmp_path
 
  local ip, my, end_data, name, tmp_path
 
   
 
   
Строка 30: Строка 28:
 
   my := my + 1
 
   my := my + 1
 
  end
 
  end
 +
= Смотрите также =
 +
[[Полезные функции]]
  
= Смотрите также =
 
 
[[Функции Delphi]]
 
[[Функции Delphi]]
 
[[Полезные функции]]
 

Текущая версия на 16:05, 26 июля 2017

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