não estou conseguindo e novamente recorro aos colegas.
Estou terminando uma pequena aplicação windows para cadastar pedidos.
Bom, acontece, que para imprimir o pedido no PrinDoicumet com os seus ítens, atraves da ajuda de voces eu consegui.
O problema agora é que o cliente ta querendo o seguinte:
Um relatório que lista todos os pedidos de um período a ser escolhido pelo cliente numa datatimepicker.
O sql, tranquilo, já fiz.
Cada pedido do cliente nunca passa de 5 ítens de pedido, na maioria 2 por se tratar de poucos produtos que ele trabalha.
Fiz um código que le os pedidos com datareader (leitor) num wile. Dentro desse wilw puz outro wilw para pegar cada uma vez que esse wile recebe um numero de pedido e faço uma consulta usando um dataset para ver quais s~çao os ítens desse pedido e usando um foreach listo os ítens desse pedido.
Acontece que quando boto pra rodar o programa trava.
Pergunta
Carlos Rocha
Ola!
olha a furada que eu entrei nela.
que troço dificil.
não estou conseguindo e novamente recorro aos colegas.
Estou terminando uma pequena aplicação windows para cadastar pedidos.
Bom, acontece, que para imprimir o pedido no PrinDoicumet com os seus ítens, atraves da ajuda de voces eu consegui.
O problema agora é que o cliente ta querendo o seguinte:
Um relatório que lista todos os pedidos de um período a ser escolhido pelo cliente numa datatimepicker.
O sql, tranquilo, já fiz.
Cada pedido do cliente nunca passa de 5 ítens de pedido, na maioria 2 por se tratar de poucos produtos que ele trabalha.
Fiz um código que le os pedidos com datareader (leitor) num wile. Dentro desse wilw puz outro wilw para pegar cada uma vez que esse wile recebe um numero de pedido e faço uma consulta usando um dataset para ver quais s~çao os ítens desse pedido e usando um foreach listo os ítens desse pedido.
Acontece que quando boto pra rodar o programa trava.
eis o código:
LinhasPorPagina = e.MarginBounds.Height / FonteNormal.GetHeight(e.Graphics) - 10
While (LinhaAtual < LinhasPorPagina AndAlso leitor.Read())
pedidoID = leitor("pedidoID")
clienteID = leitor("clienteID")
nomecli = leitor("nome")
PosicaoDaLinha = MargemSuperior + (LinhaAtual * FonteNormal.GetHeight(e.Graphics)) + 100
e.Graphics.DrawString(clienteID, FonteNormal, Brushes.Red, MargemEsquerda, PosicaoDaLinha, New StringFormat())
e.Graphics.DrawString(nomecli, FonteNormal, Brushes.Red, MargemEsquerda + 50, PosicaoDaLinha, New StringFormat())
While (leitor("pedidoID"))
Dim PrintStringdetalhespedidos2 As String = "Select * from detalhespedidos where pedidoID= " & leitor("pedidoID")
Dim item As DataSet = accDb.ExecuteDS(PrintStringdetalhespedidos2, "detalhespedidos")
For Each linhaDS As DataRow In item.Tables(0).Rows
produtoID = linhaDS("produtoID")
descricao = linhaDS("descricao")
quantidade = linhaDS("quantidade")
unidade = linhaDS("unidade")
preço = linhaDS("preço")
subtotal = linhaDS("subtotal")
'condicao = linha("condicao")
'total += subtotal
'condicao = linha("condicao")
e.Graphics.DrawString(produtoID, FonteNormal, Brushes.Red, MargemEsquerda + 200, PosicaoDaLinha, New StringFormat())
e.Graphics.DrawString(descricao, FonteNormal, Brushes.Red, MargemEsquerda + 250, PosicaoDaLinha, New StringFormat())
e.Graphics.DrawString(quantidade, FonteNormal, Brushes.Red, MargemEsquerda + 300, PosicaoDaLinha, New StringFormat())
e.Graphics.DrawString(preço, FonteNormal, Brushes.Red, MargemEsquerda + 350, PosicaoDaLinha, New StringFormat())
e.Graphics.DrawString(subtotal, FonteNormal, Brushes.Red, MargemEsquerda + 400, PosicaoDaLinha, New StringFormat())
'e.Graphics.DrawString(condicao, FonteNormal, Brushes.Red, MargemEsquerda + 450, PosicaoDaLinha, New StringFormat())
'e.Graphics.DrawString(total, FonteNormal, Brushes.Red, MargemEsquerda + 450, PosicaoDaLinha, New StringFormat())
Next linhaDS
End While
LinhaAtual += 1
End While
Por favor, aonde estou errando?
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.