Case vbKeyF4
    ' Hima sa ogtagorcum em planshetov zakazi hamar
    KeyCode = 0
    IDUser = Val(InputBox("IDOperator"))
    If IDUser > 0 Then
        Call Patver_fill(IDUser)
        Call CalcGumar
        Me!IDUser = IDUser
        Me!Cucak.Requery
    End If








Sub Patver_fill(prmIDUser As Byte)
' tblPatver axjusakic toxer bervum en ajstex
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim kt As New ADODB.Recordset
Dim SQL As String
Set cn = CurrentProject.Connection
rs.Open "Select * from tblSSMOBPatver where IDUser=" & prmIDUser, cn, adOpenForwardOnly, adLockReadOnly
If rs.EOF = False And rs.BOF = False Then
    
    SQL = "Select BarCode, Apranq, Qan, P0,P1, P2, Occupied, Gumar from TMPVajarqApranq where Occupied=false and KTR=0 order by HH"
    kt.Open SQL, cn, adOpenDynamic, adLockOptimistic
    kt.MoveFirst
    
    rs.MoveFirst
    Do While Not rs.EOF
        
        kt!BarCode = rs!IDApranq
        kt!Qan = rs!Patver
        kt!P0 = rs!P0
        kt!P1 = rs!P1
        kt!P2 = rs!P1
        kt!Gumar = kt!P1 * kt!Qan
        kt!Apranq = rs!Apranq
        kt!Occupied = True
        kt.Update
        'Debug.Print rs!IDApranq
        rs.MoveNext
        kt.MoveNext
    Loop
    
Else
    Msgbox1 MariCoco("Patve8i cwucaky data8k 1")
End If
End Sub
