Галактика в вопросах и ответах

Код: Выделить всё

TableEvent
  Table mtOrg;

cmUpdateRecord:

Код: Выделить всё

external _loop mtOrg
  update current mtOrg set mtOrg.ID:=piExtAttr.sGetAttr(coKatOrg,comp(mtOrg.cRec),'ЭДО ID')
rescanpanel(#mtOrg)

Код: Выделить всё

//------------------------------------------------------------------------------
//                                                      (c) корпорация Галактика
// Галактика 9.1 - Логистика
// Электронный документооборот - экспорт документа в XML-файл
//------------------------------------------------------------------------------
 
#ifndef __ExportDoc_vih__
#define __ExportDoc_vih__

#Component "L_Common"

#doc
Методы, специфичные для выгрузки документов различных типов (СФ, Корректировочный СФ, ТОРГ-12, Акт на услуги)
#end
ObjInterface ObjExportDoc;

  #doc
  Префикс имени XML-файла (для СФ это 'ON_SFAKT')
  #end
  Function FileNamePrefix: string;

  #doc
  Позиционирование на документ, определение контрагента
  #end
  Function GotoDoc(_Doc: comp): boolean;

  #doc
  Дата документа
  #end
  Function DocDate: date;

  #doc
  Выгрузка содержимого документа в XML-формат
  #end
  Function Export(_Path, _FileName, _IdPok: string): boolean;

End;


#doc
Базовый интерфейс (общая функциональность) выгрузки документа в XML-формат
#end
VipInterface ExportDoc
  implements ObjExportDoc
  licensed (FREE);

#doc
Выгрузка счета-фактуры в XML-формат
#end
VipInterface ExportSF(ExportDoc)
  licensed (FREE);
  public:
    Function ObjExportDoc.FileNamePrefix: string;
    Function ObjExportDoc.GotoDoc(_Doc: comp): boolean;
    Function ObjExportDoc.DocDate: date;
    Function ObjExportDoc.Export(_Path, _FileName, _IdPok: string): boolean;
End;

#doc
Выгрузка корректировочного счета-фактуры в XML-формат
#end
VipInterface ExportCorrSF(ExportDoc)
  licensed (FREE);
  public:
    Function ObjExportDoc.FileNamePrefix: string;
    Function ObjExportDoc.GotoDoc(_Doc: comp): boolean;
    Function ObjExportDoc.DocDate: date;
    Function ObjExportDoc.Export(_Path, _FileName, _IdPok: string): boolean;
End;





// Типы данных, описанные в формате ФНС
type TName  = string[60];  // Для фамилии, имени и отчества
type TINNUL = string[10];  // Типовой элемент <ИННЮЛТип>. T(=10)
type TINNFL = string[12];  // Типовой элемент <ИННФЛТип>. T(=12)
type TKPP   = string[9];   // Типовой элемент <КППТип>. T(=9)
type TIndex = string[6];   // Почтовый индекс. T(=6)
type TSSRF  = string[2];   // Типовой элемент <CCРФТип> T(=2)
type TOKSM  = string[3];   // Типовой элемент <ОКСМТип> T(=3)
type TOKEI  = string[3];   // Типовой элемент <ОКЕИТип> T(=3). Код по Общероссийскому классификатору единиц измерения.
type TGUID  = string[36];  // GUID. T(=36)
type TOKV   = string[3];   // Типовой элемент <ОКВТип> T(=3). Код по Общероссийскому классификатору валют.
type TIdEDO = string[3];   // Идентификатор оператора электронного оборота счетами-фактурами (оператор ЭДО), 
                           // услугами которого пользуется покупатель (продавец), символьный трехзначный код. 
                           // В значении идентификатора допускаются символы латинского алфавита a-z, цифры 0-9, 
                           // знаки "@", ".", "-". Значение идентификатора регистронезависимо. 
                           // При включении оператора ЭДО в сеть доверенных операторов ЭДО ФНС России, 
                           // идентификатор присваивается Федеральной налоговой службой

#end // __ExportDoc_vih__