Início
![[Resolvido]Inserir produto na tela de pedido Empty](https://2img.net/i/empty.gif)
wpitarelli 13/6/2013, 02:26Amigos do fórum, o meu sistema de pedidos funciona muito bem, mas como o usuário nunca esta contente me deparei nesta duvida abaixo.
Tenho esta tela de pedidos, onde digito a referencia do produto e atualiza a grade e o cliente digita a quantidade, mas ate ai tudo bem, o negocio piora agora. Um usuário me perguntou o seguinte.
- Quando eu digito a referencia xxxx ele me da na tela tudo certinho, mas as vezes eu esqueço que digitei e digito novamente por falta de atenção por causa da criança ou da mulher, tem como colocar um meio de quando eu digitar aparecesse a tela novamente com a quantidade que eu já havia digitado, assim eu não duplicava os produtos.
Bem amigos esta é a minha duvida também, se eu trocar a combo por uma caixa resolveria??? Como fazer isto???
Segue a tela e o código da combo produto.
![[Resolvido]Inserir produto na tela de pedido Pedidoa](https://2img.net/r/ihimizer/img197/7651/pedidoa.jpg)
Caso não tenha sido claro estou realmente a disposição.
Abraços
Windows 8
Office 2010
64 bits
Tenho esta tela de pedidos, onde digito a referencia do produto e atualiza a grade e o cliente digita a quantidade, mas ate ai tudo bem, o negocio piora agora. Um usuário me perguntou o seguinte.
- Quando eu digito a referencia xxxx ele me da na tela tudo certinho, mas as vezes eu esqueço que digitei e digito novamente por falta de atenção por causa da criança ou da mulher, tem como colocar um meio de quando eu digitar aparecesse a tela novamente com a quantidade que eu já havia digitado, assim eu não duplicava os produtos.
Bem amigos esta é a minha duvida também, se eu trocar a combo por uma caixa resolveria??? Como fazer isto???
Segue a tela e o código da combo produto.
- Código:
Private Sub codproduto_AfterUpdate()
Select Case Me.Tabela
Case 1
Me.PrecoUnitario = Me.CodProduto.Column(5)
Case 2
Me.PrecoUnitario = Me.CodProduto.Column(6)
Case 3
Me.PrecoUnitario = Me.CodProduto.Column(7)
Case 4
Me.PrecoUnitario = Me.CodProduto.Column(8)
Case 5
Me.PrecoUnitario = Me.CodProduto.Column(9)
Case 6
Me.PrecoUnitario = Me.CodProduto.Column(10)
Case 7
Me.PrecoUnitario = Me.CodProduto.Column(11)
Case 8
Me.PrecoUnitario = Me.CodProduto.Column(12)
End Select
'Melhor método para retornar valores em campos baseados em ComboBox
Dim strFiltroPreco As String
Dim strFiltroDesconto As String
If Me.CodProduto.ListIndex = -1 Then 'ComboBox -- Verifica se o campo é nulo
MsgBox "O campo Cód. Produto está vazio." & vbCrLf & "Por favor selecione um produto."
Exit Sub
End If
Me.CodProduto.Requery
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_Form_BeforeUpDate
Const conErrNotVrNull = 94
Dim strVenda As String
Dim curVenda As Currency
Dim strTotal As String
Dim curTotal As Currency
lin = Chr$(13) & Chr$(10)
curVenda = Me.PrecoUnitario
strVenda = Format(curVenda, "#,##0.00")
curTotal = Me.TotalItem
strTotal = Format(curTotal, "#,##0.00")
If IsNull(Me.CodProduto) Then
CritMsg "Informe o Produto!"
Me.CodProduto.SetFocus
DoCmd.CancelEvent
Exit Sub
End If
If Me.Quantidade = 0 Then
CritMsg "Informe a Quantidade!"
DoCmd.CancelEvent
Exit Sub
End If
blnOK = Confirmar("Incluir Produto?" & lin _
& lin & "Cód. Produto: " & CodProduto.Column(1) & lin _
& lin & "Descrição : " & Descrição & lin _
& lin & "Grade : " & Grade & lin _
& lin & "Tamanho : " & Tamanho & lin _
& lin & "Valor Unit. : " & strVenda & lin _
& lin & "Quantidade : " & Quantidade & lin _
& lin & "Total Item : " & strTotal)
If Not blnOK Then
Cancel = True
End If
Exit_Form_BeforeUpDate:
Exit Sub
Err_Form_BeforeUpDate:
If Err.Number = conErrNotVrNull Then
CritMsg "Registro com valores inválidos!"
Cancel = True
Else
CritMsg Err.Description
End If
Resume Exit_Form_BeforeUpDate
End Sub
Caso não tenha sido claro estou realmente a disposição.
Abraços
Windows 8
Office 2010
64 bits
