Untitled

mail@pastecode.io avatar
unknown
plain_text
a year ago
1.1 kB
3
Indexable
Never
//wywołuje w pętli exportParameters.ExportMethod.ProgressData(index)
Public Function ProgressData(itemIndex As Integer) As String Implements IExportJob.ProgressData          
            Dim j As Integer = 0
            For Each p In _pharmacys.OrderBy(Function(x) x.PharmacyName)
                
                        Dim pharmacyCount = FindOrderCountInPharmacyPharmacyCount(p.PharmacyID, itemIndexExcel.Product.Bloz07, itemIndexExcel.AutoPm.RabatAp, itemIndexExcel.BlozList.DiscountFromWholesale, itemIndexExcel.BlozList.Price, _allData, itemIndexExcel.BlozList.Comment, _options)
                        If (pharmacyCount.HasValue AndAlso pharmacyCount.Value > 0) Then
                            ExcelWorkSheet.Cells(6 + itemIndex, 13 + j).Value = pharmacyCount.Value
                        Else
                            ExcelWorkSheet.Cells(6 + itemIndex, 13 + j).Value = String.Empty
                        End If
                j += 1
              
            Next
            
            Return String.Empty

 End Function