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