Postada em 06/06/2018 08:03 hs
se alguem puser ajudar vou postar o codigo onde carrego os produtos e onde faço a leitura com o codigo da balança. so quero que o valor seja somado jundo com os demais produtos ok
segue a baixo......
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
me diga o que esta faltando porque os produtos da balançanão são somados juntos com os outros e quando eu passo o leitor ele volta somente aquele valorque passei.
|
