ник: snipe
согласен полностью с часом
учет надо вести в наименьшей неделимой единице в шт (таблетках ампулах)
и вести учет количества в упаковке т.е в твоем случае номер коробки
выдавать - для внутреннего учета бд в таблетках и ампулах
а для бухгалтерии пересчитывать в удобоваримые для них единицы
например так
Public function PrintRest(countTablet as long, countInBox as long)
'countTablet - количество таблеток на складе - табличные данные
'countInBox -количество таблеток в упаковке - табличные данные
dim asd as long
dim dfg as long
asd=countBox(countTablet, countInBox) 'количество упаковок
dfg=countTabletPlacer(countTablet, countInBox) ' количество таблеток без упаковки
if asd=0 and dfg=0 then msgbox "нету ни чего"
if asd=0 and dfg>0 then msgbox "Осталось " & dfg & " таблеток"
if asd>0 and dfg=0 then msgbox "Осталось " & asd & " упаковок"
if asd>0 and dfg>0 then msgbox "Осталось " & asd & " упаковок и " & dfg & " таблеток россыпью"
end function
Private function countBox (countTablet as long, countInBox as long) as long 'количество упаковок
countBox=countTablet \countInBox
end function
Private function countTabletPlacer (countTablet as long, countInBox as long) as long ' количество таблеток без упаковки
countTabletPlacer=countTablet-countBox(countTablet, countInBox)*countInBox
end function