V_E_DOCUMENT

Declare
 i integer;
begin
 i:= Pck_Intershop.NextID('V_E_DOCUMENT');
 INSERT INTO
 V_E_DOCUMENT (
  iDocumentId, iContrAgentId, iDocumentTypeId, vcNum)
 VALUES (
  i, :Глобальный_ID_фирмы, '97', 'Дг/01');
End;

Declare
  ContractId Pck_InterShop.TId;
  DocumentId Pck_InterShop.TId;
Begin
  ContractId:= Pck_InterShop.InsDocument(
  aContragentId => FirmId,
  aDocumentTypeId => 97,
  aNum => 'Дг/01');
End;

Declare
 i integer;
begin
 i:= Pck_Intershop.NextID('V_E_DOCUMENT');
 INSERT INTO
 V_E_DOCUMENT (
 iDocumentId, iContrAgentId, iContrAgentId_Face, dtExecute, iDocumentId_Reason, cbComment)
VALUES (
 i, :Глобальный_ID_фирмы, :Глобальный_ID_контактного_лица, SysDate + 5, :Глобальный_ID_документа-основания, 'Комментарий к счету');

End;

Declare
  ContractId Pck_InterShop.TId;
  DocumentId Pck_InterShop.TId;
Begin
  DocumentId:= Pck_InterShop.InsDocument(
  aContragentId => FirmId,
  aContragentId_Face => FaceId,
  aExecuteDate => SysDate + 5,
  aDocumentId_Reason => ContractId,
  aComment => 'Комментарий к счету');
End;