Kamis, 14 Januari 2016

AX : script upload data csv

static void UploadDataSumbawa(Args _args)
{
    CommaIO                             csvFile;
    container                           readCon;
    counter                             icount;
    Dialog                              dialog;
    DialogField                         dfFileName;

   ListMakasarSecurityItem           listSumbawaSecurity;

    Name                                name;
    FileName                            filename;

    BinData binData;
    str stringImage;
    #File


    dialog = new Dialog("Pick the file");
    dfFileName = dialog.addField(extendedTypeStr(FileNameOpen));
    dialog.filenameLookupFilter(["All fies", #AllFiles]);

    if (dialog.run())
    {
            filename =  dfFileName.value();
    }

    csvFile = new CommaIO(filename, 'r');

    if (csvFile)
    {
        csvFile.inFieldDelimiter(';');
        readCon = csvFile.read();

        while (csvFile.status() == IO_Status::OK)
        {
            readCon = csvFile.read();
            icount++;
            if (readCon)
            {
                listSumbawaSecurity.clear();
                listSumbawaSecurity.DisplayValue = conPeek(readCon, 1);
                listSumbawaSecurity.insert();
            }
        }
    }
    info("done");
}

Tidak ada komentar:

Posting Komentar