LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode=13
use table1
set talk off
set echo off

m.dat=thisform.text2.value
m.plan=thisform.text3.value
m.true=thisform.text4.value
m.hot=thisform.text5.value
m.balance=thisform.text6.value
m.mint=thisform.text7.value
m.other=thisform.text8.value
m.rem=thisform.text9.value
append blank
gather memvar 


SUM CTOT(plan) - CTOT("00:00:00") to lnSec&& i need to sum a nother fields(true,hot,balanc,mint,other) as plan
 ? PADL(INT(lnSec/3600), 2, "0") + ":" + ;
				PADL(INT((lnSec%3600)/60),2, "0") + ":" + ;
				PADL(lnSec % 60,2, "0")

SUM VAL(LEFT(plan,2))*3600 + ;
	VAL(SUBSTR(plan,4,2))*60 + ;
	VAL(RIGHT(plan,2)) TO lnSec

THISFORM.TEXT10.VALUE= PADL(INT(lnSec/3600), 2, "0") + ":" + ;
				PADL(INT((lnSec%3600)/60),2, "0")  

thisform.refresh
endif