|
|
Postada em 01/03/2005 21:00 hs
 E ai Galera! Tudo bem, Estou precisando de Ajuda. Estou desenvolvendo um sistema de envio de mercadorias para assistência técnica, e preciso imprimir um relatório da entrada da mercadoria no momento em que o registro é salvo, estou usando o ActiveReports. Por favor enviem exeplos para o email brandao.kanall@bol.com.br ou ci.49.sti@liliani.com.br |
|
|
|
|
|
|
|
Postada em 01/03/2005 21:57 hs
Olha só, vc faz um select antes mandar imprimir para pegar o registro que vc quer e depois bata jogar as informações retornadas parao AR 20 With ARregistro
40 .FieldEmpresa.Text = TbCad!Razao_Social
Dim xCNPJ As String
Dim xIE As String
50 xCNPJ = TbCad!CNPJ
60 xIE = TbCad!IE
70 Call FormataCNPJ_IE(xCNPJ, 1)
80 Call FormataCNPJ_IE(xIE, 2)
90 .FieldCNPJ.Text = xCNPJ
100 .FieldIE.Text = xIE
.FieldDataTime.Text = MinhaData & " às " & Time
.FieldNOME.Text = TbSen!Nome 110 .TxtNome.Text = Me.txtSoftwareName.Text
120 .TxtCodigo.Text = Me.txtSoftwareCode.Text
130 .TxtRegistro.Text = Me.txtRegisteredUser.Text
140 .TxtUso.Text = Me.txtUsedDays.Text
150 .TxtUlti.Text = Me.txtCounter.Text
160 .Zoom = 90
170 .Show 1
|
|
|
|
|
|
Postada em 02/03/2005 09:58 hs
Oi! meu chefe. O que eu quero é que o registro atual seja impresso no relatório personalisado que eu criei no ActiveReports. |
|
|
|
|
|
Postada em 02/03/2005 10:35 hs
Chefe q nao sou indio (kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk) foi exatamente o que respondi..... guando vc fala meu relato....personalizado vc criou com controle de acesso a dados? ou só desenhou com TEXTBOX/LABEL (o q eu indico). vc grava o registro e logo abaixo poe o codigo para o relatorio.... quando vc grava tem um campo pra vc fazer uma busca, entao faz uuma busca pra te retornar ao registo gravado e joga os dados pro relatorio..... |
|
|
|
|
|
Postada em 02/03/2005 11:24 hs
Veja só o relatório acessa a mesma tabela que o formulário, ou seja, quando o registro é salvo no formulário já está tambem no relatório, eu quero que depois que o registro seja salvo imprima o relatório com esse registro que acabei de salvar, mas isso sem abrir o relatório. Ah! desculpe por chama-lo de Chefe. |
|
|
|
|
|
Postada em 02/03/2005 13:01 hs
Quanto ao chede...,..nao esquenta kkkkkkkkkkkkkkk se vc tiver conectando o seu relatorio com a tabela com um objeto DAO basta vc colocar essa linha antes de chamar o relatorio ObjetoDAO.RecordSource = "Select * from Where CampoDaTabela=" & ID obs: ID é o numero que identifica o registro na tabela, e é numerico por isso que na SQL NAO tem aspas simples ' antes da aspa dupla " |
|
|
|
