Меня интересует как в ТЗ можно на форме редактировать строки, вводить и т.д.
вот, посмотри пример :
Procedure ClickWeight()
CurLine = Weight.CurrentLine();
if Weight.CurrentLine() = 0 then
Return;
endif;
CurrentColumn = Weight.CurrentColumn();
if CurrentColumn = "T" then
Prompt = "Введите тип ТС ";
Type = "Reference.ТТС";
GD = Weight.GetValue(CurLine,CurrentColumn);
if InputValue(GD,Prompt,Type) = 1 then
Weight.SetValue(CurLine,CurrentColumn,GD);
endif;
Goto ~Exit;
elsif CurrentColumn = "W" then
Prompt = "Введите тип груза";
Type = "Reference.ВидГруза";
GD = Weight.GetValue(CurLine,CurrentColumn);
if InputValue(GD,Prompt,Type) = 1 then
Weight.SetValue(CurLine,CurrentColumn,GD);
endif;
Goto ~Exit;
elsif CurrentColumn = "MinW" then
Prompt = "Введите минимальный вес ";
GD = Weight.GetValue(CurLine,CurrentColumn);
if InputNumeric(GD,Prompt,12,1,) = 1 then
Weight.SetValue(CurLine,CurrentColumn,GD);
endif;
Goto ~Exit;
elsif CurrentColumn = "MaxW" then
Prompt = "Введите максимальный вес ";
GD = Weight.GetValue(CurLine,CurrentColumn);
if InputNumeric(GD,Prompt,12,1,) = 1 then
Weight.SetValue(CurLine,CurrentColumn,GD);
endif;
Goto ~Exit;
elsif CurrentColumn = "V" then
Prompt = "Введите объем ";
GD = Weight.GetValue(CurLine,CurrentColumn);
if InputNumeric(GD,Prompt,10,0,) = 1 then
Weight.SetValue(CurLine,CurrentColumn,GD);
endif;
Goto ~Exit;
elsif CurrentColumn = "Cond" then
Prompt = "Введите условия перевозки"
elsif CurrentColumn = "S" then
Prompt = "Введите сезонность"
elsif CurrentColumn = "Oxr" then
Prompt = "Введите условия охраны"
elsif CurrentColumn = "Strx" then
Prompt = "Введите условия страхования"
endif;
GD = Weight.GetValue(CurLine,CurrentColumn);
if InputString(GD,Prompt,60,,) = 1 then
Weight.SetValue(CurLine,CurrentColumn,GD);
endif;
~Exit :
Weight.CurrentLine(CurLine);
EndProcedure
//********************************************************************************
*******