romfast/roaimob
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 11:37:36 +03:00
commit 34aed0c4d7
236 changed files with 145556 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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