romfast/roacont
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync SVN r18185

Browse Source
This commit is contained in:
Marius Mutu
2026-09-19 18:02:07 +03:00
parent 0f6b97ef32
commit 9a8d1f41db
4 changed files with 32 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ferestre/frm_import_extrase_banca.sc2
View File

@@ -1714,9 +1714,11 @@ DEFINE CLASS form1 AS form
Append From Dbf('actactan')
ENDIF
Select .F. As ales, a.explicatia4 As iban, Iif(!Empty(Nvl(a.id_jtva_coloana, 0)), 1, 0) As Cu_tva, Cast(0 As N(2)) As tipnota, .F. As listoric, .F. As dublura, Cast(0 As I) As ngrupa, Cast(0 As I) As npoz, Space(1) As csursa_f, Space(3) As cbuget, a.*, b.denumire As explicatie_tva_2 ;
Select .F. As ales, a.explicatia4 As iban, Iif(!Empty(Nvl(a.id_jtva_coloana, 0)), 1, 0) As Cu_tva, Cast(0 As N(2)) As tipnota, .F. As listoric, .F. As dublura, Cast(0 As I) As ngrupa, Cast(0 As I) As npoz, Space(1) As csursa_f, Space(3) As cbuget, Cast(0 As I) As nordine, a.*, b.denumire As explicatie_tva_2 ;
From actactan_temp a Left Join crsExplicatiiTVATemp b On a.id_jtva_coloana = b.id_jtva_coloana ;
Into Cursor tact Readwrite
Select tact
Replace All nordine With Recno() * 100 && ordinea de afisare; grupurile defalcate/imperecheate se intercaleaza intre sute
IF Used('cIstoricMarcaj')
Select tact