home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
testpgm.zip
/
BIZ.PRG
next >
Wrap
Text File
|
1988-06-18
|
2KB
|
98 lines
Set Talk Off
Set Echo Off
Set Decimals to 0
Set Bell Off
Select 1
Use TestBiz Index CustName
Select 2
Use BizCode Index BizCode
Select 3
Use CodeMast
Clear
@ 0,0 To 20,79
mCustName = Spac(20)
mCustCode = Spac(16)
mInvNum = Spac(15)
mItem = Spac(20)
mQuant = Spac(5)
mInvStr = LTrim(Str(INVOICENUM+1))
Do While Len(mInvStr) < 5
mInvStr = '0' + mInvStr
Enddo
Replace INVOICENUM With INVOICENUM + 1
Set Century On
mDateStr = Dtoc(Date())
Set Century Off
mYear = Right(mDateStr,4)
mDayStr = Left(mDateStr,2) + SubStr(mDateStr,4,2)
mInvStr = mYear + '-' + mDayStr + '-' + mInvStr
@ 3,40 Say 'Invoice No.:'
@ 3,53 Say mInvStr
@ 6,10 Say 'Customer:'
@ 6,43 Say 'CustCode:'
@ 10,14 Say 'Item:'
@ 10,43 Say 'Quantity:'
FirstPass = .T.
mCorrect = .T.
Do While mCorrect
@ 6,20 Get mCustName Function '!'
Read
Select 2
Seek mCustName
If Found() Then
mCustCode = CUSTCODE
@ 6,53 Say mCustCode Function '!'
Else
Select 3
mCustNum = CUSTNUM + 1
If FirstPass Then
Replace CUSTNUM With mCustNum
mZip = Spac(5)
mYear = Spac(4)
Endif
Select 2
FirstPass = .F.
mYear = Year(Date())
@ 5,48 Say 'Zip:'
@ 5,53 Get mZip
Read
mCustCode = mZip + '-' + LTrim(Str(mYear)) + '-' + LTrim(Str(mCustNum))
@ 6,53 Say mCustCode
Append Blank
Replace CustName With LTrim(mCustName)
Replace CustCode With mCustCode
Endif
@ 10,20 Get mItem Function '!'
@ 10,53 Get mQuant Function '#'
Read
@ 14,30 Say 'Is This Correct'
mAns = Spac(1)
@ 14,46 Get mAns Pict 'Y'
Read
If mAns = 'Y' Then
mCorrect = .F.
Endif
Enddo
Select 1
Append Blank
Replace CustName With mCustName
Replace CustCode With mCustCode
Replace Item With mItem
Replace Quant With Val(mQuant)
Replace INVOICENUM With mInvStr
&& N = 1
&& Do While N < 11
&& mInvStr = SubStr(INVOICENUM,1,10)
&& mInvNum = SubStr(INVOICENUM,11,5)
&& mInvNum = LTrim(Str((Val((mInvNum))+N)))
&& Do While Len(mInvNum) < 5
&& mInvNum = '0' + mInvNum
&& Enddo
&& mInvStr = mInvStr + mInvNum
&& ? mInvStr
&& N = N + 1
&& Enddo