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

Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://asu.tyumbit.ru/

Дописать строку в frm

https://asu.tyumbit.ru/viewtopic.php?t=10766

Страница 1 из 1

Дописать строку в frm

Добавлено: 06 сен 2010, 10:19
rudm
Прошу прощения конечно за такой нубский вопрос, но горю - времени мало.
Надо дописать строку к уже готовому frm
В редакторе отчетов я его открыл, но пока не могу разобраться, как дописать строку, ведь если просто вставить то расползется форма, я так понимаю. Ее как то надо объявить переменной и потом вставлять? В общем, не могу разобраться, прошу вашей помощи.

Re: Дописать строку в frm

Добавлено: 06 сен 2010, 10:43
RAJAH
.LinkForm 'BUH-1' Prototype is 'PLATDOCS'
.Group 'БУХГАЛТЕРСКАЯ СПРАВКА'
.NameInList 'Бухгалтерская справка БУХ-1'
.var
l:Word
first:Word
last:Word
max:Word
i:Word
j:Word
k:Word
Str:String
Arr: ARRAY [1..605] of Char
.endvar
.fields
str
NoDok
ObDatOb2
dbSchetO
SubOsSch
KodSPO
dbKAU
krSchetK
SubSchK
KodSPK
krKAU
SumObInVal+ObValut
if(l=1,'Итого','')
SumObValut+ItsValut
SumObNDETotal
Str
Str
Str
MainAccountantAbbrev
PerformerNameAbbrev
page_symb
.endfields
.{
^ Типовая ведомственная форма БУХ-1

БУХГАЛТЕРСКАЯ СПРАВКА № @@@@@@@@@
за @@@@@@@@@@@@@@@@@@@
...
.}
.endform

Жирным выделена переменная str, которая выходит по месту, обозначенному красной "^".
Надеюсь, понятно.
P.S. RTFM!

Re: Дописать строку в frm

Добавлено: 06 сен 2010, 11:27
rudm
Cпасибо!
RTFM то конечно RTFM но ни в мануалах ни в нете такие моменты или не освящаются или запрятаны так что надо долго и нудно курить мануал опять же. А мне надо эту форму уже вчера ))
Компилится к сожалению с ошибками: Ожидалось имя или описание типа: var iCountry MCOriginCountry; Причем я вообще эти строки не трогал даже.
Ну, буду игнорировать, посмотрим что получится. Может быть такое из-за того что неверное подключили ресурсы какие то (как я понимаю .LinkForm 'PRBDOC_110C_110506_RKIT1' Prototype is 'PRBDOC' это как раз ссылка на уникальный ресурс некий. Я сейчас конечно занят его поиском. Но куда его запихал предыдущий разработчик, сказать не могу, да и есть ли он вообще, ресурс этот...

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

.LinkForm 'PRBDOC_110C_110506_RKIT1' Prototype is 'PRBDOC'
.Group 'Џа®¤ ¦ '
.Group 'ЏаҐ¤®Ї« в  Їа®¤ ¦'
.NameInList '‘зҐв-д Євга  б ४ў. Ја/®вЇа Љ ги ­-Ћ­ҐЈЁ­ '
.var
  SrcCountry:String
  GTDNumber:String
  cRecMyOrg:Comp
  ArdOrgGruzFrom:String
  ArdOrgGruzTo:String
  boIsVhodNal:Boolean
  Akciz:Double
  CenaAk:Double
  SumAk:Double
  totSumAk:Double
.endvar
.Create  view vSpStep
from
 BaseDoc,
 KatOrg,
 SpStep   ,
 KatParty
where
((
        comp(PosNRec) == SpStep.nRec
and     SpStep.cParty == KatParty.nRec
));
.Create  view vBaseDoc
from
 BaseDoc
where
((
    comp(BaseDocNRec) == BaseDoc.nRec
));
.fields
  nomer
  ddoc
  //if (trim(post) = '', '-', post)
  if (trim(SFAdrJurMy) = '', '-', SFAdrJurMy)
 //adpost)
  sGetTune('KatOrg.FldView.UNN') +
 '/' + sGetTune('KatOrg.FldView.KodPlatNDS')
  if (trim(innpost) = '', '-', innpost)
 +
   ' / ' +
 if (trim(KODPLATNDS_post) = '', '-', KODPLATNDS_post)
  if (trim(ArdOrgGruzFrom) = '', '-', ArdOrgGruzFrom)
   //Grpost)
  if (trim(ArdOrgGruzTo) = '', '-', ArdOrgGruzTo)
  //grpol)
  BaseFinNumber
  BaseFinDate
  if (trim(pol) = '', '-', pol)
  if (trim(SFAdrJurPol) = '', '-', SFAdrJurPol)
   //adpol)
  sGetTune('KatOrg.FldView.UNN') +
 '/' + sGetTune('KatOrg.FldView.KodPlatNDS')
  if (trim(innpol) = '', '-', innpol)
 +
   ' / ' +
 if (trim(KODPLATNDS_pol) = '', '-', KodNDS_pol_NotSF)
 //pname
  mc
  ed
  kol
  cenaAk
  sumAk
  Ak
  if(IsExistNDS,   if(wCountry<>0, string(procnds, 3, 0), string(procnds, 3, 0)+'%')
, '-')
  Lpad(if(IsExistNDS, DoubleToStr(Nds, '\2p[|-]366`666`666.88'), '-'), 14)
  Newsumma-NSel
  if (trim(SrcCountry) = '', '-', SrcCountry)
  if (trim(GTDNumber  ) = '', '-', GTDNumber  )
  n2
  k1-p2
  Director
  Main_Buh
  page_symb
.endfields
.{
.begin
  boIsVhodNal     := false;
  if (vBaseDoc.GetFirst fastfirstrow BaseDoc = 0)
    boIsVhodNal     := (vBaseDoc.BaseDoc.VhodNal = 1);
  ArdOrgGruzFrom := Grpost + if(grSFAdrPostOtp<>'',', ','') + grSFAdrPostOtp;
  ArdOrgGruzTo := Grpol + if(grSFAdrPostPol<>'',', ','') + grSFAdrPostPol;
end.
яђ                                                                                                                 ЏаЁ«®¦Ґ­ЁҐ ь 1
                                                                                              Є Џа ўЁ« ¬ ўҐ¤Ґ­Ёп ¦га­ «®ў гзҐв 
                                                                                        Ї®«г祭­ле Ё ўлбв ў«Ґ­­ле бзҐв®ў-д Євга,
                                                                                        Є­ЁЈ Ї®ЄгЇ®Є Ё Є­ЁЈ Їа®¤ ¦ ЇаЁ а бзҐв е
                                                                                             Ї® ­ «®Јг ­  ¤®Ў ў«Ґ­­го бв®Ё¬®бвм,
                                                                                   г⢥তҐ­­л¬ Ї®бв ­®ў«Ґ­ЁҐ¬ Џа ўЁвҐ«мбвў  ђ”
                                                                                                         ®в 02.12.2000 Ј. ь 914

                                                                                         (ў ।. Џ®бв ­®ў«Ґ­Ё© Џа ўЁвҐ«мбвў  ђ”
                                                                                       ®в 15.03.2001 ь 189, ®в 27.07.2002 ь 575,
                                                                    ®в 16.02.2004 ь 84, ®в 11.05.2006 ь 283 ®в 26.05.2009 ь 451)я˜

           яЃ‘зҐв-д Євга  NяЃ @@@@@@@@@@@@ яЃ®вяЃ @@@@@@@@@@@@@@@@@@@@@@

я€ я‰Џа®¤ ўҐж ЋвЄал⮥ ЂЄжЁ®­Ґа­®Ґ ЋЎйҐбвў® "€аЄгвбЄЁ© Њ б«®¦ЁаЄ®¬ЎЁ­ в", ЋЂЋ "€аЄгвбЄЁ© Њ†Љ"
 Ђ¤аҐб @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 ^ Їа®¤ ўж   @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 ѓа㧮®вЇа ўЁвҐ«м Ё ҐЈ®  ¤аҐб @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 ѓа㧮Ї®«гз вҐ«м Ё ҐЈ®  ¤аҐб  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 Љ Ї« вҐ¦­®-а бзҐв­®¬г ¤®Єг¬Ґ­вг
.{CheckEnter ISBASEFIN
        ь @@@@@@@@@@@@@@@@@@@@@ ®в @@@@@@@@@@@
.}
 Џ®ЄгЇ вҐ«м @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 Ђ¤аҐб @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 ^ Ї®ЄгЇ вҐ«п  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@яЃ
.{CheckEnter ISEXCLASS
.}
.{CheckEnter ISGROUP
.}
ђ‚ «ов : агЎ
ЪДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДВДДДДДДВДДДДДДДДДДВДДДДДДДДДДДДВДДДДДДДДДДДДДДДВДДДДДДДДДДВДДДДДДВДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДВДДДДДДДДДДВДДДДДДДДї
і Ќ Ё¬Ґ­®ў ­ЁҐ в®ў а             і…¤Ё-  іЉ®«ЁзҐбвў®і   –Ґ­      і   ‘в®Ё¬®бвм   і‚ ⮬ зЁб-іЌ «®- і ‘㬬  ­ «®Ј  і   ‘в®Ё¬®бвм   і  ‘ва ­   і Ќ®¬Ґа  і
і(®ЇЁб ­ЁҐ ўлЇ®«­Ґ­­ле           і­Ёж   і          і (в аЁд) §  і в®ў а®ў (а -  і «Ґ  ЄжЁ§ іЈ®ў п і              і в®ў а®ў (а -  і  Їа®Ёб-  ів ¬®¦Ґ­-і
і а Ў®в, ®Є § ­­ле               іЁ§¬Ґ- і          і Ґ¤Ё­Ёжг Ё§-і Ў®в, гб«гЈ),  і          ібв ўЄ і              і Ў®в, гб«гЈ),  і  宦¤Ґ-  і­®© ¤ҐЄ-і
і гб«гЈ), Ё¬гйҐб⢥­­®Ј® Їа ў    іаҐ­Ёп і          і ¬ҐаҐ­Ёп    і Ё¬гйҐб⢥­­ле і          і      і              і Ё¬гйҐб⢥­­ле і  ­Ёп     і« а жЁЁ і
і                                і      і          і            і  Їа ў, ўбҐЈ®  і          і      і              і Їа ў, ўбҐЈ® б і          і        і
і                                і      і          і            і  ЎҐ§  ­ «®Ј   і          і      і              і гзҐв®¬ ­ «®Ј  і          і        і
ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДЕДДДДДДДДДДЕДДДДДДДДДДДДЕДДДДДДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДЕДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДДДґ
і                1               і  2   і    3     і      4     і       5       і     6    і  7   і      8       і       9       і    10    і   11   і
ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДЕДДДДДДДДДДЕДДДДДДДДДДДДЕДДДДДДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДЕДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДДДґяђ
.begin
  TotSumAk := 0;
end.
.{
.{table 'vSpStep.SpStep'
.begin
 var sRet: string;

 sRet := '';
/*
 if GetVIPInterface( ExClassFun ) {
   wClassCode := ExClassFun.GetCode( coKatParty, '‘ва ­  Їа®Ёб宦¤Ґ­Ёп' );
   sRet := ExClassFun.GetSegName( coKatParty, wClassCode, vSpStep.KatParty.nRec );
   SrcCountry := if(sRet = '', '-', sRet);
   FreeVIPInterface( ExClassFun );
 }
 if GetVIPInterface( ExAttrFun ) {
   if ExAttrFun.GetAttr( coKatParty, 'ѓ’„', cAttr, wTypAttr ) = 0 {
      sRet := ExAttrFun.GetValue( coKatParty, cAttr, vSpStep.KatParty.nRec, wTypAttr );
      GTDNumber := if(sRet = '', '-', sRet);
    }
    else GTDNumber := '-';
   FreeVIPInterface( ExAttrFun );
  }
*/
 var iCountry : MCOriginCountry;
 if (vSpStep.SpStep.PrMC = 1) 
  {
    SrcCountry := if (trim(iCountry.getCountryName(vSpStep.SpStep.cMCUsl, vSpStep.SpStep.cParty)) = '', '-', iCountry.getCountryName(vSpStep.SpStep.cMCUsl, vSpStep.SpStep.cParty))
;
    GTDNumber  := if (trim(iCountry.getGTDNumber(vSpStep.SpStep.cParty)) = '', '-', iCountry.getGTDNumber(vSpStep.SpStep.cParty))
;
  } 
 else 
  {
    SrcCountry := '-';
    GTDNumber  := '-';
  }

 Akciz := Ak/kol;
 CenaAk := cenabez + AkCiz;
 SumAk  := sbez + Ak;
 TotSumAk := TotSumAk + SumAk;
end.
яђі@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@і@#@@@@і&#'&&&&&&&і&#'&&&&&&.&&і&#'&&&&&&&&&.&&і&#'&&&&.&&і@#~@@@і^і&#'&&&&&&&&&.&&і@~@@@@@@@@і@~@@@@@@іяђ
.}
.}
яђГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДБДДДДДДБДДДДДДДДДДБДДДДДДДДДДДДБДДДДДДДДДДДДДДДБДДДДДДДДДДБДДДДДДЕДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДДДґ
і  ‚ᥣ® Є ®Ї« вҐ                                                                                 і&#&&&&&&&&&.&&і&#&&&&&&&&&&.&&і          і        і
АДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДБДДДДДДДДДДБДДДДДДДДЩя€


  ђгЄ®ў®¤ЁвҐ«м ®аЈ ­Ё§ жЁЁ      ___________  я„@@@@@@@@@@@@@@@@@@@@@@@@@@я„ ѓ« ў­л© ЎгеЈ «вҐа ___________   я„^я„
                                 (Ї®¤ЇЁбм)              (”.€.Ћ.)                           (Ї®¤ЇЁбм)           (”.€.Ћ.)
  Џ® ЇаЁЄ §г ь113 ®в 07.06.08 Ј.                                        Џ® ЇаЁЄ §г ь113 ®в 07.06.08 Ј.
  €­¤ЁўЁ¤г «м­л© ЇаҐ¤ЇаЁ­Ё¬ вҐ«м___________  __________________________  _________________________________
                                 (Ї®¤ЇЁбм)              (”.€.Ћ.)           (४ўЁ§Ёвл бўЁ¤ҐвҐ«мбвў  ®
                                                                            Ј®бг¤ аб⢥­­®© ॣЁбва жЁЁ
                                                                            Ё­¤ЁўЁ¤г «м­®Ј® ЇаҐ¤ЇаЁ­Ё¬ вҐ«п)
  ЏаЁ¬Ґз ­ЁҐ.
  ЏҐаўл© нЄ§Ґ¬Ї«па - Ї®ЄгЇ вҐ«о, ўв®а®© нЄ§Ґ¬Ї«па - Їа®¤ ўжг.я˜

.if DELIMITER
----------------------------------------------------------------------------------------------------------------------------
.else
.end
^
.}
.endform

Re: Дописать строку в frm

Добавлено: 06 сен 2010, 12:05
rudm
Размер скомпилированного ресурсника - 1Kb. Я так понимаю, пытаться посмотреть все ли компилировалось как надо - нет смысла, я прав? )

Re: Дописать строку в frm

Добавлено: 06 сен 2010, 12:19
RAJAH
rudm писал(а):.LinkForm 'PRBDOC_110C_110506_RKIT1' Prototype is 'PRBDOC'
Это указание того, что присоединённая форма 'PRBDOC_110C_110506_RKIT1' построена по прототипу PRBDOC. Ресурс можно увидеть в интерфейсе печати отчётов (вкладка "Настройка отчётов").
rudm писал(а):Компилится к сожалению с ошибками: Ожидалось имя или описание типа: var iCountry MCOriginCountry;
Эта переменная, видимо, в файле *.vih описана (а вам нужны vip-интерфейсы в отчёте? Строки с GetVIPInterface и FreeVIPInterface?).

Насколько я понял из этих закорючек, это СФ? Интересно, зачем СФ печатать из ДО?

Re: Дописать строку в frm

Добавлено: 06 сен 2010, 12:33
KATZ
rudm
Сразу несколько тем с элементарными вопросами...
Чтобы не тыкаться вслепую и не терять кучу времени, изобретая колесо, обратитесь в вашу местную ТП, пусть пройдут с вами "курс молодого бойца". А сейчас, если срочно нужно поправить какую-то мелочь, выложите отчет, который у вас нормально компилируется и который берете за основу, и на словах расскажите, где и что поменять. Кто-нибудь поможет, возьмете готовый результат, а сами позднее разберетесь.
Если в отчете есть бизнес-текстовые стили, форум их порежет. Лучше не в сообщении цитировать, а на файлообменник закачать.

Re: Дописать строку в frm

Добавлено: 06 сен 2010, 13:00
rudm
Да я бы с радостью прошел курс.молодого бойца, но где, вот вопрос.
выкладываю форму которую надо скомпилировать (в нее надо добавить запись "Валюта: руб" Где-нибудь над таблицей например)
У меня таких форм несколько, так что я по аналогии с ней сделаю и остальные. Проблема в том. что она разработана не мной и изначально, даже без внесения изменений компилируется с ошибкой
http://rapidshare.com/files/417351653/prbdoc15_1.FRM

Re: Дописать строку в frm

Добавлено: 06 сен 2010, 13:09
rudm
RAJAH писал(а):
rudm писал(а):.LinkForm 'PRBDOC_110C_110506_RKIT1' Prototype is 'PRBDOC'
Это указание того, что присоединённая форма 'PRBDOC_110C_110506_RKIT1' построена по прототипу PRBDOC. Ресурс можно увидеть в интерфейсе печати отчётов (вкладка "Настройка отчётов").
rudm писал(а):Компилится к сожалению с ошибками: Ожидалось имя или описание типа: var iCountry MCOriginCountry;
Эта переменная, видимо, в файле *.vih описана (а вам нужны vip-интерфейсы в отчёте? Строки с GetVIPInterface и FreeVIPInterface?).

Насколько я понял из этих закорючек, это СФ? Интересно, зачем СФ печатать из ДО?
Что такое СФ? vip-интерфесы в отчете не нужны наврное. Если как то можно ее заменить, то вообще хорошо.

Re: Дописать строку в frm

Добавлено: 06 сен 2010, 13:58
KATZ
rudm
Ссылка на комплект. В BAT-файле напишете свой путь на VIP.EXE, в CFG-файле поправите под себя первые 3 строки, всё остальное должно работать как есть.
В FRM добавил

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

.declare
#include MCOriginCountry.vih
.enddeclare
и строку над таблицей, еще для простоты из MCOriginCountry.vih убрал всё лишнее.

Re: Дописать строку в frm

Добавлено: 06 сен 2010, 14:02
rudm
Огромное спасибо!

Re: Дописать строку в frm

Добавлено: 06 сен 2010, 18:21
rudm
Честно говоря нахожусь в легком офигении - на короткий момент ресурсник появляется и тут же удаляется системой. Время компиляции - 17 секунд.
Сижу уже третий час в удаленном доступе, перепробовал все настройки которые только можно - никакого толка...
попробовал сейчас тестовый вариант - скомпилировать формы которые раньше компилировались без проблем, то есть успешно и ресурсник оставался - тоже самое. Ресурсник возникает на короткое время и потом удаляется системой. Можно конечно запретить права на удаление, но какое то разумное объяснение должно быть такому поведению системы я думаю.

вот может быть в чем причина?
Изображение

Re: Дописать строку в frm

Добавлено: 06 сен 2010, 18:46
LaaLaa
rudm писал(а):Честно говоря нахожусь в легком офигении - на короткий момент ресурсник появляется и тут же удаляется системой. Время компиляции - 17 секунд.
Проверьте, указана ли лицензия на компилятор.

Re: Дописать строку в frm

Добавлено: 07 сен 2010, 07:32
rudm
Да, все пути прописаны.
Я думал, может быть антивирус блокирует, но его отключение ни к чему не привело.
Разобрался более менее - выглядит процесс компиляции так:
Создаются несколько временных файлов, в том числе и user3.res который я указываю в качестве конечного файла, потом удаляются, а пишется все в Atlantis_Supervisor.res судя по его дате создания и по тому что с каждым скомпилированным и удаленным файлом его размер увеличивается. Дата модификации тоже совпадает. Может такое быть, скажите пожалуйста? Провел эксперимент - удалил Atlantis Supervisor.res, запустил компиляцию, он появился снова. Так что видимо, действительно в нем все скомпилированные ресурсы. Сейчас попробую его подключить - нет, не видится в Галактие.

http://rapidshare.com/files/417536227/test_forms.rar
Вот я выложил в архиве файлы форм которые надо скомпилировать и ресурсник с уже скомпилированными формами (предположительно). Если у кого то есть возможность проверить - появляются ли они в Галактике (Управление сбытом - Счета ДО на продажу выбрать любой, на печать - должны появится)
Или скомпилировать уже измененные формы и скинуть, то буду очень благодарен. Потому что я не могу разобраться пока что.

Re: Дописать строку в frm

Добавлено: 07 сен 2010, 10:04
rudm
Оказывается, надо было указывать кучу ресурсов еще для компиляции... Сейчас скомпилировалось все нормально. Всем спасибо за ответы и помощь.
Часовой пояс: UTC+05:00
Страница 1 из 1

Создано на основе phpBB® Forum Software © phpBB Limited

Русская поддержка phpBB