Автоматизация рабочего места менеджера
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
ая "
@ 4,8 say "Код "+"наименование "+"Изм "+" Цена "+" Цена "+" Производитель"
@ 6,1 say Str(Kod)+" "+Name+" "+Unit+" "+Str(PriceIn,6,2)+" "+Str(PriceOut,6,2)+" "+Prv
@ 8,1 say "Минимальный остаток на складе "+Rest
@ 9,1 say "Текущий остаток на складе "+Ost
*********************** Выбираем движения по товару ***********
Select Motion
Locate For Kod=KodTov
@ 11,1 say "Движения выбранного товара :"
@ 12,38 say "Документ"
@ 13,20 say "Движение Дата номер Вид"
i=1
Do While Found()=.T.
@ 14+i,24 say str(Kolvo,4)+" "+DtoC(Date)+" "+DocNum+" "+DocVid
i=i+1
Continue
EndDo
Deactivate PopUp Tov
Return
Function CP
Select Proizv
IF VarProizvod=0
Define PopUp pr from 1,40 to 8,51 prompt Fields Proizv->Name
On Selection PopUp Pr Do Cp1
Activate PopUp Pr
VarProizvod=Proizv->Kod
Deactivate PopUp Pr
EndIF
Select Tovar
Return
Procedure CP1
VarProizvod=Kod
Deactivate PopUp Pr
Return
Procedure AddTovar
Select Tovar
Flag2=.T.
VarKod=0
Store Space(20) To VarName
VarPriceIn=0
VarPriceOut=0
Store Space(5) To VarUnit
VarProizvod=0
Define Window AddTov From 4,4 To 17,66 Panel Title новый товар In Window Main
Activate Window AddTov
Do While Flag2
@ 1,1 say "Код" get VarKod picture "999"
@ 3,1 say "название" get VarName
@ 5,1 say "Входная цена" get VarPriceIn picture "999.99"
@ 5,23 say "Продажная цена" get VarPriceOut picture "999.99"
@ 7,1 say "Единица Изм" get VarUnit
@ 7,23 say "Производитель" get VarProizvod valid CP() picture "99"
@ 9,1 Get But Function *h Ok; Отмена size 1,8 default 1
read
@ 10,15 say " "
IF But=1
Append Blank
Replace Kod With VarKod
Replace Name With VarName
Replace PriceIN With VarPriceIn
Replace PriceOut With VarPriceOut
Replace Unit with VarUnit
Replace Proizvod With VarProizvod
Flag=.F.
EndIF
IF But=2
Flag2=.F.
EndIF
EndDo
Deactivate Window AddTov
Return