powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / help!
4 сообщений из 4, страница 1 из 1
help!
    #35717457
GaLLeon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть таблица platel в ней содержатся данные по договорам. В поле dogovor хранится дата заключения договора (dogovor=’ 01/01/2009’), а в поле srok дата его окончания (srok=’ 01/01/2014’). Есть определенная сумма, хранящаяся в поле summa, её необходимо разбить на доли и вывести все помесячно для каждого существующего договора:
01/01/2009 10000
02/01/2009 10000
03/01/2009 10000
04/01/2009 10000
………………………
01/01/2014 9800
Результаты сохранять в таблицы.
Буду очень признателен всем, кто откликнется! Заранее спасибо!
...
Рейтинг: 0 / 0
help!
    #35718374
FAM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GaLLeon,

1.CounFullM = (Year(Dateend)-Year(DateBegin))/12 Сколько месяцев в полных годах
2.DeltaMonth = Month(Dateend)-Month(DateBegin) Сколько месяце в неполном годе
3. CountM = CounFullM+DeltaMonth Сколько месяцев длится договор
4. SummOneMonth = SummDogovor/CountM Определили сумму договора на каждый месяц его действия
5. В цикле прогнали вставку в таблицу, в которой собираешься хранить помесячные данные. Примерно так:

y=year(DateBegin)
m=Month(DateBegin)

for i=1 to CountM step 1

if m=13 & Это смена года
m=1
y=y+1
endif
*** Формируем дату и вставляем в табличку
AppDat = dtoc('01/'+right('0'+str(m,2,0),2)+'/'+str(y,4,0))
insetr into MyTable(dataplat,summplat) values(AppDat,SummOneMonth)

m=m+1
endfor
Лучше всего оформить в виде процедурки и вызвать для каждой строки, передав в кач-ве параметров сумму, дату начала и окончания договора. На самом деле понадобится еще № договора, чтобы сохранить привязку к родительской таблице или его PRN...
***********************************************
Но это не совсем халява - я писал прямо в окне браузера, поэтому наверняка есть очепятки ))
...
Рейтинг: 0 / 0
help!
    #35718385
FAM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FAMНо это не совсем халява - я писал прямо в окне браузера, поэтому наверняка есть очепятки ))

Вот,наример:

CTOD следует применить...
...
Рейтинг: 0 / 0
help!
    #35719239
GaLLeon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
FAM, спасибо! Просто не знал, с какой стороны подступится.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / help!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]