Alguem poderia me ajudar
estou usando o acbrboleto com delphi
consigo fazer as consultas dos titulos e consulta individual, me retorna tudo blz
mas nao consigo enviar uma instrucao para fazer a baixa
talvez estou fazendo algo errado, na verdade somente tenho esse demo do acbr e lá nao tem
nenhum exemplo de baixa
o codigo a seguir é onde faz a inclusao de um titulo para cadastro ou consulta
Titulo := dm.ACBrBoleto.CriarTituloNaLista;
Titulo.Vencimento := StrToDate(edtVencimento.Text);
Titulo.DataDocumento := StrToDate(edtDataDoc.Text);
Titulo.NumeroDocumento := edtNumeroDoc.Text;
Titulo.EspecieDoc := edtEspecieDoc.Text;
if cbxAceite.ItemIndex = 0 then
Titulo.Aceite := atSim
else
Titulo.Aceite := atNao;
Titulo.DataProcessamento := Now;
Titulo.Carteira := edtCarteira.Text;
Titulo.NossoNumero := edtNossoNro.Text;
Titulo.ValorDocumento := StrToCurr(edtValorDoc.Text);
Titulo.Sacado.NomeSacado := edtNome.Text;
Titulo.Sacado.CNPJCPF := OnlyNumber(edtCPFCNPJ.Text);
Titulo.Sacado.Logradouro := edtEndereco.Text;
Titulo.Sacado.Numero := edtNumero.Text;
Titulo.Sacado.Bairro := edtBairro.Text;
Titulo.Sacado.Cidade := edtCidade.Text;
Titulo.Sacado.UF := edtUF.Text;
Titulo.Sacado.CEP := OnlyNumber(edtCEP.Text);
Titulo.ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text,0);
Titulo.LocalPagamento := edtLocalPag.Text;
Titulo.ValorMoraJuros := StrToCurrDef(edtMoraJuros.Text,0);
Titulo.ValorDesconto := StrToCurrDef(edtValorDesconto.Text,0);
Titulo.ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text,0);
Titulo.DataMoraJuros := StrToDateDef(edtDataMora.Text, 0);
Titulo.DataDesconto := StrToDateDef(edtDataDesconto.Text, 0);
Titulo.TipoDesconto := tdNaoConcederDesconto;
Titulo.DataAbatimento := StrToDateDef(edtDataAbatimento.Text, 0);
Titulo.DataProtesto := StrToDateDef(edtDataProtesto.Text, 0);
Titulo.PercentualMulta := StrToCurrDef(edtMulta.Text,0);
Titulo.CodigoMoraJuros := cjValorMensal;
titulo.DataBaixa := StrToDateDef(DateToStr(Now), 0); ESTE CAMPO EU INCLUI PARA TENTAR ENVIAR A BAIXA
// Titulo.OcorrenciaOriginal.Tipo := toRemessaRegistrar;
Titulo.OcorrenciaOriginal.Tipo := toRemessaBaixar; ESTE EU ALTEREI TAMBEM
Titulo.Instrucao1 := trim(edtInstrucoes1.Text);
Titulo.Instrucao2 := trim(edtInstrucoes2.Text);
Titulo.QtdePagamentoParcial := 1;
Titulo.TipoPagamento := tpNao_Aceita_Valor_Divergente;
Titulo.PercentualMinPagamento := 0;
Titulo.PercentualMaxPagamento := 0;
Titulo.ValorMinPagamento := 0;
Titulo.ValorMaxPagamento := 0;
titulo.ValorPago := StrToCurrDef(valorpago.Text,0); E INCLUI AQUI O VALOR DO PAGAMENTO
entao criei um botao para fazer a baixa e inclui o seguinte
Boleto := dm.ACBrBoleto;
Boleto.Configuracoes.WebService.Operacao := tpBaixa; // tpConsulta;
Boleto.Enviar;
é igual ao botao de consulta
a diferenca é o tpBaixa que antes estava tpConsulta
por favor preciso de ajuda.
Agradeço desde já.
