Ir para conteúdo
  • Cadastre-se

dev botao
  • Este tópico foi criado há 4770 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

boa tarde , é normal que as tags ValorOutrasDespesas e ValorDespesaCobranca não sejam impressas no boleto ? Coloco valores nesses campos e não são impressos , tentei em todos os bancos e nada ! é normal isso mesmo ?

with Titulo do

begin

Vencimento := StrToDate(edtVencimento.Text);

DataDocumento := StrToDate(edtDataDoc.Text);

NumeroDocumento := edtNumeroDoc.Text ;

EspecieDoc := edtEspecieDoc.Text;

if cbxAceite.ItemIndex = 0 then

Aceite := atSim

else

Aceite := atNao;

DataProcessamento := StrToDate(edtDataDoc.Text);

NossoNumero := edtNossoNro.Text ;

Carteira := edtCarteira.Text;

ACBrBoleto.Cedente.Convenio := edtConvenio.Text ;

ACBrBoleto.Cedente.Modalidade := edtModalidade.Text ;

ValorDocumento := StrToCurr(edtValorDoc.Text);

Sacado.NomeSacado := edtNome.Text;

Sacado.CNPJCPF := RemoveStrings(edtCPFCNPJ.Text,AString);

Sacado.Logradouro := edtEndereco.Text;

Sacado.Numero := edtNumero.Text;

Sacado.Bairro := edtBairro.Text;

Sacado.Cidade := edtCidade.Text;

Sacado.UF := edtUF.Text;

Sacado.CEP := RemoveStrings(edtCEP.Text,AString);

ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text,0);

LocalPagamento := edtLocalPag.Text;

ValorOutrasDespesas := StrToCurrDef( edtOutrasDespesas.text ,0) ;

ValorDespesaCobranca := StrToCurrDef( edtDespesaCobranca.text ,0) ;

ValorMoraJuros := StrToCurrDef(edtMoraJuros.Text,0);

ValorDesconto := StrToCurrDef(edtValorDesconto.Text,0);

ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text,0);

DataMoraJuros := StrToDateDef(edtDataMora.Text, 0);

DataDesconto := StrToDateDef(edtDataDesconto.Text, 0);

DataAbatimento := StrToDateDef(edtDataAbatimento.Text, 0);

DataProtesto := StrToDateDef(edtDataProtesto.Text, 0);

PercentualMulta := StrToCurrDef(edtMulta.Text,0);

Mensagem.Text := memMensagem.Text;

OcorrenciaOriginal.Tipo := toRemessaBaixar ;

Instrucao1 := padL(trim(edtInstrucoes1.Text),2,'0');

Instrucao2 := padL(trim(edtInstrucoes2.Text),2,'0');

end ;

Valeu pela força

Marcio .

  • Administradores
Postado

Boa tarde.

Esses valores realmente não estão programados para serem impressos, mas são informações fornecidas no arquivo retorno do banco, conforme vc pode conferir nos manuais dos bancos.

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Postado

Juliana entendi , no caso o campo ValorDespesaCobranca não tem tanta importancia pois nem tem este campo no boleto , mas o campo ValorOutrasDespesas tem ! enfim...

Juliana posso estar analizando os fontes e implementando isso , para todos os efeitos terei que estudar os fontes para implemento e vcs não pois ja tem as cordenadas do projeto , seria dificil vcs estar implementando isso ? pois no caso seria válido para o projeto e demais usuarios que venham a precisar e não só pra mim .

Obrigado .

Marcio .

  • Este tópico foi criado há 4770 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

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

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.