АПЕКСОФТ Community
Главный сайт | Скачать ДЕМО | Скриншоты | Продукты | Прайс-лист | Статьи | Новости | Контакты
Добро пожаловать, Гость! Чтобы использовать все возможности Вход или Регистрация.

Уведомление

Icon
Error

Как создать новую запись, на примере контрагента
Сергей Offline
#1 Оставлено : 7 июля 2012 г. 17:27:05(UTC)
Ранг: Сотрудник

Группы: Пользователи, Администраторы
Зарегистрирован: 27.12.2010(UTC)
Сообщений: 220
Баллов: 712

Сказал(а) «Спасибо»: 2 раз
Поблагодарили: 47 раз в 46 постах
function InsertComp(CompName : string) : string;
var
ASObj: TSObj;
AValueParams: TStrings;
begin
ASObj := ObjList.ObjByName['COMP'];
AValueParams := TStringList.Create;
AValueParams.Values['NAME'] := CompName;
AValueParams.Values['COMP_FULLNAME'] := CompName;
try
Result := CardHelper.InsertRecord(ASObj, AValueParams);
finally
AValueParams.Free;
end;
end;
Пользователи, просматривающие эту тему
Guest (2)
Быстрый переход  
Вы не можете создавать новые темы в этом форуме.
Вы не можете отвечать в этом форуме.
Вы не можете удалять Ваши сообщения в этом форуме.
Вы не можете редактировать Ваши сообщения в этом форуме.
Вы не можете создавать опросы в этом форуме.
Вы не можете голосовать в этом форуме.