WesSouza

Fevereiro 29, 2012

Boa tarde WesSouza,

Ficaria mais fácil você alterar o script e visualizar todos os dados de retorno....

Segue um exemplo com o loop:

-- criando tabela
create TABLE #Dados (id int identity, nome VARCHAR(15), valor int)

-- inserindo dados
INSERT INTO #Dados VALUES ('Elisabeth', 2443)
INSERT INTO #Dados VALUES ('', 2443)
INSERT INTO #Dados VALUES ('', 2443)
INSERT INTO #Dados VALUES ('', 2443)
INSERT INTO #Dados VALUES ('Rota', 1000)
INSERT INTO #Dados VALUES ('', 1000)
INSERT INTO #Dados VALUES ('', 1000)
INSERT INTO #Dados VALUES ('', 1000)

-- fazendo a somatória - selecionar até o final e executar
DECLARE @Cont INT
DECLARE @Nome VARCHAR(15)
DECLARE @SubTotal INT
DECLARE @Total INT

SET @Cont = 1
SET @SubTotal = 0
SET @Total = 0

WHILE (@Cont <= (SELECT COUNT(nome) FROM #Dados)) 
BEGIN
    SET @Nome = (SELECT nome FROM #Dados WHERE id=@Cont)
    SET @SubTotal = @SubTotal + (SELECT valor FROM #Dados WHERE id=@Cont)
    SET @Total = @Total + (SELECT valor FROM #Dados WHERE id=@Cont)
    SET @Cont = @Cont + 1
    SET @Nome = (SELECT nome FROM #Dados WHERE id=@Cont)
    IF @Nome <> '' OR @nome IS null
    BEGIN
        PRINT @SubTotal
        SET @SubTotal = 0
    END
END
PRINT @Total

Bom Obrigado PElo exemplo mas preciso de Todas as informções na consulta, preciso um em que mostre todos os campos e valores com o Total geral

Fevereiro 29, 2012

Olá Estou com dificuldades em organizar os registros necessarios na página Print Document , Se alguém tiver algum Conteudo ou exemplo para ter um melhor controle das informaçoes .

Imagem:http://social.msdn.microsoft.com/Forums/getfile/67907

Como exibe na imagem as informações de porcentagem de acordo com o Codigo 33 está errado pois ultrapassa 100%.

Talves eu tenha que mudar a minha lógica porque pré defini 4 registro de cada item .. Bom O Código:

Private Sub PrintDocument7_PrintPage_BeginPrint(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument7.BeginPrint

array7 = base7.relatorio_Imovel_Cadastrados

End Sub

Private Sub PrintDocument7_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument7.PrintPage

Dim final As Integer = array7.Count - 0

Dim g As Graphics = e.Graphics

LAtual7 = 4

Dim i As Integer

While (i < LAtual7 And index7 < final)

modelagem7 = array7(index7)

' g.DrawString("Codigo:", FonteTextoBold, Brushes.Black, 80, 200 + i * 22)

g.DrawString(modelagem7.id, FonteTexto, Brushes.Black, 135, 203 + i * 22)

'g.DrawString("Incrição Prefeitura:", FonteTextoBold, Brushes.Black, 160, 200 + i * 22)

g.DrawString(modelagem7.inscrPrefeitura, FonteTexto, Brushes.Black, 290, 203 + i * 22)

'

'g.DrawString("Valor: R$", FonteTextoBold, Brushes.Black, 420, 200 + i * 22)

g.DrawString(modelagem7.valor, FonteTexto, Brushes.Black, 485, 203 + i * 22)

'g.DrawString("Cep:", FonteTextoBold, Brushes.Black, 600, 200 + i * 22)

g.DrawString(modelagem7.cep, FonteTexto, Brushes.Black, 635, 203 + i * 22)

'g.DrawString("Endereço:", FonteTextoBold, Brushes.Black, 80, 220 + i * 22)

g.DrawString(modelagem7.endereco, FonteTexto, Brushes.Black, 150, 223 + i * 22)

'g.DrawString("Matricula:", FonteTextoBold, Brushes.Black, 80, 240 + i * 22)

g.DrawString(modelagem7.matricula, FonteTexto, Brushes.Black, 150, 243 + i * 22)

'g.DrawString("Escritura:", FonteTextoBold, Brushes.Black, 80, 260 + i * 22)

g.DrawString(modelagem7.escritura, FonteTexto, Brushes.Black, 125, 263 + i * 22)

' g.DrawString("Situação:", FonteTextoBold, Brushes.Black, 80, 280 + i * 22)

g.DrawString(modelagem7.situacao, FonteTexto, Brushes.Black, 145, 283 + i * 22)

'

'g.DrawString("Cartorio:", FonteTextoBold, Brushes.Black, 80, 300 + i * 22)

g.DrawString(modelagem7.cartorio, FonteTexto, Brushes.Black, 130, 303 + i * 22)

'g.DrawString("Tipo:", FonteTextoBold, Brushes.Black, 250, 300 + i * 22)

g.DrawString(modelagem7.tipo, FonteTexto, Brushes.Black, 290, 303 + i * 22)

'g.DrawString("Porcentagem/Proprietário:", FonteTextoBold, Brushes.Black, 80, 320 + i * 22)

g.DrawString(modelagem7.porcentagem, FonteTexto, Brushes.Black, 80, 340 + i * 22)

g.DrawString(modelagem7.nomeparte, FonteTexto, Brushes.Black, 145, 340 + i * 22)

'g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.linha, 80, 385 + i * 200)

g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.rodape, 80, 5)

g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.baixo, 80, 1080)

i += 1

index7 += 1

If index7 < final Then

e.HasMorePages = True

Else

e.HasMorePages = False

End If

End While

End Sub

Agradeceria Qualquer tipo de Ajuda! Obrigado

Persistencia leva a Perfeição !

Fevereiro 29, 2012