sync SVN r18205

clase/omodificari.vc2

@@ -15035,6 +15035,15 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
 		IF Used('tact') AND Type('tact.clipsa') <> 'C'
 			SELECT *, Space(10) As clipsa FROM tact INTO CURSOR tact READWRITE
 		ENDIF
+		*!* data documentului si data inregistrarii se editeaza ca Date, fara ora
+		IF Used('tact') AND (Type('tact.dataact') = 'T' OR Type('tact.dataireg') = 'T')
+			LOCAL laCamp[1], lcCampuri, lnI
+			lcCampuri = ''
+			FOR lnI = 1 TO AFields(laCamp, 'tact')
+				lcCampuri = lcCampuri + Iif(lnI > 1, ', ', '') + Iif(Inlist(Lower(laCamp[lnI, 1]), 'dataact', 'dataireg') AND laCamp[lnI, 2] = 'T', 'TTOD(' + laCamp[lnI, 1] + ') As ' + laCamp[lnI, 1], laCamp[lnI, 1])
+			ENDFOR
+			SELECT &lcCampuri FROM tact INTO CURSOR tact READWRITE
+		ENDIF
 		
 		If !Used('saft_taxtable')
 			update_saft_taxtable()