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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м (Текст)
Строка 23: Строка 23:
 
  endif
 
  endif
 
   
 
   
  my := StoD( ip[1] )
+
  my := [[StoD]]( ip[1] )
 
  end_data := StoD( ip[2] ) + 1
 
  end_data := StoD( ip[2] ) + 1
 
   
 
   

Версия 11:08, 27 января 2017

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

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

Текст

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

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