Dim nID10 As Long
With Item
nID10 = Val(.CellText("beleg_adr_id"))
If nID10 = 0 Then
.CellText("beleg_adr_id") = "unbekannt"
End If
 
If nID10 > 0 Then
Dim vg10 As ADODB.Recordset
Set vg10 = New ADODB.Recordset
With vg10
.ActiveConnection = conn
.CursorType = adOpenStatic
.LockType = adLockOptimistic
SQL = "SELECT adr_nr from adressen WHERE adr_id = " & nID10
.Open SQL
End With
If Not vg10.EOF Then
.CellText("beleg_adr_id") = vg10!adr_nr
End If
End If
End With

'LAGER GEBUCHT?
Dim nID5 As Long
With Item
nID5 = Val(.CellText("beleg_nr"))
If nID5 > 0 Then
Dim vg5 As ADODB.Recordset
Set vg5 = New ADODB.Recordset
With vg5
.ActiveConnection = conn
.CursorType = adOpenStatic
.LockType = adLockOptimistic
SQL = "SELECT vorgangsart_lager_plus," & _
  "vorgangsart_lager_minus,vorgangsart_op_plus, vorgangsart_op_minus " _
& " from vorgangsart WHERE vorgangsart_id = " & _
Grid1.Recordset!beleg_vorgangsart
.Open SQL
End With
If Not vg5.EOF Then
    If vg5!vorgangsart_lager_plus = True Or vg5!vorgangsart_lager_minus = True _
      Then
 
        Dim gebucht As ADODB.Recordset
        Set gebucht = New ADODB.Recordset
        With gebucht
        .ActiveConnection = conn
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        SQL = "SELECT pos_lager_gebucht, pos_artikel_id from position WHERE" & _
          "pos_artikel_id > 0 AND pos_beleg_nr  = " & nID5
        .Open SQL
        End With
        While Not gebucht.EOF
        If gebucht!pos_lager_gebucht = False Then
            Dim rs9 As ADODB.Recordset
            Set rs9 = New ADODB.Recordset
            With rs9
            .ActiveConnection = conn
            .CursorType = adOpenStatic
            .LockType = adLockOptimistic
            SQL = "SELECT artikel_check_lager from artikel WHERE artikel_id = " _
              & gebucht!pos_artikel_id
            .Open SQL
            End With
            If rs9!artikel_check_lager = True Then
            Counter = 1
            End If
        End If
        gebucht.MoveNext
        Wend
 
        If Counter <> 0 Then
            .ForeColor = vbRed
        End If
    End If 'lager_plus
 
        If vg5!vorgangsart_op_plus = True Or vg5!vorgangsart_op_minus = True _
          Then
 
        Dim opgebucht As ADODB.Recordset
        Set opgebucht = New ADODB.Recordset
        With opgebucht
        .ActiveConnection = conn
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        SQL = "SELECT beleg_op_gebucht from beleg WHERE beleg_nr  = " & nID5
        .Open SQL
        End With
 
        While Not opgebucht.EOF
        If opgebucht!beleg_op_gebucht = False Then
            counter2 = 1
        End If
 
 
        opgebucht.MoveNext
        Wend
 
        If counter2 <> 0 Then
            .ForeColor = vbBlue
        End If
    End If 'op_plus
End If 'vg5.eof
End If 'nid5
 
End With 'item
Counter = 0