КОМПИЛИРОВАНИЕ

edward_K · Сообщение **edward_K** » 21 окт 2009, 15:15

ну 2 причины
либо вы не на том exe комплились, либо в ващей форме чего то не так объявили. В стандартной форме гляньте как сейчас.
и как в вашей сечас объявлено.

korvanakorvana

не пойму как не на том ехе?
Формы все рабочие 100%.

korvanakorvana

Объявляю при компилировании так
//#include predefs.inc
#include MCOriginCountry.vih
#include ExtAttr.vih
#include ExtClass.vih

const
#include GalNet.csc
#include Excel.inc
//#include Mark.inc
#include CommonC.inc
end;

#include GloDefs.inc
//#include DicTypes.def

#ifdef ComponentVersion
#include galaktika.vil

#component ""
#endif
#MAKE "Piter\mx1_piter_medica_to_argo_011009.rtf

korvanakorvana

vip.cfg такой сделала) если что простите за кривость рук)
[licparam]
LicFileName=\\duron\lic\vip.lic

[Hardwarekey]
Sharedpath=\\duron\hwdir\dir

[DataBase]
DataBaseName=\\Duron\Gal810\OOOFARM\DATA

[System]
ResourceFastCompress=Off

/resources=C:\Support810\exe\support.res
/resources=C:\Gal810\exe\Z_ZAR.res
/resources=C:\Gal810\exe\C_CheckKBU.res
/resources=C:\Gal810\exe\C_CheckOper.res
/resources=C:\Gal810\exe\C_Common.res
/resources=C:\Gal810\exe\C_Corpo.res
/resources=C:\Gal810\exe\C_ExpImp.res
/resources=C:\Gal810\exe\C_ExtClass.res
/resources=C:\Gal810\exe\C_Join.res
/resources=C:\Gal810\exe\C_Mailer.res
/resources=C:\Gal810\exe\C_OLAP.res
/resources=C:\Gal810\exe\C_Partner.res
/resources=C:\Gal810\exe\C_StatLine.res
/resources=C:\Gal810\exe\C_Tree.res
/resources=C:\Gal810\exe\C_TreeTune.res
/resources=C:\Gal810\exe\C_Tune.res
/resources=C:\Gal810\exe\C_UserManual.res
/resources=C:\Gal810\exe\C_WebServices.res
/resources=C:\Gal810\exe\compdata.res
/resources=C:\Gal810\exe\Err_Nagrad.res
/resources=C:\Gal810\exe\ExtFun.res
/resources=C:\Gal810\exe\ExtFun_WT.res
/resources=C:\Gal810\exe\F_Alg.res
/resources=C:\Gal810\exe\F_An.res
/resources=C:\Gal810\exe\F_APlan.res
/resources=C:\Gal810\exe\F_Avizo.res
/resources=C:\Gal810\exe\F_BackLog.res
/resources=C:\Gal810\exe\F_BankDocF.res
/resources=C:\Gal810\exe\F_BuhRep.res
/resources=C:\Gal810\exe\F_BuhSchet.res
/resources=C:\Gal810\exe\F_CashBank.res
/resources=C:\Gal810\exe\F_CloSch.res
/resources=C:\Gal810\exe\F_Common.res
/resources=C:\Gal810\exe\F_Consol.res
/resources=C:\Gal810\exe\F_DiffRate.res
/resources=C:\Gal810\exe\F_DistPl.res
/resources=C:\Gal810\exe\F_DocOb.res
/resources=C:\Gal810\exe\F_DragM.res
/resources=C:\Gal810\exe\F_ExtAn.res
/resources=C:\Gal810\exe\F_FA.res
/resources=C:\Gal810\exe\F_Filial.res
/resources=C:\Gal810\exe\F_FpAddFld.res
/resources=C:\Gal810\exe\F_FpBudget.res
/resources=C:\Gal810\exe\F_FpCatalog.res
/resources=C:\Gal810\exe\F_FpHashAn.res
/resources=C:\Gal810\exe\F_FpKatH.res
/resources=C:\Gal810\exe\F_FpOborot.res
/resources=C:\Gal810\exe\F_GetAn.res
/resources=C:\Gal810\exe\F_Iski.res
/resources=C:\Gal810\exe\F_KatDoc.res
/resources=C:\Gal810\exe\F_KatKod.res
/resources=C:\Gal810\exe\F_MBP.res
/resources=C:\Gal810\exe\F_MBPPub.res
/resources=C:\Gal810\exe\F_NalogReg.res
/resources=C:\Gal810\exe\F_Oborot.res
/resources=C:\Gal810\exe\F_OFP.res
/resources=C:\Gal810\exe\F_OS.res
/resources=C:\Gal810\exe\F_OSInvCard.res
/resources=C:\Gal810\exe\F_OSOper.res
/resources=C:\Gal810\exe\F_OsRep.res
/resources=C:\Gal810\exe\F_Pat.res
/resources=C:\Gal810\exe\F_PlansSch.res
/resources=C:\Gal810\exe\F_PlPor.res
/resources=C:\Gal810\exe\F_PlPorRep.res
/resources=C:\Gal810\exe\F_PoDot.res
/resources=C:\Gal810\exe\F_Post.res
/resources=C:\Gal810\exe\F_RTXO.res
/resources=C:\Gal810\exe\F_Saldo.res
/resources=C:\Gal810\exe\F_SFO.res
/resources=C:\Gal810\exe\F_Shtraf.res
/resources=C:\Gal810\exe\F_SoprHoz.res
/resources=C:\Gal810\exe\F_Taxes.res
/resources=C:\Gal810\exe\F_Template.res
/resources=C:\Gal810\exe\F_TreeNew.res
/resources=C:\Gal810\exe\F_TXO.res
/resources=C:\Gal810\exe\F_TXOAPI.res
/resources=C:\Gal810\exe\F_UserReport.res
/resources=C:\Gal810\exe\F_UTILS.res
/resources=C:\Gal810\exe\F_ValutDoc.res
/resources=C:\Gal810\exe\F_Vedom.res
/resources=C:\Gal810\exe\F_Veks.res
/resources=C:\Gal810\exe\F_VZachet.res
/resources=C:\Gal810\exe\F_XlsRep.res
/resources=C:\Gal810\exe\GalHelp.RES
/resources=C:\Gal810\exe\GalInfo.res
/resources=C:\Gal810\exe\L_AdvRep.res
/resources=C:\Gal810\exe\L_BaseDoc.res
/resources=C:\Gal810\exe\L_Box.res
/resources=C:\Gal810\exe\L_CalcUsl.res
/resources=C:\Gal810\exe\L_Cessia.res
/resources=C:\Gal810\exe\L_Common.res
/resources=C:\Gal810\exe\L_Consig.res
/resources=C:\Gal810\exe\L_CRM.res
/resources=C:\Gal810\exe\L_Dogovor.res
/resources=C:\Gal810\exe\L_Dover.res
/resources=C:\Gal810\exe\L_GrPlat.res
/resources=C:\Gal810\exe\L_GrSch.res
/resources=C:\Gal810\exe\L_GrSopr.res
/resources=C:\Gal810\exe\L_Kassa.res
/resources=C:\Gal810\exe\L_KatNazna.res
/resources=C:\Gal810\exe\L_KatOrg.res
/resources=C:\Gal810\exe\L_KatParty.res
/resources=C:\Gal810\exe\L_KontrBal.res
/resources=C:\Gal810\exe\L_MakeDO.res
/resources=C:\Gal810\exe\L_MakeNakl.res
/resources=C:\Gal810\exe\L_Market.res
/resources=C:\Gal810\exe\L_MCU.res
/resources=C:\Gal810\exe\L_MOL.res
/resources=C:\Gal810\exe\L_MoveCell.res
/resources=C:\Gal810\exe\L_NalNakl.res
/resources=C:\Gal810\exe\L_Nalog.res
/resources=C:\Gal810\exe\L_NIOKR.res
/resources=C:\Gal810\exe\L_Ostatki.res
/resources=C:\Gal810\exe\L_PhoneCard.res
/resources=C:\Gal810\exe\L_PlanPr.res
/resources=C:\Gal810\exe\L_Prices.res
/resources=C:\Gal810\exe\L_PrnSopr.res
/resources=C:\Gal810\exe\L_Realting.res
/resources=C:\Gal810\exe\L_Remont.res
/resources=C:\Gal810\exe\L_RepBaseDoc.res
/resources=C:\Gal810\exe\L_RepOper.res
/resources=C:\Gal810\exe\L_Reserve.res
/resources=C:\Gal810\exe\L_RetTara.res
/resources=C:\Gal810\exe\L_Rozn.res
/resources=C:\Gal810\exe\L_SaldoMtr.res
/resources=C:\Gal810\exe\L_SerialN.res
/resources=C:\Gal810\exe\L_SF.res
/resources=C:\Gal810\exe\L_Skid.res
/resources=C:\Gal810\exe\L_Sklad.res
/resources=C:\Gal810\exe\L_Smeta.res
/resources=C:\Gal810\exe\L_SoprDoc.res
/resources=C:\Gal810\exe\L_SpExch.res
/resources=C:\Gal810\exe\L_TTNdoc.res
/resources=C:\Gal810\exe\L_UKS.res
/resources=C:\Gal810\exe\L_UksPlans.res
/resources=C:\Gal810\exe\L_Val.res
/resources=C:\Gal810\exe\L_VPr.res
/resources=C:\Gal810\exe\L_Wood.res
/resources=C:\Gal810\exe\M_Control.res
/resources=C:\Gal810\exe\M_DVS.res
/resources=C:\Gal810\exe\M_EIXML.res
/resources=C:\Gal810\exe\M_GetPotr.res
/resources=C:\Gal810\exe\M_MnPlan.res
/resources=C:\Gal810\exe\M_Quality.res
/resources=C:\Gal810\exe\M_Scripts.res
/resources=C:\Gal810\exe\M_Serv.res
/resources=C:\Gal810\exe\M_SklPlan.res
/resources=C:\Gal810\exe\M_TPP.res
/resources=C:\Gal810\exe\M_Transp.res
/resources=C:\Gal810\exe\M_UP.res
/resources=C:\Gal810\exe\Z_Calc.res
/resources=C:\Gal810\exe\Z_Calendar.res
/resources=C:\Gal810\exe\Z_FOT.res
/resources=C:\Gal810\exe\Z_KATPODR.res
/resources=C:\Gal810\exe\Z_Lschet.res
/resources=C:\Gal810\exe\Z_Menu.res
/resources=C:\Gal810\exe\Z_MGTS.res
/resources=C:\Gal810\exe\Z_MP.res
/resources=C:\Gal810\exe\Z_NDFL.res
/resources=C:\Gal810\exe\Z_PAYREP.res
/resources=C:\Gal810\exe\Z_PFREP.res
/resources=C:\Gal810\exe\Z_SREDN.res
/resources=C:\Gal810\exe\Z_Staff.res
/resources=C:\Gal810\exe\Z_StaffBuilder.res
/resources=C:\Gal810\exe\Z_StaffCat.res
/resources=C:\Gal810\exe\Z_StaffDopReports.res
/resources=C:\Gal810\exe\Z_StaffRecruiting.res
/resources=C:\Gal810\exe\Z_StaffReports.res
/resources=C:\Gal810\exe\Z_StaffTest.res
/resources=C:\Gal810\exe\Z_Statis.res
/resources=C:\Gal810\exe\Z_TarStav.res
/resources=C:\Gal810\exe\Z_WT.res

[LOGIN]
/U:alex
/P:xeon

[Compilers]
OutputResourceName=ft_user4.res

Masygreen · Сообщение **Masygreen** » 21 окт 2009, 16:02

Прощение за криврость рук получаете ... за лень в просмотре форума и не умение пользоваться поиском нет ...
го в эту http://www.tyumbit.ru/gal_forum/viewtop ... nv+galnet] ..

Masygreen · Сообщение **Masygreen** » 21 окт 2009, 16:04

все что выхотите заинклудить - должно быть взято из frm галактики на которой вы собираете (причем помните что vip.exe не патчится а заменяется)

Masygreen · Сообщение **Masygreen** » 21 окт 2009, 16:07

че-то внимательнее вчитался .. вы собираетесь просто пересобрать рабочие формы с 5 на 8 ... - это рабочие на 100% они там были - в 8 может уже изменились полностью прототипы и надо брать новые ...

edward_K · Сообщение **edward_K** » 21 окт 2009, 16:12

а да
в проекте первой строкой объявите
#define ComponentVersion
и все будет нормально
и усе таки - учитесь искать.

Maverick · Сообщение **Maverick** » 22 окт 2009, 12:59

варантов 2

а) в кфг не подключен ресурсник, в который скомпилен интерфейс работы с внешними атрибутами
б) попытка компилить интерфейс не на той версии атлантиса, на которой скомпилен указанный выше интерфейс.

korvanakorvana

СДЕЛАЛА вот так.
vip.cfg
[licparam]
LicFileName=\\duron\lic\vip.lic

[Hardwarekey]
Sharedpath=\\duron\hwdir\dir

[DataBase]
DataBaseName=\\Duron\Gal810\OOOFARM\DATA

[System]
ResourceFastCompress=Off

[LOGIN]
/U:alex
/P:xeon

[Compilers]
IncludesPath=C:\Gal810\Frm\INC
IncludesPath=C:\Gal810\Frm\VIL
IncludesPath=C:\Gal810\Frm\VIH
IncludesPath=C:\Gal810\Frm\lih
IncludeCache=on
MinVisual=on
OutputResourceName=ft_user4.res

[vip]
Debug=On
LocalDebug=1

[Lot]
FileTableInMemory=on

vip.prj
//#include predefs.inc
#include MCOriginCountry.vih
#include ExtAttr.vih
#include ExtClass.vih

const
#include GalNet.csc
#include Excel.inc
//#include Mark.inc
#include CommonC.inc
end;

#include GloDefs.inc
//#include DicTypes.def

#ifdef ComponentVersion
#include galaktika.vil

#component ""
#endif

#define ComponentVersion

//Piterskie formi

#MAKE "Piter\mx1_piter_medica_to_argo_011009.rtf"

Buil.bat

echo off
rem *********************************************
SET GalPath=C:\Gal810\exe\
call "C:\Gal810\exe\Vip.exe" /env=galnet /c:vip.cfg /r Vip.prj
pause
rem ***************** ‡ зЁбвЄ *************************************
if exist Atlantis*.res del Atlantis*.res
if exist leakage.log del leakage.log
if exist atlerror.log del atlerror.log
if exist *.FNC del *.FNC
if exist vip.dsk del vip.dsk
if exist *.tmp del *.tmp
if exist tmp rd /s /q tmp
if exist out rd /s /q out

И все равно после компиляции ошибок не выдается.
а как запускаю эти формы в галактике вылетает следующее

Версия компилятора

Файл MCOriginCountry.vih нашла на форуме. может с ним проблемы?

#ifndef __MCORIGINCOUNTRY_VIH
#define __MCORIGINCOUNTRY_VIH

ObjInterface IMCOriginCountry;
function getCountryName(cMC: comp; cParty: comp): string;
function getGTDNumber(cParty: comp): string;
end;

VipInterface MCOriginCountry implements IMCOriginCountry;

#end

edward_K · Сообщение **edward_K** » 22 окт 2009, 18:38

я грил первой строкой
#define ComponentVersion
а не где то внизу.
да и ниже
#component ""
лучше заменить на что то осмысленное.
я обычно пишу "F_USERREPORTS"
galaktika.vil можно пока закоментировать.
у вас же получлось объявление объектных фейсов без указаний комоненты и посему пытаются найтись другие фейсы, которых нету.

korvanakorvana

Ситуация не изменилась((
вот компилируемая форма
[/code]
.LinkForm 'SCHET_LIP_PITER011009' Prototype is PRBDOC
.Group 'Продажа'
.NameInList 'Счет RTF (Липрина) Санкт-Петербург Медика 151009 '
.create view vSpStep
from
SpStep (ReadOnly),
KatParty (ReadOnly)
where
((
PosNRec == SpStep.nRec
and SpStep.cParty == KatParty.nRec
));
.Create view SchKpp
from
BaseDoc (ReadOnly),
KatOrg OrgFrom (ReadOnly),
KatOrg OrgTo (ReadOnly) ,
KatOrg OrgPol (ReadOnly) ,
Dogovor AppDogovor (ReadOnly)

where
((
BaseDocNrec == BaseDoc.nRec
and BaseDoc.corg==OrgTo.nrec
and BaseDoc.cGrOtpr==OrgFrom.nrec
and BaseDoc.cGrPol==OrgPol.nrec
and BaseDoc.cDogovor==Dogovor.nrec
and BaseDoc.cAppDogovor==AppDogovor.nrec
));
!-------------------------------------------------------------------
.var
SrcCountry, // "Страна происхождения"
GTDNumber : string; // "Номер ГТД"
Итого_прописью: string;
AddrDost : string; // «Адрес доставки»
.endvar
!-------------------------------------------------------------------
.var
zam_dir, zam_buh : string;
Akciz : double
CenaAk : double
SumAk : double
totSumAk : double
.endvar
.fields
mnd
nomer
ddoc
post
adpost
telpost
rspost
bpost
rspost2
mpost
innpost
if(SchKpp.OrgFrom.kodplatnds<>'',SchKpp.OrgFrom.kodplatnds,'')
// GrName

if (SchKpp.Dogovor.nodoc<>'','Договор N '+ SchKpp.Dogovor.nodoc+' от '+ SchKpp.Dogovor.ddoc+'г.',’’)
if (SchKpp.AppDogovor.nodoc<>'', ' , cпецификация N '+ SchKpp.AppDogovor.nodoc+' от '+ SchKpp.AppDogovor.ddoc+'г.',’’)
pol
adpol
telpol
rspol
bpol
rspol2
mpol
innpol
if(SchKpp.OrgTo.kodplatnds <>'',SchKpp.OrgTo.kodplatnds,'')
pname
.endfields
.{
.{table 'SchKpp.BaseDoc'
.}

СЧЕТ N ^/^ от ^

Продавец ^
Адрес ^ Телефон ^
Расчетный счет N ^ в ^
Кор.сч. N ^ БИК ^
Идентификационный номер поставщика (ИНН) ^
Код причины постановки на учет (КПП) ^
Основание ^^

Покупатель ^
Адрес ^ Телефон ^
Расчетный счет N ^ в ^
Кор.сч. N ^ БИК ^
Идентификационный номер покупателя (ИНН) ^
Код причины постановки на учет (КПП) ^

^
.{ CheckEnter IsBaseFin
.}
.{CheckEnter ISEXCLASS
.}
.{CheckEnter ISGROUP
.}
Наименование товара Единица измерения Кол-во Цена Сумма Ставка НДС Сумма НДС Всего с НДС
.begin
TotSumAk := 0
end.
.{
.{ table 'vSpStep.SpStep'
#include ..\SFBla2vp.frn
.begin
!--------------------------------------
!#include SFBla2vp.frn
!--------------------------------------
// Akciz := Ak/kol
!CenaAk := cenabez + AkCiz
! SumAk := sbez + Ak
CenaAk := cenabez - cenabez * SchKpp.BaseDoc.Skidka / 100;
SumAk := sbez;

TotSumAk := TotSumAk + SumAk
end.
.fields
mc
// SrcCountry // страна происхождения
// GTDNumber // номер ГТД
// barkod2 // код по ОКДП
ed
doubletostr(round( kol ,2),'666`666`666.88')
doubletostr(round( cenaAk ,2),'666`666`666.88')
// akciz // в т.ч. акциз
doubletostr(round( sumAk ,2),'666`666`666.88')
//Ak
doubletostr(round( procnds ,2),'666.88')
doubletostr(round( Nds,2),'666`666`666.88')
doubletostr(round( Newsumma,2),'666`666`666.88')
.endfields
^ ^ ^ ^ ^ ^ ^ ^
.}
.}
.fields
doubletostr(round( TotSumAk ,2),'666`666`666.88')
// c2
doubletostr(round( n2 ,2),'666`666`666.88')
//doubletostr(round( k1 ,2),'666`666`666.88')
//string(round( k1 ,2))+` `+doubletostr(round( k1 ,2),'666`666`666.88')
k1
// Итого_прописью
k3
// Director
// Main_Buh
// page_symb
.endfields
Всего к оплате ^ ^ &'&&&'&&&'&&&'&&&'&&&'&&&.&&
.begin
// Итого_прописью:=upcase(Substr(DoubleToStr(k1,'4'),1,1))+substr(DoubleToStr(k1,'4'),2,length(DoubleToStr(k1,'4'))-1)+'руб. '+DoubleToStr(round(k1,2),'88')+' коп.'
end.

Сумма прописью: ^
.begin
if (instr('Гутова', Director)>0)
zam_dir := ' по приказу N 101 от 01.10.2009г. Сиков В.М.';
else
zam_dir := ' по приказу N 13/1 от 01.08.2006г. Сиков В.М.';

if(instr('Вострикова', Main_Buh)>0)
zam_buh := ' по приказу N 101 от 01.10.2009г. Сиков В.М.';
else
zam_buh := ' по приказу N 13/1 от 01.08.2006г. Сиков В.М.';
end.
.fields
Director
zam_dir
Main_Buh
zam_buh
page_symb
.endfields
Руководитель предприятия: _________________________ ^
(^)

Главный бухгалтер: __________________________ ^
(^)
.if DELIMITER
-----------------------------------------------------------------------------------------------------------------------------
.end
^
.}
.endform

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

korvanakorvana

http://narod.ru/disk/14393834000/schet_ ... 9.rtf.html

korvanakorvana

может дело в том что я не подключила predefs.inc, но когда я подключаю его вип ругается что нет defs.inc его в frm у меня нет((

korvanakorvana

еще подключаю http://narod.ru/disk/14394034000/SFBla2Vp.frn.html - SFBla2Vp.frn