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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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