Программное обеспечение пункта обмена валюты банка

TOC o "1-3" Введение GOTOBUTTON _Toc378670594а а1>
ФУНКЦИЯ ЗАКРЫТИЯ ОПЕРАЦИОННОГО ДНЯ

Function CloseDay()

if _err(07,05,"Вы действительно желаете закрыть","операционный день ?",""," Да "," Нет ","")<>1

return 0

endif

ArBase=strtran(str(day(MDATE),2)+str(month(MDATE),2)+substr(str(year(MDATE),4),3,2)," ","0")

use (DATROAD+"Operatio")

copy to (ARCROAD+"Op"+ArBase)

delete all

pack

use (DATROAD+"Document")

copy to (ARCROAD+"Do"+ArBase)

delete all

pack

use (DATROAD+"Currency")

copy to (ARCROAD+"Cu"+ArBase)

use (DATROAD+"Kurses")

copy to (ARCROAD+"Ku"+ArBase)

use (DATROAD+"Codes")

copy to (ARCROAD+"Co"+ArBase)

ODATE=MDATE

SCR=savescreen(07,05,12,47)

_open_n(07,05,10,45,B_SINGLE+" ",AT_G_F)

CL=setcolor(AT_G_U)

@ 08,22 say ODATE

do while(.T.)

setcolor(AT_G_N+","+AT_G_S+",,,"+AT_G_U)

@ 08,07 say "Текущая дата :"

@ 09,07 say "а Новая дата :" get MDATE

setcursor(CUR_STYLE)

read

setcursor(0)

if _err(10,15,"Дата введена правильно?","",""," Да "," Нет ","")=1

save all like MDATE to d

exit

endif

enddo

dbcloseall()

restscreen(07,05,12,47,SCR)

setcolor(CL)

return 0

Литература/h1>

1.     CA-Clipper 5.02 Users Guide - Руководство по программированию на языке Clipper

2.     А.А.Попов Программирование в среде FoxPro. Построение систем обработки данных. (Радио и Связь М. 1993г.)

3.     RS-Club №№1-7 1996г. (Miktor Ky. Union Publisher Inc. 1996г.)

4.     П.Нортон, П.Иао Программирование на С++ в среде Windows (Диалектика Киев 1993г.)

5.     Инструкция ЦБ РФ О порядке организации работы обменных пунктов на территории Российской федерации, совершения и чета валютно - обменных операций полномоченными банками №27 от 27.02.1995г.