Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Formulário de Pedid...
 
Notifications
Clear all

Formulário de Pedidos

 
2024 - VBA & Macros
Post Recente por NERI S 2 semanas atrás
3 Posts
1 Usuários
0 Reactions
133 Visualizações
RSS
NERI S
 NERI S
(@neri-s)
Posts: 224
Reputable Member
Topic starter
 

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.

 
Postado : 07/05/2025 9:04 am
NERI S
 NERI S
(@neri-s)
Posts: 224
Reputable Member
Topic starter
 

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.

 
Postado : 08/05/2025 6:26 pm
NERI S
 NERI S
(@neri-s)
Posts: 224
Reputable Member
Topic starter
 

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?

 

 
Postado : 12/05/2025 4:50 pm
Forum Jump:
  Tópico Anterior