Forum

Printing of TabularRows

Nov 05, 2013 03:32 AM

Interested

Points:: 0
Joined:: Nov 10, 2011

Hi,

I need to show on the print form TabularRows. The button "print" ist in the document form.

Here is the code:

Code
&AtClient Procedure Print(Command) Spreadsheet = New SpreadsheetDocument; PrintAtServer(Spreadsheet); Spreadsheet.Show(); EndProcedure

and

Profile

Lioudmila Nemtseva

Nov 05, 2013 03:32 AM

Interested

Points:: 0
Joined:: Nov 10, 2011

Code

&AtServer
Procedure PrintAtServer(Spreadsheet)
   
   
   Template = Documents.SalesQuote.GetTemplate("PF_MXL_SalesQuote");
   TemplateArea = Template.GetArea("Header");
   TemplateArea.Parameters.ThemBill = Object.CompanyAddress;
   TemplateArea.Parameters.Date = Object.Date;
   TemplateArea.Parameters.Number = "AnbotsNr.: " + Object.Number;
   TemplateArea.Parameters.Subject = Object.Subject;

   
   Spreadsheet.Put(TemplateArea);
   
   TemplateArea =     Template.GetArea("Salutation");
            
   TemplateArea.Parameters.TextBausteinBefore = GeneralFunctions.GetTextBaustein(Object.Ref);

   Spreadsheet.Put(TemplateArea);

   

EndProcedure

Profile

Lioudmila Nemtseva

Nov 05, 2013 03:32 AM

Interested

Points:: 0
Joined:: Nov 10, 2011

and in GeneralFunctions:

Code

Function GetTextBaustein(Ref) Export
   
      
   Query = New Query();
    Query.Text = "SELECT
                      | SalesQuote.Ref,
                      |   SalesQuote.TextBuilding.(
                      |//-------------------------------------
                      |      TextBuildingName,
                      |      Textbaustein,
                      |      BeforePositions
                      |   )
                      |FROM
                      |   Document.SalesQuote AS SalesQuote
                      |WHERE
                      |   SalesQuote.Ref IN(&Ref)";
                  
                 Query.SetParameter("Ref", Ref);
                 Selection = Query.Execute().Choose();
                       
                                          
               SelectionTextBuilding = Selection.TextBuilding.Choose();

               While SelectionTextBuilding.Next() Do
     

        TextBaustein = "Text"; // Just for test purposes
     

     EndDo; 

         
   Return TextBaustein;
      
EndFunction

Profile

Lioudmila Nemtseva	#4 Nov 05, 2013 03:32 AM
Interested Points:: 0 Joined:: Nov 10, 2011	But I get an error: Wert ist nicht vom Typ "Objekt" (Choose) - Value is not of type "Object" SelectionTextBuilding = Selection.TextBuilding.Choose(); What's wrong? Thanks a lot in advance.
	Profile

Lioudmila Nemtseva	#5 Nov 05, 2013 03:33 AM
Interested Points:: 0 Joined:: Nov 10, 2011	Sorry for writing in several messages, it didn't work somehow to create a complete post
	Profile

Timofey Bugaevsky	#6 Nov 05, 2013 03:47 AM
Guest Points:: Joined::	You need to go next first to select something from subtable.
	Profile

Lioudmila Nemtseva	#7 Nov 05, 2013 04:09 AM
Interested Points:: 0 Joined:: Nov 10, 2011	Thanks, Timofey! But I tried several variation and it still doesn't work Maybe you can write how I should change the code?
	Profile

Timofey Bugaevsky

Nov 05, 2013 08:46 AM

Guest

Points::
Joined::

Here is an example:

Code

Query = New Query;
Query.Text = 
   "SELECT
   |   Kits.Ref,
   |   Kits.Description,
   |   Kits.Parts.(
   |      Item,
   |      Quantity
   |   )
   |FROM
   |   Catalog.Kits AS Kits";

QueryResult = Query.Execute();

SelectionDetailRecords = QueryResult.Choose();

While SelectionDetailRecords.Next() Do
   
   Parts = SelectionDetailRecords.Parts.Choose();
   While Parts.Next() Do
      UserMessage = New UserMessage;
      UserMessage.SetData(SelectionDetailRecords.Ref.GetObject());
      UserMessage.Text = Parts.Item + " x " + Parts.Quantity;
      UserMessage.Message();
   EndDo;
   
EndDo;

Profile

Lioudmila Nemtseva	#9 Nov 06, 2013 04:56 AM
Interested Points:: 0 Joined:: Nov 10, 2011	Thanks a lot! It works!
	Profile

Yulia Ivanova	#10 Jan 13, 2014 04:41 AM
Active user Points:: 0 Joined:: Nov 3, 2011	Note that in 1C:Enterprise 8.3.4 Choose() was renamed to Select() to match the SELECT query keyword.
	Profile