Re: List & Label 18
Добавлено: 06 Август 2013, 17:21
Прошу извинить clall16x.exp
Место общения программистов, форум разработчиков БД на Clarion
https://forum.clarionlife.net/
Код: Выделить всё
NAME CLALL16X GUI
EXPORTS
TYPE$LL @?
VMT$LL @?
INITCARD@F2LLOsbOsb @?
OPEN@F2LL @?
DETAIL@F2LL @?
NEWPAGE@F2LL @?
CLOSE@F2LL @?
KILL@F2LL @?
INITLABEL@F2LLOsbOsb @?
INITLIST@F2LLOsbOsb @?
DESIGN@F2LL @?
DEFGROUP@F2LLRgPgPgPg @?
DEFGROUP@F2LLBqBqBqBq @?
DEFQUEUE@F2LLBqBqBqBq @?
DEFDATE@F2LLsbOsb @?
DEFDATE@F2LLsbRu @?
DEFSTR@F2LLsbOsb @?
DEFSTR@F2LLsbRu @?
DEFRTF@F2LLsbOsb @?
DEFRTF@F2LLsbRu @?
DEFHTML@F2LLsbOsb @?
DEFHTML@F2LLsbRu @?
DEFNUM@F2LLsbOsb @?
DEFNUM@F2LLsbRu @?
DEFPIC@F2LLsbOsb @?
DEFPIC@F2LLsbRu @?
PRINTTOFILE@F2LLsb @?
PRINTTOPREVIEW@F2LL @?
PRINTTOPRINTER@F2LL @?
DATADEF@F2LL @?
PRINTFROM@F2LLBq @?
PRINTFROM@F2LLBf @?
PRINTFROM@F2LLBi @?
PRINTFROM@F2LL @?
DEFBC@F2LLsbsbOsb @?
DEFBC@F2LLsbsbRu @?
PRINTTO@F2LLsbUc @?
ERROR@F2LL @?
ENABLE@F2LLsb @?
DISABLE@F2LLsb @?
Спасибо, исправил у себя.Yufil писал(а):Надысь ошибку поймал
Elsif Instring('.JPG',Upper(Self.Target),1,1)
Ext='PICTURE_JPG'
Надо
Elsif Instring('.JPG',Upper(Self.Target),1,1)
Ext='PICTURE_JPEG'
Код: Выделить всё
LLReportx.Detail Procedure
! Что-то до печати детали
Result=Parent.Detail()
If Result
RETURN Result
Else
! Что-то после печати детали
End