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;