Bom dia Juliana!
Esta é a configuração que estou usando
dm.ACBrBoleto.Cedente.TipoInscricao:= pJuridica;
dm.ACBrBoleto.Cedente.CNPJCPF:= TB_EMPRESAS.FieldValues['CNPJ_CPF'];
dm.ACBrBoleto.Cedente.Nome:= TB_EMPRESAS.FieldValues['RazaoSocial_NomeEmpresa'];
dmForte.ACBrBoleto.Banco.Digito := 10;
dmForte.ACBrBoleto.Banco.Numero := 748;
dmForte.ACBrBoleto.Banco.Nome := 'SICREDI';
dmForte.ACBrBoleto.Banco.LocalPagamento := 'PAGAR PREFERENCIALMENTE NAS AGENCIAS DO SICREDI';
dmForte.ACBrBoleto.Banco.TipoCobranca := cobSicred;
dmForte.ACBrBoleto.Cedente.CodigoCedente := '98628'; // Conta Corrente
dmForte.ACBrBoleto.Cedente.Agencia := '0810'; // Agencia banco
dmForte.ACBrBoleto.Cedente.AgenciaDigito := '14'; // Posto Sicredi
dmForte.ACBrBoleto.Cedente.Conta := '98628'; // Conta Corrente
dmForte.ACBrBoleto.Cedente.ContaDigito := '4';
dmForte.ACBrBoleto.Cedente.UF := 'MT';
if ComboBox1.Text = 'cobSicred' then
begin
mm:=FormatDateTime('M',Now);
if mm = '10' then
mm:= '0';
if mm = '11' then
mm:= 'N';
if mm = '12' then
mm:= 'D';
dd:=FormatDateTime('DD',Now);
dmForte.ACBrBoleto.NomeArqRemessa := '98628'+mm+dd+'.crm';
end;
dmForte.ACBrBoleto.LayoutRemessa:=c400;
O erro se dá quando vou gerar o boleto
Titulo := dm.ACBrBoleto.CriarTituloNaLista;
with Titulo do
begin
Vencimento := QrPedidoPagamentos.FieldValues['Vencimento']; //StrToDate(edtVencimento.Text);
DataDocumento := QrPedido.FieldValues['DataPedido']; //StrToDate(edtDataDoc.Text);
NumeroDocumento := QrPedidoPagamentos.fieldvalues['DocumentoNro']; //edtNumeroDoc.Text;
EspecieDoc := edtEspecieDoc.Text;
if cbxAceite.ItemIndex = 0 then
Aceite := atSim
else
Aceite := atNao;
if ComboBox1.Text = 'cobSicred' then
CodigoGeracao:= '14'; // Posto Sicredi // somente para o sicredi Posto Sicredi
Erro
" O erro é aqui neste campo ( CodigoGeracao ) , ele só aceita os numeros 23456789 "
Erro
Para o Sicredi este campo tem que ser preenchido com o Posto e como o Posto é 14 da o erro.
DataProcessamento := Now;
end;