Often the fields of a transaction are displayed on several tabs. For rapid data entry it might be useful to combine these fields on one single tab. This is a bit more complicated than rearranging fields on a screen, since the transaction's logic plays an important part here.
You will find the
essential techniques in this tutorial. The aim is for
transactions
AS01: Create Asset
AS02: Change Asset
AS03: Display Asset
to display the fields needed for net worth valuation on the "General" tab.
Transaction AS02 looks like this:
We want to display the fields in the red rectangle on the "General" tab. They will be deleted on the "Net worth tax" tab. We will move the group box and fields "Real estate and similar rights" to the top of the "Net worth tax" tab and rename this tab "Estates".
The new "General" tab now looks like this:
You see that we have changed two fields into selections of radiobuttons ("Property indicator" and "Reason for valuation").
How to proceed:
We change the layout of the two tabs (Delete valuation fields on the "Net worth tax" tab, move "real estate and similar rights" fields to the top and insert new fields onto the "General" tab).
With the help of special InputScripts we fill in the fields in Change and Display mode. When the tab "General" is opened for the first time we move to the "Net worth tax" tab via InputScript, fill in the values into our InputScript variables and return to the "General" tab. Please note that the InputScripts can access all fields even though they are no longer displayed on the tab.
In the same way we make sure that in Create and Change mode our new fields are read when we "save".
We pay special attention to the handling of data entry mistakes. Error messages concerning our new entry fields are displayed on the "General" tab, so that mistakes can be corrected immediately.
The scripts that we have used in this tutorial can be found in a .zip-file so that you can use them for your own tests: as_zip.zip. Please test with SAP 4.6C and GuiXT 2004 Q3 4 or later versions.
On the initial screens of AS01 and AS02/AS03 we delete all variables. Our special naming of these variables - all InputScript variables for the three transactions start with "AS_" - makes this operation easy:
// Delete variables of AS transactions
Set V[AS_*] ""
// GuiXT Script saplaist.e0100.txt
// Delete variables for AS01 / AS02 /AS03
Set V[AS_*] ""Layout changes and calling up the right InputScripts are done in the GuiXT script for the AS01/AS02/AS03-screen saplaist.1000:
// GuiXT Script "saplaist.e1000.txt"
// Transactions AS01 / AS02 / AS03
// Some fields are transferred from the"Net worth value"
// tab to the "General" tab
// InputScripts Used:
//
// AS_read.txt Read data
// AS_save.txt Save
// AS_check.txt Check
//-------------------------------------------
// All V[AS_*] variables are initialized on entry screen of transaction
// To make sure that all variables are initialized, if
// asset number has changed in case of call from lists etc.
if not V[AS_asset=&F[Asset]]
Set V[AS_*] ""
Set V[AS_asset] "&F[Asset]"
endif
// Set read-only flag for display, to allow
// using the same InputField commands for all transactions
if Q[Transaction=AS03]
Set V[AS_readonly] "-readOnly"
endif
// Read values first time when change or display
if Q[Transaction=AS02] or Q[Transaction=AS03]
if not V[AS_read=X]
Set V[AS_read] "X"
Enter process="AS_read.txt"
// Leave script since screen is not displayed
Stop
endif
endif
// Rename tab, since only real estate-fields are left
Text P[Net worth tax] "Estates"
// General Tab - display own fields
if Q[Page=General]
// Suppress inner scrollbar
NoScrollBar
// Start just below last box
offset G[Posting Information]+(5,0)
box (0,0) (9,80) "Net worth value"
pushbutton (1,78) "@0Q\Qdescription net worth value@" "=LTXTNETA"
inputfield (1,1) "Classification key" (1,24) size=4 _
name="AS_classification_key" "&V[AS_readonly]" techName="ANLA-VMGLI"
Text (1,30) "&V[AS_classification_key_text]" -border
inputfield (2,1) "Net worth value" (2,24) size=16 _
name="AS_man_value" "&V[AS_readonly]" -numerical
Box (4,1) (8,20) "Property indicator"
radiobutton (5,2) "Property" name="AS_property_indicator" _
value="1" "&V[AS_readonly]"
radiobutton (6,2) "Leasing" name="AS_property_indicator" _
value="2" "&V[AS_readonly]"
radiobutton (7,2) "Share" name="AS_property_indicator" _
value="3" "&V[AS_readonly]"
Box (4,30) (8,49) "Reason for valuation"
radiobutton (5,31) "Assessed value" name="AS_man_reason" _
value="003" "&V[AS_readonly]"
radiobutton (6,31) "Rental value" name="AS_man_reason" _
value="001" "&V[AS_readonly]"
endif
// "Net worth tax" tab; delete those fields that are now on the "General" tab
if Q[Page=Net worth tax]
del G[Net worth valuation]
pos G[Real estate and similar rights] (5,1)
endif
if Q[Transaction=AS01] or Q[Transaction=AS02]
// When saving AS01/AS02 call own script
on "/11" process="AS_save.txt"
on "/Menu=1,7" process="AS_save.txt"
// No save in pop-up, treat like /12
on "/3" fCode="/12"
on "/15" fCode="/12"
// On "Enter" in "General" tab, check additional entries
if Q[Page=General]
on Enter process="AS_check.txt"
endif
endifThe InputScript "AS_read.txt" reads the valuation inputfields on the appropriate tab and goes back to the "General" tab. Textfields can also be read and displayed on the new tab.
// InputScript AS_read.txt
// Go to tab "Net worth tax"
Enter "=TAB05"
// AS02, Net worth valuation
Screen SAPLAIST.1000
Set V[AS_classification_key] "&F[Classification key]"
Set V[AS_classification_key_text] "&F[T092T-VMTXT]"
Set V[AS_property_indicator] "&F[Property indicator]"
Set V[AS_man_reason] "&F[Reason for man.val.]"
Set V[AS_man_value] "&F[Man.net wrth val.]"
Enter "=TAB01"Similarly, "AS_save.txt" sets the additional fields into the standard fields before saving. In case of error messages we go back to the "General" tab.
// InputScript AS_save.txt
// Save in transactions AS02 and AS03
// Go to "Net worth tax"
Enter "=TAB05"
//"Net worth tax"
Screen SAPLAIST.1000
// Remember old values to use them in case of error
Set V[AS_corr_property_indicator] "&F[Property indicator]"
Set V[AS_corr_man_value] "&F[Man.net wrth val.]"
// Enter new values
Set F[Classification key] "&V[AS_classification_key]"
Set F[Property indicator] "&V[AS_property_indicator]"
Set F[Reason for man.val.] "&V[AS_man_reason]"
Set F[Man.net wrth val.] "&V[AS_man_value]"
// Save, on error continue
Enter "/11" onError=Continue
// Error message: Set back values, because of some errors
// Otherwise we might not be able to leave tab
Set F[Property indicator] "&V[AS_corr_property_indicator]"
Set F[Man.net wrth val.] "&V[AS_corr_man_value]"
// Go back to first tab with error message
Message "&V[_lasterror]" -statusline
Enter "=TAB01"
It is not necessary to check data entry with a separate InputScript as we did here (AS_check.txt), since the checking is done in any case when "saving". But its more userfriendly to check entry data at the first "Enter".
GuiXT// InputScript AS_save.txt
// InputScript AS_check.txt
// Check data entry
// // Go to tab "Net worth tax"
Enter "=TAB05"
// Net worth tax
Screen SAPLAIST.1000
// Save old values to use them in case of error
Set V[AS_corr_property_indicator] "&F[Property indicator]"
Set V[AS_corr_man_value] "&F[Man.net wrth val.]"
// Enter new values
Set F[Classification key] "&V[AS_classification_key]"
Set F[Property indicator] "&V[AS_property_indicator]"
Set F[Reason for man.val.] "&V[AS_man_reason]"
Set F[Man.net wrth val.] "&V[AS_man_value]"
// Enter
Enter onError=Continue
goto error
// Net worth valuation
Screen SAPLAIST.1000
// Read text
Set V[AS_classification_key_text] "&F[T092T-VMTXT]"
// Net worth value - standard treatment
Set V[AS_man_value] "&F[Man.net wrth val.]"
// Back to first tab
Enter "=TAB01"
// Leave script, entries are OK
Leave
// treatment of error message
label error
// Restore previous values
Set F[Property indicator] "&V[AS_corr_property_indicator]"
Set F[Man.net wrth val.] "&V[AS_corr_man_value] "
// Back to first tab with error message
Message "&V[_lasterror]" -statusline
Enter "=TAB01"