Проблема с ресурсниками!

[jornand]

При переходе с 7.12 на 8.1 понадобилось перекомпелировать некоторые формы. Компиляция прошла без ошибок, но когда подключаю ресурсник к галке она его не видит. Вписываю в galnet.cfg, запускаю - никаких ошибок версий не выдает, но в отчете о рабочей станции его нету. Помогите. В чем проблема?

[Алексей]

Подключать надо через саппорт, модуль Консоль управления
В репозитарии, компоненты.

Поищите на форуме - найдете много информации.
через конфиг сейчас ресурсы подключать не получится.
Удачи.

[PViP]

Плюс исходники не забудте модифицировать на предмет компонентной структуры. В общем согласен с Алексей, в ПОИСК!

[jornand]

А как быть, если лицензии на саппорт нету? В демо версии нельзя добавлять компоненты.

[edward_K]

хм. а как вы компилите если нет лицензии на сапорт?. В поиск конечно же(да и в опыте кажись что-то было ) и помните что еще от царя гороха можно свои ресы кидать в exe как user.res - user5.res, ну или в рабочий каталог ярлыка debug-debug5.res.

[jornand]

У нас то все есть....а клиентов нету... Все-равно спасибо! Уже разобрался!

[Гаврилюк Марина]

jornand
У нас похожая проблема, не подскажете в чем у вас была причина?

P.S. После добавления компонента через репозитарий, отчет отобразился, где нужно. Но после того как его удалили из репозитария, повторно добавить ресурсник туда не удается. Не виден в счетах-фактурах, не виден в отчете о рабочей станции. Права общие - разрешен всем. Но Галка его хватает, т.к. если запущено приложение, нельзя удалить ресурсник из ехе

[edward_K]

интересно как добавили. Переименуйте его в репозитарри, проверте код - уж не 0 точно, я так начинаю с 10000 (системные до 3000).

[Гаврилюк Марина]

edward_K

Добавили так же как в первый раз - через консоль управления_репозитарий_компоненты_в L_ _добавить компонент. Он появляется в репозитарии, но в отчете о рабочей станции его нет сколько в Галку не перезапускай, и в счетах-фактурах он не появляется

Переименовывали, приоритет 500, прикладной,меняли galnet на atlantis системы, короче говоря как другие компоненты логистики, ничего не меняется.

Про код - это где, извините?

[edward_K]

1. а удалять и добавить снова не пробовали?
2. приоритет поставте больше 4000.
3. папку сделайте под свои ресы отдельную - не надо в стандратные пихать. и физическую тоже . типа в %Startup%_dopres
4. систему все таки - galnet - нафига он вам в сапорте?
5. если выборочно добавить права на пользователя?
6. в репозитарии установите текущей системой galnet - рес в компонентах не почернел? Если нет, то скорей всего в путях ошиблись
7. можете его еще переименовать в user1.res и положить в exe.

[Гаврилюк Марина]

1. Удалять и добавлять - пробовали неоднократно. Но увидели его в счетах-фактурах только после первого добавления.
2.Приоритет ставили 10000 - ничего (
3. Папку не создавали для своих ресурсов, подкладывали в ехе, т.к с другой папки ничего не добавлялось.
4. Систему вернули на galnet.
5. Права ставили на этот ресурс для своей учетки - ничего не менялось.
6. Рес черный в репозитарии. Но не виден.
7. Мы его переименовали в debug и подложили в ехе - не виден все одно.

p.s.Я даже вижу его в ПатчМен в списке зарегисьрированных компонентах - а в счетах-фактурах не вижу. Скомпилировали другой рес, который должен отображаться через акты - та же история, правда его в базе я не вижу, хотя лежат в 1 группе компонентов SCHFpr (создали ее)

[Гаврилюк Марина]

Последние достижения: в отчете о раб станции видны мои ресурсы, другие ресы отображаются в актах, кроме этого злополучного. Похоже дело в исходнике.

[Гаврилюк Марина]

Вот он:

.LinkForm 'SCHFpr_KCKK_C33' Prototype is 'Schfrees'
.Group 'Бланки счетов-фактур (c 11.05.2006)'
.nameinlist 'Счет-фактура с ценой-*.000(ф.КЧХК-RTF)'
.var
SrcCountry:String
GTDNumber:String
rNDS:Double
rSumNoNDS:Double
rAkcis:Double
rSaleTax:Double
rSumma:Double
StrPrim1:String
StrPrim2:String
Strdog:String
EmptyField:String
NTSD: String
Prim: String
Z: String
Faktadr:String
flag : boolean;
flag1 : boolean;
.endvar
.Create view vSpSchf
from
SpSchf ,
KatParty
where
(( cSpSchf == SpSchf.nRec and
SpSchf.cParty == KatParty.nRec
));
!
.Create view t10
as select *
from Dogovor,SchFact,DocInfo,Katorg Katorg1,Katorg Katorg2,katstate,addressn
where
(( nSchFact == SchFact.nRec
and SchFact.cBaseDoc == BaseDoc.nrec
and BaseDoc.cDogovor == Dogovor.nRec
and BaseDoc.nrec == DocInfo.cdoc
and 1102 == DocInfo.Doctype
and Schfact.corg == katorg1.nrec
and SchFact.CGRUZTO == katorg2.nrec
and Katorg2.cstate == katstate.nrec
and Katorg2.caddr == addressn.nrec
and addressn .csterr == sterr.nrec
and coGetTune('MyOrg') == KatOrg.Nrec));
!
.Create view t11
as select Soprhoz.*
where (( nSchFact == SchFact.nRec
and SchFact.cSoprhoz == Soprhoz.nrec));
!
.Create view GrNDS AS
select * from GRNal;
!
.Create view myOrg1
as select *
from Katorg
where ((coGetTune('MyOrg') == KatOrg.Nrec));
!
.Create view t12
as select *
from Dogovor,SchFact,soprhoz
where (( nSchFact == SchFact.nRec
and SchFact.cSoprhoz == Soprhoz.nrec
and Soprhoz.cDogovor == Dogovor.nRec));
!
.Create view t13
as select PlPor.Nodok,plpor.datvip from plpor
where (( nSchFact == SchFact.nRec
and SchFact.cBaseDoc == BaseFin.CBaseDoc
and BaseFin.cPlPor == PLPor.Nrec ))
and SchFact.cBaseDoc <> 0000000000000000h;
!
.fields
Z
NSF
if (longint(dFact)<>0, DateToStr(dFact, '"DD" Mon YYYY г.'), ' ')
t10.Katorg.code+' '+ if (Direct = 1, if (trim(MyOrgName) = '', '-', MyOrgName), if (trim(OrgName) = '', '-', OrgName) )
if (Direct = 1, if (trim(MyOrgAddr) = '', '-', MyOrgAddr), if (trim(OrgAddr) = '', '-', OrgAddr) )
! if (is2004, 'ИНН/КПП Продавца', 'КПП Продавца')
if (Direct = 1, ( if (trim(MyOrgINN) <>'', MyOrgINN, '-')+ ' / ' + if ( trim(MyOrgKPP) <> '', MyOrgKPP, '-' )),
if (trim(OrgINN) <>'', OrgINN, '-') + ' / ' + if (trim(OrgKPP) <> '', OrgKPP, '-'))
if (trim(GruzFrom) = '', if (Direct = 1, if (trim(MyOrgName) = '', '-', MyOrgName+'; '+MyOrgAddr),
if (trim(OrgName) = '', '-', OrgName+'; '+OrgAddr) ), if(trim(GruzFrom)='Он же',
if (Direct = 1, if (trim(MyOrgName) = '', '-', MyOrgName+'; '+MyOrgAddr),
if (trim(OrgName) = '', '-', OrgName+'; '+OrgAddr) ) ,GruzFrom))
! if (trim(GruzFrom) = '', '-', GruzFrom)
! if (trim(GruzTo) = '', if (Direct <> 1, if (trim(MyOrgName) = '', '-', MyOrgName+'; '+MyOrgAddr), if (trim(OrgName) = '', !'-', OrgName+'; '+OrgAddr) ) , t10.Katorg2.code+' '+GruzTo)
if (trim(GruzTo) = '', if (Direct <> 1, if (trim(MyOrgName) = '', '-', MyOrgName+'; '+MyOrgAddr),
if (trim(OrgName) = '', '-', OrgName+'; '+OrgAddr) ) , t10.Katorg2.code+' '+ PostAddr)

if (t13.PlPor.Nodok ='','',t13.PlPor.Nodok)+ ' От ' + if (t13.plpor.DAtvip ='','', DateToStr(t13.plpor.DAtvip,'DD Mon YYYY г.'))
if (trim(PlatNo) = '', ' ',if (t11.Soprhoz.TipDoc=7, t11.Soprhoz.Nodoc, PlatNo))
if ( longint(t11.Soprhoz.DatOb) <>0 and t11.Soprhoz.TipDoc =7,DateToStr(t11.Soprhoz.DatOb, 'DD Mon YYYY г.'),
if (longint(PlatDat) <> 0,DateToStr(PlatDat, 'DD Mon YYYY г.'), '') )
t10.Katorg1.code+' '+if (Direct <> 1, if (trim(OrgName) = '', '-', OrgName), if (trim(OrgName) = '', '-', OrgName) )
if (Direct <> 1, if (trim(OrgAddr) = '', '-', OrgAddr), if (trim(OrgAddr) = '', '-', OrgAddr) )
! if (is2004, 'ИНН/КПП Покупателя', 'КПП Покупалеля')
if (Direct = 1, ( if (trim(OrgINN) <>'', OrgINN, '-')+ ' / ' + if ( trim(OrgKPP) <> '', OrgKPP, '-' )),
if (trim(OrgINN) <>'', OrgINN, '-') + ' / ' + if (trim(OrgKPP) <> '', OrgKPP, '-'))
if (subtip = 16, IF(t12.Dogovor.NoDoc_ext<>'','Договор № '+t12.Dogovor.NoDoc_ext+' От ' + DateToStr(t12.Dogovor.dDoc, 'DD.MM.YYYY'),''),
IF (t10.Dogovor.NoDoc_ext <>'','Договор № '+ t10.Dogovor.NoDoc_ext + ' От ' + DateToStr( t10.Dogovor.dDoc, 'DD.MM.YYYY'),''))
if (subtip = 16,if (t12.Dogovor.NoDoc_ext='' and t12.Dogovor.NoDoc <>'','Договор ','')+IF (t12.Dogovor.NoDoc<>'',' P.N '+ t12.Dogovor.NoDoc+' От '+DateToStr(t12.Dogovor.dInput,'DD.MM.YYYY'),''),
if (t10.Dogovor.NoDoc_ext='' and t10.Dogovor.NoDoc<>'','Договор','')+IF (t10.Dogovor.NoDoc<>'',' P.N '+ t10.Dogovor.NoDoc + ' От '+DateToStr( t10.Dogovor.dInput,'DD.MM.YYYY'),''))
if (trim(StrDog) = '' , PlatNazn,'')
if (NTSD<>'','ТДС №'+ NTSD,'')
SpBarCode+' '+SpName
if (trim(if (SpPrMC = 3, '', SpOtpEd)) = '', '-', if (SpPrMC = 3, '', SpOtpEd))
if (SpPrMC = 3,’0.0’, if(spotped ='-',' -', DoubleToStr(SpKol,'666 666 666 666.8888') ))
if (SpPrMC = 3, ‘0.0’, if(spotped ='-',' -', DoubleToStr(SpPrNoNds,'666 666 666 666.888')))
DoubleToStr(Round(SpSumNoNDS,2),'666 666 666 666.88')
SpAkciz
if (SpExistNDS = false and SpPerc = 0, 'БезНДС',string(SpPerc, 3, 0) + ' %')
DoubleToStr(Round(SpNDS,2),'666 666 666 666.88')
DoubleToStr(Round(SpSumma,2),'666 666 666 666.88')
if (trim(SrcCountry) = '', '-', SrcCountry)
if (trim(GTDNumber) = '', '-', GTDNumber)
! ******************************
! if (SubTip = 16, 'Аванс',if (SubTip = 23, 'Суммовая разница', TRIM(SUBSTR(PlatNazn,POS(' за ', PlatNazn), !Length(PlatNazn)))))
if (SubTip = 16, 'Аванс '+ TRIM(SUBSTR(PlatNazn,POS(' за ', PlatNazn), Length(PlatNazn))),if (SubTip = 23, 'Суммовая разница', TRIM(SUBSTR(PlatNazn,POS(' за ', PlatNazn), Length(PlatNazn)))))
EmptyField
EmptyField
EmptyField
!if (((Direct=1) and (SubTip=16) and (wGetTune('Country')=0)),0,s1)
DoubleToStr(s1,'666 666 666 666.88')
SAkciz
string(Stav1,2,0)
!if(abs(s3) >= 0.01, if(wGetTune('Country')=0, if(((SubTip=16) or (SubTip=23)), !string(Stav1,2,0)+'/'+string(100+Stav1,3,0), !string(Stav1,3,0)+' %'), string(Stav1,3,0)+' %'),'-')
DoubleToStr(s2,'666 666 666 666.88')
DoubleToStr(s3,'666 666 666 666.88')
EmptyField
EmptyField
EmptyField
EmptyField
EmptyField
if (((Direct=1) and (SubTip=16) and (wGetTune('Country')=0)),0, DoubleToStr(s4,'666 666 666 666.88'))
EmptyField
if(wGetTune('Country')=0, if(((SubTip=16) or (SubTip=23)), string(Stav2,2,0)+'/'+string(100+Stav2,3,0), string(Stav2,3,0)+' %'), string(Stav2,3,0)+' %')
DoubleToStr(s5,'666 666 666 666.88')
DoubleToStr(s6,'666 666 666 666.88')
EmptyField
EmptyField
EmptyField
EmptyField
EmptyField
If (((Direct=1) and (SubTip=16) and (wGetTune('Country')=0)),0, DoubleToStr(s23,'666 666 666 666.88'))
EmptyField
If(wGetTune('Country')=0, if(((SubTip=16) or (SubTip=23)), string(Stav3,2,0)+'/'+string(100+Stav3,3,0), string(Stav3,3,0)+' %'), string(Stav3,3,0)+' %')
DoubleToStr(s8,'666 666 666 666.88')
DoubleToStr(s9,'666 666 666 666.88')
EmptyField
EmptyField
EmptyField
EmptyField
EmptyField
If (((Direct=1) and (SubTip=16) and (wGetTune('Country')=0)),0, DoubleToStr(s7,'666 666 666 666.88'))
EmptyField
EmptyField
EmptyField
DoubleToStr(s7,'666 666 666 666.88')
EmptyField
EmptyField
! if (((Direct=1) and (SubTip=16) and (wGetTune('Country')=0)),'', if ((ppPrintParam and 64) <> 0, if (bSumEqual, !rSumNoNDS, S1 + S4 + S23 + S7), ''))
! if (bSumEqual, rSumNoNDS, S1 + S4 + S23 + S7)
if (bSumEqual, DoubleToStr(Round(rNDS,2),'666 666 666 666.88'), DoubleToStr(Round(S2 + S5,2),'666 666 666 666.88'))
if (bSumEqual, DoubleToStr(Round(rSumma,2),'666 666 666 666.88') , DoubleToStr(Round(S,2),'666 666 666 666.88'))
! SUBSTR(Director,1,POS(' ',Director)+1)+'.'+SUBSTR(DIRECTOR,POS(' ',SUBSTR(director,POS(' !',director)+1,Length(Director)))+POS(' ',director)+1,1)+'.'
! SUBSTR(Main_Buh,1,POS(' ',Main_Buh)+1)+'.'+SUBSTR(Main_Buh,POS(' !',SUBSTR(Main_Buh,POS(' !',Main_Buh)+1,Length(Main_Buh)))+POS(' ',Main_Buh)+1,1)+'.'
! Director
! Main_Buh
! Nazn
Prim
! t1.Attrval4.Vstring DatetoStr(t1.Attrval3.Vdate,'DD.MM.YYYY')
! t1.Attrval2.Vstring DatetoStr(t1.Attrval.Vdate,'DD.MM.YYYY')
.endfields
.begin
Z := '';
EmptyField := if(wGetTune('Country')=0,'-','');
end.
.if SETDATERANGE
!.else
.end
.{CheckEnter SCHF
.if HEADERGROUP
!.else
.end
.if Dopol
.end
.{CheckEnter SCHFKATSOPR
.{CheckEnter SCHFSPSOPR
.begin
NTSD:= NSopr;
end.
.{CheckEnter SCHFSPSOPRNALOG
.}
.}
.}
!.{?internal; subtip<>16

[Polimer]

Попробуйте так:
.LinkForm 'SCHFpr_KCKK_RTF' Prototype is 'Schfrees'

[jornand]

Было и такое, рес подключен, а отчёта все-равно нету, дело было в исходнике, при компиляции просмотрите лог! А то пишет что компиляция успешно завершена, а в логе ошибка какая-нибудь или предупреждение.