→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Помогите узнать на каком языке написана прога?! 
Автор Сообщение
Начинающий

Регистрация: 20.10.2008
Сообщения: 1

Репутация: 0 [ ? ]
Сообщение Помогите узнать на каком языке написана прога?!
Вот кусок листинга:
set talk off
set safety off
set console off
data_i = date() && ЋвзҐв­л© ¤Ґ­м.
sch_i=26009000790200
mfo_i=305653
sch_k=' 100278001'
sch_t=' 29026030160'
sch_d=' 611001040106'
otd= 'bir '
case lastkey()=27
tmp = .F.
clear all
quit
EndCase
EndDo
fname=fcreate ('c:\fox\klient.sql')
md2=iif(month(data_i)>9, CHR(month(data_i)+87), CHR(month(data_i)+48))
md3=iif(day(data_i)>9, CHR(day(data_i)+87), CHR(day(data_i)+48))
if data_i=date()
=fputs(fname,"select account,amount,mpayment.okpo,magreement.title,mpayment.mfo,mbank.title,mpayment.bankaccount,mpayment.params,mpayment.symbol1,mpayment.symbol2,mpayment.service_id,mpayment.id from mpayment,magreement,mbank where mpayment.status")
=fputs(fname,"='FIXED' and workday in (select max(workday) from mpayment) and mpayment.agreement_id=magreement.agreement_id and (mpayment.agreement_id<90 or mpayment.agreement_id>100) and mpayment.mfo=mbank.mfo union ")
=fputs(fname,"select account,amount,mpayment.okpo,magreement.title,mpayment.mfo,mbank.title,mpayment.bankaccount,mpayment.params,mpayment.symbol1,mpayment.symbol2,mpayment.service_id,mpayment.id from mpayment,magreement,mbank where mpayment.status")
=fputs(fname,"='FIXED' and workday in (select max(workday) from mpayment) and mpayment.agreement_id>=90 and mpayment.agreement_id<100 and mpayment.mfo+mpayment.bankaccount=magreement.mfo+magreement.bankaccount and mpayment.mfo=mbank.mfo union")
=fputs(fname,"select account,amount,mpayment.okpo,'#######',mpayment.mfo,mbank.title,mpayment.bankaccount,mpayment.params,mpayment.symbol1,mpayment.symbol2,mpayment.service_id,mpayment.id from mpayment,mbank where mpayment.status='FIXED' and ")
=fputs(fname,"workday in (select max(workday) from mpayment) and mpayment.agreement_id>=90 and mpayment.agreement_id<100 and id not in (select id from mpayment,magreement where status='FIXED' and workday in (select max(workday) from mpayment) and ")
=fputs(fname,"mpayment.agreement_id>=90 and mpayment.agreement_id<100 and mpayment.mfo+mpayment.bankaccount=magreement.mfo+magreement.bankaccount) and mpayment.mfo=mbank.mfo")
else

Добавлено спустя 6 минут 9 секунд:

или чем его можно скомпилить


20.10.2008 12:42
Профиль
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Google [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»