Несовпадение прототипа и присоединённой формы

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

LaaLaa

Re: Несовпадение прототипа и присоединённой формы

Сообщение LaaLaa »

rudm писал(а):Опять 25.
Уж и не знаю что и думать. Обновляюсь, компилирую формы vip'ом Получаю при попытке формировать отчет - "Несовпадение прототипа shfrees и присоединенной формы." Я может быть чего то не понимаю, но прототип же при компиляции (в нашем случае prbdoc) берется из указанных в vip.cfg ресурсов,а они жестко прописаны - брать из обновленного каталога exe
Галактике в общем можно удивляться бесконечно.
К сожалению язык форм FCOM имеет такую особенность. Если в базовую форму с выходом обновлений Галактики добавляется какой то цикл вам придется его тоже добавить в свои присоединенные формы. Даже если эту новую информацию вам выводить не нужно, пустой цикл придется добавить.

Посмотрел по истории изменений последнее изменение в прототип "shfrees" 26.08.2010 были добавлены "подписанты"

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

.{ CheckEnter FeeSignersMember_Schfrees_Dir
  Signer_nRec_Director     - ^
  Signer_FIO_Director      - ^
  Signer_TabN_Director     - ^
  Signer_Position_Director - ^
  Signer_Role_Director     - ^
.}
  KolSigners_MainBuh - ^
.{ CheckEnter FeeSignersMember_Schfrees_Buh
  Signer_nRec_MainBuh      - ^
  Signer_FIO_MainBuh       - ^
  Signer_TabN_MainBuh      - ^
  Signer_Position_MainBuh  - ^
  Signer_Role_MainBuh      - ^
.}
К сведению в Галактике появилась новая функция "Сервис \ О конфликтах в формах" с помощью которой можно проверить весе свои ресурсы на предмет совпадения структуры ваших присоединенных форм и форм прототипов.
rudm
Постоянный обитатель
Сообщения: 117
Зарегистрирован: 24 июн 2010, 07:32

Re: Несовпадение прототипа и присоединённой формы

Сообщение rudm »

Спасибо за ответ.
Вот моя форма, получается мне надо добавить в нее еще цикл { } с новыми переменными? Но у меня и так уже 6 циклов, а в протитипе всего пять. В общем, если подскажете куда копать, то буду очень благодарен - горю.

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

.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

rudm
Постоянный обитатель
Сообщения: 117
Зарегистрирован: 24 июн 2010, 07:32

Re: Несовпадение прототипа и присоединённой формы

Сообщение rudm »

Обнаружил что проект собирался с использованием формы прототипа PRBDOC.PRO аж от 11.01.2010 то есть почти годичной давности.
Выгрузил из обновленной по состоянию на 11.01.2011 Галактики PRBDOC.PRO и положил его в проект
Судя по Сервис\Информация о конфликтах в формах
конфликтов в форме нет
Не конфликтуют больше переменные (как в отчете о ресурсном файле собранном на старом прототипе от 11.01.2010), все компилируется без ошибок (причем ресурсный файл получается в два раза больше), но в итоге получаю.
вот такую счет фактуру
Изображение
То есть явно где то ошибка. Но вот где?
Алексей
Местный житель
Сообщения: 2896
Зарегистрирован: 24 июн 2005, 12:12
Откуда: Иркутская область

Re: Несовпадение прототипа и присоединённой формы

Сообщение Алексей »

формы прототипы не надо собирать заново, они уже есть в подключаемом вами ресурсе, собранные и обновленные. уберите из проект прототип и просто в конфиге подключите необходимый ресурс.
rudm
Постоянный обитатель
Сообщения: 117
Зарегистрирован: 24 июн 2010, 07:32

Re: Несовпадение прототипа и присоединённой формы

Сообщение rudm »

Куда вам слать коньяк, пиво, женщин, дорогие машины, дома, квартиры, ой, простите - волна эмоций ))))
Скомпилировались и кажется выглядят как надо при формировании, отправляю на проверку бухгалтерии.
Женщин, домов квратир и прочего конечно не обещаю, а вот коньяк вышлю если захотите и если бухгалтерия останется довльна )))
rudm
Постоянный обитатель
Сообщения: 117
Зарегистрирован: 24 июн 2010, 07:32

Re: Несовпадение прототипа и присоединённой формы

Сообщение rudm »

Имею такую ситуацию, теперь с другой уже формой, прототип SCHFREES
Информация - отчет о конфликтах в формах конфликтов в форме не обнаруживает. Тем не менее при открытии выдается стандартное сообщение о несоответствии формы и прототипа, а компилятор пишет

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

Несовпадение структуры прототипа и присоединенной формы (стр.267, поз.9 в E:\GAL\GAL_200111\GAL810\EXE\IMGK_FORMS\VIP_FRM\IMGK_SCHFREES_71.FRM)
         і .endform 
Чем ему может не нравится endform?
Вот сама форма. Может у кого то возникнут идеи.

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

.LinkForm 'IMGK_SCHFREES_71' Prototype is 'SCHFREES'
.Group 'Бланки счетов-фактур (с 11.05.2006)'
.NameInList 'ИМЖК_Счет-фактура (формат A4) Гридякина'
.var
  StrPrim1:String
  StrPrim2:String
  is2004:Boolean
  EmptyField:String
.endvar
.Create       view vSpSchf
from
  SpSchf  ,
  KatParty
where
((
         cSpSchf == SpSchf.nRec and
   SpSchf.cParty == KatParty.nRec
));
.fields
  NSF
  if (longint(dFact)<>0, DateToStr(dFact, '"DD" Mon YYYY г.'), '')
  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 + if (is2004 and (trim(MyOrgKPP) <> ''), ' / ' + MyOrgKPP, '')) = '', '-', MyOrgINN + if (is2004 and (trim(MyOrgKPP) <> ''), ' / ' + MyOrgKPP, ''))
,
    if (trim(OrgINN + if (is2004 and (trim(OrgKPP) <> ''), ' / ' + OrgKPP, '')) = '', '-', OrgINN + if (is2004 and (trim(OrgKPP) <> ''), ' / ' + OrgKPP, ''))

  )
 
 
 
 
 
 
  if (trim(GruzFrom) = '', '-', GruzFrom)
  if (trim(GruzTo) = '', '-', GruzTo)
  PlatNo_Date
  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 + if (is2004 and (trim(MyOrgKPP) <> ''), ' / ' + MyOrgKPP, '')) = '', '-', MyOrgINN + if (is2004 and (trim(MyOrgKPP) <> ''), ' / ' + MyOrgKPP, ''))
,
    if (trim(OrgINN + if (is2004 and (trim(OrgKPP) <> ''), ' / ' + OrgKPP, '')) = '', '-', OrgINN + if (is2004 and (trim(OrgKPP) <> ''), ' / ' + OrgKPP, ''))

  )

 
 
 
 
 
  Nazn
  Dollarah
  if (SubTip = 16, 'Оплата в счет предстоящих поставок, оказания услуг',
    if (SubTip = 23, 'Суммовая разница', '')) + PlatNazn
  EmptyField
  EmptyField
  EmptyField
  if (((SubTip=16) and wCountry=0),0,s1)
  SAkciz
  if(abs(s3) >= 0.01, if(wCountry=0,
   if(((SubTip=16) or (SubTip=23)), string(Stav1,2,0)+'/'+string(100+Stav1,3,0),
                                    string(Stav1,3,0)+' %'),
   string(Stav1,3,0)+' %'),'-')
  s2
  s3
  EmptyField
  EmptyField
  EmptyField
  EmptyField
  EmptyField
  if (((SubTip=16) and wCountry=0),0,s4)
  EmptyField
  if(wCountry=0,
   if(((SubTip=16) or (SubTip=23)), string(Stav2,2,0)+'/'+string(100+Stav2,3,0),
                                    string(Stav2,3,0)+' %'),
   string(Stav2,3,0)+' %')
  s5
  s6
  EmptyField
  EmptyField
  EmptyField
  EmptyField
  EmptyField
  if (((SubTip=16) and wCountry=0),0,s23)
  EmptyField
  if(wCountry=0,
   if(((SubTip=16) or (SubTip=23)), string(Stav3,2,0)+'/'+string(100+Stav3,3,0),
                                    string(Stav3,3,0)+' %'),
   string(Stav3,3,0)+' %')
  s8
  s9
  EmptyField
  EmptyField
  EmptyField
  EmptyField
  EmptyField
  if (((SubTip=16) and wCountry=0),0,s7)
  EmptyField
  EmptyField
  EmptyField
  s7
  EmptyField
  EmptyField
  if (trim(if (SpPrMC >= 100, SpName, if (SpExistNDS or SpPerc <> 0, SpName, SpName + ' ( Без Налога(НДС) )'))
) = '', '-', if (SpPrMC >= 100, SpName, if (SpExistNDS or SpPerc <> 0, SpName, SpName + ' ( Без Налога(НДС) )'))
)
  if (trim(if (SpPrMC = 3, '', SpOtpEd)) = '', '-', if (SpPrMC = 3, '', SpOtpEd))
  if (SpPrMC = 101, '-',
    if (SpPrMC = 3, '0.0', string(SpKol, 0, Kol_Pr)))
  if (SpPrMC = 3, 0.0, SpPrNoNds)
  SpSumNoNDS
  SpAkciz
  if (SpPrMC = 101, '-',
    if (SpExistNDS or SpPerc <> 0, string(SpPerc, 3, 0) + ' %', '-'))
  SpNDS
  SpSumma
  GTDCountry
  GTDNomer
  if (((SubTip=16) and wCountry=0),'',
  if ((ppPrintParam and 64) <> 0
  ,  DoubleToStr(ItSumNoNDS, '\2p[|-]3666666666666666666.88'), ''))
  ItNDS
  ItSumma
  Director
  Main_Buh
  Director
  Main_Buh
.endfields
.begin
  is2004 := (ppPrintParam and 128) <> 0;
  EmptyField := if(wCountry=0,'-','');
end.
.if SETDATERANGE
.else
.end
.{CheckEnter SCHF
.if HEADERGROUP
.else
.end
.{?internal; is2004
                                                                                                                                        Приложение № 1
                                                                            к Правилам ведения журналов учета полученных и выставленных счетов-фактур,
                                                                           книг покупок и книг продаж при расчетах по налогу на добавленную стоимость,
                                                                               утвержденным постановлением Правительства РФ от 2 декабря 2000 г. № 914
                                                                                     (в ред. постановлений Правительства РФ от 15 марта 2001 г. № 189)
                                                                 (и изменениями от 27 июля 2002 г., 16 февраля 2004г., 11 мая 2006 г., 26 мая 2009 г.)
.}

                 Счет-фактура № @@@@@@@@@@@@ от @@@@@@@@@@@@@@@@@@@@@@

 Продавец  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 Адрес @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 Грузоотправитель и его адрес @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 Грузополучатель и его адрес  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 К платежно-расчетному документу @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 Покупатель @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 Адрес @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
.if DOPOL
 Дополнение (условия оплаты по договору (контракту), способ отправления и т.п.)
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 Составлен в @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
.else
.end
.{CheckEnter SCHFKATSOPR
.{CheckEnter SCHFSPSOPR
.{CheckEnter SCHFSPSOPRNALOG
.}
.}
.}


-------------------------T---------T----------------T------------T---------------T-----------T------T--------------T---------------T-------------T---------¬
¦ Наименование товара    ¦ Единица ¦Количество      ¦   Цена     ¦   Стоимость   ¦В том числе¦Нало- ¦ Сумма налога ¦   Стоимость   ¦   Страна    ¦  Номер  ¦
¦(описание выполненных   ¦ измере- ¦                ¦ (тариф) за ¦ товаров (ра-  ¦   акциз   ¦говая ¦              ¦ товаров (ра-  ¦происхождения¦ таможен-¦
¦ работ, оказанных       ¦   ния   ¦                ¦ единицу из-¦ бот, услуг),  ¦           ¦ставка¦              ¦ бот, услуг),  ¦             ¦ ной дек-¦
¦ услуг), имущественного ¦         ¦                ¦ мерения    ¦ имущественных ¦           ¦      ¦              ¦ имущественных ¦             ¦ ларации ¦
¦ права                  ¦         ¦                ¦            ¦  прав, всего  ¦           ¦      ¦              ¦  прав, всего  ¦             ¦         ¦
¦                        ¦         ¦                ¦            ¦  без налога   ¦           ¦      ¦              ¦с учетом налога¦             ¦         ¦
+------------------------+---------+----------------+------------+---------------+-----------+------+--------------+---------------+-------------+---------+
¦          1             ¦     2   ¦     3          ¦      4     ¦       5       ¦     6     ¦   7  ¦       8      ¦       9       ¦      10     ¦    11   ¦
+------------------------+---------+----------------+------------+---------------+-----------+------+--------------+---------------+-------------+---------+
.{?internal; (SubTip >= 16)
¦@@@@@@@@@@@@@@@@@@@@@@@@¦@~@@@@@@@¦   &#&&&&.&&&&&&¦&#&&&&&&&.&&¦&#&&&&&&&&&&.&&¦&#&&&&&&.&&¦@#~@@@¦&#&&&&&&&&&.&&¦&#&&&&&&&&&&.&&¦@~@@@@@@@@@@@¦@~@@@@@@@¦
.}
.{?internal; ( (Abs(S6) > 0.01 ) and (SubTip >= 16) )
¦                        ¦@~@@@@@@@¦   &#&&&&.&&&&&&¦&#&&&&&&&.&&¦&#&&&&&&&&&&.&&¦&#&&&&&&.&&¦@#~@@@¦&#&&&&&&&&&.&&¦&#&&&&&&&&&&.&&¦@~@@@@@@@@@@@¦@~@@@@@@@¦
.}
.{?internal; ( (Abs(S9) > 0.01 ) and (SubTip >= 16) )
¦                        ¦@~@@@@@@@¦   &#&&&&.&&&&&&¦&#&&&&&&&.&&¦&#&&&&&&&&&&.&&¦&#&&&&&&.&&¦@#~@@@¦&#&&&&&&&&&.&&¦&#&&&&&&&&&&.&&¦@~@@@@@@@@@@@¦@~@@@@@@@¦
.}
.{?internal; ( (Abs(S7) > 0.01) and (SubTip >= 16) )
¦                        ¦@~@@@@@@@¦   &#&&&&.&&&&&&¦&#&&&&&&&.&&¦&#&&&&&&&&&&.&&¦&#&&&&&&.&&¦@#~@@@¦&#&&&&&&&&&.&&¦&#&&&&&&&&&&.&&¦@~@@@@@@@@@@@¦@~@@@@@@@¦
.}
.{CheckEnter SPSCHF
.{table 'vSpSchf.SpSchf'
¦@@@@@@@@@@@@@@@@@@@@@@@@¦@~@@@@@@@¦   &#&&&&.&&&&&&¦&#&&&&&&&.&&¦&#&&&&&&&&&&.&&¦&#&&&&&&.&&¦@#~@@@¦&#&&&&&&&&&.&&¦&#&&&&&&&&&&.&&¦@~@@@@@@@@@@@¦@~@@@@@@@¦
.}
.}
.{CheckEnter KAZST
.}
.{CheckEnter NALOGFINSCHF
.}
.if ITOGOGROUP
.else
.end
+------------------------+---------+----------------+------------+---------------+-----------+------+--------------+---------------+-------------+----------
¦  Всего к оплате                                                 &#&&&&&&&&&&.&&                   ¦&#&&&&&&&&&.&&¦&#&&&&&&&&&&.&&¦
L---------------------------------------------------------------------------------------------------+--------------+----------------
.{?internal; not is2004

       
       Руководитель организации                     @@@@@@@@@@@@@@@@@@@@@@@@@@ Главный бухгалтер                 ^
       (индивидуальный предприниматель)                                        (реквизиты свидетельства о
                                                                                государственной регистрации
                                                                                индивидуального предпринимателя)

       М.П.


       Выдал                                                                    (подпись ответственного лица от продавца)



       Примечания. Первый экземпляр - покупателю, второй экземпляр - продавцу.

.}
.{?internal; is2004

       
       Руководитель организации     _____________    @@@@@@@@@@@@@@@@@@@@@@@@@@   Главный бухгалтер  _____________    ^
                                      (подпись)               (Ф.И.О.)                                 (подпись)           (Ф.И.О.)
       По приказу №139 от 30.07.09                                                По приказу №113 от 07.06.08

       Индивидуальный предприниматель _____________  __________________________   ____________________________________________________________________
                                        (подпись)             (Ф.И.О.)                    (реквизиты свидетельства о государственной регистрации
                                                                                                    индивидуального предпринимателя)



       Примечание. Первый экземпляр - покупателю, второй экземпляр - продавцу.
       
.}
+
.}
.endform

Polimer
Местный житель
Сообщения: 489
Зарегистрирован: 27 янв 2006, 12:46
Откуда: Москва

Re: Несовпадение прототипа и присоединённой формы

Сообщение Polimer »

Это старый прототип, ищите в SRC новый. Там два цикла CheckEnter добавлены вначале.
rudm
Постоянный обитатель
Сообщения: 117
Зарегистрирован: 24 июн 2010, 07:32

Re: Несовпадение прототипа и присоединённой формы

Сообщение rudm »

Ничего не понимаю. Как старый? Еслиу меня в vip.cfg прописано подключать все ресурсники обновленные из папки exe?

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

 ђҐбгабл,  ўв®¬ вЁзҐбЄЁ ®вЄалў ойЁҐбп ЇаЁ бв а⥠Їа®Ја ¬¬л
/resources=e:\GAL\GAL_200111\GAL810\exe\COMPDATA.RES
/resources=e:\GAL\GAL_200111\GAL810\exe\C_CORPO.RES
/resources=e:\GAL\GAL_200111\GAL810\exe\F_AVIZO.RES
/resources=e:\GAL\GAL_200111\GAL810\exe\F_PLPORREP.RES
/resources=e:\GAL\GAL_200111\GAL810\exe\F_VZACHET.RES
/resources=e:\GAL\GAL_200111\GAL810\exe\GALHELP.RES
b и так далее
откуда он вообще может взяться у меня, этот старый прототип?
KATZ
Местный житель
Сообщения: 473
Зарегистрирован: 29 мар 2005, 17:49

Re: Несовпадение прототипа и присоединённой формы

Сообщение KATZ »

Polimer имел в виду, что ваша присоединенная форма сделана по прототипу, который на данный момент устарел. В текущем прототипе появились два дополнительных цикла, а в вашей форме их нет. Несколько раньше об этих же циклах упоминал LaaLaa. Должно быть как-то так:

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

.endfields
.begin
  is2004 := (ppPrintParam and 128) <> 0;
  EmptyField := if(wCountry=0,'-','');
end.
.{ CheckEnter FeeSignersMember_Schfrees_Dir
.}
.{ CheckEnter FeeSignersMember_Schfrees_Buh
.}
.if SETDATERANGE
// и т. д. 
Polimer
Местный житель
Сообщения: 489
Зарегистрирован: 27 янв 2006, 12:46
Откуда: Москва

Re: Несовпадение прототипа и присоединённой формы

Сообщение Polimer »

Ваша форма построена на старом прототипе. Прототип, естественно подключается новый.
rudm
Постоянный обитатель
Сообщения: 117
Зарегистрирован: 24 июн 2010, 07:32

Re: Несовпадение прототипа и присоединённой формы

Сообщение rudm »

Я понимаю, весь вопрос как раз и состоит в том, как сделать так, что бы она не конфликтовала с новым прототипом. Что туда добавить? Пустые циклы?
2KATZ Простите, не заметил сразу ваше сообщение.
Сейчас попробую добавить в начало формы эти циклы
rudm
Постоянный обитатель
Сообщения: 117
Зарегистрирован: 24 июн 2010, 07:32

Re: Несовпадение прототипа и присоединённой формы

Сообщение rudm »

К сожалению - тоже самое (
rudm
Постоянный обитатель
Сообщения: 117
Зарегистрирован: 24 июн 2010, 07:32

Re: Несовпадение прототипа и присоединённой формы

Сообщение rudm »

Странно, а сейчас вроде бы отработало. Получается ресурс где то еще кэшируется при формировании? Раз он один раз ругается, а в следующий раз, видимо после очистки кэша - пропускает форму нормально? Хотя, может быть я настолько устал вчера, что просто перепутал ресурсники.
zna
Местный житель
Сообщения: 552
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Челябинск
Контактная информация:

Re: Несовпадение прототипа и присоединённой формы

Сообщение zna »

Коллеги, кто подскажет, как в присоединённой форме подавить вывод строки данных по условию?
Например, в строке

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

...
.if OKANRSUMKAU1
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@   ...
.else
.end
...
переменная OKANRSUMKAU1 есть в прототипе- нормально. Если добавляю свою переменную bIsOtkl :

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

.var
  bIsOtkl:Boolean
.endvar
...
.begin
bIsOtkl:= true;
end.
.if OKANRSUMKAU1
.if bIsOtkl
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@     
.else
.end
.else
.end
...
- ошибка, "нет такой переменной в прототипе"...
RAJAH
Местный житель
Сообщения: 932
Зарегистрирован: 18 фев 2008, 12:49

Re: Несовпадение прототипа и присоединённой формы

Сообщение RAJAH »

Вместо

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

.if bIsOtkl
попробуйте

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

.{?internal; bIsOtkl;
Ответить