[Resolvido]Adaptar Sistema de Vendas para Unidade e Quilo código EAN13

Boa tarde

Tenho um formulário de venda onde vou usar o leitor de código de barras.

Mais como eu vendo produtos por Unidade e por Quilo eu não estou conseguindo realizar as vendas. Sendo que os produtos por Unidade tem um código de barras, ai eu necessito que ao ler o código ele puxasse a valor do código de barras.E quando fosse por Unidade ele permitisse eu adicionar a unidade ou que o valor da quantidade fosse 1.

Formato do código de barras da balança: 2000010029716.

Sendo 20000=padrão 100=Código do Produto e 2971=Valor do Produto Pesado (R$ 29,71).


Alguém tem uma ideia para esse problema?

Este código prevê diversos tipos de produtos e códigos. desde o EAN13 ou com menos dígitos e pesos

Código:


Sub PegaProduto()
10    On Error GoTo TrataErro
      Dim QtdeProdutos As Integer
      Dim Linha
      Dim MsgErro

      'Checa se o código digitado é  de 3, 7, 8 ou 13. Caso não emite mensagem e encerra o evento
20    If Len(Me.txtCodigoBarras.Text) <> 3 And Len(Me.txtCodigoBarras.Text) <> 7 And Len(Me.txtCodigoBarras.Text) <> 8 And Len(Me.txtCodigoBarras.Text) <> 13 Then
30    MsgBox "Código de Produto Inválido" _
      & vbNewLine & " Digite um Código Válido de:" _
      & vbNewLine & "3, 7 ou 13 Dígitos", vbCritical, "ERRO DE DIGITAÇÃO"
40    Cancel = True
50    Exit Sub
60    End If

      'Envia para o código que executa a inclusão de acordo com o tipo de código de produto
If Len(Me.txtCodigoBarras.Text) = 3 Then GoTo Continua:
If Len(Me.txtCodigoBarras.Text) = 7 Then GoTo Continua:
If Len(Me.txtCodigoBarras.Text) = 8 Then GoTo Continua:
If Len(Me.txtCodigoBarras.Text) = 13 Then GoTo Continua_13:

Continua:
      '=============================================================================
      'se for escolhido apenas o produto sem o adendo do peso no código de barras
      '-----------------------------------------------------------------------------
70    QtdeProdutos = Me.ltxProdutos.ListCount - 1
80    If Me.txtCodigoBarras.Value = 58 And Me.txtDescricao.Value <> "" Then GoTo ProdInserido
90        For Linha = 0 To QtdeProdutos
100           If Me.ltxProdutos.Column(1, Linha) = Me.txtCodigoBarras.Value Then
110               Estoque = Me.ltxProdutos.Column(4, Linha)
120               Me.txtDescricao.Value = Me.ltxProdutos.Column(2, Linha)
130               Me.txtPrecoUnitario.Value = Format(Me.ltxProdutos.Column(3, Linha), "#,##0.000")
ProdInserido:
140               If Incluir = True Then
150                   Me.IncluirProduto
160                   Cancel = True
170               End If
180       If Me.txtCodigoBarras = "058" Then Me.txtPrecoUnitario.Locked = False: Me.txtPrecoUnitario.Enabled = True: Me.txtPrecoUnitario.SetFocus
190           Exit Sub
200           End If
210       Next Linha
220       MsgBox "Produto não cadastrado.", vbInformation, "SysPDV"
230       Cancel = True
240       Me.txtCodigoBarras.SetFocus
250       Incluir = False
260       Me.LimpaProduto
          'SendKeys "+{TAB}"
270   Exit Sub
      '*******************************************************************************

      '=============================================================================
      'se for digitado código de 13 dígitos, verifica se o produto é de 7 digitos
      'ou de 13 digitos, enviando para o código adequado
      '-----------------------------------------------------------------------------
Continua_13:
      'Pesquisa na tabela, em sendo produtos de 7 dígitos vai para o comando ProdPeso
280   If DCount("*", "TblProdutos", "CodigoBarras ='" & Left(Me.txtCodigoBarras.Value, 7) & "'") = 1 Then GoTo ProdPeso
290   QtdeProdutos = Me.ltxProdutos.ListCount - 1
300       For Linha = 0 To QtdeProdutos
310           If Me.ltxProdutos.Column(1, Linha) = Me.txtCodigoBarras.Value Then
320               Estoque = Me.ltxProdutos.Column(4, Linha)
330               Me.txtDescricao.Value = Me.ltxProdutos.Column(2, Linha)
340               Me.txtPrecoUnitario.Value = Format(Me.ltxProdutos.Column(3, Linha), "#,##0.000")
350               If Incluir = True Then
360                   Me.IncluirProduto
370                   Cancel = True
380               End If
390           Exit Sub
400           End If
410       Next Linha
420       MsgBox "Produto não cadastrado.", vbInformation, "SysPDV"
430       Cancel = True
440       Me.txtCodigoBarras.SetFocus
450       Incluir = False
460       Me.LimpaProduto
          'SendKeys "+{TAB}"
         
470   Exit Sub
      '=============================================================================
      'Executa cálculos de peso e valor para produtos da balança
      '-----------------------------------------------------------------------------
ProdPeso:

480    StrValorPeso = Mid(Me.txtCodigoBarras.Value, 7, 4) & "," & Right(Me.txtCodigoBarras.Value, 3)
490   StrValorPeso = CDbl(StrValorPeso)
500   Me.txtCodigoBarras = Left(Me.txtCodigoBarras.Value, 7)
                
510   QtdeProdutos = Me.ltxProdutos.ListCount - 1
520       For Linha = 0 To QtdeProdutos
530           If Me.ltxProdutos.Column(1, Linha) = Me.txtCodigoBarras.Value Then
540               Estoque = Me.ltxProdutos.Column(4, Linha)
550               Me.txtDescricao.Value = Me.ltxProdutos.Column(2, Linha)
560               Me.txtPrecoUnitario.Value = Format(Me.ltxProdutos.Column(3, Linha), "#,##0.000")
570               StrPeso = Format(CDbl(StrValorPeso * 1000 / CDbl(Me.txtPrecoUnitario) / 1000), "#,##0.0000")
580               Me.txtQtde = StrPeso
590               If Incluir = True Then
600                   Me.IncluirProduto
610                   Cancel = True
620               End If
630           Exit Sub
640           End If
650       Next Linha
660       MsgBox "Produto não cadastrado.", vbInformation, "SysPDV"
670       Cancel = True
680       Me.txtCodigoBarras.SetFocus
690       Incluir = False
700       Me.LimpaProduto
          'SendKeys "+{TAB}"
710   Exit Sub
      '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      'Tratamento de Erros
      '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
720       DoCmd.Hourglass False
730       DoCmd.Echo True
740       Exit Sub
TrataErro:
750       Select Case err.Number
        Case 0
              'Não ´um erro
760     Case Else
770         DoCmd.Hourglass False
780         DoCmd.Echo True
790             MsgBox "Erro Gerado no: " & Me.Name & "" _
                & vbNewLine & "No Procedimento: " & Screen.ActiveControl.Name & "" _
                & vbNewLine & "Erro Número: " & err.Number _
                & vbNewLine & "linha: " & Erl _
                & vbNewLine & "Descrição: " & err.Description _
                & vbNewLine & "Por favor contate o Administrador de Sistema.", vbCritical, err.Number & ", linha:" & Erl
800       End Select
End Sub


Cumprimentos..

Bom dia

Alguém tem exemplo que utiliza esse código.

Mexi, remexi com o código mais só me deu dor de cabeça.

Vamos lá...
Pra produtos com código de barras de 13 dígitos gerado em uma balança voce tem:

Os primeiros 6 dígitos >> código do produto
Os últimos 7 dígitos   >> Adendo do peso

Então separa-se a informação do peso na variável strValorPeso, separando a unidade em kg da unidade em gramas
Observe que pega apartir do 7 dígito oa 4 subsequentes (kg)
e os últimos 3 números (grama)

StrValorPeso = Mid(Me.txtCodigoBarras.Value, 7, 4) & "," & Right(Me.txtCodigoBarras.Value, 3)
StrValorPeso = CDbl(StrValorPeso)

Depois de extraído o peso recoloco na caixa texto apenas o código do produto

Me.txtCodigoBarras = Left(Me.txtCodigoBarras.Value, 7)

Aqui faço o cálculo do peso pelo valor do produto (em kg)

StrPeso = Format(CDbl(StrValorPeso * 1000 / CDbl(Me.txtPrecoUnitario) / 1000), "#,##0.0000")
Me.txtQtde = StrPeso




Cumprimentos.

O sistema que estou desenvolvendo é do anexo abaixo, ainda não esta pronto, mais eu quero ver essa parte primeiro.

O meu sistema já contem alguns código por isso ficou dificil para mim encaixar nele.

Se puder me ajudar?

Muito obrigado pela sua atenção e compreensão.

Amanha farei um pequeno exemplo... Assim que eu te enviar você observa a lógica e tenta implementá-lo ao teu.
Ok?

Cumprimentos.

O Código cadastrado na tabela deve ter 7 dígitos.
No exemplo coloque na caixa texto código de barras o código completo gerado pela balança: 7891152000198

E dê um tab.. veja o preenchimento e o desenrolar do código.

Fiz a muito tempo.. não me lembro bem como é a divisão dos últimos 6 dígitos na balança.

Teste ai.

Cumprimentos.

Bom dia Piloto.

Muito obrigado pela sua dedicação. O exemplo é excelente.

Mais acontece o seguinte:
Sabe o código de barras que disponibilizei acima? Então peguei ele como exemplo, cadastrei ele na tabela produtos, sendo no codigo de barras coloque 2000010 ai ele puxa os dados certinho, mais o campo SubTotal fica assim 297,716 e deveria fica assim 29,71.

Será o que esta acontecendo?

é só questão da vírgula.. verei isto pra ti.

cumprimentos.

Me envie o código completo com o adendo da balança para o produto 2000010

E descreva como deve aparecer no subtotal para que eu adapte o codigo para ti.

Cumprimentos.

O código de barras é esse: 2000010029716.

Poderia separar para mim o que é codigo do produto e o significado dos números restantes?

cumprimentos.

Formato do código de barras da balança: 2000010029716.

Sendo 20000=padrão 100=Código do Produto e 2971=Valor do Produto Pesado (R$ 29,71).

Eis:

http://maximoaccess.forumeiros.com/t16169-inserindo-codigo-de-barras-de-produtos-de-balanca-eletronica-em-pdv#121667

Cumprimentos.

Bom dia Piloto, muito bom mesmo.

Ontem a tarde me ligou de uma empresa aqui de minha cidade, com uma nova questão.

E quando o código de barras contém a quantidade em vez do preço. Tem como alterar esse exemplo para a quantidade?

Claro que sim.. É possível... Observe os códigos e suas operações matemáticas e tente adaptá-los.
Em não conseguindo apite.. Mas não antes de tentar por si próprio.

Após tentar cite as dificuldades para que possamos ver.

Cumprimentos.

Eu no mento estou sem um código de barras, porque estou no meu serviço.

Mais me diga, é assim a modificação? Ou não?

Código:

Me.txtPrecoUnitario = Format(CDbl(Me.txtPrecoUnitario * 1000 / CDbl(StrValorPeso) / 1000), "#,##0.000")

Primeiramente irá separar o código do peso...
Depois Multiplicará o peso pelo valor do kg

Suponha que o Kg seja 10,00 e que o peso deu 500 g

Portanto Valor = 0,5 * 10

Na quantidade colocará o peso
e no valor a operação acima...

é por ai.

Cumprimentos.

Boa Tarde Piloto

Não entendi. Esta parte que fiz esta certa? O que esta faltando na alteração do código?

Primeiramente deves observar como está o código de barras..

se está em gramas, se está em kilos...

E observar no código amigo.. como as variáveis são carregadas...e em que caixas texto elas são aplicadas..

O restante é cálculo matemático puro e simples..


Se um produto custa 10,00 o kilo... voce comprou 500 gramas..

Qual o valor que comprou?

1 Kg = 0,5 kg = 500 gramas correto?


Cumprimentos.

Assim:

Código:


=Nz([txtQtde];0)*Nz([txtPrecoUnitario];0)-(Nz([txtQtde];0)*Nz([txtPrecoUnitario];0)*Nz([txtDesconto];0)/100)+(Nz([txtQde];0)*Nz([txtPrecoUnitario];0)*Nz([txtAcrescimo];0)/100)


Assim o que?

Assim deu certo.
Assim não deu certo...
Assim tentei...
Assim não tentei...
Assim nem quis tentar....


Quais desses assim?  

Boa Tarde

Assim não deu certo...

Pois digito o código de barras (peguei o código disponibilizado em outras mensagens, pois não estou com um correto no momento), o que aconteceu foi que o valorUnit que mudou os outros campos ficaram 0.

O código de barras:2000010029716

Supondo que o cliente comprou 29,71 kg, ai no campo ValorUnit mudou para 0,134.

O não sei mesmo que estou fazendo de errado.

Pois digito o código de barras (peguei o código disponibilizado em outras mensagens, pois não estou com um correto no momento), o que aconteceu foi que o valorUnit que mudou os outros campos .....

O primeiro erro é que não está de posse de um código correto.

Assim que estiver, avise-me que faremos.

Cumprimentos.

Bom dia

Agora estou com um código de barras que o cliente me passou.

No formulário Vendas digitei 2001100066459, apareceu a descrição do produto e no campo ValorUnit apareceu 0,060 e outros campos ficarão com 0.

Obs.: 2001100066459: Peso = 6.645 kg, Valor Kg: 4.99.

Bom dia

Eae Piloto alguma solução?

Eis:

Isso mesmo Piloto, muito obrigado.

O Fórum agradece o retorno.