Dim rstA,rstB,rstC, sSql,iPrice,iQuantity,iProductID,iID,iDeliveryCostPerProduct,iPerProductPrice,iDocumentNumber,iProductPerPrice,iOtherExpenses,iSaleID,sClient,sUserName,aQuantity,bQuantity,cQuantity,iDivField,x,y

y = 1
ExecuteSQL "DELETE * FROM tblDirectCosts"

sSql = "SELECT ProductID, SalePrice,Quantity,ClientDeliveryCalc/(select sum(Quantity/DivField) from tblSalesProducts as a where a.SaleID = tblSalesProducts.SaleID),DocumentNumberCalc,SaleID,ID,IIF(DivField >=1,DivField,1) FROM qdfSalesProducts Order by ProductID,DocumentDateCalc"
OpenRecordset rstA, sSql
If  Not rstA.EOF Then
		Do Until rstA.EOF
            SetStatusText "Обработка " & rstA.AbsolutePosition & " из " & rstA.RecordCount
            iProductID = rstA("ProductID").Value
			iQuantity = rstA("Quantity").Value
			iPrice = rstA("SalePrice").Value
			
			iPrice = Replace(iPrice,",", ".")
			
			iPerProductPrice = rstA(3).Value
			iPerProductPrice = Replace(iPerProductPrice,",", ".")
			iPerProductPrice = Val(iPerProductPrice)
			iPerProductPrice = Replace(iPerProductPrice,",", ".")
			iDocumentNumber = rstA("DocumentNumberCalc").Value
			iSaleID = rstA("SaleID").Value
			iID = rstA("ID").Value
			iDivField = rstA(7).Value
			ExecuteSQL "INSERT INTO tblDirectCosts (ProductID,QuantitySell,[color=green]PriceSell[/color],PerProductPrice,DocumentNumber,SaleID,DocumentDate, QuantityBuy,PriceBuy,DeliveryCostPerProduct,OtherExpenses,ProductPerPrice,Saldo,Saldo2,ProductSaleID,DivField) VALUES (" & iProductID & "," & iQuantity & "," [color=red]& iPrice &[/color] "," & iPerProductPrice & ",'" & iDocumentNumber & "'," & iSaleID & ",(SELECT TOP 1 DocumentDate FROM tblSales WHERE ID = " & iSaleID & "),0,0,0,0,0,0,0," & iID & "," & iDivField & ")"
			rstA.MoveNext
		Loop
End If
rstA.Close

MsgBox "Пересчет окончен"

Dim rstA,rstB,rstC, sSql,iPrice,iQuantity,iProductID,iID,iDeliveryCostPerProduct,iPerProductPrice,iDocumentNumber,iProductPerPrice,iOtherExpenses,iSaleID,sClient,sUserName,aQuantity,bQuantity,cQuantity,iDivField,x,y, strSQL
y = 1
ExecuteSQL "DELETE * FROM tblDirectCosts"

sSql = "SELECT ProductID, SalePrice,Quantity,ClientDeliveryCalc/(select sum(Quantity/DivField) from tblSalesProducts as a where a.SaleID = tblSalesProducts.SaleID),DocumentNumberCalc,SaleID,ID,IIF(DivField >=1,DivField,1) FROM qdfSalesProducts Order by ProductID,DocumentDateCalc"
OpenRecordset rstA, sSql
If    rstA.EOF Then
		Do Until rstA.EOF
            SetStatusText "Обработка " & rstA.AbsolutePosition & " из " & rstA.RecordCount
            iProductID = rstA("ProductID").Value
			iQuantity = rstA("Quantity").Value
			iPrice = rstA("SalePrice").Value
			
			iPrice = Replace(iPrice,",", ".")
			
			iPerProductPrice = rstA(3).Value
			iPerProductPrice = Replace(iPerProductPrice,",", ".")
			iPerProductPrice = Val(iPerProductPrice)
			iPerProductPrice = Replace(iPerProductPrice,",", ".")
			iDocumentNumber = rstA("DocumentNumberCalc").Value
			iSaleID = rstA("SaleID").Value
			iID = rstA("ID").Value
			iDivField = rstA(7).Value
			strSQL = "INSERT INTO tblDirectCosts (ProductID,QuantitySell,PriceSell,PerProductPrice,DocumentNumber,
SaleID,DocumentDate,QuantityBuy,PriceBuy,DeliveryCostPerProduct,OtherExpenses,ProductPerPrice,Saldo,Saldo2,ProductSaleID,DivField) VALUES (" & iProductID & "," & iQuantity & "," & iPrice & "," & iPerProductPrice & ",'" & iDocumentNumber & "'," & iSaleID & ",
(SELECT TOP 1 DocumentDate FROM tblSales WHERE ID = " & iSaleID & "),0,0,0,0,0,0,0," & iID & "," & iDivField & ")"
			rstA.MoveNext
		Loop
End If
rstA.Close
 
MsgBox strSQL