IMPRESSAO DE RELATORIO COM DOIS ARQUIVOS DIFERENTE
Bom dia a todos,
Estou fazendo um relatório de funcionários da empresa o qual tenho dois arquivos diferentes, um de funcionário e outro de dependentes destes funcionários. A impressão só do cadastro do funcionário fiz e funciona perfeitamente, mas quando tenho que colocar os seus dependentes, imprime somente o primeiro dependente deste funcionário. Como faço para que o sistema imprima outro dependente? Abaixo está parte do código que estou utilizando.
[ô]
[ô] Verificar se existe Dependentes
[ô]
Dim NumDep As Integer = dr_Funcion.Item([Ô]NFiFun_Func[Ô])
If NumDep <> [Ô]0[Ô] Then
Dim Linha As Integer = 580
Dim Numer As Integer
Dim Registro As Integer = 1
Dim ProcDepende As String
ProcDepende = [Ô]SELECT * FROM dependentes_funcionarios where MatFun_Func = [ô][Ô] & NewCods & [Ô][ô][Ô]
Dim dr_Depende As MySqlDataReader
Dim Con_Depende As New MySqlConnection(StrServFun01)
Dim Cmd_Depende As New MySqlCommand(ProcDepende, Con_Depende)
Con_Depende.Open()
dr_Depende = Cmd_Depende.ExecuteReader
If dr_Depende.HasRows Then
Try
If dr_Depende.Read Then
If dr_Depende.Item([Ô]Status_Func[Ô]).ToString = [Ô]V[Ô] Then
e.Graphics.DrawString([Ô]Dependentes[Ô], New Font([Ô]arial[Ô], 12, FontStyle.Bold), Brushes.Black, 20, 560)
Do While Numer <> NumDep
If dr_Depende.Item([Ô]MatFun_Func[Ô]).ToString = NewCods Then
e.Graphics.DrawString(dr_Depende.Item([Ô]MatDep_Func[Ô]).ToString, New Font([Ô]arial[Ô], 11, FontStyle.Regular), Brushes.Black, 20, Linha)
Linha += 20
End If
Registro += 1
Numer += 1
Loop
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Con_Depende.Close()
dr_Depende.Close()
End If
Se alguém puder me ajudar nesta questão ficarei grato.
Obrigado,
Estou fazendo um relatório de funcionários da empresa o qual tenho dois arquivos diferentes, um de funcionário e outro de dependentes destes funcionários. A impressão só do cadastro do funcionário fiz e funciona perfeitamente, mas quando tenho que colocar os seus dependentes, imprime somente o primeiro dependente deste funcionário. Como faço para que o sistema imprima outro dependente? Abaixo está parte do código que estou utilizando.
[ô]
[ô] Verificar se existe Dependentes
[ô]
Dim NumDep As Integer = dr_Funcion.Item([Ô]NFiFun_Func[Ô])
If NumDep <> [Ô]0[Ô] Then
Dim Linha As Integer = 580
Dim Numer As Integer
Dim Registro As Integer = 1
Dim ProcDepende As String
ProcDepende = [Ô]SELECT * FROM dependentes_funcionarios where MatFun_Func = [ô][Ô] & NewCods & [Ô][ô][Ô]
Dim dr_Depende As MySqlDataReader
Dim Con_Depende As New MySqlConnection(StrServFun01)
Dim Cmd_Depende As New MySqlCommand(ProcDepende, Con_Depende)
Con_Depende.Open()
dr_Depende = Cmd_Depende.ExecuteReader
If dr_Depende.HasRows Then
Try
If dr_Depende.Read Then
If dr_Depende.Item([Ô]Status_Func[Ô]).ToString = [Ô]V[Ô] Then
e.Graphics.DrawString([Ô]Dependentes[Ô], New Font([Ô]arial[Ô], 12, FontStyle.Bold), Brushes.Black, 20, 560)
Do While Numer <> NumDep
If dr_Depende.Item([Ô]MatFun_Func[Ô]).ToString = NewCods Then
e.Graphics.DrawString(dr_Depende.Item([Ô]MatDep_Func[Ô]).ToString, New Font([Ô]arial[Ô], 11, FontStyle.Regular), Brushes.Black, 20, Linha)
Linha += 20
End If
Registro += 1
Numer += 1
Loop
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Con_Depende.Close()
dr_Depende.Close()
End If
Se alguém puder me ajudar nesta questão ficarei grato.
Obrigado,
como e alimentado este [Ô]NewCods[Ô] ?
Robson - obrigado por ter respondido, mas após ter pensado demais consegui acertar o erro. Assim agradeço sua disposição para me ajuadar.
Tópico encerrado , respostas não são mais permitidas