Автоматизація складського обліку. Розробка програми «Склад» на Visual FoxPro
81

        else

           n11=n11+n4[n1[3]]

        endif

   case n1[2]>1

        n11=n11+n5[n1[2]]

        if n1[3]>0

           n11=n11+n3[n1[3]]

        endif

endcase

if n1[3]>1.and.n1[3]<5

   n11=n11+n8[2]

else

   if n1[3]=1

      n11=n11+n8[1]

 

   else

      n11=n11+n8[3]

   endif

endif

endif

if n1[4]+n1[5]+n1[6]>0

if n1[4]>0

   n11=n11+n2[n1[4]]

endif

do case

   case n1[5]=0

        if n1[6]>0

           n11=n11+n3[n1[6]]

        endif

   case n1[5]=1

        if n1[6]=0

           n11=n11+n5[n1[5]]

        else

           n11=n11+n4[n1[6]]

        endif

   case n1[5]>1

        n11=n11+n5[n1[5]]

        if n1[6]>0

           n11=n11+n3[n1[6]]