Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Maicon Saraiva

Sou iniciante do delphi e to levando um surra do RDprint

Recommended Posts

Olá Amigos, Sou Iniciante no delphi e estou apanhando pra caramba pra usar o rdprint, na verdade nem consegui nada.

Comprei um programa comercial com os fontes, e agora preciso alterar o relatorio de pedidos, o problema é que o relatorio nem existe, se nao me engano ele é gerado na hora que a pessoa esta dentro do pedido e clica em imprimir

o relatorio é gerado usando QReport, mas nao imprime corretamente em matricial lx-300, preciso além de configurar para esta impressora incluir novos campos na listagem dos itens dos pedidos., tenho o rdprint mas nao sei por onde anda,(já procurei por tutoriais na net e nada! preciso de ajuda:confused::confused::confused:

esse é o codigo do botao Imprimir Na Tela de Pedidos de Venda


IniciaRelatorio;
//SaliverPrinter1.Header(1);
//SaliverPrinter1.Footer(SaliverPrinter1.Lines-2);


//SaliverPrinter1.GotoYX(01,01, SaliverPrinter1.StringOfChar('-',54));
//012345678901234567890123456789012345678901234567890123456789012345678901234567
SaliverPrinter1.GotoYX(01,01, '========================================================================');
SaliverPrinter1.GotoYX(02,01, Centrar(FrmPrincipal.db_empresa.FieldByName('NOME').AsString,74), [tpfNegrito] );
SaliverPrinter1.GotoYX(03,01, Centrar(FrmPrincipal.db_empresa.FieldByName('ENDERECO').AsString,74) );
SaliverPrinter1.GotoYX(04,01, Centrar(FrmPrincipal.db_empresa.FieldByName('ENDERECO2').AsString,74) );
SaliverPrinter1.GotoYX(05,01, Centrar(FrmPrincipal.db_empresa.FieldByName('FONE').AsString,74) );
SaliverPrinter1.GotoYX(06,01, StringOfChar('_', 72) );
SaliverPrinter1.GotoYX(07,01, 'Nº Controle.: '+CampoTexto(db_vendas.FieldByName('CODIGO').AsString,8)+StringOfChar(' ', 25)+'Data: '+DateToStr(Date)+' - '+Copy(TimeToStr(time),1,5)+'h' );

SaliverPrinter1.GotoYX(08,01, 'Cliente.....: '+db_vendas.FieldByName('CLIENTE').AsString+'-'+db_vendas.FieldByName('NomeCliente').AsString );
SaliverPrinter1.GotoYX(09,01, 'Forma Pagto.: '+db_vendas.FieldByName('NomeFormapagto').AsString );
SaliverPrinter1.GotoYX(10,01, StringOfChar('_', 72) );
SaliverPrinter1.GotoYX(11,01, 'Codigo: Descricao: UN: Qtd: Vl. Unit: Subtotal:' );
SaliverPrinter1.GotoYX(12,01, StringOfChar('-', 72) );


wInteger[0] :=12;
wFloat[0] :=0;
db_VendasItens.first;
while not db_VendasItens.eof do
begin
wFloat[0] := wFloat[0] + db_VendasItens.FieldByName('QTDE').AsFloat ;

inc(wInteger[0]);
SaliverPrinter1.GotoYX(wInteger[0],01, CampoCodigo(db_VendasItens.FieldByName('PRODUTO').AsString, 06)+StringOfChar(' ', 3)+
CampoTexto(db_VendasItens.FieldByName('DESCRICAO').AsString, 30)+
CampoTexto(db_VendasItens.FieldByName('UND').AsString, 03)+
CampoCodigo(db_VendasItens.FieldByName('QTDE').AsString, 05){+StringOfChar(' ', 1)}+
CampoValor(db_VendasItens.FieldByName('VLR_UNIT').AsFloat, 12)+
CampoValor(db_VendasItens.FieldByName('VLR_TOTAL').AsFloat, 11) );

db_VendasItens.next;
End;
db_VendasItens.first;

inc(wInteger[0]);
SaliverPrinter1.GotoYX(wInteger[0],01, StringOfChar('-', 72) );

inc(wInteger[0]);
SaliverPrinter1.GotoYX(wInteger[0],01, 'Qtde Produtos....: '+CampoCodigo(db_vendas.FieldByName('QTDE_PRODUTOS').AsString, 08 ) );

inc(wInteger[0]);
SaliverPrinter1.GotoYX(wInteger[0],01, 'Desconto.........: '+CampoValor(db_vendas.FieldByName('VLR_DESCONTO').AsFloat,08 ) );

inc(wInteger[0]);
SaliverPrinter1.GotoYX(wInteger[0],01, 'Total............: '+CampoValor(db_vendas.FieldByName('TOTAL_NF').AsFloat,08 ) );


inc(wInteger[0]);
SaliverPrinter1.GotoYX(wInteger[0],01, StringOfChar('-', 72) );


db_faturasimprimir.open;
if db_faturasimprimir.RecordCount>0 then
begin
inc(wInteger[0]);
SaliverPrinter1.GotoYX(wInteger[0],01, Centrar('DADOS DAS FATURAS',74));
inc(wInteger[0],2);

//***

inc(wInteger[0]);
SaliverPrinter1.GotoYX(wInteger[0],01, 'Fatura: Data: Vencimento: Valor: Situacao: ' );
inc(wInteger[0]);
SaliverPrinter1.GotoYX(wInteger[0],01, StringOfChar('-', 72) );


db_faturasimprimir.first;
while not db_faturasimprimir.eof do
begin

inc(wInteger[0]);
SaliverPrinter1.GotoYX(wInteger[0],01, CampoTexto(db_faturasimprimir.FieldByName('DOCUMENTO').AsString , 11)+
CampoTexto(db_faturasimprimir.FieldByName('DATA').AsString, 14)+
CampoTexto(db_faturasimprimir.FieldByName('VENCIMENTO').AsString, 13)+
CampoValor(db_faturasimprimir.FieldByName('VALOR').AsFloat, 13)+StringOfChar(' ', 7)+
CampoTexto(db_faturasimprimir.FieldByName('QUITADO').AsString, 12) );

db_faturasimprimir.next;
End;
db_faturasimprimir.close;


//***
end;

inc(wInteger[0],4);
SaliverPrinter1.GotoYX(wInteger[0],01, Centrar('_________________________________________',74) );
inc(wInteger[0]);
SaliverPrinter1.GotoYX(wInteger[0],01, Centrar('Assinatura do Cliente',74) );

TerminaRelatorio;



end;

Obrigado

e Por Favor Me Ajudem Urgente!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário






Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×