AvaERP → Инструкции → Для администраторов → Настройки для внешнего доступа (API) → Пример запросов

Пример запросов

Настройки для внешнего доступа (API)

Declare
 BrandId Pck_InterShop.TId;
 iclss Pck_InterShop.TId;
 igdstree Pck_InterShop.TId;
 GdstypeID Pck_InterShop.TId;
 FaceId Pck_InterShop.TId;
 FirmId Pck_InterShop.TId;
 BankAcc Pck_InterShop.TId;
 DocumentId Pck_InterShop.TId;
 BankAccountId Pck_InterShop.TId;
 GdsPosId Pck_InterShop.TId;
 Price Pck_InterShop.TId;
 GdsClssId Pck_InterShop.TId;
Begin

/*Добавляем Клиента*/

 ClientId:= Pck_InterShop.InsClient(
  aName => 'Клиент',
  aEMail => 'client@mail.ru',
  aPhone => '999-99-99',
  aURL => 'www.client.ru',
  aAddress => 'Адрес клиента');

/*Добавляем физическое лицо*/

 FaceId:= Pck_InterShop.InsFace(
  aName => 'Лицо',
  aSurName => 'Web',
  aLastName => 'Физическое',
  aOwnerId => ClientId,
  aPhone => '777-77-77',
  aEMail => 'face@mail.ru',
  aICQ => '87654321',
  aSkype => 'SkypeName',
  aAddress => 'Адрес физ. лица');

/*Добавляем юридическое лицо*/

 FirmId:= Pck_InterShop.InsFirm(
  aName => 'Web-юр. лицо',
  aINN => '9999999999',
  aKPP => '7777777',
  aOwnerId => ClientId,
  aFirmTypeId => 2,
  aPhone => '888-88-88',
  aAddress_Post => 'Почтовый адрес юр. лица',
  aAddress_Fact => 'Фактический адрес юр. лица');

/*Берём любой BankAccount. Этот блок для примера, iBankAccountId должен выбираться пользователем*/

 BankAccountId:= 0;
 For C In (select * from v_e_bankaccount_forsale) Loop
  BankAccountId:= C.iBankAccountId;
  Exit;
 End Loop C;

/*Заносим счет клиенту*/

 DocumentId:= Pck_InterShop.InsDocument(
  aBankAccountId => BankAccountId,
  aContragentId => FirmId,
  aContragentId_Face => FaceId,
  aExecuteDate => SysDate + 5, --Плюс 5 дней к текущей дате
  aComment => 'Комментарий к счету');

/*Выбираем 5 позиций из классификатора*/

/*Добавляем в счет позиции*/

 For C In (select * from V_E_GdsClssTree_forsale where IISFOLDER = 0 And RowNum <=5) Loop
  GdsPosId:=pck_intershop.InsGdsPos(
  aDocumentId => DocumentId,
  aGdsClssId => C.iGdsClssId,
  aQnt => 1,
  aPrice => C.Decprice);
 End Loop C;

/*Подготавливаем документ к работе*/

 Pck_Intershop.AfterDocumentChanged(aDocumentId => DocumentId);

/*Переводим счет в состояние "Оформлено"*/

 Pck_Intershop.SetDocumentState(
  aDocumentId => DocumentId,
  aDocumentStateId => 3);

/*Добавляем бренд*/

 BrandId:= Pck_InterShop.InsBrand(
  aName => 'Бренд',
  aExt=>123/*Внешний ID */);

/*Добавляем тип товара*/

 GdstypeID:= Pck_InterShop.InsGdstype(
  aName => 'Тип товара',
  aParentID => 1, /*ID Ветки типов товара*/
  aExt=>123/*Внешний ID */
  ,amask => 4 /*Маска названия*/
  );

/*Добавляем папку классификатора*/

 igdstree:= pck_intershop.InsGDSTREE_Papka(aName => 'Папка'
  ,iparent => 1 /*id ветки*/
  ,aext => 0 /*Внешний ID */ );

/*Добавляем товар*/

  iclss:= pck_intershop.insclss(vcclss => 'Название',
  igdstype => GdstypeID /*Тип*/,
  aPartNumber => 'Part Number',
  ibrandname => BrandId /*Бренд*/,
  icountry => 0,/*Страна*/( (
  igdsclssunit => 1/*Единица измерения*/
  ,iparenttree => igdstree /*Папка, если 0 Папка автоматически создастся в соответствии с деревом Gdstype*/
  ,aext => '123')/*Внешний ID */;
End;

Пример добавления клиента на PHP

$name = “Клиент”;

$email = “client@mail.ru”;

$phone = “999-99-99”;

$url = “www.client.ru”;

$address = “Адрес клиента”;

$c = OCILogon(“User”, “Password”, “ava”);

if (!$c) {

echo “Ошибка подключения: ” . var_dump(OCIError());

die();

}

$s = OCIParse($c, “Begin :client_id= Pck_InterShop.InsClient(aName => :name, aEMail => :email, aPhone => :phone, aURL => :url, aAddress => :address); End;”);

OCIBindByName($s, “:name”, $name);

OCIBindByName($s, “:email”, $email);

OCIBindByName($s, “:phone”, $phone);

OCIBindByName($s, “:url”, $url);

OCIBindByName($s, “:address”, $address);

OCIBindByName($s, “:client_id”, $client_id, 10);

OCIExecute($s, OCI_DEFAULT);

echo “ID нового клиента: ” . $client_id;

|