jdmoura Posted May 22, 2013 Report Share Posted May 22, 2013 AreaExis_get:=0.00 // Area ExistenteAreaConst_get:=0.00 // Area ConstruidaAreaTotal_get:=0.00 // Area TotalAreaReal_get :=0.00 // Variavel para calculo da Area Total Redefine Get oGet Var AreaExis_get picture "@E 999999.99" ID 120 OF oDlgRedefine Get oAreaConst_get Var AreaConst_get picture "@E 999999.99" VALID (CalcArea(oAreaConst_get)) ID 121 OF oDlg//Redefine Get oGet Var AreaConst_get picture "@E 999999.99" ID 121 OF oDlgAreaTotal_get:=AreaExis_get + AreaConst_get Redefine Get oAreaConst_get Var AreaTotal_get picture "@E 999999.99" ID 122 OF oDlg When .f.//RedefineGet AreaTotal_get picture "@E 999999.99" ID 122 OF oDlg //When .f. * ----------- Calculo da Total da AreaSTATIC FUNCTIONCalcArea(oAreaConst_get)AreaTotal:=AreaExis_get+AreaConst_getoAreaConst_get:Varput(AreaTotal_get)oAreaConst_get:REFRESH()RETURN.t. Um clipperAbraçojdmouraJdemourasilva@yahoo.com.brLondrina- Paraná Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted May 23, 2013 Report Share Posted May 23, 2013 Redefine Get oAreaConst_get Var AreaTotal_get picture "@E 999999.99" ID 122 OF oDlg When .f. UPDATE Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.