Экспорт результатов SQL запроса в CSV

[adandreev]

Уважаемые коллеги! с Аксаптой мое знакомство началось недели 2 назад, а с X++ и того меньше. Начальство дало задание написать обработку для выгрузки данных SQL запроса в CSV файл. Была предпринята попытка сделать это таким образом:
Но успехом она не увенчалась, если не сложно поясните в чем моя ошибка.
Версия 2,5

static void da_Import_ItemId_To_CSV(Args _args)
{
    Dimensions                   dimensions;
    filepath               templateFilePath;
    m_TransportSalesPacking           excel;
    ComExcelDocument_RU            excelDoc;
    IO                                   io;
    FileName fileName, fileNameFrom;
    AsciiIO IoFrom, IoClass;
    
    IoClass     = new AsciiIO(fileName, 'W');
    IoFrom      = new AsciiIO(fileNameFrom, "R");

    if (! IoClass)
        throw error(strFmt("@DIS100404",fileName));
    if (! IoFrom)
        throw error(strFmt("@DIS100404",fileNameFrom));


                    static str any2csvField(anyType _perem)
                    {
                        str csvField;
                        ;
                        csvField = '"' + strReplace(_perem,'"',"'") + '"';
                        if (typeOf(_perem) == Types::STRING)
                            return '"' + strReplace(_perem,'"',"'") + '"';

                        return strFmt("%1",_perem);
                    }

                    static str con2csvStr(container _con)
                    {
                        counter i;
                        str     resu;
                    ;
                        for(i=1; i <= conLen(_con); i ++)
                        {
                            if (i > 1)
                                resu += ";";
                            resu += m_proc::any2csvField(conPeek(_con,i));
                        }
                        return resu;
                    }


  // void csvReport()
    // {
 void Insert2CSV(anytype param1, anytype param2, anytype param3, anytype param4)

     {
     ;
        //??? ???? ?????????? ?????? ? CSV
       io.write(m_proc::con2csvStr([
              param1
            , param2
            , param3
            , param4
            ]));

       }

    boolean atLeastOnePosted = false;
    boolean allPosted        = true;
    ;
    this.Insert2CSV(      "??????"
                          "???????",
                          "????????????",
                          "??.???",
                    );


        // ??????? ???????? ?????? ??????
        SELECT InventTable.ItemGroupId, InventTable.ItemId, InventTable.ItemName, InventTableModule.ModuleType,
        InventTableModuleUnitId, InventTableModule.Price
        FROM InventTable JOIN InventTableModule   WHERE InventTable.ItemGroupId=="???" 
     {

        this.Insert2CSV(  InventTable.ItemGroupId,
                          InventTable.ItemId,
                          InventTable.ItemName,
                          InventTableModule.ModuleType,
                          InventTableModuleUnitId,
                          InventTableModule.Price
                          );
     }


    io.finalize();
    al_FileUtils::reportSaveFile(Name_File);
}

[ice]

может сначала почитать какую-нить книжку по программированию в Х++?
обратить внимание на составление завпросов с помошью Х++ и связи между таблицами

[belugin]

База знаний ERP : Axapta / Программирование раздел "С чего начать"

[adandreev]

Спасибо

[Gustav]

Цитата:

Сообщение от adandreev

Была предпринята попытка сделать это таким образом:
Но успехом она не увенчалась

А в чём именно "неувенчаемость" состоит? Какая ошибка возникает?

Это у вас, вроде, джоб. Тогда при чем здесь this. ? Или класс?? Сформатировали бы текст получше...

P.S. Мда... попробовал запустить - пока беда... правда, почитайте сначала букварь хоть немного. Вы этот код вне Аксапты что ли создавали? Ни разу не компилировали, наверное...

[blokva]

например так:

static void MyJob(Args _args)
{
    TextBuffer      tb = new TextBuffer();
    MyTable        myTable;
;
    tb.appendText(strfmt("%1;%2;%3;\n","Заголовок1","Заголовок2","Заголовок3"));    
    while select myTable
    {
         tb.appendText(strfmt("%1;%2;%3;\n",myTable.Field1,myTable.Field2,myTable.Field3));

    }
    tb.toFile("d:\\MyCSVfile.csv");

}

[belugin]

Цитата:

Сообщение от blokva

например так:

 tb.appendText(strfmt("%1;%2;%3;\n",myTable.Field1,myTable.Field2,myTable.Field3));

А искейпить спецсимволы кто будет?

[blokva]

Цитата:

Сообщение от belugin

А искейпить спецсимволы кто будет?

э-э-э не понял...
имеется ввиду кавычки и пр.?

[belugin]

да. если значение Field1 будет равно ;, например

[mazzy]

Цитата:

Сообщение от adandreev

Начальство дало задание написать обработку для выгрузки данных SQL запроса в CSV файл.

http://axapta.mazzy.ru/lib/textfile/
http://axapta.mazzy.ru/lib/import/
а также http://axapta.mazzy.ru/lib/xmlpublish/
и http://axapta.mazzy.ru/lib/easyimport/

[blokva]

Цитата:

Сообщение от belugin

да. если значение Field1 будет равно ;, например

Я тсз дал направление, которым пользуюсь, причем это не чистый CSV т.к. там ";" стоят и кавычек нету, но ёксель его кушает с удовольствием.
Можно например не заморачиваться со спецсимволами а грузануть в ёксель и оттуда сохранить как CSV

[Gustav]

2 adandreev
Довел ваш код до состояния компилируемости (AX 3.0). Ваши ошибки оставил, закомментировав соответствующие строки. Посмотрите, что вы делали не так.

Дальше посыпались ошибки рантайма - с ними уже сами разбирайтесь, если есть желание. А так рекомендую воспользоваться решением blokva и вообще еще что-нибудь поискать по форуму на эту тему. Ссылками вас уже завалили

/// ЛАБОРАТОРНАЯ РАБОТА

static void da_Import_ItemId_To_CSV(Args _args)
{
    Dimensions                   dimensions;
    filepath               templateFilePath;
    //m_TransportSalesPacking           excel;
    ComExcelDocument_RU            excelDoc;
    IO                                   io;
    FileName fileName, fileNameFrom;
    AsciiIO IoFrom, IoClass;

    InventTable InventTable;
    InventTableModule InventTableModule;

    boolean atLeastOnePosted = false;
    boolean allPosted        = true;


    //static str any2csvField(anyType _perem)
    str any2csvField(anyType _perem)
    {
        str csvField;
        ;
        csvField = '"' + strReplace(_perem,'"',"'") + '"';
        if (typeOf(_perem) == Types::STRING)
            return '"' + strReplace(_perem,'"',"'") + '"';

        return strFmt("%1",_perem);
    }

    //static str con2csvStr(container _con)
    str con2csvStr(container _con)
    {
        counter i;
        str     resu;
    ;
        for(i=1; i <= conLen(_con); i ++)
        {
            if (i > 1)
                resu += ";";
            //resu += m_proc::any2csvField(conPeek(_con,i));
            resu += any2csvField(conPeek(_con,i));
        }
        return resu;
    }


      // void csvReport()
        // {
    void Insert2CSV(anytype param1, anytype param2, anytype param3, anytype param4)

         {
         ;
            //ooo eaao caiieiaiea no?iee a CSV
           //io.write(m_proc::con2csvStr([
           io.write(con2csvStr([
                  param1
                , param2
                , param3
                , param4
                ]));

           }

;

    IoClass     = new AsciiIO(fileName, 'W');
    IoFrom      = new AsciiIO(fileNameFrom, "R");

    if (! IoClass)
        throw error(strFmt("@DIS100404",fileName));
    if (! IoFrom)
        throw error(strFmt("@DIS100404",fileNameFrom));

    //this.Insert2CSV(      "A?oiia"
    Insert2CSV(      "A?oiia",
                          "A?oeeoe",
                          "Iaeiaiiaaiea",
                          "Aa.eci"
                    );


        // Auai?ea cia?aiee io?iie a?oiiu
        //SELECT InventTable.ItemGroupId, InventTable.ItemId, InventTable.ItemName, InventTableModule.ModuleType,
        //InventTableModuleUnitId, InventTableModule.Price
        //FROM InventTable JOIN InventTableModule   WHERE InventTable.ItemGroupId=="AAO"
    while select ItemGroupId, ItemId, ItemName from InventTable
    join ModuleType, UnitId, Price from InventTableModule
    where InventTable.ItemGroupId == "AAO"
    && InventTable.ItemId == InventTableModule.ItemId
    {

        //this.Insert2CSV(  InventTable.ItemGroupId,
        Insert2CSV(  InventTable.ItemGroupId,
                          InventTable.ItemId,
                          InventTable.ItemName,
                          InventTableModule.ModuleType,
                          InventTableModule.UnitId,
                          InventTableModule.Price
                          );
    }


    //io.finalize();

    //al_FileUtils::reportSaveFile(Name_File);
}

[belugin]

я не очнь понимаю, почему бы просто не воспрользоваться CommaIO?

[belugin]

заменить

io.write(con2csvStr([
                  param1
                , param2
                , param3
                , param4
                ]));

на

io.write(
                  param1
                , param2
                , param3
                , param4
 );

[adandreev]

Огромаднейшее спасибо! Я правда накачавшись инфой из ссылок его всетаки добил, но не так изящно)) А за комменты ошибок Отдельный Респект!