sync SVN r18096

programe/pmenu.prg

@@ -887,6 +887,13 @@ Procedure introducere_compacta
 			Where N.ID_SET = tn_idset ;
 			Into Cursor introdc Readwrite Order By ordine
 
+		* Explicatii pe articol, cand cursorul de note le aduce (import eFactura)
+		If Type('introdc.expl4_art') = 'C'
+			Update introdc Set explicatia  = expl_art  Where !Empty(Nvl(expl_art, ''))
+			Update introdc Set explicatia4 = expl4_art Where !Empty(Nvl(expl4_art, ''))
+			Update introdc Set explicatia5 = expl5_art Where !Empty(Nvl(expl5_art, ''))
+		Endif
+
 		If !Used('saft_taxtable')
 			update_saft_taxtable()
 		ENDIF