LibreOffice logo
BASEDOCUMENTER
The software tool for documenting your LibreOffice Base applications
 
Database file/home/jean-pierre/Documents/BaseDocumenter/www/databases/LODoc/Example_direct_Calculation_Form.odb
File actual save date2018-06-27 12:14:48
Scanning done on2018-08-21 17:31:26
Documentation generated on2018-08-21 17:31:36
Table of contents
Example_direct_Calculation_Form
Procedures by module
Library Module name Procedure name Language Used by Number of code lines Procedure code
Standard Module1 Calculation_Total Basic form|quantity (Control) 4
SUB Calculation_Total(oEvent AS OBJECT)
oField = oEvent.Source.Model
Calculation_Total2(oField)
END SUB
Standard Module1 Calculation_Total2 Basic Calculation_without_Tax (Procedure)
Calculation_Total (Procedure)
12
SUB Calculation_Total2(oField AS OBJECT)
DIM oForm AS OBJECT
DIM oField2 AS OBJECT
DIM oField3 AS OBJECT
DIM oField4 AS OBJECT
oForm = oField.Parent
oField2 = oForm.getByName("price")
oField3 = oForm.getByName("total")
oField4 = oForm.getByName("tax_total")
oField3.BoundField.UpdateDouble(oField.getCurrentValue * oField2.getCurrentValue)
oField4.BoundField.UpdateDouble(oField.getCurrentValue * oField2.getCurrentValue - oField.getCurrentValue * oField2.getCurrentValue / 1.19)
END SUB
Standard Module1 Calculation_without_Tax Basic form|price (Control) 12
SUB Calculation_without_Tax(oEvent AS OBJECT)
DIM oForm AS OBJECT
DIM oField AS OBJECT
DIM oField2 AS OBJECT
oField = oEvent.Source.Model
oForm = oField.Parent
oField2 = oForm.getByName("price_without_tax")
oField2.BoundField.UpdateDouble(oField.getCurrentValue / 1.19)
IF NOT IsEmpty(oForm.getByName("quantity").getCurrentValue()) THEN
Calculation_Total2(oForm.getByName("quantity"))
END IF
END SUB