home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / CUA_SAMP.ZIP / ACCT_REC.DFM < prev    next >
Encoding:
Text File  |  1994-06-24  |  5.2 KB  |  241 lines
  1. *
  2. * Define new Acct_Rec form
  3. *
  4.  
  5. DEFINE FORM acct FROM 1,2 TO 20,74 ;
  6.     PROPERTY ;
  7.         Text "ACCOUNT RECVBLES",;
  8.         OnOpen OpenAcct,;
  9.         OnClose CloseAcct,;
  10.         OnGotFocus Repaint
  11. *
  12. * New Define EntryFields and Define Text Statements
  13. *
  14. DEFINE RECTANGLE Box OF acct ;
  15.     PROPERTY;
  16.         TOP 0,;
  17.         Left 1,;
  18.         width 68,;
  19.         Height 4
  20.  
  21. DEFINE RECTANGLE Box2 OF acct ;
  22.     PROPERTY;
  23.         TOP 4,;
  24.         Left 1,;
  25.         width 68,;
  26.         Height 11
  27.  
  28. *
  29. * Define Dataentry and Text
  30. *
  31. DEFINE TEXT T1 OF acct AT 1,4 ;
  32.     PROPERTY ;
  33.         TEXT "INV NO.:"
  34.  
  35. DEFINE ENTRYFIELD Inv_id OF acct AT 1,15 ;
  36.     PROPERTY ;
  37.         DATALINK "Invoice_No",;
  38.         WIDTH 11,;
  39.         VALID "DupCheck",;
  40.         VALIDREQUIRED .T.,;
  41.         STATUSMESSAGE "Enter a part ID number, or Esc to quit"
  42.  
  43. DEFINE TEXT B1 OF acct AT 1,30 ;
  44.     PROPERTY ;
  45.         TEXT "BILLING:"
  46.  
  47. DEFINE ENTRYFIELD DateOfBill OF acct AT 1,38 ;
  48.     PROPERTY ;
  49.         DATALINK "Dat_Of_Bil",;
  50.         STATUSMESSAGE "Enter the name of the part"
  51.  
  52. DEFINE TEXT C1 OF acct AT 2,4 ;
  53.     PROPERTY ;
  54.         TEXT "CUST ID:"
  55.  
  56. DEFINE ENTRYFIELD CstId OF acct AT 2,15 ;
  57.     PROPERTY ;
  58.         DATALINK "Cust_Id",;
  59.         WIDTH 6,;
  60.         VALID "LookUpId",;
  61.         VALIDREQUIRED .T.,;
  62.         STATUSMESSAGE "Enter Customer ID"
  63.  
  64.     *CUSTOM PROPERTY*
  65.         Acct.CstId.ALIASNAME = "ACCTCUST"
  66.  
  67. DEFINE TEXT CustName OF acct AT 2,22 ;
  68.     PROPERTY ;
  69.         TEXT "" ,;
  70.         COLORNORMAL "RB/W"
  71.  
  72. DEFINE TEXT T2 OF acct AT 5,4 ;
  73.     PROPERTY ;
  74.         TEXT "LAST INVOICE Info:",;
  75.         WIDTH 25,;
  76.         COLORNORMAL "B/W"
  77.  
  78. DEFINE TEXT T3 OF acct AT 5,40 ;
  79.     PROPERTY ;
  80.         TEXT "PAYMENT Info:",;
  81.         WIDTH 15,;
  82.         COLORNORMAL "B/W"
  83.  
  84. DEFINE TEXT T4 OF acct AT 6,4 ;
  85.     PROPERTY ;
  86.         TEXT "NUMBER :",;
  87.         WIDTH 8
  88.  
  89. DEFINE ENTRYFIELD Invold OF acct AT 6,15 ;
  90.     PROPERTY ;
  91.         DATALINK "Invoic_old"
  92.  
  93. DEFINE TEXT T5 OF Acct AT 7,4 ;
  94.     PROPERTY ;
  95.         TEXT "DATE :"
  96.  
  97. DEFINE ENTRYFIELD LastDate OF acct AT 7,15 ;
  98.     PROPERTY ;
  99.         DATALINK "Dat_LstBil"
  100.  
  101. DEFINE TEXT T6 OF acct AT 8,4 ;
  102.     PROPERTY ;
  103.         TEXT "AGE :"
  104.  
  105. DEFINE TEXT CalAge OF acct AT 8,15 ;
  106.     PROPERTY ;
  107.         TEXT "0"
  108.  
  109. DEFINE TEXT T7 OF acct AT 6,40;
  110.     PROPERTY ;
  111.         TEXT "LAST BILL    $:"
  112.  
  113. DEFINE ENTRYFIELD LastAmt OF acct AT 6,55 ;
  114.     PROPERTY ;
  115.         DATALINK "Amt_LstBil",;
  116.         WIDTH 10
  117.  
  118. DEFINE TEXT T8 OF acct AT 7,40 ;
  119.     PROPERTY ;
  120.         TEXT "LAST PAID    $:"
  121.  
  122. DEFINE ENTRYFIELD LastAmtpd OF acct AT 7,55 ;
  123.     PROPERTY ;
  124.         DATALINK "Amt_Lst_Pd",;
  125.         WIDTH 10
  126.  
  127. DEFINE TEXT T9 OF acct AT 8,40 ;
  128.     PROPERTY ;
  129.         TEXT "OLD BALANCE  $:"
  130.  
  131. DEFINE ENTRYFIELD OldBal OF acct AT 8,55 ;
  132.     PROPERTY ;
  133.         DATALINK "OldBalance",;
  134.         ENABLED .F. ,;
  135.         TABSTOP .F. ,;
  136.         COLORDISABLED "B/W" ,;
  137.         WIDTH 10
  138.  
  139. DEFINE TEXT T10 OF acct AT 9,40 ;
  140.     PROPERTY ;
  141.         TEXT "CURRENT ORD  $:"
  142.  
  143. DEFINE ENTRYFIELD AmtCurr OF acct AT 9,55 ;
  144.     PROPERTY ;
  145.         DATALINK "Amt_OF_Cur",;
  146.         WIDTH 10
  147.  
  148. DEFINE TEXT T11 OF acct AT 10,40 ;
  149.     PROPERTY ;
  150.         TEXT "CURRENT BILL $:"
  151.  
  152. DEFINE ENTRYFIELD CurrBill OF acct AT 10,55 ;
  153.     PROPERTY ;
  154.         DATALINK "Amt_OF_Bil",;
  155.         WIDTH 10
  156.  
  157. DEFINE TEXT T12 OF acct AT 10,4 ;
  158.     PROPERTY ;
  159.         TEXT "CURR PMT :"
  160.  
  161. DEFINE ENTRYFIELD AmtCurrpmt OF acct AT 10,15 ;
  162.     PROPERTY ;
  163.         DATALINK "Amt_Cur_Pd"
  164.  
  165. DEFINE TEXT t13 OF acct AT 11,4 ;
  166.     PROPERTY ;
  167.         TEXT "COMMENT :"
  168.  
  169. DEFINE ENTRYFIELD comments OF acct AT 11,15 ;
  170.     PROPERTY ;
  171.         DATALINK "Comments",;
  172.         WIDTH 30,;
  173.         STATUSMESSAGE "Enter any comments on this part"
  174.  
  175. DEFINE TEXT t14 OF acct AT 12,4 ;
  176.     PROPERTY ;
  177.         TEXT "NOTES :"
  178.  
  179. DEFINE ENTRYFIELD Notes OF acct AT 12,15 ;
  180.     PROPERTY ;
  181.         DATALINK "Notes",;
  182.         WIDTH 30,;
  183.         STATUSMESSAGE "Enter any comments on this part"
  184.  
  185.  *
  186.  *  Add a Text String for Status marking on form
  187.  *
  188. DEFINE TEXT cStatus OF acct AT 1,60 ;
  189.     PROPERTY;
  190.         Text "" ,;
  191.         COLORNORMAL "R/W"
  192.  
  193. *
  194. * add the buttons to this form,
  195. *
  196.  
  197. DEFINE PUSHBUTTON Add OF acct AT 16,4 ;
  198.     PROPERTY ;
  199.         Text "A&dd",;
  200.         COLORPICKNORMAL "R/G",;
  201.         WIDTH 10,;
  202.         OnClick "Add_new"
  203.  
  204. DEFINE PUSHBUTTON Del1 OF acct AT 16,14 ;
  205.     PROPERTY ;
  206.         Text "De&l",;
  207.         COLORPICKNORMAL "R/G",;
  208.         WIDTH 10,;
  209.         OnClick "DelIt"
  210.  
  211. DEFINE PUSHBUTTON Next1 OF acct AT 16,24;
  212.     PROPERTY ;
  213.         Text "&Next" ,;
  214.         COLORPICKNORMAL "R/G",;
  215.         WIDTH 10 ,;
  216.         OnClick "SkipHand"
  217.  
  218. DEFINE PUSHBUTTON Prev1 OF acct AT 16,34 ;
  219.     PROPERTY ;
  220.         Text "&Prev"  ,;
  221.         COLORPICKNORMAL "R/G",;
  222.         Width 10,;
  223.         OnClick "PrevHand"
  224.  
  225. DEFINE PUSHBUTTON Print1 OF acct AT 16,44 ;
  226.     PROPERTY ;
  227.         Text "P&rint",;
  228.         COLORPICKNORMAL "R/G",;
  229.         Width 10,;
  230.         OnClick "PrintForm"
  231.  
  232. DEFINE PUSHBUTTON Exit1 OF acct AT 16,54 ;
  233.     PROPERTY ;
  234.         Text "E&xit",;
  235.         COLORPICKNORMAL "R/G",;
  236.         Width 10,;
  237.         OnClick "CanHand"
  238.  
  239. ********************************* END OF acct.DFM *************************
  240.  
  241.