Поломанный

Приходит покупатель в гастроном и говорит продавцу:
— Дайте мне "Книгу восторгов".
— Такой книги у нас нет и не было. Восторгов в наш адрес еще никто не писал.
— Так заведите, сделайте милость:
— А, зачем? ?
— Моя теща обосралась от вашей колбасы!
(с)

апять фикалии ...

IF EMPTY(m.lcFRX)
RETURN m.lcFRX
ENDIF
m.lcAlias = ALIAS()
m.lcFRX = IIF(VARTYPE(m.lcFRX) = 'C', m.lcFRX, '')
m.lcFileName = IIF(VARTYPE(m.lcFileName) = 'C' AND !EMPTY(m.lcFileName),
m.lcFileName, THIS.GetTempDir() + '_tmp_frx.frx')
m.lDataPrint = IIF(VARTYPE(m.lDataPrint) = 'D' OR VARTYPE(m.lDataPrint) =
'T', CAST(m.lDataPrint AS D), DATE())
m.loCA = CREATEOBJECT('CursorAdapter')
m.pExecSQL = .T.
WITH m.loCA
.FetchSize = -1
.Alias = 'tmp_load_frx'
.DataSourceType = 'ODBC'
.DataSource = THIS.ConnectID
.CursorSchema = 'ReportForm_ID I, FRX M, FRT M, FRXData M'
TEXT TO .SelectCmd TEXTMERGE NOSHOW PRETEXT 15
EXEC dbo.Reports_GetFRX
@FRX_NAME='',
@DateFrom=,
@USER_ID=,
@ReportForm_ID=NULL,@IsNeedUpdateStats=1
ENDTEXT
.CursorFill()
ENDWITH
m.pExecSQL = .F.
IF tmp_load_frx.ReportForm_ID > 0 AND !EMPTY(tmp_load_frx.FRX)
AND !EMPTY(tmp_load_frx.FRT)
SELECT tmp_load_frx
THIS.CopyToFiles(m.lcFileName)
ELSE
m.lcFileName = m.lcFRX
ENDIF
USE IN SELECT('tmp_load_frx')
IF !EMPTY(m.lcAlias)
SELECT(m.lcAlias)
ENDIF
RETURN (m.lcFileName)

Снимается кино. Готовится съемка опасного эпизода. Актер, исполняющий главную роль, подходит к шатающемуся подвесному мосту и, поворачиваясь к режиссеру, трясясь, дрожащим от страха голосом спрашивает:
— А он нне оборррвется?
Режиссер:
— Опп-п-па! Заебись — отличная идея!!!
(с)

Plum — Connor (feat. Leroy Jones) Тест.

Дракоша — хороший !!!