epantoja22

Esse campo TipoOcorrencia, fica no Titulo? Não encontrei ele.

Código do Demo e o arquivo remessa gerado por ele. =================================================== with dm.ACBrBoleto.Banco do begin TipoCobranca:= cobBancoDoBrasil; end; with dm.ACBrBoleto.Cedente do begin Nome:= 'L. C.SDDDD'; CodigoCedente:='001'; Agencia:= '4222'; AgenciaDigito:= '6'; Conta:= '11566'; ContaDigito:= '5'; Convenio:= '3107702'; TipoCarteira:= tctRegistrada; ResponEmissao:= tbCliEmite; CaracTitulo:= tcSimples; CNPJCPF:= '03225988000185'; TipoInscricao:= pJuridica; Logradouro:= ' sda'; NumeroRes:= '23'; Complemento:='ds'; Bairro:= 'e'; Cidade:= 'ws'; UF:= 'PA'; CEP:= '66083390'; Modalidade:= '019'; end; dm.ACBrBoleto.Cedente.FantasiaCedente := 'Nome Fantasia'; dm.ACBrBoleto.Cedente.Nome := 'Nome do cedente'; dm.ACBrBoleto.Cedente.Logradouro := 'Logradouro do cedente'; dm.ACBrBoleto.Cedente.Bairro := 'Bairro do cedente'; dm.ACBrBoleto.Cedente.Cidade := 'Cidade do cedente'; dm.ACBrBoleto.Cedente.CEP := 'CEP do cedente'; dm.ACBrBoleto.Cedente.Telefone := '(xx) 99999-9999'; Titulo := dm.ACBrBoleto.CriarTituloNaLista; 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 := Now; Carteira := edtCarteira.Text; NossoNumero := edtNossoNro.Text; ValorDocumento := StrToCurr(edtValorDoc.Text); Sacado.NomeSacado := edtNome.Text; Sacado.CNPJCPF := OnlyNumber(edtCPFCNPJ.Text); Sacado.Logradouro := edtEndereco.Text; Sacado.Numero := edtNumero.Text; Sacado.Bairro := edtBairro.Text; Sacado.Cidade := edtCidade.Text; Sacado.UF := edtUF.Text; Sacado.CEP := OnlyNumber(edtCEP.Text); ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text,0); LocalPagamento := edtLocalPag.Text; 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); DataLimitePagto := StrToDate(edtVencimento.Text)+20; PercentualMulta := StrToCurrDef(edtMulta.Text,0); //Mensagem.Text := memMensagem.Text; OcorrenciaOriginal.Tipo := toRemessaBaixar; Instrucao1 := PadRight(trim(edtInstrucoes1.Text),2,'0'); Instrucao2 := PadRight(trim(edtInstrucoes2.Text),2,'0'); QtdePagamentoParcial:= 1; TipoPagamento:= tpNao_Aceita_Valor_Divergente; PercentualMinPagamento:= 0; PercentualMaxPagamento:= 0; ValorMinPagamento:= 0; ValorMaxPagamento:= 0; // dm.ACBrBoleto.AdicionarMensagensPadroes(Titulo,Mensagem); if cbxLayOut.ItemIndex = 6 then begin for i:=0 to 3 do begin VLinha := '.'; VQtdeCarcA := length('Descrição Produto/Serviço ' + IntToStr(I)); VQtdeCarcB := Length('Valor:'); VQtdeCarcC := 85 - (VQtdeCarcA + VQtdeCarcB); VLinha := PadLeft(VLinha,VQtdeCarcC,'.'); Detalhamento.Add('Descrição Produto/Serviço ' + IntToStr(I) + ' '+ VLinha + ' Valor: '+ PadRight(FormatCurr('R$ ###,##0.00', StrToCurr(edtValorDoc.Text) * 0.25),18,' ') ); end; Detalhamento.Add(''); Detalhamento.Add(''); Detalhamento.Add(''); Detalhamento.Add(''); Detalhamento.Add('Desconto ........................................................................... Valor: R$ 0,00' ); end; logo:= ExtractFileDir(ParamStr(0)) + '\acbr_logo.jpg'; ArquivoLogoEmp := logo; // logo da empresa //ShowMessage(logo); Verso := ((cbxImprimirVersoFatura.Checked) and ( cbxImprimirVersoFatura.Enabled = true )); end; cb070606.rem

with Titulo do begin Carteira:= dmFinancas.CedentesCarteira.Value; CarteiraEnvio:= tceCedente; Vencimento := dmFinancas.Titulos1Vencimento.AsDateTime; DataLimitePagto:= dmFinancas.Titulos1Vencimento.AsDateTime + dmFinancas.CedentesPeriodoProtestoTitulo.asinteger; DataDocumento := dmFinancas.Titulos1Emissao.AsDateTime; NumeroDocumento := Trim(dmFinancas.Titulos1NumeroDoc2.Text); EspecieDoc:= 'DM'; Aceite:= atSim; DataProcessamento:= Date; NossoNumero:= dmFinancas.Titulos1NumeroDoc2.Text; EspecieMod:= 'R$'; ValorDocumento:= dmFinancas.Titulos1ValorBoleto.AsCurrency; =============================================================== O meu código ta assim, inserindo o vencimento e a datalimitepagamento, porém não insere esses dias de diferença no arquivo remessa. Arquivo em anexo. CB070658.REM

Bom dia, Gostaria de saber qual campo vc preenche para resolver este problema: Orientações: 1. Regularize as informações marcadas abaixo; ******************************* Detalhe tipo 5 ******************************** Posições 023 a 025: Caso o preenchimento permaneça com 000 dias, o título não poderá ser recebido após o seu vencimento . Para recebimento após vencimento alterar campos com "Quantidade de dias para recebimento após vencimento". Ou preencher com "Brancos"

Boa tarde. também me deparei com esta mensagem Orientações: 1. Regularize as informações marcadas abaixo; ******************************* Detalhe tipo 5 ******************************** Posições 023 a 025: Caso o preenchimento permaneça com 000 dias, o título não poderá ser recebido após o seu vencimento . Para recebimento após vencimento alterar campos com "Quantidade de dias para recebimento após vencimento". Ou preencher com "Brancos" Não consegui identificar qual campo devo preencher.