CARNE DE PAGAMENTO [ PREENCHIMENTO ]

CHARLESTON10 28/12/2010 13:39:53
#360541
Ola pessoal!

Estou fazendo um gerador de parcelas com impressao de carnê de pagamento, porem estou com duvida no preenchimento,
a situação é essa,
Tenho uma tabela que guarda as datas de vencimentos de acordo o numero da parcela e com o codigo da vend, ex da tb:
obs.: o desenho do carne ja esta pronto agora so falta o preenchimento delas.

Tabela Parcelas
-------------------------------------------------------------
Cod_ Venda | N_Parcela | Valor_Parc | Data_Venc
-------------------------------------------------------------
000001 | 001 | R$ 25,00 | 28/12/2010
000001 | 002 | R$ 25,00 | 28/01/2010
000002 | 001 | R$ 70,00 | 17/01/2010
000002 | 002 | R$ 70,00 | 17/02/2010
000002 | 003 | R$ 70,00 | 17/03/2010
-------------------------------------------------------------
A tabela acima é apenas um exemplo.

Eu ainda nao criei o procedimento de impressão.
Acredito que tenho que fazer uma consulta de acordo com o codigo da venda e puxar os dados de quantos carne será necessario.
como faço isso?, pode ser como exemplo o crystal report, data report ou outros, desde que funcionando no vb6, esta tranquilo.

valeu pela ajuda pessoal!
JEISONANTONI 28/12/2010 14:11:20
#360546
bem, não sei como vc será o layout mas vc pode imprimir usando o objeto printer.
MARCELO.TREZE 28/12/2010 16:33:32
#360550
Realmente o melhor seria vc criar um layout do carne em um form e criar com campos do nome quantidade de parcelas, e até mesmo o código de barras que não sei se vc irá usar.
MGALDINO 28/12/2010 17:27:35
#360557
Faça com Crystal Report

[ô]Abaixo Vai ser seu Select
StrSql = [Ô]{Tabela.Cod_Venda} = [Ô] & Text1.Text

[ô]Aqui Será seu Relatorio criado no Crystal
Report1.ReportFileName = App.Path & [Ô]\Relatorio.rpt[Ô]

[ô]Rotina que vai pegar o seu Select
Report1.SelectionFormula = StrSql

[ô]Aqui os dados da Conexão nesse exemplo fiz a conexão banco de dados e Crystal com ODBC
Report1.Connect = [Ô]dsn=ODBC;uid=Usuario;pwd=Senha[Ô]

[ô]Aqui estou dizendo que o Relatorio vai abrir Maximinizado
Report1.WindowState = crptMaximized

[ô]Passando 0 para mostrar na Tela 1 imprime direto na impressora
Report1.Destination = 0 [ô] 1 NAO MOSTRA NA TELA, 0 MOSTRA

Metodo que abre o relatorio
Report1.Action = 1
JESUEL.OLIVEIRA 28/12/2010 22:06:13
#360574
amigo, pelo que entendi você precisa imprimir no carnê pré impresso.

Acredito que deva ser papel continuo com picote, então pouco importa quantas paginas.
Use o objeto print, você irá perder um uns mas ajusta fácil.

faça uma select com o código da venda e mande para a impressora, fácil seguindo sua tabela.

 sSQL = [Ô]SELECT  * FROM TABPARCELAS WHERE COD_VENDA =  2 [Ô] 
Set rsEmpresas = CONN.Execute(sSQL)
        Do While Not rsEmpresas.EOF
            
                Print #I, Tab(1); [Ô]|Empresa[Ô]; Tab(15); [Ô]|[Ô]; rsEmpresas!EMP_RAZAOSOCIAL
                Print #I, Tab(1); [Ô]|Nome Fantasia[Ô]; Tab(15); [Ô]|[Ô]; rsEmpresas!emp_nomefantasia
                
                Print #I, Tab(1); [Ô]|Endereço[Ô]; Tab(15); [Ô]|[Ô]; rsEmpresas!EMP_ENDEREÇO; Tab(60); [Ô]|Bairro[Ô]; Tab(68); [Ô]|[Ô]; rsEmpresas!EMP_BAIRRO
                
                Print #I, Tab(1); [Ô]|Cidade[Ô]; Tab(15); [Ô]|[Ô]; rsEmpresas!EMP_CIDADE
                Print #I, [Ô][Ô]
                Print #I, [Ô][Ô]
                Print #I, [Ô][Ô]
                rsEmpresas.MoveNext
        Loop


faça um teste de impressão funciona bem mas precisa paciência e medir os espaços.
CHARLESTON10 28/12/2010 22:39:07
#360578 
  Faça com Crystal Report

[ô]Abaixo Vai ser seu Select
StrSql = [Ô]{Tabela.Cod_Venda} =  [Ô] & Text1.Text

[ô]Aqui Será seu Relatorio criado no Crystal
Report1.ReportFileName = App.Path & [Ô]\Relatorio.rpt[Ô]

[ô]Rotina que vai pegar o seu Select
Report1.SelectionFormula = StrSql

[ô]Aqui os dados da Conexão nesse exemplo fiz a conexão banco de dados e Crystal com ODBC
Report1.Connect = [Ô]dsn=ODBC;uid=Usuario;pwd=Senha[Ô]

[ô]Aqui estou dizendo que o Relatorio vai abrir Maximinizado
Report1.WindowState = crptMaximized

[ô]Passando 0 para mostrar na Tela 1 imprime direto na impressora
Report1.Destination = 0 [ô] 1 NAO MOSTRA NA TELA, 0 MOSTRA

Metodo que abre o relatorio
Report1.Action =  


Pergutando a todos!


Entendi o codigo mas uma pergunta, tenho o Desenho do carnê (apenas aparece 1), minha duvida é essa: quando eu gerar a parcela dependedo da venda aparece o numero de
carnês necessario. exemplo:
A venda 1 tem 3 parcelas a pagar |
Agora quando imprimir apareça as 3 carnês numa folha (o desenho do carne cabe na folha até 4 ) caso tenha 8 carnes apareça de acordo com a quantidade que cabe na folha.
Consegui uma fonte aqui no VBmania, que gera carne mas o problema dele é que quando gera, ele gera em 3 folhas sendo que cabe em uma só, é feito no [ô]print[ô] , seria mais facil eu fazer no Crystal ou no data report mais simples.

como consigo isso?
MGALDINO 29/12/2010 08:50:46
#360600
Bom dia,

Amigo manda o que voce tem... falando assim fica dificl.
CHARLESTON10 29/12/2010 11:05:14
#360622
A ideia é essa
[Ô]Consegui uma fonte aqui no VBmania, que gera carne mas o problema dele é que quando gera, ele gera em 3 folhas sendo que cabe em uma só[Ô]
A fonte que baixei imprime em 3 folhas separadas sendo que cabe em uma só, isso usando o Print
tenta da uma olhada http://vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=384
Ficou legal aqui, do jeito que eu preciso, o problema é esse mesmo, que sai em tres folhas, (haja dinheiro para tanta folha) xD

abç
Tópico encerrado , respostas não são mais permitidas
Voltar