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.........
