Problema ao somar os Produtos da balança em um Texbox

[Jean Silva Frazão]

Ola Pessoal estou desenvolvendo um sistema para Supermercado eme deparei com um Problema chato

Quando passo o leitor no Codigo da balança ele ler o Produto mais não soma, e isso e so com os produtos da balança

com os demais fuinciona certim 

sera o que estou deichando de fazer?

Este e o codigo que fiz para Calcular os Produtos.......

 

If vDescontoPercentagem = True Then
                
                    GridProd(RowCountGrid2).vTipoDesconto = "%"
                    GridProd(RowCountGrid2).vLucro = ((((.Fields("PrecoVenda") / 100) * vDescontoIten) - .Fields("PrecoCusto")) * vQuantidade)
                    'GERA O SUB-TOTAL
                    GridProd(RowCountGrid2).vSubTotal = CDbl(GridProd(RowCountGrid2).vValorUnitario) - (FormatarDec((CDbl(GridProd(RowCountGrid2).vValorUnitario) / 100 * vDescontoIten) * _
                                                CDbl(GridProd(RowCountGrid2).vQuantidade), 2))
                                                                    
                    'GERA O TOTAL GERAL
                    vTotalGeral = FormatarDec(CDbl(IIf(vTotalGeral = "", 0, vTotalGeral)) + CDbl(GridProd(RowCountGrid2).vSubTotal), 2)
            
                Else
                
                    GridProd(RowCountGrid2).vTipoDesconto = "$"
                    GridProd(RowCountGrid2).vLucro = (((.Fields("PrecoVenda") - vDescontoIten) - .Fields("PrecoCusto")) * vQuantidade)
                    
                    'GERA O SUB-TOTAL
                    GridProd(RowCountGrid2).vSubTotal = FormatarDec((CDbl(GridProd(RowCountGrid2).vValorUnitario) - (CDbl(vDescontoIten)) * _
                                                CDbl(GridProd(RowCountGrid2).vQuantidade)), 2)
                    'GERA O TOTAL GERAL
                    vTotalGeral = FormatarDec(CDbl(IIf(vTotalGeral = "", 0, vTotalGeral)) + CDbl(GridProd(RowCountGrid2).vSubTotal), 2)
              
                End If
                
            Else
                
                GridProd(RowCountGrid2).vTipoDesconto = "$"
                
                'GERA O SUB-TOTAL
                GridProd(RowCountGrid2).vSubTotal = FormatarDec(CDbl(GridProd(RowCountGrid2).vValorUnitario) * CDbl(GridProd(RowCountGrid2).vQuantidade), 2)
                
                'GERA O TOTAL GERAL
                vTotalGeral = FormatarDec(CDbl(IIf(vTotalGeral = "", 0, vTotalGeral)) + CDbl(GridProd(RowCountGrid2).vSubTotal), 2)
    
            End If
                       
            If vCodigoBalanca = True Then
                
                GridProd(RowCountGrid2).vQuantidade = FormatarDec(((CDbl(Mid(vCodigo, 8, 5)) / 100) / CDbl(GridProd(RowCountGrid2).vValorUnitario)), 3)
               
                GridProd(RowCountGrid2).vSubTotal = FormatarDec(Mid(vCodigo, 8, 2) & "," & Mid(vCodigo, 11, 2), 2)
                vTotalGeral = GridProd(RowCountGrid2).vSubTotal
        
            End If

 

lembrando que são apenas os produtos da balança que não estao sendo somados juntos com os demais, e quando passo o leitor ele tira o preço da texbox e 

retorna somente aquele preço do produto da balança. sem somar

 

ajudem ai.........

 

 

Editado Junho 6, 2018 por Jean Silva Frazão
faltando uns detalhes