born.prg

System "somaj" for city Beius

procedur BORN
USE SOMERI
de=dtoc(date())
*di=ctod(de)
*dii=ctod(de)
di=an_nastere
dii=an_nastere
do afladata with di, "Somerii nascuti DIN ANUL ?"
do afladata with dii,"Somerii nascuti PINA IN ANUL ?"

BROW NOMODIF
pp=""
do intreb with pp,"Ai pregatit imprimanta ?"
if pp="D" then
	REPORT FORMAT data.FRX FOR an_nastere>=di AND an_nastere<dii ;
	ENVIRONMENT PDSETUP TO PRINTER NOCONSOLE
else
	do alert with "Atunci ce mai astepti !"
endif
go top
show gets




PROCEDURE afladata

PARAMETER answer,mess1
DEFINE WINDOW culeg FROM 13,4 TO 19,73 ;
COLOR w+/gr SHADOw
ACTIVATE WINDOW culeg
CLEAR
@1,0 SAY PADC(mess1,WCOLS())
@2,20 GET answer;
   SIZE 1,8
READ
DEACTIVATE WINDOW culeg
RETURN