PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
Home
→
WINDEV 25
→
Report Diferente alguém faz idéia de como fazer isto em Windev
Report Diferente alguém faz idéia de como fazer isto em Windev
Started by Bastiaan, Aug., 17 2017 9:47 PM - 3 replies
Connect yourself…
Bastiaan
#1
Registered member
37 messages
Popularité : +5 (5 votes)
Posted on August, 17 2017 - 9:47 PM
Oi pessoal
Gerar relatórios costuma ser bem fácil no Windev, até para mim que venho de outra plataforma (Delphi).
Só não achei um jeito de fazer o seguinte :
Tenho uma tabela, onde cada registro corresponde a informação particular de 1 cliente.
A partir desta tabela ao invés de gerar um relatório PDF único contendo informações de todos os clientes.
O que eu preciso é que seja impresso um relatório PDF para cada cliente, e o nome do relatório corresponda a um código no cadastro do cliente.
Eu já fiz isto em Delphi, mas não sei se isto é possível no WInDev.
Agradeceria muito se alguém soubesse como isto pode ser feito.
um abraço
Report
0
0
Mister ANDRE MARTINI
#2
Registered member
207 messages
Popularité : +25 (25 votes)
Posted on August, 17 2017 - 10:44 PM
o código abaixo gera um pdf para cada pedido do relatório de pedido
dsPedidos
is Data Source
s
SQLPedidos
is string
= [
SELECT Numero_do_pedido
FROM Pedidos
WHERE
Pedidos.Codigo_da_empresa = %1
]
s
SQLPedidos
=
StringBuild
(
s
SQLPedidos
,
gn
CodigoEmpresa
)
IF
HExecuteSQLQuery
(
dsPedidos
,
hQueryDefault
,
s
SQLPedidos
)
THEN
IF
HNbRec
(
dsPedidos
) >
0
THEN
HReadFirst
(
dsPedidos
)
WHILE
NOT
HOut
(
dsPedidos
)
s
NomeRelatorio
is string
=
"Relatório Pedido"
s
NomePDFRelatorio
is string
=
"Relatorio_Pedido_"
+
Right
(
"000000000"
+
NumToString
(
dsPedidos.Numero_do_pedido
)
,
9
)
+
".pdf"
//EDT_Pdf = gsDiretorioExe + sNomePDFRelatorio
iDestination
(
iPDF
,
gs
DiretorioExe
+
s
NomePDFRelatorio
)
//// Initializes the query associated with the report
iInitReportQuery
(
RPT_Pedidos
,
gn
CodigoEmpresa
,
dsPedidos.Numero_do_pedido
)
//// Print the Form report (Pedidos)
iPrintReport
(
RPT_Pedidos
)
//Info("pedido" + NumToString(dsPedidos.Numero_do_pedido))
HReadNext
(
dsPedidos
)
END
END
END
HCancelDeclaration
(
dsPedidos
)
Info
(
"OK"
)
--
André Martini
IS2 Automotive
http://www.is2.inf.br/is2automotive/index.html
IS2 Construtive
http://www.is2.inf.br/is2construtive/index.html
IS2 Store
http://www.is2.inf.br/is2store/index.html
IS2 Gerent
http://www.is2.inf.br/is2gerent/index.html
Message modified, August, 17 2017 - 10:47 PM
Report
2
0
Bastiaan
#3
Registered member
37 messages
Popularité : +5 (5 votes)
Posted on August, 18 2017 - 12:18 AM
Oi André
Muito obrigado, pelo código, conciso e claro
Só uma dúvida, quando a gente cria um REport existem várias opções de tipos de reports a serem criadas, tipo blank, table, form etc...
Neste caso específico qual das opções vai ser usada, ou efetivamente precisa ser usada ?
Um grande abraço
Bastiaan
Report
0
0
Mister ANDRE MARTINI
#4
Registered member
207 messages
Popularité : +25 (25 votes)
Posted on August, 18 2017 - 2:49 PM
De nada! Pode ser qualquer tipo de relatório, aquelas opções são apenas templates
--
André Martini
IS2 Automotive
http://www.is2.inf.br/is2automotive/index.html
IS2 Construtive
http://www.is2.inf.br/is2construtive/index.html
IS2 Store
http://www.is2.inf.br/is2store/index.html
IS2 Gerent
http://www.is2.inf.br/is2gerent/index.html
Report
1
0
→ Go back to WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text