Woo hoo, I think (AREV Specific) [Revelation On-Line Wiki]

Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community

At 17 NOV 2003 12:26:06PM Matt Sorrell wrote:

AREV Specific

Open "","FAMILY_PARMS" To FamilyParms Else Stop

FamilyRec="

Read FamilyRec From FamilyParms, "FAMILY" Else FamilyRec="

NumKids=FamilyRec

Genders=FamilyRec

BDates =FamilyRec

NumKids += 1

Genders=F"

BDates=Iconv("11/08/2003", "D4/")

FamilyRec=NumKids

FamilyRec=Genders

FamilyRec=BDates

Write FamilyRec on FamilyParms, "FAMILY"

Stop

msorrel@greyhound.com

Greyhound Lines, Inc.

At 17 NOV 2003 12:26PM Matt Sorrell wrote:

Yes, I did. Number three. As my five year old likes to tell me, I'm stuck with all girls now. How can they be that vindicative that young?

Also, I guess the previous post formally stamps me as a geek, huh?

msorrel@greyhound.com

Greyhound Lines, Inc.

At 17 NOV 2003 12:26PM Matt Sorrell wrote:

Open "","FAMILY_PARMS" To FamilyParms Else Stop

FamilyRec="

Read FamilyRec From FamilyParms, "FAMILY" Else FamilyRec="

NumKids=FamilyRec

Genders=FamilyRec

BDates =FamilyRec

NumKids += 1

Genders=F"

BDates=Iconv("11/08/2003", "D4/")

FamilyRec=NumKids

FamilyRec=Genders

FamilyRec=BDates

Write FamilyRec on FamilyParms, "FAMILY"

Stop

msorrel@greyhound.com

Greyhound Lines, Inc.

At 17 NOV 2003 12:26PM Charles Milner wrote:

Congratulations.

But shouldn't the lines:

Genders=F"

BDates=Iconv("11/08/2003", "D4/")

be:

Genders=F"

BDates=Iconv("11/08/2003", "D4/")

At 17 NOV 2003 12:26PM Steve Smith wrote:

Congrats to you and your wife and family!

At 17 NOV 2003 12:26PM [url=http://www.sprezzatura.com]The Sprezzatura Group[/url] wrote:

Cute! Congratulations Matt!

The Sprezzatura Group

World Leaders in all things RevSoft

At 17 NOV 2003 12:26PM Hippo wrote:

Congratulations

At 17 NOV 2003 12:26PM Hippo wrote:

BTW: We are more familliar with the following conventions:

EQU FR$NumKids TO 10

EQU FR$Genders TO 11

EQU FR$BDates TO 12

EQU FR$Names TO 13

…

FamilyRec=FamilyRec+1

FamilyRec=F"

FamilyRec=Iconv("11/08/2003", "D4/")

FamilyRec=

Write FamilyRec on FamilyParms, "FAMILY"

Stop

…..

but there is a syntax error …

@FM:@FM:@FM:@FM:@FM:@FM:@FM:@FM:@FM:1:@FM:"F":@FM:11590:@FM:"Romana"

are the mentioned details in our record.

At 17 NOV 2003 12:26PM Don Miller - C3 Inc. wrote:

Matt ..

You are a true geek . Contratulations. Once you find out what's causing it, you're hopelessly addicted.

Don M.

At 17 NOV 2003 12:26PM Victor Engel wrote:

Congratulations! But isn't that a syntax error in your family? Shouldn't that be 1,-1 instead of -1,1?

I just passed a milestone myself:

Declare Function AddDate ;* Adds years, months, days to parm1

NumKids=FamilyRec

For Kidno=1 to NumKids

Bdate=FamilyRec

DMVdate=AddDate(Bdate,15,6,0)

If DMVDate ge date() then
 If FamilyRec else
    Gosub SettleDMVPaperwork
 end
end

Next

At 17 NOV 2003 12:26PM Matt Sorrell wrote:

Victor,

Okay, there was a typo. Thanks for pointing it out *grin*

BTW, congrats to you too, I think ;)

msorrel@greyhound.com

http://www.greyhound.com"Greyhound Lines, Inc.