[Resolvido]Capturar quantidade do produto e multiplicar no mesmo campo do código do produto (PDV)

olá a todos, baixei um exemplo de pdv aqui no forum (PDV_PlinioMabesi que segue em anexo) achei uma função muito interessante onde ele captura a quantidade a ser inserida na venda no mesmo campo do código do produto porem ele pega primeiro o código depois a quantidade, gostaria de inverter essa ordem ao inves de vir o código primeiro, vir a quantidade depois o código.

segue os códigos
Ao inserir o o produto

Código:

Private Sub txtProdutoQtd_BeforeUpdate(Cancel As Integer)
If xContar(txtProdutoQtd, "*") > 0 Then
Me.txtCod = SeparaNomes(txtProdutoQtd, "*", 1)
'Me.txtQnt = SeparaNomes(txt1, "*", 2)
Else
Me.txtCod = Me.txtProdutoQtd
End If
'Call AtaulizaQtde
Call ExecutaVenda
End Sub

modulo

Código:

Option Compare Database

Public Function xContar(ByVal origem As String, ByVal Caracter As String) As Long
'------------------------------------'
'  Criado por Fabio Paes   '
'  05/06/2016                         '
'------------------------------------'
Dim F As Variant
F = Split(origem, Caracter)
xContar = UBound(F)
End Function


Public Function SeparaNomes(strFrase As String, QualSimboloVaiPartir As String, QualParteVaiSeparar As Integer) As String
'By@JPaulo2009 Dezembro

    Dim strArray() As String
    Dim strParteInteira As Integer

    On Error GoTo Err_SeparaNomes

    strArray = Split(strFrase, QualSimboloVaiPartir)

    strParteInteira = UBound(strArray) + 1
    
    If strParteInteira = 0 Then
        SeparaNomes = strFrase
        Exit Function
    End If
    
    If QualParteVaiSeparar = 0 Then
        SeparaNomes = strFrase
        Exit Function
    ElseIf QualParteVaiSeparar > strParteInteira Then
        QualParteVaiSeparar = strParteInteira
    End If
    
    SeparaNomes = Trim(strArray(QualParteVaiSeparar - 1))

Exit_SeparaNomes:
    Exit Function

Err_SeparaNomes:
    MsgBox Err & " - " & Error$, vbExclamation, "Função SeparaNomes"
    Resume Exit_SeparaNomes
Resume
End Function



alguem?

up

ainda não consegui

Nada é por acaso. A ordem escolhida pelo desenvolvedor propicia ao usuário abrir mão de informar a quantidade pressupondo que não informá-la significar dizer 1. O campo opcional de informação não deve vir antes do campo obrigatório. Poderia dar mais detalhes de porque queres inverter isto? Isso nos ajudará a entender melhor seu raciocínio.

olá ivan, obg por responder, por conta do meu código que ao pressionar enter ele lança o produto no pdv, nesse caso se eu utilizar um leitor de código de barras eu não consigo utilizar essa função pois ele faz a leitura do código e já "pressiona enter" se eu colocar a função para colocar a quantidade primeiro a pessoa digita a qtd e bipa o leitor que ele vai lançar automaticamente junto a quantidade no pdv

Veja

Obg ivan mais ainda não deu certo, quando vc coloca um maior que 2 ele captura o código de outro produto

Vc precisa após a quantidade colocar o simbolo de multiplicar que seria *
então ficaria assi: 3*Codigo do produto, ou codigo de barras

Muito obg a todos envolvidos, achei um tópico aqui que resolveu minha vida, segue o tópico a quem precisar!

https://www.maximoaccess.com/t7799p11-multiplicar#63442

O fórum agradece o retorno. Sucesso.