Edson479
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 29/05/2008 13:41 hs
Bom tarde pessoal, Tenho que fazer um relatório de placas de veículos O cadastro já esta ok só queria imprimir ele assim Exp Final 1 AAA-0001 – BBB-0001 – CCC-0001..... Final 2 AAA-0002 – BBB-0002 – CCC-0002..... Final... ...... Na preferência no Crytal Reports 4.5 ou Me dar uma idéia como mondar um relatório |
|
|
|
|
|
Edson479
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/06/2008 14:39 hs
boa tarde nem de outra forma |
|
|
|
Treze
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/06/2008 14:42 hs
Edson você já possui as placa cadastradas edeseja imprimir deta forma |
|
|
|
Edson479
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/06/2008 14:49 hs
esto mesmo as placas ja estão cadastradas, em permissoes.mdb, placas e pla_pla como não deu certo com Crystal pode ser de outra forma |
|
|
|
Treze
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/06/2008 15:00 hs
Eu não uilizo o crystal então pode ser feito da seguinte forma utilizando o printer o que você deve fazer é criar uma sql para localizar as placas pelo final. o relatório ficaria melhor se fosse exibido da seguinte maneira final 1 - final 2 - final 3 - final 4 - final 5.... AAA-0001 - BBB-0002 ... ABC-2921 - BBD-3222... Bom quanto a prática não sei como você esta abrindo seu BD se DAO ou ADO ... tem como você postar o código que você possui ai |
|
|
|
|
|
Postada em 02/06/2008 15:06 hs
Option Explicit Dim rsPla As New ADODB.Recordset
Dim SQL As String
... On Error Resume Next
If rsPla.State = 1 Then rsPla.Close
SQL = "select * from placas where bai_pla= 'Não' and pla_pla order by pla_pla"
rsPla.Open SQL, cnSQL, adOpenDynamic, adLockOptimistic If rsPla.EOF Then
frmError.F.Cls
frmError.F.Print "Não tem nem uma placa Cadastrado"
frmError.Show vbModal
Else
While Not rsPla.EOF
lstPla.AddItem " " & Format(rsPla.Fields("pla_pla"), "@@@-@@@@")
rsPla.MoveNext
Wend
txtCad.Text = lstPla.ListCount
End If
|
|
|
|
