Forum

How to open form of new document with filled values

Apr 25, 2019 08:09 AM

Active user

Points:: 0
Joined:: Sep 18, 2012

Hello everyone,
I need to open new document form with filled values.
I did something like below but it creates documents and writes it. Without Doc.Write() it doesn't work (values are not filled as I want). Could you tell me how I can do the same to open document form with filled values (Warehouse, Date etc and ItemsLines) but not written yet?

Code

Procedure OpenFormGoodsIssue()
  Doc = CreateNewGoodsIssueDocument(Parameters.Zlecenie,"Magazyn");
   FullDocumentFormName =  "Document.GoodsIssue.ObjectForm";
   Param = New Structure("Key",Doc);
   OpenForm(FullDocumentFormName,Param,ThisForm,,,,,);
EndProcedure

Function CreateNewGoodsIssueDocument(
Query = New Query;
   Query.Text = query text here...
   
Selection = Query.Execute().Select();   
   
Doc = Documents.GoodsIssue.CreateDocument();    
Doc.Warehouse=Catalogs.Warehouses.FindByDescription(WarehouseDescription);
Doc.OperationType = Enums.OperationTypesGoodsIssue.Usage;
Doc.ZlecenieNaprawy = ZlecenieNaprawy;
Doc.Date = CurrentDate();          
   
   While Selection.Next() Do
                NewLine = Doc.ItemsLines.Add();
      NewLine.Item = Selection.Item;
      NewLine.UnitOfMeasure = Selection.Item.BaseUnitOfMeasure;
      NewLine.Quantity = Selection.QuantityBalance;
   EndDo;
   Doc.Write();
   Return Doc.Ref; 
EndFunction

Thank you in advance for any help!
Regards,
Kris

Profile

Alex Ogourok

Apr 25, 2019 11:33 AM

Active user

Points:: 0
Joined:: Mar 10, 2017

Hello Kris,

Here is a block of the code to help you. This should work for managed form application.

Code

&AtServerNoContext
Procedure FillDataOnServer(FormData)

   DocObj =FormDataToValue(FormData,Type("DocumentObject.ProductReceipt"));
   
   
   ///here is the block where you can input your data to unsaved document
   
      DocObj.Date = Date(2019,04,23); //adding document attributes
      DocObj.Number = "000001"; 
      
      newTabularLine = DocObj.Products.Add();  //adding to tabular part of document
      newTabularLine.Price =  1000;
      newTabularLine.Quantity =  2;
      newTabularLine.Amount =  newTabularLine.Price * newTabularLine.Quantity;
      
   ///here is the block where you can input your data to unsaved document

      ValueToFormData(DocObj,FormData);
   
EndProcedure

&AtClient
Procedure OpenFormUnsavedDocument(Command)
   
   NewDocumentForm = GetForm("Document.ProductReceipt.Form.DocumentForm");
   
   FormData = NewDocumentForm.Object;

   FillDataOnServer(FormData);
   
   CopyFormData(FormData, NewDocumentForm.Object);
   
   NewDocumentForm.Open() ; //open unsaved form
   
EndProcedure

Best regards,
Alex

Profile

Kris Lipiński	#3 Apr 25, 2019 01:14 PM
Active user Points:: 0 Joined:: Sep 18, 2012	Hello Alex, it works fine! Thank you very much. Kris
	Profile