MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    capturar quantidade do produto e multiplicar no mesmo campo do código do produto (PDV)

    alozs
    alozs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    Registrado : 07/02/2018

    capturar quantidade do produto e multiplicar no mesmo campo do código do produto (PDV) Empty capturar quantidade do produto e multiplicar no mesmo campo do código do produto (PDV)

    Mensagem  alozs em 8/7/2019, 19:52

    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

    Anexos
    capturar quantidade do produto e multiplicar no mesmo campo do código do produto (PDV) AttachmentPDV_PlinioMabesi_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (201 Kb) Baixado 3 vez(es)
    alozs
    alozs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    Registrado : 07/02/2018

    capturar quantidade do produto e multiplicar no mesmo campo do código do produto (PDV) Empty Re: capturar quantidade do produto e multiplicar no mesmo campo do código do produto (PDV)

    Mensagem  alozs em 11/7/2019, 12:23

    alguem?
    alozs
    alozs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    Registrado : 07/02/2018

    capturar quantidade do produto e multiplicar no mesmo campo do código do produto (PDV) Empty Re: capturar quantidade do produto e multiplicar no mesmo campo do código do produto (PDV)

    Mensagem  alozs em 15/7/2019, 22:36

    up

    Conteúdo patrocinado

    capturar quantidade do produto e multiplicar no mesmo campo do código do produto (PDV) Empty Re: capturar quantidade do produto e multiplicar no mesmo campo do código do produto (PDV)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 00:04