Improve Exported Constraint, Update call of price function

MultiTool.Shared/Winline/WinlineData.vb

@@ -305,22 +305,27 @@ Namespace Winline
 
         Public Async Function TryGetArticlePrice(pArticle As String, pAccountNumber As String, pQuantity As String, pDocumentDate As Date, pMandator As Mandator, pTemplate As Template) As Task(Of Double)
             Try
+                Dim oUserName = Environment.UserName
                 Dim oYear As Integer = Config.GetWinLineYear()
+                Dim oDebug = Convert.ToInt32(LogConfig.Debug)
+
                 Dim oSQL As String = $"
-                EXECUTE [{pMandator.Database}].[dbo].[PRCUST_GET_ACCOUNT_PRICE_CONDITION_VALUES] 
+                EXEC [{pMandator.Database}].[dbo].[PRCUST_GET_ACCOUNT_PRICE_CONDITION_VALUES] 
-                    '{pAccountNumber}',
+                    @pAccountNr = '{pAccountNumber}',
-                    '*',
+                    @pGroupNr = '*',
-                    '{pArticle}',
+                    @pProductNr = '{pArticle}',
-                    '{pQuantity}',
+                    @pProductQuantity = '*',
-                    '{pDocumentDate:dd.MM.yyyy}',
+                    @pProductPriceDateFrom = '{pDocumentDate:dd.MM.yyyy}',
-                    '{pDocumentDate:dd.MM.yyyy}',
+                    @pProductPriceDateTo = '{pDocumentDate:dd.MM.yyyy}',
-                    '{pMandator.Id}',
+                    @pmesocomp = '{pMandator.Id}',
-                    {oYear},
+                    @pmesoyear = {oYear},
-                    1008,
+                    @pGroupPropertyID = 1008,
-                    NULL,
+                    @pTempTableSuffix = 'MT_USER_{oUserName}',
-                    1,
+                    @pBatchID = NULL,
-                    'Multitool/{pTemplate.Name}',
+                    @pPrintDebug = 0,
-                    'CalcPricing'
+                    @pLog2DB = {oDebug},
+                    @pComment = 'Multitool/{pTemplate.Name}',
+                    @pResultType = 'CalcPricing'
                 "
                 Dim oTable As DataTable = Await Database.GetDatatableAsync(oSQL)
 
@@ -632,7 +637,11 @@ Namespace Winline
                     oDocNumberConstraint &= $"T.c044 <= '{pOptions.DocNumberTo}' AND "
                 End If
 
-                Dim oExportedConstraint = "(T.U010 = 0 OR T.U010 IS NULL) AND"
+                ' Build the constraint so that the default view will show all documents that do not have an exported
+                ' flag set to the current document type. 
+                ' Ex. Search for orders will not show exported flag = 2 by default
+                Dim oDocType As Integer = Math.Abs(Convert.ToInt32(pDocumentType))
+                Dim oExportedConstraint = $"(T.U010 IS NULL OR T.U010 <> {oDocType}) AND"
                 If pOptions.ShowExported Then
                     oExportedConstraint = ""
                 End If