Initial commit — sursa ROAIMOB

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
This commit is contained in:
2026-07-08 18:38:49 +03:00
commit a53bb1dcc9
355 changed files with 11924 additions and 0 deletions

18
conturi_imob.prg Normal file
View File

@@ -0,0 +1,18 @@
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