Set Deleted On
Set Century on
Set Date DMY 
Set Exclusive Off
Set Ansi On
Set Exact On
Set Safety Off 

Clear 
lcSql = [] 
Set Textmerge ON TO memvar lcSql noshow 
Select CONTAMORT
Scan 
	
\EXECUTE IMMEDIATE 'INSERT INTO IMOB_CONTURI(CONT, CONT_CHELTUIALA, CONT_AMORTIZARE, ID_TIP_IMOBILIZARE) VALUES (''<<Alltrim(CONT_IMOB)>>'',''6811'',''<<Alltrim(CONT_AMORT)>>'',<<FEL_IMOB>>)';
EndScan 
Set Textmerge to 
_CLIPTEXT = lcSql