19 lines
445 B
Plaintext
19 lines
445 B
Plaintext
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
|