home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / testpgm.zip / BIZ.PRG next >
Text File  |  1988-06-18  |  2KB  |  98 lines
  1. Set Talk Off
  2. Set Echo Off
  3. Set Decimals to 0
  4. Set Bell Off
  5. Select 1
  6. Use TestBiz Index CustName
  7. Select 2
  8. Use BizCode Index BizCode
  9. Select 3
  10. Use CodeMast
  11. Clear
  12. @ 0,0 To 20,79
  13. mCustName = Spac(20)
  14. mCustCode = Spac(16)
  15. mInvNum   = Spac(15)
  16. mItem     = Spac(20)
  17. mQuant    = Spac(5)
  18. mInvStr = LTrim(Str(INVOICENUM+1))
  19. Do While Len(mInvStr) < 5
  20.   mInvStr = '0' + mInvStr
  21. Enddo
  22. Replace INVOICENUM With INVOICENUM + 1
  23. Set Century On
  24. mDateStr = Dtoc(Date())
  25. Set Century Off
  26. mYear = Right(mDateStr,4)
  27. mDayStr = Left(mDateStr,2) + SubStr(mDateStr,4,2)
  28. mInvStr = mYear + '-' + mDayStr + '-' + mInvStr
  29.  
  30. @  3,40 Say 'Invoice No.:'
  31. @  3,53 Say mInvStr
  32. @  6,10 Say 'Customer:'
  33. @  6,43 Say 'CustCode:'
  34. @ 10,14 Say 'Item:'
  35. @ 10,43 Say 'Quantity:'
  36. FirstPass = .T.
  37. mCorrect = .T.
  38. Do While mCorrect
  39.   @ 6,20 Get mCustName Function '!'
  40.   Read
  41.   Select 2
  42.   Seek mCustName
  43.   If Found() Then
  44.     mCustCode = CUSTCODE
  45.     @ 6,53 Say mCustCode Function '!'
  46.   Else
  47.     Select 3
  48.     mCustNum = CUSTNUM + 1
  49.     If FirstPass Then
  50.       Replace CUSTNUM With mCustNum
  51.       mZip = Spac(5)
  52.       mYear = Spac(4)
  53.     Endif
  54.     Select 2
  55.     FirstPass = .F.
  56.     mYear = Year(Date())
  57.     @ 5,48 Say 'Zip:'
  58.     @ 5,53 Get mZip
  59.     Read
  60.     mCustCode = mZip + '-' + LTrim(Str(mYear)) + '-' + LTrim(Str(mCustNum))
  61.     @ 6,53 Say mCustCode
  62.     Append Blank
  63.     Replace CustName With LTrim(mCustName)
  64.     Replace CustCode With mCustCode
  65.   Endif
  66.   @ 10,20 Get mItem Function '!'
  67.   @ 10,53 Get mQuant Function '#'
  68.   Read
  69.   @ 14,30 Say 'Is This Correct'
  70.   mAns = Spac(1)
  71.   @ 14,46 Get mAns Pict 'Y'
  72.   Read
  73.   If mAns = 'Y' Then
  74.     mCorrect = .F.
  75.   Endif
  76. Enddo
  77. Select 1
  78. Append Blank
  79. Replace CustName With mCustName
  80. Replace CustCode With mCustCode
  81. Replace Item With mItem
  82. Replace Quant With Val(mQuant)
  83. Replace INVOICENUM With mInvStr
  84.  
  85.  
  86. && N = 1
  87. && Do While N < 11
  88. &&   mInvStr = SubStr(INVOICENUM,1,10)
  89. &&   mInvNum = SubStr(INVOICENUM,11,5)
  90. &&   mInvNum = LTrim(Str((Val((mInvNum))+N)))
  91. &&   Do While Len(mInvNum) < 5
  92. &&     mInvNum = '0' + mInvNum
  93. &&   Enddo
  94. &&   mInvStr = mInvStr + mInvNum
  95. &&   ? mInvStr
  96. &&   N = N + 1
  97. && Enddo
  98.