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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Printer
Moreti
SÃO PAULO
SP - BRASIL
Postada em 14/10/2007 15:52 hs            
Ámigos, após exeutar minha sql no access ela está me retornando os registros certinho, acontece que na tabela ela fica assim:
cod   descricao    valor   Valor do custo    complemento    data_movimento
123   teste          6,80    1,80                 furo                12/10/2007
123   teste          6,80    2,30                 montar            12/10/2007
123   teste          6,80    1,20                 embalar           13/10/2007
 
é o mesmo produto, acontece que eu gostaria de imprimir esse produto, só que ele está saindo os 3 registros pq eu dou um loop e na vedade ele deveria de sair um só:
O relatório deveria de sair assim:
 
cod   descricao    valor  
123   teste          6,80  
Complemento              valor do custo           data movimento
furo                          1,80                        12/10/2007
montar                      2,30                        12/10/2007
embalar                     1,20                        13/10/2007
é possível isso ?
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 15/10/2007 00:49 hs            
Como vc imprime o relatório colega??
 
Dependendo do caso poderia fazer assim:
 
rs.sort = "cod ASC"
 
DO while no RS.EOF
   IF strCOD   <> RS("COD") THEN
     PRINTER.PRINT
     PRINTER.PRINT RS("COD"); RS("DESCRICAO"); RS("VALOR")
     strCOD = RS("COD")
   ENDIF
   PRINTER.PRINT RS("COMPLEMENTO");RS("VALOR_CUSTO");RS("DATA")
   RS.MOVENEXT
LOOP
 
Aí vc adapta de acordo com as suas necessidades.
 
Qualquer dúvida é só postar.
 
at+
     
Moreti
SÃO PAULO
SP - BRASIL
Postada em 16/10/2007 19:17 hs            
Não funcionou, se eu tenho 3 serviços para cada produto ele está pegando o código e mostrando um código para cada produto!
 
ex:
123   teste          6,80  
furo                          1,80                        12/10/2007
 
123   teste          6,80  
montar                       2,30                        12/10/2007
 
123   teste          6,80  
embalar                      1,20                        12/10/2007
 
Obrigado
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 17/10/2007 01:41 hs            
Colega o código que passei eu testei e funciona, ao menos o que entendi, só que errei ao digitar. Veja se vc colocou "no" ao invés de "NOT" conforme exemplo destacado abaixo:
 
rs.sort = "cod ASC"
 
DO while NOT RS.EOF
   IF strCOD   <> RS("COD") THEN
     PRINTER.PRINT
     PRINTER.PRINT RS("COD"); RS("DESCRICAO"); RS("VALOR")
     strCOD = RS("COD")
   ENDIF
   PRINTER.PRINT RS("COMPLEMENTO");RS("VALOR_CUSTO");RS("DATA")
   RS.MOVENEXT
LOOP
     
Moreti
SÃO PAULO
SP - BRASIL
Postada em 17/10/2007 17:49 hs            
Ghost_ilp e o resultado está retornando assim ?
 
cod   descricao    valor  
123   teste          6,80  
Complemento              valor do custo           data movimento
furo                          1,80                        12/10/2007
montar                      2,30                        12/10/2007
embalar                     1,20                        13/10/2007
 
Obrigado
     
Moreti
SÃO PAULO
SP - BRASIL
Postada em 17/10/2007 18:03 hs            
Ghost_ilp, desculpas, eu vi um erro meu, funcionou sim, obrigado
     
Página(s): 1/1    

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