для закачки небось нужно? не помню есть ли в обмене бизнес документами загрузка проводок.
а так чтобы вам было проще писать
останется всего то 100 функций прописать
//================================
// системные
//================================
// получить наименование аналитики
Function GetKatKauName(w : word) :string ;
{ GetKatKauName:=if(getfirst fastfirstrow katkau where (( w == katkau.kodgroup ))=0,katkau.name,'???'+string(w))
}
//GetAnaliticNrecByName - получить nrec аналитики по коду и наименованию
Function GetAnaliticNrecByName(wtbl:word ;wname :string ) :comp ;
var wnrec,wnrec1 :comp ;
sKau :string ;
{ GetAnaliticNrecByName:=0 ;
wname:=wname ;
if substr(GetKatKauName(wtbl),1,3)='???' then exit ;
// KauStr2NrecWithGenEx(wtbl, '', wname, wnrec)
wnrec1:=0 ;
sKau:='ZAK' ;
case KatKau.SysNum of
cgKatKau_User: {
if getfirst spkau where (( wtbl == SpKau.KodGrKau and wname == SpKau.name ))<>0
{ insert into spkau set
SpKau.Code := sKau
,SpKau.LevelCode := sKau
,SpKau.Name := wName
,SpKau.KodGrKau := wtbl ;
}
wnrec:=spkau.nrec ;
} //cgKatKau_User: {
cgKatKau_Table: // Системные аналитики
{ case wtbl of
1:wnrec:=GetKatORGNrecByName(wname) ;//│ Организации │
2:wnrec:=GetKatpodrNrecByName(wname) ;// │ Подразделения │
3:wnrec:=GetPersonsNrecByFio(wname) ;// │ Сотрудники предприятия │
4:wnrec:=GetKatMcNrecByName(wname) ;// │ Материальные ценности │
5:wnrec:=GetKatUSLNrecByName(wname) ;// │ Услуги │
6:wnrec:=GetBasedocNrec(0,wname) ;// │ Документы-основания │
7:wnrec:=0 ;// │ Производственные заказы │
8:wnrec:=GetGROUPMCNrecByName(wname,'') ;// │ Группы МЦ │
9:wnrec:=GetGROUPUSLNrecByName(wname) ;// │ Группы услуг │
10:wnrec:=GetKatpartyNrec(0,wname) ;// │ Партии МЦ │
11:wnrec:=0 ;// │ Группы партий МЦ │
12:wnrec:=FindGroupSch('',wname) ;// │ Группы ДО/Договоров │
13:wnrec:=0 ;// │ Статьи расходов/доходов │
14:wnrec:=GetDogovorNrec(0,wname) ;// │ Договоры │
15:wnrec:=GetKatosNrecByName(15,wname) ;// │ Основные средства │
16:wnrec:=GetKatosNrecByName(16,wname) ; ;// │ Нематериальные активы │
17:wnrec:=GetVEKSLNrecByNODOC(81,wname) ;// │ Векселя и ценные бумаги │
18:{ wnrec:=0 ;// │ Виды основных средств │
GetNormOS(wnrec,wnrec1,0,wname,wname,15) // код
}
19: {wnrec:=0 ;// │ Виды нематериальных активов │
GetNormOS(wnrec,wnrec1,0,wname,wname,16) // код
}
20:wnrec:=0 ;// │ Статьи планов (бюджетов) │
21:wnrec:=0 ;// │ Периоды планирования │
22:wnrec:=GetFPCONrecByName(wname) ;// │ Центры ответственности │
23:wnrec:=0 ;// │ Оборудование │
24:wnrec:=0 ;// │ Маршрутные карты │
25:wnrec:=0 ;// │ Производственные спецификации │
26:wnrec:=0 ;// │ Заявки │
27:wnrec:=0 ;// │ Графики │
28:wnrec:=0 ;// │ Планы производства │
29:wnrec:=0 ;// │ Планы снабжения │
30:wnrec:=0 ;// │ Планы сбыта │
34:wnrec:=0 ;// │ Источники финансирования │
35:wnrec:=0 ;// │ Технологические операции │
36:wnrec:=GetCatalNrec1(wname,-22,'') ;// │ Профессии │
37:wnrec:=0 ;// │ Потребности в материалах │
38:wnrec:=0 ;// │ Потребности в трудовых ресурса │
39:wnrec:=0 ;// │ Потребности в производственных │
40:wnrec:=GetKatStroyNrecByName(wname) ;// │ Объекты строительства │
41:wnrec:=0 ;// │ Конструкторские спецификации │
42:wnrec:=0 ;// │ Виды ремонта │
43:wnrec:=0 ;// │ Коды причин постановки на учет │
44:wnrec:=0 ;// │ Бюджеты расчетов с ГНИ │
45:wnrec:=0 ;// │ Типы платежей-начислений │
46:wnrec:=0 ;// │ Наборы МЦ │
47:wnrec:=0 ;// │ Группы оборудования │
48:wnrec:=0 ;// │ Виды работ │
49:wnrec:=0 ;// │ Корпоративные потребности │
50:wnrec:=0 ;// │ Корпоративные планы поставок │
51:wnrec:=0 ;// │ Корпоративные планы производст │
52:wnrec:=0 ;// │ Балансы движения продукции │
53:wnrec:=0 ;// │ Варианты планирования │
54:wnrec:=0 ;// │ Амортизационные группы │
55:wnrec:=0 ;// │ Платежные средства │
56:wnrec:=FindISPOS('',wname,15) ;// │ Признаки использования ОС │
57:wnrec:=FindISPOS('',wname,16) ;// │ Признаки использования НМА │
58:wnrec:=FindGrOs('',wname) ;// │ Группы ОС │
59:wnrec:=GetKatNaznaNrec(wname) ;// │ Назначения сопроводительных до │
60:wnrec:=GetKatMolNrecByName(wname) ;// │ Материально-ответственные лица │
61:wnrec:=0 ;// │ Позиции маршрутных карт │
62:wnrec:=0 ;// │ Позиции производственных специ │
63:wnrec:=0 ;// │ Позиции конструкторских специф │
64:wnrec:=0 ;// │ Типы строительства │
65:wnrec:=0 ;// │ Виды строительства │
66:wnrec:=0 ;// │ Отрасли строительства │
67:wnrec:=FindKatVid(wname,0) ;// │ Виды договоров/соглашений │
68:wnrec:=GetKATORGDESCRNrecByName(wname) ;// │ Группы организаций │
69:wnrec:=0 ;// │ Категории │
70:wnrec:=0 ;// │ Бригады │
71:wnrec:=GetVEKSLNrecByNODOC(85,wname) ;// │ Кредиты │
72:wnrec:=0 ;// │ Административно-территориально │
73:wnrec:=0 ;// │ Статьи затрат объектов строите │
74:wnrec:=0 ;// │ Классы объектов строительства │
76:wnrec:=0 ;// │ Группы объектов ремонтов │
77:wnrec:=0 ;// │ Типы объектов ремонтов │
78:wnrec:=0 ;// │ Виды объектов ремонтов │
79:wnrec:=GetSchFactNrecByNum(0,wname) ;// │ Счета-фактуры │
80:wnrec:=GetKatsoprNrec(0,wname) ;// │ Накладные/Акты │
81:wnrec:=GetGRPODRNrec(wname) ;// │ Группы подразделений │
82:wnrec:=0 ;// │ Виды оплат │
5001:wnrec:=0 ;// │ Пооперационные планы │
5002:wnrec:=0 ;// │ Сводные планы │
5003:wnrec:=0 ;// │ Марки транспортных средств │
5004:wnrec:=0 ;// │ Направления инвестиций │
5005:wnrec:=GetKlPriceNrec(wname) ;// │ Прайс-листы │
5006:wnrec:=GetPrSBNrecByName(15,wname) ;// │ Признаки собственности ОС │
5007:wnrec:=GetPrSBNrecByName(16,wname) ;// │ Признаки собственности НМА │
5008:wnrec:=GetTYPEMcNrecByName(wname) ;// │ Типы матценностей │
5009:wnrec:=0 ;// │ Локальные сметы │
5010:wnrec:=0 ;// │ Паспорта качества │
5011:wnrec:=0 ;// │ Варианты изготовления │
5012:wnrec:=0 ;// │ Пункты движения │
5013:wnrec:=0 ;// │ Транспортные средства │
5014:wnrec:=0 ;// │ Состояния транспортных средств │
5015:wnrec:=0 ;// │ Маршруты движения │
5016:wnrec:=0 ;// │ Банки │
5017:wnrec:=GetKAELEMNrecByName(wname) ;// │ Элементы затрат │
5018:wnrec:=0 ;// │ Операционные сметы │
5019:wnrec:=0 ;// │ Платежные документы │
5020:wnrec:=0 ;// │ Типы транспортных средств │
5022:wnrec:=0 ;// │ Пункты календарных планов │
end ;
}
end ; //case KatKau.SysNum of
GetAnaliticNrecByName:=wnrec ;
}
. И что-то меняется? У меня их не было в основном, а даже если и были то не уникальные, в отличии от наименования.