Import initial din SVN ROAAUTO/Trunk @HEAD

COMUN/programe/exportare.prg

@@ -0,0 +1,51 @@
+LPARAMETERS tabel, initial, final
+LOCAL  nrc, i, c
+STORE 0 TO nrc, i
+STORE '' TO c
+
+lcDir = ADDBS(gcTempPath)
+CD (lcDir)
+
+
+exista_excel=.F.
+
+initial = ','+initial+',' &&Pentru a recunoste coloanele'
+final = ','+final+',' &&---||---
+
+nrc = OCCURS(',', '&initial')
+nrc=nrc-1 && scade vircula din fata
+
+LOCAL ARRAY c_initial(nrc)
+LOCAL ARRAY c_final(nrc)
+	
+FOR i = 1 TO nrc
+	n = AT(',', '&initial', i)
+	n2 =AT(',', '&initial', i+1)
+	c_Initial[i] = SUBSTR('&initial', n+1, n2-n-1)
+	*MESSAGEBOX(c_initial[i])
+	n = AT(',', '&final', i)
+	n2 =AT(',', '&final', i+1)
+	c_final[i] = SUBSTR('&final', n+1, n2-n-1)
+	*MESSAGEBOX(c_final[i])
+ENDFOR 
+	
+FOR i=1 TO nrc
+	IF i=nrc
+		c=c+c_initial[i]+' as '+c_final[i]
+	ELSE
+		c=c+c_initial[i]+' as '+c_final[i]+','
+	ENDIF 
+ENDFOR 
+		
+calea_fis = PUTFILE('Nume fisier:', 'Foaie_Excel', 'XLS')
+IF EMPTY(calea_fis)  && Esc pressed
+ 	RETURN 
+ENDIF
+	
+SELECT &c FROM &tabel INTO CURSOR cur
+SELECT cur
+EXPORT TO (calea_fis) TYPE XL5
+
+OPEN_default_app(calea_fis)
+USE IN cur 
+