Pessoal como eu faço pra colocar este codigo meu em uma Classe ou Modulo para que outros formulario possam chamar esta função?
Private Sub vendas()
Dim QuantidadeEstoque As Integer
Dim QuantidadeBaixa As Integer
Dim Baixa As Integer
If Entrega = False Then
If MesaSelecionada = "" Then
MsgBox "Nenhuma MESA foi selecionada.", vbInformation
Exit Sub
End If
Else
If EntregaSelecionada = "" Then
MsgBox "Nenhuma ENTREGA foi selecionada.", vbInformation
Exit Sub
End If
End If
If txtQuantidade.Text = "" Then
MsgBox "Por favor Informe a Quantidade de Mercadoria a ser lançada no campo Quantidade", vbInformation
Exit Sub
End If
Dim CodigoMercadoria As String
Dim CodigoVenda As String
Dim Descricao As String
Dim Tipo As String
Dim quantidade As String
Dim ValorUnit As String
Dim ValorTotal As String
Dim Vendedor As String
Dim MesaN As String
Dim mes As String
Dim ANO As String
Dim Data As Date
Dim HORA As String
Set tbVendas = db.OpenRecordset("Select * from tabVendas order by Id Asc") 'crescente
If tbVendas.RecordCount = 0 Then
CodigoVenda = 1
CodigoVenda = Format(CodigoVenda, "0000000000")
txtCodigoVenda.Text = CodigoVenda
Else
tbVendas.MoveMax
CodigoVenda = tbVendas!Codigo_Venda + 1
CodigoVenda = Format(CodigoVenda, "0000000000")
txtCodigoVenda.Text = CodigoVenda
End If
If PRODUTO = "SKOL" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & CervejaSkolSelecionada & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Antarctica" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & CervejaAntarcticaSelecionada & "*' ORDER BY ID Asc")
End If
If PRODUTO = "BRAHMA" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & CervejaBrahamaSelecionada & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Bohemia" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & CervejaBohemiaSelecionada & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Bavaria" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & CervejaBavariaSelecionada & "*' ORDER BY ID Asc")
End If
If PRODUTO = "kaiser" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & CervejaKaiserSelecionada & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Schincariol" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & CervejaSchincariolSelecionada & "*' ORDER BY ID Asc")
End If
If PRODUTO = "CHOOP" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & ChoopSelecionado & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Drinks" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & DrinksSelecionado & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Doses" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & DosesSelecionada & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Pepsi" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & PepsiSelecionada & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Guarana" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & GuaranaSelecionado & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Coca" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & CocaSelecionada & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Fanta" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & FantaSelecionada & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Energetico" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & EnergeticoSelecionado & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Agua" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & AguaSelecionada & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Porcoes" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & PorcoesSelecionada & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Salgados" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & SalgadosSelecionado & "*' ORDER BY ID Asc")
End If
If PRODUTO = "LANCHE" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & Hamburguerselecionado & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Suco" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & SucoSelecionado & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Chocolate" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & ChocolateSelecionado & "*' ORDER BY ID Asc")
End If
If PRODUTO = "Pizza" Then
Set mercadorias = db.OpenRecordset("SELECT * FROM tabMERCADORIAS WHERE Referencial Like '*" & PizzaSelecionada & "*' ORDER BY ID Asc")
End If
If mercadorias.RecordCount = 0 Then
MsgBox "Não foi possivel localizar o Produto Selecionado", vbInformation
Exit Sub
End If
'========= da baixa no estoque ====================
QuantidadeBaixa = txtQuantidade.Text
QuantidadeEstoque = mercadorias.Fields("Quantidade")
If QuantidadeBaixa > QuantidadeEstoque Then
MsgBox "A Quantidade de mercadoria lançada é maior que a do Estoque.", vbInformation
Exit Sub
End If
If mercadorias.Fields("Quantidade") <= 0 Then
MsgBox "ESTA MERCADORIA SE ENCONTRA EM FALTA NO ESTOQUE.", vbInformation
Exit Sub
End If
mercadorias.Edit
Baixa = QuantidadeEstoque - QuantidadeBaixa
mercadorias.Fields("Quantidade") = Baixa
mercadorias.Update
'======baixa estoque===============================
CodigoMercadoria = mercadorias.Fields("CODIGO_BARRAS")
CodigoVenda = txtCodigoVenda
Descricao = mercadorias.Fields("Nome")
Tipo = mercadorias.Fields("Tipo")
quantidade = txtQuantidade.Text
ValorUnit = mercadorias.Fields("Preço_venda")
Desconto = txtDesconto.Text
ValorTotal = (quantidade * ValorUnit) - Desconto
Vendedor = usuariologado
MesaN = MesaSelecionada
mes = cmbMes.Text
ANO = cmbAno.Text
Data = txtData.Text
HORA = txtHora.Text
If Entrega = False Then
tbVendas.AddNew
tbVendas.Fields("Codigo_Mercadoria") = CodigoMercadoria
tbVendas.Fields("Codigo_Venda") = CodigoVenda
tbVendas.Fields("Descricao") = Descricao
tbVendas.Fields("Tipo") = Tipo
tbVendas.Fields("Quantidade") = quantidade
tbVendas.Fields("Valor_Unit") = Format(ValorUnit, "#,##0.00")
tbVendas.Fields("Valor_total") = Format(ValorTotal, "#,##0.00")
tbVendas.Fields("Vendedor") = Vendedor
tbVendas.Fields("Mesa_N") = MesaN
tbVendas.Fields("Mes") = mes
tbVendas.Fields("Ano") = ANO
tbVendas.Fields("Data") = Data
tbVendas.Fields("HORA") = HORA
tbVendas.Fields("Fechado") = "NÃO"
tbVendas.Update
Set tbSituacaoMesas = db.OpenRecordset("SELECT * FROM tabSituacaoMesas WHERE Mesas Like '*" & MesaSelecionada & "*' ORDER BY id Asc")
tbSituacaoMesas.Edit
tbSituacaoMesas!Situacao = "Aberta"
tbSituacaoMesas.Update
VerificaMesas
zerar_tempos
Set tbVendas = db.OpenRecordset("SELECT * FROM tabVendas WHERE mesa_n Like '" & MesaSelecionada & "*' and Fechado Like '*" & "NÃO" & "*' ORDER BY ID Desc")
enchegridMercadorias
Dim ctl As Control
For Each ctl In Controls
If TypeOf ctl Is TextBox Then
ctl.Visible = True
End If
Next ctl
For Each ctl In Controls
If TypeOf ctl Is Label Then
ctl.Visible = True
End If
Next ctl
Else ' OU DA ENTREGA = TRUE
tbListaMercadorias.AddNew
tbListaMercadorias!Codigo_Tele_Entrega = txtCodigo.Text
tbListaMercadorias!Codigo_Mercadoria = CodigoMercadoria
tbListaMercadorias!Descricao = Descricao
tbListaMercadorias!quantidade = quantidade
tbListaMercadorias!Valor_Unit = Format(ValorUnit, "#,##0.00")
tbListaMercadorias!Valor_Total = Format(ValorTotal, "#,##0.00")
tbListaMercadorias!Desconto = Format(Desconto, "#,##0.00")
tbListaMercadorias!Total = Format(ValorTotal, "#,##0.00")
tbListaMercadorias.Update
Set tbListaMercadorias = db.OpenRecordset("SELECT * FROM tabTeleEntregaMercadorias WHERE Codigo_Tele_Entrega Like '" & txtCodigo.Text & "*' ORDER BY ID Desc")
EncheGridMercadoriasEntregas
Set tbTeleVendas = db.OpenRecordset("SELECT * FROM tabTeleVendas WHERE Codigo_Tele_Entrega Like '" & EntregaSelecionada & "*' ORDER BY ID Asc")
tbTeleVendas.Edit
tbTeleVendas!Valor_Total = lblTotalMesa.Caption
tbTeleVendas.Update
'ENVIA PARA O FLUXO DE CAIXA
tbFluxoCaixa.AddNew
tbFluxoCaixa.Fields("Movimentacao") = "ENTREGAS - " & Descricao
tbFluxoCaixa.Fields("Nome") = txtCliente.Text
tbFluxoCaixa.Fields("CNPJ_CPF") = "-"
tbFluxoCaixa.Fields("DATA") = txtDataEntrega.Text
tbFluxoCaixa.Fields("C/D") = "C"
tbFluxoCaixa.Fields("TOTAL") = Format(ValorTotal, "#,##0.00")
tbFluxoCaixa.Fields("Codigo_Referencia") = txtCodigo.Text
tbFluxoCaixa.Fields("CADASTRO") = "Tele Entregas"
tbFluxoCaixa.Fields("Fechada") = "NÃO"
tbFluxoCaixa.Fields("MES") = cmbMes.Text
tbFluxoCaixa.Fields("Ano") = cmbAno.Text
tbFluxoCaixa.Fields("Hora") = txtHora.Text
tbFluxoCaixa.Fields("Codigo_Contas") = "ET" & txtCodigo.Text
tbFluxoCaixa.Fields("Codigo_Referencia") = frmPrincipal.txtCodigoFechamento.Text
tbFluxoCaixa.Update
' FIM FLUXO DE CAIXA
End If
