 |
 |
 | |
 | |
 | |
 |
|
|
| |
| |
| |
|
Last updated: before December, 1998
'Written by Ian Curry <Jist Enterprises Limited>, 1997 '(C) Copyright 1997 by Ian Curry 'Permission is granted to freely copy this script in electronic form, 'or to print for personal use. It may be use in any Approach database, 'but may not be distributed for profit either by itself or as part of 'a collection or database. ' 'Disclaimer: This script is provided as is without any express or 'implied warranties. The author assumes no responsibility for errors or 'omissions, or for damages resulting from the use of the information contained 'herein, or your own version containing your desires for the usage of the 'script. 'Please mail any improvements to the Approach Users Mailing List
I have created a credit control and diarying database, database names in
CAPS :
There are a number of different accounts (ACCTMAIN) each with a number of
transactions (TRANMAIN), each transaction can have one action (CURRENT) a
current database and then old actions are transferred to history. There
are also notes (CURRNOTE) that can be allocated to an account, action or
transaction and which are also later transferred to history.
The main working screen "Account Action Details" is based on the
ACCTMAINDatabase and has 2 repeating panels - CURRNOTE and TRANMAIN. In
the repeating panel for the TRANMAIN database (transacspanel) users can
enter one action into the CURRENT database.
The CURRENT database has a STD Ref, Action Reference, Diary Date, Raised
Date ans Completed Date.
The following script checks that the diary date is after TODAY() and if it
isn't checks with the user to see if they want to change it.
Then if the standard reference is 13, a new record is created in the
CURRNOTE database and will appear in the other repeating panel.
Sub Lostfocus(Source As Fieldbox)
Dim DDATE As Variant
INITRAN=source.transacspanel.Transaction~ Reference.text
ANUMBER=currentview.body.Account~ Number.text
DDATE = source.transacspanel.Diary~ Date.text
AREF= source.transacspanel.Action~ Reference.text
If DDATE="" Then
Messagebox ("Please complete a Diary Date")
source.transacspanel.Diary~ Date.setfocus
End
End If
If Datenumber(Year(DDATE) , Month(ddate) , Day(DDATE)) < Datenumber(Year(Today()) , Month(Today()) , Day(Today())) Then
answer% = Messagebox("The Diary Date that you have entered is before today - would you like to change it ?",36,"CCS Warning")
If answer% = 6 Then
source.transacspanel.Diary~ Date.text=""
source.transacspanel.Diary~ Date.setfocus
End If
Else
If source.transacspanel.STDAction.text="13" Then
NEWNOTES = Inputbox$( "Please Enter the Notes","CCS Quick Note Entry",,250,250)
If NEWNOTES ="" Then
End
Else
answer2% = Messagebox("Does this note only apply to this transaction?",3+32+256,"CCS")
If answer2%=2 Then
source.transacspanel.STDAction.setfocus
End
End If
Dim con As New Connection
Dim qry As New Query
Dim rs As New ResultSet
If (con.connectto ("dbase IV")<>False) Then
Set qry.connection = con
qry.tablename="m:\group\ba\ccs\currnote.dbf"
Set rs.query = qry
If ((rs.execute)<>False) Then
rs.addrow
NewValue=rs.setvalue(1,ANUMBER)
If answer2%=6 Then NewValue=rs.setvalue(2,INITRAN)
End If
NewValue=rs.setvalue(3,Today())
Newvalue=rs.setvalue(4,NEWNOTES)
NewValue=rs.setvalue(5,AREF)
rs.updaterow
End If
End If
con.disconnect
End If
End If
CurrentApplication.ApplicationWindow.DoMenuCommand(IDM_REFRESH)
End If
End Sub