USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Problemas ao somar produtos da balança no PDV
Genuss
PEIXOTO DE AZEVEDO
MT - BRASIL
Postada em 05/06/2018 18:37 hs            
Olla Boa noite estou tentando resolver um problema chato aqui, desenvolvi um sistema para mercado, mas quando eu vou passar um produto de balança o sistema ler certinho mas não soma os produtos na texbox



eu Fiz Assim.....


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, 3) & "," & Mid(vCodigo, 11, 2), 2)
                vTotalGeral = GridProd(RowCountGrid2).vSubTotal
                
            End If
     
Genuss
não registrado
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.
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página