Postada em 10/07/2006 05:53 hs
As tabelas estao relacionadas pelo campo "num_orc".
Não consigo abrir directamente no crystal, obtenho o erro "Invalid TVL record". Isso é válido também para os restantes relatórios do projecto, mas que funcionam agora.
O relatorio estava funcionando, e funciona se nao houverem dados nos campos do ultimo sql que foi o que eu adicionei.
Podem-me indicar algum documento ou site onde esteja descrito em detalhe para iniciantes o que fazer para criar um ttx, e o sql para preenchimento dos seus campos?
Esqueci de mencionar que este erro só occorre quando existe algum registro pretendido, se nenhum registro for encontrado não ocorre qualquer erro.
Agradeço antecipadamente se puderem ajudar, eu já não encontro mais solução.
Em baixo esta a codificação pra esclarecer alguma duvida:
strSQL = "SELECT c.nome,c.num_contrib,v.num_orc,r.contacto,r.tel_contacto,c.morada,c.cp,c.localidade,c.telefone,c.tlm" & _
",t.nome,ve.nome,v.data_instal,v.garantia,v.contrato,r.motivo,r.relatorio,r.data_rep " & _
"FROM tab_clientes as c,tab_vendas as v,tab_responsaveis as re,tab_empregados as t," & _
"tab_empregados as ve,tab_repara as r WHERE v.num_orc = '" & Trim(frmRepara.lblNumOrc) & _
"' AND v.num_venda = '1' AND v.cod_tecnico = t.cod_empregado AND v.cod_vendedor = " & _
"ve.cod_empregado AND v.num_cli = c.num_cli AND v.num_orc = re.num_orc AND v.num_orc = " & _
"r.num_orc AND day(r.data) = '" & Day(DateValue(frmRepara.fgRep.TextMatrix(frmRepara.fgRep.Row, 0))) & "' AND " & _
"month(r.data) = '" & Month(DateValue(frmRepara.fgRep.TextMatrix(frmRepara.fgRep.Row, 0))) & "' AND " & _
"year(r.data) = '" & Year(DateValue(frmRepara.fgRep.TextMatrix(frmRepara.fgRep.Row, 0))) & "'AND " & _
"r.reparacao = FALSE"
End If
m_RS.Open strSQL, conexao, adOpenStatic, adLockReadOnly, adCmdText
strSQL = "SELECT num_orc,num_cli_24 FROM tab_cli_24 WHERE num_orc = '" & Trim(frmRepara.lblNumOrc) & "'"
m_RS2.Open strSQL, conexao, adOpenStatic, adLockReadOnly, adCmdText
strSQL = "SELECT num_orc,num_zona,descricao FROM tab_zonas WHERE num_orc = '" & Trim(frmRepara.lblNumOrc) & "'" '+'
m_RS3.Open strSQL, conexao, adOpenStatic, adLockReadOnly, adCmdText
Report.Database.SetDataSource m_RS, 3, 1
Report.Database.SetDataSource m_RS2, 3, 2
Report.Database.SetDataSource m_RS3, 3, 3
Antecipadamente obrigado!
|
