Fórum RlBoleto não aparece a logo do banco #340389
14/04/2007
0
Estou usando o rlboleto para impressão de boletos bancários, mas não aparece a logo dos boletos, segue abaixo minha rotina para capturar os dados para gerar o boleto:
procedure TFrmRLBoleto.DadosBoleto;
var
nQtdeBoletos: Integer; //simular a quantidade de registros
nI: Integer;
begin
with DmCadastros, datamodule1, dmfinanceiro, DmConfiguracao do
begin
Panel1.Visible := True;
Repaint;
if CheckBox2.Checked then
nQtdeBoletos := StrToInt(Trim(MaskEdit2.Text))
else
nQtdeBoletos := 1;
ProgressBar1.Max := nQtdeBoletos;
ProgressBar1.Position := 0;
ProgressBar1.Visible := True;
for nI := 1 to nQtdeBoletos do
begin
ProgressBar1.Position := nI;
//Dados do Cedente
RLBTitulo1.Cedente.ContaBancaria.Banco.codigo := Trim(Copy(DmCadastros.ContaBanc_CDSNOMEBANCO.Value,1,3));
RLBTitulo1.Cedente.ContaBancaria.CodigoAgencia := ContaBanc_CDSAGENCIA.Value;
RLBTitulo1.Cedente.ContaBancaria.DigitoAgencia := ContaBanc_CDSDIGITO_AG.Value;
RLBTitulo1.Cedente.ContaBancaria.NumeroConta := ContaBanc_CDSCONTACORRENTE.Value;
RLBTitulo1.Cedente.ContaBancaria.DigitoConta := ContaBanc_CDSDIGITO_CC.Value;
RLBTitulo1.Cedente.CodigoCedente := ´6535´;
RLBTitulo1.Cedente.DigitoCodigoCedente := ´8´;
RLBTitulo1.Carteira := ´17´;
RLBTitulo1.Cedente.ContaBancaria.Convenio := ContaBanc_CDSNOSSONUMERO.Value;
RLBTitulo1.Cedente.ContaBancaria.NomeCliente := Empresa_CDSRAZAOSOCIAL.Value;
RLBTitulo1.Cedente.TipoInscricao := tiPessoaJuridica;
RLBTitulo1.Cedente.NumeroCPFCGC := Empresa_CDSCGC.Value;
RLBTitulo1.Cedente.Nome := Empresa_CDSRAZAOSOCIAL.Value;
//dados do sacado
CDS_Clientes.Locate(´CODCLIENTE´,(CDS_OrcamentosCODCLIENTE.value),[]);
RLBTitulo1.Sacado.Nome := CDS_ClientesRAZAOSOCIAL.Value;
case ComboBox2.ItemIndex of
0: RLBTitulo1.Sacado.TipoInscricao := tiPessoaFisica;
1: RLBTitulo1.Sacado.TipoInscricao := tiPessoaJuridica;
end;
RLBTitulo1.Sacado.NumeroCPFCGC := CDS_ClientesCGC.Value;
RLBTitulo1.Sacado.Endereco.Rua := CDS_ClientesENDERECO.Value +´ ´+ CDS_ClientesBAIRRO.Value;
RLBTitulo1.Sacado.Endereco.Cidade := CDS_ClientesCIDADE.Value;
RLBTitulo1.Sacado.Endereco.Estado := CDS_ClientesUF.Value;
RLBTitulo1.Sacado.Endereco.CEP := CDS_ClientesCEP.Value;
//dados da cobranca
RLBTitulo1.NossoNumero := ContaBanc_CDSNOSSONUMERO.Value + IntToStr(CDS_OrcamentosCODBOLETO.Value);
RLBTitulo1.ValorDocumento := Receitas_CDSVALOR.Value;
RLBTitulo1.DataDocumento := DataServ;
RLBTitulo1.DataVencimento := Receitas_CDSVENCIMENTO.Value;
RLBTitulo1.NumeroDocumento := inttostr(CDS_OrcamentosCODORCAMENTO.value);
RLBTitulo1.Instrucoes.Clear;
RLBTitulo1.Instrucoes.Add(ParamBoleto_CDSINSTRUCOES1.Text);
RLBTitulo1.Instrucoes.Add(ParamBoleto_CDSINSTRUCOES2.Text);
end;
ProgressBar1.Visible := False;
Repaint;
end;
end;
Se puderem me ajudar eu agradeço!!!!!! :)
Rogsystem
Curtir tópico
+ 0Posts
17/04/2007
Weber
Na unit do banco o código da imagem deve ser o mesmo da imagem no ImageList do layout.
Gostei + 0
19/04/2007
Rogsystem
não entendi o q vc quis dizer,, o certo era haver a logomarca?
Na unit do banco o código da imagem deve ser o mesmo da imagem no ImageList do layout[color=blue:685adabb8c][/color:685adabb8c]
no image list não achei onde ficam estes codigos, tbém não há nenhuma logo
Gostei + 0
21/04/2007
Rogsystem
Gostei + 0
23/04/2007
Weber
Infelizmente o RLBoleto não dispoe de um manual, mas você vai conseguir encontrar muito material em nosso fórum oficial (Link Abaixo)
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)