оБТПД РПНПЗЙФЕ РПЦБМХКУФБББ!!!
фБЛБС УЙФХБГЙС:
1. нЕОА:
1.1 ЗЕОЕТЙТХЕФУС ЛПОФЕЛФУФОПЕ НЕОА РП ЭЕМЮЛХ РТБЧПК ЛОПРЛЙ НЩЫЙ РП TEXTBOX'Х
(MPR-ЖБКМ).
1.2 ЪБРХУЛБЕФУС
2. Excell
2.1 уМЕДХАЭЙН ЛПДПН ЪБРХУЛБА Excell Й РТПЙЪЧПЦХ ОЕПВИПДЙНЩЕ ДЕКУФЧЙС.
oleApp = CREATEOBJECT("Excel.Application")
oleApp.Visible=.F.
oleApp.Workbooks.Open(path_prog+'Report\'+file_report+'.xls')
oleApp.ActiveWorkbook.Sheets(1).Select
FOR m.i=2 TO ALEN(m.reports,1)
FOR m.j=2 TO ALEN(m.reports,2)
m.temp_report_filters=m.reports(1,m.j) + IIF(EMPTY(m.reports(m.i,1)) OR
EMPTY(m.reports(1,m.j)),' ',' AND ') + m.reports(m.i,1)
COUNT ALL FOR &temp_report_filters TO m.temp_rep
IF m.temp_rep<>0
oleApp.Cells(m.i+m.i_,m.j+m.j_).Value=m.temp_rep
ENDIF
ENDFOR
ENDFOR

ч ЙФПЗЕ:
пВЕ ЧЕЭЙ ТБВПФБАФ, РПЛБ ЙИ ОЕ ЪБЛЙДЩЧБЕЫШ Ч РТПЕЛФЕ.
чЩДБЕФ УМЕДХАЭЙЕ ПЫЙВЛЙ:
1) РТЙ ЛПНРЙМСГЙЙ РТПЕЛФБ:
"Unable to find Proc./Func. FORM"
2) РТЙ РПРЩФЛЕ ЗЕОЕТБГЙЙ НЕОА ЙЪ EXE:
"жБКМ '<ЙНС НПЕЗП НЕОА.mpr>' ОЕ УХЭЕУФЧХЕФ"
(ИПФС С ЕНХ ХЛБЪБМ, РТЙ РПУФТПЕОЙЙ РТПЕЛФБ, ЮФП ЖБКМ ЧОЕЫОЙК)
3) РТЙ ТБВПФЕ У Excell'ЕН ЧЩДБЕФ:
"оЕУПЧРБДЕОЙЕ ФЙРБ ПРЕТБФПТБ Й ПРЕТБОДБ."
"лПНБОДБ УПДЕТЦЙФ ОЕТБУРПЪОБООПЕ ЛМАЮЕЧПЕ УМПЧП ЙМЙ ЖТБЪХ"
"рЕТЕНЕООБС '<НПС ЗМБЧОБС РЕТЕНЕООБС, ЛХДБ УПИТБОСАФУС ЮЙУМБ ЛПНБОДПК:
Count for ХУМ-Е TO РЕТЕНЕООБС>' ОЕ ОБКДЕОБ."

с РПЧФПТА, ЮФП ЧУЕ ТБВПФБМП, РПЛБ С ОЕ УПВТБМ ЧУЕ ЖБКМЩ Ч ПДЙО РТПЕЛФ, Й ОЕ
УЛПНРЙМЙТПЧБМ EXE-ЖБКМ.

рпнпзйфееееее!!!



Posted via ActualForum NNTP Server 1.4

Sorry, имдуомаич ле пч.

Лчомд нмкмжупе нмтчйяхъпччч!!!
Пчичз ъупячфуз:
1. Келв:
1.1 желеоуояепъз имлпеипъплме келв нм шейбия ночамх илмниу кьэу нм TEXTBOX'я
(MPR-рчхй).
1.2 цчняъичепъз
2. Excell
2.1 Ъйедявшук имдмк цчняъичв Excell у номуцамтя лемюсмдукье дехъпауз.
oleApp = CREATEOBJECT("Excel.Application")
oleApp.Visible=.F.
oleApp.Workbooks.Open(path_prog+'Report\'+file_report+'.xls')
oleApp.ActiveWorkbook.Sheets(1).Select
FOR m.i=2 TO ALEN(m.reports,1)
FOR m.j=2 TO ALEN(m.reports,2)
m.temp_report_filters=m.reports(1,m.j) + IIF(EMPTY(m.reports(m.i,1)) OR
EMPTY(m.reports(1,m.j)),' ',' AND ') + m.reports(m.i,1)
COUNT ALL FOR &temp_report_filters TO m.temp_rep
IF m.temp_rep<>0
oleApp.Cells(m.i+m.i_,m.j+m.j_).Value=m.temp_rep
ENDIF
ENDFOR
ENDFOR

А упмже:
Мюе аешу очюмпчвп, нмич ус ле цчиудьачеэщ а номеипе.
Аьдчеп ъйедявшуе мэуюиу:
1) ноу имкнуйзфуу номеипч:
"Unable to find Proc./Func. FORM"
2) ноу нмньпие желеочфуу келв уц EXE:
"Рчхй '<укз кмежм келв.mpr>' ле ъяшеъпаяеп"
(смпз з екя яичцчй, ноу нмъпомелуу номеипч, бпм рчхй алеэлух)
3) ноу очюмпе ъ Excell'ек аьдчеп:
"Леъманчделуе пунч мнеочпмоч у мнеочлдч."
"Имкчлдч ъмдеотуп леочънмцлчллме ийвбеаме ъймам уйу рочця"
"Неоекеллчз '<кмз жйчалчз неоекеллчз, иядч ъмсочлзвпъз буъйч имкчлдмх:
Count for яъй-е TO неоекеллчз>' ле лчхделч."

З нмапмов, бпм аъе очюмпчйм, нмич з ле ъмюочй аъе рчхйь а мдул номеип, у ле
ъимкнуйуомачй EXE-рчхй.

НМКМЖУПЕЕЕЕЕЕ!!!






Posted via ActualForum NNTP Server 1.4

Народ помогите пожалуйстааа!!!
Такая ситуация:
1. Меню:
1.1 генерируется контектстное меню по щелчку правой кнопки мыши по TEXTBOX'у
(MPR-файл).
1.2 запускается
2. Excell
2.1 Следующим кодом запускаю Excell и произвожу необходимые действия.
oleApp = CREATEOBJECT("Excel.Application")
oleApp.Visible=.F.
oleApp.Workbooks.Open(path_prog+'Report\'+file_report+'.xls')
oleApp.ActiveWorkbook.Sheets(1).Select
FOR m.i=2 TO ALEN(m.reports,1)
FOR m.j=2 TO ALEN(m.reports,2)
m.temp_report_filters=m.reports(1,m.j) + IIF(EMPTY(m.reports(m.i,1)) OR
EMPTY(m.reports(1,m.j)),' ',' AND ') + m.reports(m.i,1)
COUNT ALL FOR &temp_report_filters TO m.temp_rep
IF m.temp_rep<>0
oleApp.Cells(m.i+m.i_,m.j+m.j_).Value=m.temp_rep
ENDIF
ENDFOR
ENDFOR

В итоге:
Обе вещи работают, пока их не закидываешь в проекте.
Выдает следующие ошибки:
1) при компиляции проекта:
"Unable to find Proc./Func. FORM"
2) при попытке генерации меню из EXE:
"Файл '<имя моего меню.mpr>' не существует"
(хотя я ему указал, при построении проекта, что файл внешний)
3) при работе с Excell'ем выдает:
"Несовпадение типа оператора и операнда."
"Команда содержит нераспознанное ключевое слово или фразу"
"Переменная '<моя главная переменная, куда сохраняются числа командой:
Count for усл-е TO переменная>' не найдена."

Я повторю, что все работало, пока я не собрал все файлы в один проект, и не
скомпилировал EXE-файл.

ПОМОГИТЕЕЕЕЕЕ!!!



Posted via ActualForum NNTP Server 1.4