Export purchase lines to text

(0) Share

Report

Posted on by Community Member

Hi everyone,

I'm using nav 2016 and I need to export some purchase lines to a text file.

At the moment I know how to create the file, download to the client but how to get the specific lines this image show below? I have a page (purcha quote) where I have a page part called "PurchLines" linked to Purchase Quote Subform in PagePartId.

2742.purchase-lines.png

At the moment I have this code

TXT - OnAction()
// LACPOS001
MESSAGE('WORD');

Serverfilename := FileManagement.ServerTempFileName('txt');
ClientFilePath := 'C:\teste.txt';  

MyFile.CREATE(Serverfilename);
MyFile.CREATEOUTSTREAM(MyOutStream);

IF PurchaseLine.Find('-') THEN
  REPEAT
    counter := counter+1;
    //MyOutStream.WRITETEXT('9525200001 22-08-18	0	1,1'); 
    //MyOutStream.WRITETEXT(); // This command is to move to next line
  UNTIL PurchaseLine.Next = 0;


//MyOutStream.WRITETEXT('9525200001 22-08-18	0	1,1'); 
MyFile.CLOSE;// To end the writing and write out to the file.

FileManagement.DownloadToFile(Serverfilename,ClientFilePath);

*This post is locked for comments

I have the same question (0)

All responses (6)

Answers (0)

Suggested answer

Stefano Demiliani 37,166 Most Valuable Professional on at

Like (0)

Report

Not so clear the question... you have to compose the string that you are passing to WRITETEXT with the values you want to have in the file.

I suppose the data is in your PurchaseLine record you're looping.

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report

I want to create a text file in this case with 4 purch lines with fields item no, date, qty, price ('9525200001 22-08-18 0 1,1');

I don't know how to dinf how many loops I have, that depends of the amount of purch lines (in this case are 4). So I will need 4 lines in my txt file like this "'9525200001 22-08-18 0 1,1' with information contain in the purchase line

Was this reply helpful? Yes No
Suggested answer

Stefano Demiliani 37,166 Most Valuable Professional on at

Like (0)

Report

I think you need to filter the Purchase Lines for every order, isn't it? Do you need a file for every Purchase Order?

PurchaseLine.SETRANGE("Document Type",PurchaseLine."Document Type"::Order);

PurchaseLine.SETRANGE("Document No.",'XXX'); //Where XXX is your order number (PurchaseHeader."No.")

IF PurchaseLine.FINDSET THEN

REPEAT

counter := counter+1;

MyOutStream.WRITETEXT(PurchaseLine."No." + FORMAT(PurchaseLine."Order Date") + FORMAT(PurchaseLine."Unit Cost") + FORMAT(PurchaseLine.Quantity);

MyOutStream.WRITETEXT(); // This command is to move to next line

UNTIL PurchaseLine.Next = 0;

The WRITETEXT string should be formatted as your needs.

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report

I will try this code, the separation is with TAB

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report

varTab := 9; (char)

txtTab := format(varTab); (text)

And then in my writing to the file:

File.Write(Field1 + txtTab + field2 + txtTab + Field3 ...);

i will try this example

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report
So now I have this,

TXT - OnAction() // LACPOS001 varTab:=9; txtTab:=FORMAT(varTab); Serverfilename := FileManagement.ServerTempFileName('txt'); ClientFilePath := 'C:\Catia\teste.txt'; MyFile.CREATE(Serverfilename); MyFile.CREATEOUTSTREAM(MyOutStream); PurchaseLine.SETRANGE("Document Type",PurchaseLine."Document Type"::Quote); PurchaseLine.SETRANGE("Document No.", PurchaseHeader."No."); MESSAGE('numero docuemnto %1 ',FORMAT(Rec."No.")); //TESTE MESSAGE('tipo documento %1 ',FORMAT(Rec."Document Type")); //Proposta IF PurchaseLine.FINDSET THEN REPEAT counter := counter+1; MyOutStream.WRITETEXT(PurchaseLine."No." + txtTab + FORMAT(PurchaseLine."Data Tabela") + txtTab + FORMAT(PurchaseLine.PVP) + txtTab + FORMAT(PurchaseLine.Quantity)); MyOutStream.WRITETEXT(); // This command is to move to next line UNTIL PurchaseLine.NEXT = 0; MyFile.CLOSE;// To end the writing and write out to the file. FileManagement.DownloadToFile(Serverfilename,ClientFilePath);

But is not writing. The file is empty because the "if" condition is not true. That's weird to me because in "purchase line" table I have these lines for the "document no." with "teste" and for "document type" proposta (quote)

Was this reply helpful? Yes No