Formulário de Pedidos - 2024 - VBA & Macros

RE: Formulário de Pedidos

NERI S — Mon, 12 May 2025 19:50:54 +0000

Vou precisar uma pequena ajuda de alguém (Acho que estou no caminho certo):

Para fazer o lançamento é utilizado o seguinte comando:

Private Sub btnIncluir_Click()
 If txtQuantidade <> Empty And Cboproduto <> Empty And txtCustoUnitario <> Empty Then
   

 
        With Me.lstPedidos
  
           .ListItems.Add 1, , Me.txtQuantidade.Value          ' .ListItems.Add 1, , Me.txtQuantidade.Value
            .ListItems(1).ListSubItems.Add 1, , UCase(Me.Cboproduto)
            .ListItems(1).ListSubItems.Add 2, , Format(Me.txtCustoUnitario, "#,##0.00")
            .ListItems(1).ListSubItems.Add 3, , Format(Me.txtCustoTotal, "#,##0.00")

        End With
               
    
        
       Call EfetuarCalculos
       

          
        Call LimparCaixasDeTexto
        
        If Me.lstPedidos.ListItems.Count >= 1 Then
        
            btnEditar.Enabled = True
            btnApagar.Enabled = True
        End If
        
        
      End If
 
    TotalPedido
        
End Sub

se alterar o início "inserindo" as linhas ....

Private Sub btnIncluir_Click()
If txtQuantidade <> Empty And Cboproduto <> Empty And txtCustoUnitario <> Empty Then

'inserir estas linhas
Dim ultimaLinha As Long
ultimaLinha = Me.lstPedidos.ListItems.Count

NovaLinha = ultimaLinha + 1

' e depois alterar .ListItems(NovaLinha)

With Me.lstPedidos

.ListItems.Add 1, , Me.txtQuantidade.Value ' .ListItems.Add 1, , Me.txtQuantidade.Value
.ListItems(NovaLinha).ListSubItems.Add 1, , UCase(Me.Cboproduto)
.ListItems(NovaLinha).ListSubItems.Add 2, , Format(Me.txtCustoUnitario, "#,##0.00")
.ListItems(NovaLinha).ListSubItems.Add 3, , Format(Me.txtCustoTotal, "#,##0.00")

End With

o que mais deveria alterar para funcionar? Alguém pode me ajudar?

RE: Formulário de Pedidos

NERI S — Thu, 08 May 2025 21:26:43 +0000

O topico 2 resolvido. Consegui ele fazer um setfocus no textbox do total e ao entrar fazer a soma.

Agora estou a espera para resolver o topico 1.

Formulário de Pedidos

NERI S — Wed, 07 May 2025 12:04:52 +0000

Baixei um arquivo de orçamento feito pelo Leandro Alves e estou tentando ajustar para ser um pedido de Compras. Insiro o nome dele aqui pois é crédito dele de ter desenvolvido o arquivo. É muito bom o arquivo e serve de base para o que preciso.

Mas vamos lá...o que preciso de ajuda são duas coisas bem básicas e que estou "patinando":

1) Ao inserir um novo item, ele ocupa a linha 1 do Listview. Sendo assim, os itens ficam na ordem contrária que gostaria. Deveria inserir sempre na primeira linha vazia abaixo.

2) Sempre mostrar o total do pedido (ao inserir um novo produto, ao excluir ou ao voltar do pesquisa).

Vou anexar o arquivo em anexo, se alguém puder me ajudar.

Pedidos-Novo.xlsm