PDV X PRODUTO DE BALANCA

Citação:

:
Não esta fácil de resolver, pois no meu caso, a balança pesa no açougue do mercado e não direto no caixa.... , e quando chega no caixa, e faz a leitura da barra, pode ser um ean 13, como tbm os 13 digitos impressos pela balança, e o código de barras que a balança gerou, inicia sim com 2 + 6 digitos do código do produto + 6 do preço, veja esse exemplo:

código da balança: 2005005002170
código prateleira : 2000025003992

levando em conta q após a leitura, disparo uma busca no cadastro, no qual tenho o campo ean e o código interno, estou pensando em montar algo que procure sempre no ean primeiro, que caso não ache, pega na stringo código interno q esta na balança e faça nova busca......to tentando.....rs...

[Ô]select * PRODUTOS where EAN like [ô][Ô] & EAN.TXT & [Ô][ô]

[ô]se nao acha:
DIM CODIGO
DIM VALOR
CODIGO = MID(EAN.TXT,2,6)
VALOR = MID(EAN.TXT,8,5)
[Ô]select * PRODUTOS where EAN like [ô][Ô] & CODIGO & [Ô][ô]

        If Len(txtCodProduto.Text) = [Ô]13[Ô] And Left(txtCodProduto.Text, 2) = [Ô]20[Ô] THEN
            [ô]Faça a busca pelo codigo interno >  [Ô]SELECT * FROM PRODUTOS WHERE CODINTERNO = [ô][Ô] & Mid(txtCodProduto.Text, 2, 6) 
            [ô]Tente a busca caso não retorne nada então faça a busca pelo codigo de barras
            IF RETORNOU PRODUTO THEN
                 [ô]LANÇA ITEM
            ELSE
                 [ô]BUSCA ITEM PELO CODIGO DE BARRAS
                 [ô]LANÇA ITEM
            END IF
        Else
           [ô]Faça a busca pelo codigo barras  >   [Ô]SELECT * FROM PRODUTOS WHERE CODBARRAS = [ô][Ô] & txtCodProduto.Text 
           [ô]LANÇA ITEM
        End If

If Left(Finaliza_Balanca, 1) = 2 Then
    Set Rst = New ADODB.Recordset
    Sql = [Ô]Select Cod_Barra, Prod_Descricao_Completa, Vlr_Venda From Tb_Produtos[Ô]
    Sql = Sql & [Ô] Where Cod_Barra =[ô][Ô] & Format(Codigo_Balanca, [Ô]0000000000000[Ô]) & [Ô][ô][Ô]
    MostraCodBarra = Codigo_Balanca
Else
    Set Rst = New ADODB.Recordset
    Sql = [Ô]Select Cod_Barra, Prod_Descricao_Completa, Vlr_Venda From Tb_Produtos[Ô]
    Sql = Sql & [Ô] Where Cod_Barra =[ô][Ô] & Format(Codigo_Produto, [Ô]0000000000000[Ô]) & [Ô][ô][Ô]
    MostraCodBarra = Codigo_Produto
End If
 

Citação:

:
fox e moreira, foi o que eu citei acima, também fazia dessa forma, checava o primeiro ou 2 primeiros digitos para ver se era código balança, porém, começaram a aparecer produtos de prateleira, com código ean iniciados em [Ô]20[Ô], mas contornei o problema, fazendo buscas sequenciais....