dima_18,

"пустой" - это как? Удалить все записи? Создать новую? И какую проверку нужно осуществлять

dima_18,

Если во всех записях, то REPLACE summa WITH 0 ALL.
Но учтите, что все данные, которые набирали раньше будут обнулены. Вы уверены, что именно ЭТО нужно?

dima_18,

Ну, наверное, где-то должен быть записан текущий квартал и если квартал DATE() отличается от записанного, то обнулять.

dima_18,

в таблице, которую нужно обнулять, даты есть? Или где-то в отдельной таблице или текстовом файле хранить текущий квартал и если он не совпадает с кварталом текущей даты, то обнулять

dima_18,

А зачем определять какой будет квартал на следующий день? Вот на следующий день и определяй тот же этот квартал, что был вчера или нет?

dima_18,

Сначала записываешь в файл
OldQuarter = IIF(MONTH(DATE()) < 4, "1", IIF(MONTH(DATE()) < 7, "2", IIF(MONTH(DATE()) < 10, "3", "4")))
STRTOFILE(OldQuarter, "D:\MyProject\quarter.txt")

А дальше каждый раз при запуске программы определяешь квартал где-нибудь в Init форм
OldQuarter = FILETOSTR("D:\MyProject\quarter.txt")
CurrentQuarter = IIF(MONTH(DATE()) < 4, "1", IIF(MONTH(DATE()) < 7, "2", IIF(MONTH(DATE()) < 10, "3", "4")))

USE table IN 0 SHARED
IF NOT OldQuarter = CurrentQuarter
REPLACE ... WITH 0 ALL
OldQuarter = IIF(MONTH(DATE()) < 4, "1", IIF(MONTH(DATE()) < 7, "2", IIF(MONTH(DATE()) < 10, "3", "4")))
ENDIF