IF thisform.text10.Value >0
SELECT 2
APPEND BLANK
REPLACE shr WITH thisform.text5.Value
REPLACE kod WITH thisform.text4.Value
REPLACE shos WITH thisform.text1.Value
REPLACE dat WITH thisform.text2.Value
REPLACE nam WITH thisform.text3.Value
REPLACE kod WITH thisform.text4.Value
REPLACE shoj WITH thisform.text12.Value
REPLACE datj WITH thisform.text11.Value
IF thisform.combo3.Value ='بدهكار'
REPLACE tash WITH 1
ELSE
REPLACE tash WITH 2
endi
IF thisform.combo3.Value ='بدهكار'
REPLACE bedk WITH thisform.text10.Value
endi
IF thisform.combo3.Value ='بستانكار'
REPLACE best WITH thisform.text10.Value
endi
REPLACE shr WITH thisform.text5.Value
thisform.grid1.Refresh
SUM bedk TO ss
SUM best TO sss
thisform.text6.Value =sss
thisform.text7.Value =ss
ELSE
WAIT WINDOW "مبلغ صفر ثبت نميشود " TIMEOUT 1
thisform.text10.SetFocus
ENDIF
thisform.text10.Value=0
پاسخ با نقل قول