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
modulo
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
- Anexos
PDV_PlinioMabesi_rev.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (201 Kb) Baixado 37 vez(es)