MODULO FRENTE CAIXA - VENDA

Private Sub CmdFechar_Click()
Unload Me
End Sub

Private Sub CmdFecharVenda_Click()
Frm_FechaVenda.Show
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then KeyAscii = 0: SendKeys "{tab}"
End Sub

Private Sub Form_Load()
Centraliza Me
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub txtCodigo_LostFocus()
   On Error GoTo erro
   Dim SSQL As String
   Dim Rs As New ADODB.Recordset
   Set Rs = New ADODB.Recordset
   SSQL = "Select * From TblProdutos "
   If Trim(txtCodigo.Text) <> "" Then
   SSQL = SSQL & " Where Codigo Like '%" & txtCodigo.Text & "%'" 'Campo TEXTO
   Rs.Open SSQL, Conexao, 3
   If Rs.EOF() Then
            MsgBox "Este Produto nao Está Cadastrado no Sistema", vbExclamation, "ATENÇÃO"
   Else
     lblProdutos.Caption = "" & Rs!Descricao
     txtPreco.Text = "" & Rs!ValorVenda
     txtQuantidade.Text = "1"
     
   EnviarVenda
  
   End If
  End If
Exit Sub
erro:
MsgBox "Código de item inválido", vbCritical
End Sub

Function EnviarVenda()
   Set LP = ListaVenda.ListItems.Add(, , txtCodigo.Text, , 0)
     With LP
        .SubItems(1) = lblProdutos.Caption
        .SubItems(2) = txtPreco.Text
        .SubItems(3) = txtQuantidade.Text
        .SubItems(4) = (CCur(.SubItems(3)) * CCur(.SubItems(2)))
    End With
      Call CalculaTotal
End Function

Function CalculaTotal()
Dim X As Long
Dim Total As Double
    For X = 1 To ListaVenda.ListItems.Count
        Total = (Total) + ListaVenda.ListItems(X).SubItems(4)
    Next X
    CalculaTotal = CStr(Total)
    txtTotalVenda.Text = Format(CalculaTotal, "###,##0.00")
End Function