Sprutik писал(а):
Доброго времени суток!
Часто так бывает что при состовлении тех. документации частником не хватает документов в частности
решения сельского совета и т.п. но тех док. необходимо все равно делать и распечатывать.
А вместо недостающей информации ставить "_________"
Пожалуйста напишите как будет выглядеть код обработки этой ситуции при которой номера и дата принятия решение по выделению земельной делянки отсутствуют.
Условие: Если данные дискриптора PZ тогда выводить "____"
спасибо.
На основе скрипта техдокументации из дистрибутива
цветом выделен добавленный код
var Pidstava, RadaRop:string;
....
RadaROP:=File('Setup.ini','RepНазваР(Сільрада)');
....
if GetV(1,Param('PZ'))='РС'
then
if Pos('сесі',GetV(3,Param('PZ')))<>0
then begin
Pidstava:='рішення '+RadaROP+' ради '+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.';
PidstavaRod:='рішення '+RadaROP+' ради '+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.'
end
else
if GetV(3,Param('PZ'))='-'
then begin
// Отсутсвует номер
Pidstava:='рішення '+RadaROP+' ради № ________ від "___"_________200__р.';
PidstavaRod:='рішення '+RadaROP+' ради № ________ від "___"_________200__р.';
end
else begin
Pidstava:='рішення '+RadaROP+' ради № '+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.';
PidstavaRod:='рішення '+RadaROP+' ради № '+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.'
end
else if GetV(1,Param('PZ'))='РА'
then begin
Pidstava:='розпорядження '+RDARod+' районної державної адміністрації №'+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.';
PidstavaRod:='розпорядження '+RDARod+' районної державної адміністрації №'+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.'
end
else begin
Pidstava:=SEF(GetV(1,Param('PZ')),'PZ.txt')+' №'+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.';
PidstavaRod:=SEF(GetV(1,Param('PZ')),'PZRod.txt')+' №'+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.';
end;