 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
juniorpba
Colaborador
Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS
|
 Enviada: Qua Dez 04, 2013 7:19 am Assunto: Gerar Carnê (Resolvido) |
 |
|
Ola tudo bem ,Bom dia ! Estou com uma dificuldade para gerar um um carnê para o cliente, meu processo funciona da seguinte forma , eu tenho uma tela que tem um campo edit_nome , esta edit_nome ela vai pegar o parametro name para fazer a consulta da tal cliente do vencimento do carnê correto?
ai ao consultar vai listar para mim as parcelas do vencimento x , ao fazer esta consulta , eu clico no botão "Gerar Carnê" ele gera o carnê para o cliente da quantidade de parcelas q foi efetuado para ele mais meu sql nao esta dando certo pra gerar.
esta eh a imagem da forma de consulta
screen shot
Este é o codigo da edit
| Código: | procedure TF_Gerar_Boleto_Parcelas.Edit_nmeChange(Sender: TObject);
var
nome : string;
begin
nome := Edit_nme.Text +'%';
with Gerar_Boleto do
begin
close;
sql.Clear;
sql.Add('Select '+
' receber.rec_valor,'+
' receber.rec_dt_vencimento,'+
' receber.rec_dt_pagamento, '+
' cliente.cli_nome, '+
' cliente.cli_endereco, '+
' cliente.cli_cidade, '+
' receber.rec_bandeirinha, '+
' receber.rec_n_de_parc, '+
' venda.cod_venda, ' +
' receber.cod_receber, '+
' receber.rec_n_da_parc '+
' From RECEBER '+
' Inner Join VENDA '+
' On VENDA.COD_VENDA = RECEBER.COD_VENDA '+
' Inner Join CLIENTE '+
' On CLIENTE.COD_CLIENTE = VENDA.COD_CLIENTE '+
' where receber.rec_valor > 0 '+
' and receber.rec_situacao = ''EM ABERTO'' '+
' and (upper(cliente.cli_nome) like upper(:name)) ');
ParamByName('name').AsString := nome;
Prepare;
Open;
if Gerar_Boleto.Eof then
begin
Application.MessageBox('Desculpe, a consulta não obteve êxito.', 'Aviso',MB_ICONEXCLAMATION);
Abort;
end;
end;
end; |
Este é do botão para gerar carnê
| Código: |
Gerar_Boleto.close;
Gerar_Boleto.ParamByName('name').AsString;
Gerar_Boleto.Prepare;
Gerar_Boleto.Open;
try
Application.CreateForm(TF_Carne, F_Carne);
F_Carne.QuickRep1.Preview;
finally
F_Carne.Release;
F_Carne := nil;
end; |
Alguem poderia me ajudar?
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota"
Editado pela última vez por juniorpba em Qua Dez 04, 2013 9:56 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
syler
Profissional
Registrado: Segunda-Feira, 25 de Fevereiro de 2008
Mensagens: 734
Localização: Apucarana - Norte do Paraná
|
| Enviada: Qua Dez 04, 2013 7:29 am Assunto: Re: Gerar Carnê |
|
|
Olha ai o problema, como que vc usa o parambyname e não passa nada pra ele abrir ??
e por isso que não mostra nada.
_________________
Alex Sandro de Oliveira
Analista Programador Delphi
Freelancer
Estudante de Desenvolvimento Web, Marketing Digital e Designer Gráfico na Udemy
Editado pela última vez por syler em Qua Dez 04, 2013 8:38 am, num total de 1 vez |
|
| Voltar ao Topo |
|
|
juniorpba
Colaborador
Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS
|
| Enviada: Qua Dez 04, 2013 7:34 am Assunto: |
|
|
nem eerro ele da , ele fica em branco os campos do relatorio e mostra apenas uma via branca
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota" |
|
| Voltar ao Topo |
|
|
juniorpba
Colaborador
Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS
|
| Enviada: Qua Dez 04, 2013 7:35 am Assunto: |
|
|
Fica assim
print screen windows
ao clicar no botaão de gerar
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota" |
|
| Voltar ao Topo |
|
|
syler
Profissional
Registrado: Segunda-Feira, 25 de Fevereiro de 2008
Mensagens: 734
Localização: Apucarana - Norte do Paraná
|
| Enviada: Qua Dez 04, 2013 7:46 am Assunto: |
|
|
No código de pesquisa use assim, para ver se aparece. Eu vou de dar um conselho. User concatenação para programar que ai fica fácil de ver o código, caso outra pessoa for fazer manutenção e também deixa mais agradável para se trabalhar.
| Código: |
Gerar_Boleto.Close;
Gerar_Boleto.Unprepare;
Gerar_Boleto.SQL.Clear;
Gerar_Boleto.SQL.Add('SELECT RECEBER.REC_VALOR ');
Gerar_Boleto.SQL.Add(' , RECEBER.REC_DT_VENCIMENTO ');
Gerar_Boleto.SQL.Add(' , RECEBER.REC_DT_PAGAMENTO ');
Gerar_Boleto.SQL.Add(' , CLIENTE.CLI_NOME ');
Gerar_Boleto.SQL.Add(' , CLIENTE.CLI_ENDERECO ');
Gerar_Boleto.SQL.Add(' , CLIENTE.CLI_CIDADE ');
Gerar_Boleto.SQL.Add(' , RECEBER.REC_BANDEIRINHA ');
Gerar_Boleto.SQL.Add(' , RECEBER.REC_N_DE_PARC ');
Gerar_Boleto.SQL.Add(' , VENDA.COD_VENDA ');
Gerar_Boleto.SQL.Add(' , RECEBER.COD_RECEBER ');
Gerar_Boleto.SQL.Add(' , RECEBER.REC_N_DA_PARC ');
Gerar_Boleto.SQL.Add(' FROM RECEBER ');
Gerar_Boleto.SQL.Add(' INNER JOIN VENDA ON VENDA.COD_VENDA = RECEBER.COD_VENDA ');
Gerar_Boleto.SQL.Add(' INNER JOIN CLIENTE ON CLIENTE.COD_CLIENTE = VENDA.COD_CLIENTE ');
Gerar_Boleto.SQL.Add(' WHERE RECEBER.REC_VALOR > 0 ');
Gerar_Boleto.SQL.Add(' AND RECEBER.REC_SITUACAO = '+#39'EM ABERTO'+#39 );
Gerar_Boleto.SQL.Add(' AND CLIENTE.CLI_NOME LIKE :NAME ');
Gerar_Boleto.ParamByName('NAME').AsString := '%' + Edit_nme.Text + '%';
Gerar_Boleto.Prepare;
Gerar_Boleto.Open;
Gerar_Boleto.First;
if Gerar_Boleto.Eof then
begin
Application.MessageBox('Desculpe, a consulta não obteve êxito.', 'Aviso',MB_ICONEXCLAMATION);
Abort;
end; |
_________________
Alex Sandro de Oliveira
Analista Programador Delphi
Freelancer
Estudante de Desenvolvimento Web, Marketing Digital e Designer Gráfico na Udemy |
|
| Voltar ao Topo |
|
|
juniorpba
Colaborador
Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS
|
| Enviada: Qua Dez 04, 2013 7:48 am Assunto: |
|
|
Então amigo , a consulta ta de boa , so não sei porque apartir da consulta ele nao esta gerando o relatorio :s
Eu fiz da sua maneira ai , na hora de gerar eu acho q precisa passar o codigo da venda pra saber so que tem um detalhe , se eu passar o codigo como parametro vai da erro :s
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota" |
|
| Voltar ao Topo |
|
|
juniorpba
Colaborador
Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS
|
| Enviada: Qua Dez 04, 2013 8:32 am Assunto: |
|
|
Não deu certo amigo !
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota" |
|
| Voltar ao Topo |
|
|
juniorpba
Colaborador
Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS
|
| Enviada: Qua Dez 04, 2013 9:11 am Assunto: |
|
|
Ngm?
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota" |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
