Create lines for CSV

Rafael Hi Rafael

can I get you to change the email to in the database I posted - I have by now received 10 mails from you with the csv file 

Rafael No problem - then we know it works 

Rafael  Again this night I received 8 mails from you with the CSV file. You have to change the send to in both the create and send again button, you can just change leowoer to a nonesensense address - here is where you change it :

sendEmail({
        from: userEmail(),
        to: "leowoer@icloud.com",
        subject: "Thank you for your email",

Fred yes if I want to create a plain csv  from the gear when I am in the invoiceitem table I have to do it - maybe I am wrong, but this I haven’t solved. The reason is that I don’t want my customer to be able to create csv from other places than the button, and then he should not be able to create again as then he risk to do bookkeeping the same rekord twice - but I would still be able to do it via the gear to correct some discrepancies.  Hope this gives meaning.

Fred  I will do that - but How will you then be able from the original setup to create the the CSV with 3 items (which Economacs can handle) where item 1 should be date, Item 2 should be a description so that th bookkeeper can find out how to book and Item 3 which is the amount. I would love to do it more elegantly - if possible. Try to look at how I managed to do this with the following script - likewise see the screenshot I have attached :

do as server
    for topLoop in select posteringslinier where 'CSV Created' != 1 do
        "create new invoice record";
        topLoop.('CSV Created' := 1);
        'CSV Indhold' := " ";
        'CSV Fil' := null;
        let Nyfakt := (create 'Faktura Enhed');
        Nyfakt.(
            Dato := topLoop.Fakturadato;
            Kunde := topLoop.Kundenavn;
            Fakturanummer := topLoop.'Fakturanr.'
        );
        "create a line item for each item field";
        for loop1 in range(1, 4) do
            if get(topLoop, "item" + loop1) != null then
                let newLineItem := (create CSVlinier);
                newLineItem.(
                    'Faktura Enhed' := Nyfakt;
                    Dato := get(topLoop, "Fakturadato");
                    Beskrivelse := "Fakturanummer " + get(topLoop, "Fakturanr.") +
                        switch loop1 do
                        case 1:
                            "  Personaleindtægt :  "
                        case 2:
                            "  Materialer :  "
                        case 3:
                            "  Kørsel :  "
                        case 4:
                            "  Ø. omk.  :"
                        default:
                            ""
                        end;
                    'Beløb' := get(topLoop, "item" + loop1)
                )
            end
        end
    end
end;
if (select posteringslinier).'CSV Created' != 1 then
    let xText := "Date,Description,Amount
";
    for loop in select CSVlinier do
        xText := xText + text(loop.Dato + "," + loop.Beskrivelse + "," + loop.'Beløb') +
            "
";
        'CSV Indhold' := xText
    end;
    'CSV Fil' := createTextFile(this, raw('CSV Indhold'), "Bogføringsliste.csv");
    sendEmail({
        from: userEmail(),
        to: "leowoer@icloud.com",
        subject: "Thank you for your email",
        text: "We received your request to get another copy of your invoice",
        html: "Some text with markup",
        attachments: 'CSV Fil'
    })
end