Fix DocumentTypes for Exports, Prepare Price calculation, load template parameters

MultiTool.Shared/Documents/Document.vb

@@ -52,6 +52,21 @@ Namespace Documents
             End Get
         End Property
 
+        ''' <summary>
+        ''' Finds the first occurrence of Field and returns its value
+        ''' </summary>
+        Public Function GetFieldValue(pField As String) As String
+            For Each oRow In Rows
+                For Each oField In oRow.Fields
+                    If oField.Key = pField Then
+                        Return oField.Value.Final
+                    End If
+                Next
+            Next
+
+            Return Nothing
+        End Function
+
         Public Overrides Function Equals(obj As Object) As Boolean
             Return FullName = DirectCast(obj, Document).FullName
         End Function