PARAMETERS jmeno_souboru

#DEFINE CRLF CHR(13)+CHR(10)
#DEFINE ODD  ";"

IF .not. EMPTY(m.ean_path)

   IF .not. DIRECTORY(m.ean_path)
       MKDIR (m.ean_path)
   ENDIF 

   nepodarilo_se = ""

   fh = FCREATE(ean_path + m.jmeno_souboru + ".csv")
   IF m.fh < 0
       nepodarilo_se = nepodarilo_se + jmeno_souboru
   ELSE 
       SCAN 
           vysledek = ALLTRIM(STR(c_karty,12)) + ODD + STRTRAN(ALLTRIM(STR(mnozstvi,12,4)), ",", ".") + ODD + '"' + ALLTRIM(nazev) + '"' + CRLF
           = fwrite(m.fh, m.vysledek )
       ENDSCAN 
   ENDIF 
   FCLOSE( m.fh )

   IF .not. EMPTY(nepodarilo_se)
       = MESSAGEBOX("Nepodarilo se vytvorit soubory v adresari " + UPPER(m.ean_path) + CRLF + m.nepodarilo_se,1+48,"Codeware", 6666)
   ENDIF 

ENDIF 
