amauridebarros

Desde ontem estou recebendo esta mensagem no servidor de homologação de guarulhos quando estou tentando emitir uma NFSE erro interno: 12156 alguem sabe me dizer o que pode estar acontecendo?

==RESOLVIDO== Mauricio obrigado pelo retorno, Eu olhei o xml e ele não estava carregando o valor do iss retiro.

Bom dia, Estou gerando uma Nfse para guarulhos, e uma das notas vai ter ISS retido, Eu coloquei a tag Servico.Valores.IssRetido:= stRetencao; mas na transmissão ele me retorna o erro abaixo. "Valor Liquido de NFSe informada incorretamente" Os valores estão certos só temos valores no valor dos servicos e no issretido Valor dos serviços: 766,75 Iss Retido: 27,373 Vlr Liquido 739,377 são estes o valores que estão informados la. Alguem sabe o que eu posso estar fazendo errado?

Bom dia, Eu enviei um RPS para a prefeitura de Guarulhos, e ele me retornou a mensagem TMEOUT DE REQUISIÇÂO. Apesar desta mensagem quando eu consulto a Nota no site da prefeitura eu consigo ver que a NFE foi emitida. Então uma vez que a nota está no site da prefeitura eu gostaria de emitir a DANFE então eu achei que poderia usar a opção (Consultar NFE por RPS) Opção do programa exemplo. Ocorre que quando eu seleciono o RPS que eu enviei ele me retorna a seguinte mensagem. " Arquivo enviado fora da estrutura do arquivo XML de entrada. Envie um arquivo dentro do schema do arquivo XML de entrada" Alguém tem ideia do que eu posso estar fazendo errado? Segue anexo o arquivo rps, se entrarmos na base de homologação da prefeitura de Guarulhos e fizermos uma consulta pelo rps anexado veremos que a NFSE esta emitida. Resumo: 01 O Arquivo RPS foi gerado porem me retornou a mensagem Timeout de requisição 02 Eu entro no site da prefeitura consulto a nota pelo RPS gerado e a nota está emitida 03 Eu uso a opção (Consultar NFSE pelo RPS) seleciono o RPS gerado pelo exemplo e ele me retorna a mensagem de que o arquivo esta fora da estrutura do xml segue anexo o xml do rps 3521080619644300018656000000000005050-rps.xml

--RESOLVIDO-- Eu não sei exatamente o que mas havia algo travando na minha aplicação eu não fiz alteração alguma nem nada de diferente, não tenho dúvida de que havia um problema e que este problema foi aqui na minha aplicação. O Fato é que o processo passou a ser enviado corretamente. Obrigado a todos. e desculpem.

Bom pessoal Realmente eu cheguei no limite da minha competência neste processo Alterei as linhas abaixo ACBrNFSe.Configuracoes.WebServices.Ambiente :=taProducao; with NotasFiscais.Add.NFSe Producao:=snSim; não consegui encontrar mais nada que alterasse o ambiente.

Eu fiz uma alteração no fonte incluindo um item que eu achei aqui no forum mas não funcionou eu inclui esta linha ACBrNFSe.Configuracoes.WebServices.Ambiente:=taProducao; mas conforme eu disse não ele continua enviendo a nota para o ambiente de homologação.

Ao que está parecendo a informação produção só serve pra mensagem sair ou não na nota, quando coloco em homologação a nfse sai com a informação (nota emitida em ambiente de homologação. e quando esta em produção a mensagem não sai mas a nota vai pra homologação do mesmo jeito. o meu exemplo não esta funcionando estou arrumando pra tentar testar nele.

UntM005HK.txt

Favor Anexar o arquivo

No demo eu só reproduzi na base de homologação não testei enviando pra produção não.

Bom dia pessoal Estou com um probleminha aqui veja se voces podem me dar o caminhos das pedras pra resolver Estou emitindo uma nfse para guarulhos e estou direcionando o ambiente para produção Producao := snSim; porem ele manda a nota para o ambiente de homologação... O que eu posso estar fazendo de errado? segue abaixo a rotina alimentecomponente. ****************************************************************** ****************************************************************** procedure TFrmM005HK.AlimentaComponente(NumNFSe, NumLote: String); var ValorISS: Double; ValorNfs: Double; VsCnpj : String; begin with ACBrNFSe do begin // Provedor ISSNet sem certificado Configuracoes.Geral.Emitente.WebChaveAcesso := 'A001.B0001.C0001-1'; with Configuracoes.Geral.Emitente.DadosSenhaParams.Add do begin Param := 'ChaveAutorizacao'; Conteudo := 'A001.B0001.C0001-1'; end; NotasFiscais.NumeroLote := NumLote; NotasFiscais.Transacao := True; with NotasFiscais.Add.NFSe do begin NumeroLote := NumLote; IdentificacaoRps.Numero := FormatFloat('#########0', StrToInt(NumNFSe)); // Para o provedor ISS.NET em ambiente de Homologação mudar a série para '8' IdentificacaoRps.Serie := 'NF'; // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom ); IdentificacaoRps.Tipo := trRPS; DataEmissao := Now; DataEmissaoRPS := Now; (* TnfseNaturezaOperacao = ( no1, no2, no3, no4, no5, no6, no7, no50, no51, no52, no53, no54, no55, no56, no57, no58, no59, no60, no61, no62, no63, no64, no65, no66, no67, no68, no69, no70, no71, no72, no78, no79, no101, no111, no121, no201, no301, no501, no511, no541, no551, no601, no701 ); *) NaturezaOperacao := no1; // TnfseRegimeEspecialTributacao = ( retNenhum, retMicroempresaMunicipal, retEstimativa, retSociedadeProfissionais, retCooperativa, retMicroempresarioIndividual, retMicroempresarioEmpresaPP ); RegimeEspecialTributacao := retMicroempresarioEmpresaPP; // TnfseSimNao = ( snSim, snNao ); OptanteSimplesNacional := snSim; // TnfseSimNao = ( snSim, snNao ); IncentivadorCultural := snNao; // TnfseSimNao = ( snSim, snNao ); // snSim = Ambiente de Produção // snNao = Ambiente de Homologação Producao := snSim; // TnfseStatusRPS = ( srNormal, srCancelado ); Status := srNormal; // Somente Os provedores Betha, FISSLex e SimplISS permitem incluir no RPS // a TAG: OutrasInformacoes os demais essa TAG é gerada e preenchida pelo // WebService do provedor. OutrasInformacoes := 'Pagamento a Vista'; // Usado quando o RPS for substituir outro // RpsSubstituido.Numero := FormatFloat('#########0', i); // RpsSubstituido.Serie := 'UNICA'; // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom ); /// RpsSubstituido.Tipo := trRPS; ValorISS:=0; ValorNfs:=0; VdAtbNse.fvcitense.First; while Not VdAtbNse.fvcitense.Eof do Begin ValorNfs:=ValorNfs + VdAtbNse.fvcitense.FieldByName('basecalculo').AsFloat; ValorISS:=ValorISS + VdAtbNse.fvcitense.FieldByName('issretido').AsFloat; VdAtbNse.fvcitense.next; End; Servico.Valores.ValorServicos := ValorNfs; Servico.Valores.ValorDeducoes := 0.00; Servico.Valores.ValorPis := 0.00; Servico.Valores.ValorCofins := 0.00; Servico.Valores.ValorInss := 0.00; Servico.Valores.ValorIr := 0.00; Servico.Valores.ValorCsll := 0.00; // TnfseSituacaoTributaria = ( stRetencao, stNormal, stSubstituicao ); // stRetencao = snSim // stNormal = snNao if VdAtbNse.fVicmuemi = VdAtbNse.fvicodmun then Begin Servico.Valores.IssRetido:= stNormal; Servico.Valores.Aliquota := 0; ValorISS:=0; End Else Begin Servico.Valores.IssRetido:= stNormal; Servico.Valores.Aliquota := 0; ValorISS:=0; End; Servico.Valores.ValorIssRetido := ValorISS; Servico.Valores.OutrasRetencoes := 0.00; Servico.Valores.DescontoIncondicionado := 0.00; Servico.Valores.DescontoCondicionado := 0.00; Servico.Valores.BaseCalculo := Servico.Valores.ValorServicos - Servico.Valores.ValorDeducoes - Servico.Valores.DescontoIncondicionado; // No caso do provedor Ginfes devemos informar a aliquota já dividida por 100 // para outros provedores devemos informar por exemplo 3, mas ao fazer o calculo // do valor do ISS devemos dividir por 100 // Valor do ISS calculado multiplicando-se a base de calculo pela aliquota ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota / 100; // A função RoundTo5 é usada para arredondar valores, sendo que o segundo // parametro se refere ao numero de casas decimais. // exemplos: RoundTo5(50.532, -2) ==> 50.53 // exemplos: RoundTo5(50.535, -2) ==> 50.54 // exemplos: RoundTo5(50.536, -2) ==> 50.54 Servico.Valores.ValorISS := RoundTo5(ValorISS, -2); Servico.Valores.ValorLiquidoNfse := Servico.Valores.ValorServicos - Servico.Valores.ValorPis - Servico.Valores.ValorCofins - Servico.Valores.ValorInss - Servico.Valores.ValorIr - Servico.Valores.ValorCsll - Servico.Valores.OutrasRetencoes - Servico.Valores.ValorIssRetido - Servico.Valores.DescontoIncondicionado - Servico.Valores.DescontoCondicionado; // TnfseResponsavelRetencao = ( ptTomador, rtPrestador ); Servico.ResponsavelRetencao := ptTomador; Servico.ItemListaServico := '01.07'; // Servico.CodigoCnae := '852010'; // Usado pelo provedor de Goiania Servico.CodigoTributacaoMunicipio := '951180001'; // Para o provedor ISS.NET em ambiente de Homologação // o Codigo CNAE tem que ser '6511102' // Servico.CodigoCnae := '123'; // Informação Opcional //Servico.CodigoTributacaoMunicipio := '3314799'; Servico.Discriminacao := 'Pestação de serviços'; // Para o provedor ISS.NET em ambiente de Homologação // o Codigo do Municipio tem que ser '999' Servico.CodigoMunicipio := '3518800'; //01 // Informar A Exigibilidade ISS para fintelISS [1/2/3/4/5/6/7] Servico.ExigibilidadeISS := exiExigivel; // Informar para Saatri Servico.CodigoPais := 1058; // Brasil Servico.MunicipioIncidencia := 3518800; // Somente o provedor SimplISS permite infomar mais de 1 serviço with Servico.ItemServico.Add do begin Descricao := 'SERVICO 1'; Quantidade := 1; ValorUnitario := 15.00; end; VsCnpj:=floattostr(VdAtbNse.fVfcnpemi); VsCnpj:=StringOfChar('0',(14-Length(VsCnpj))) + VsCnpj; Prestador.CNPJ := VsCnpj; Prestador.InscricaoMunicipal := '224780'; // Para o provedor ISSDigital deve-se informar também: // Prestador.Senha := edtSenhaWeb.Text; // Prestador.FraseSecreta := edtFraseSecWeb.Text; // Prestador.cUF := 33; PrestadorServico.Endereco.CodigoMunicipio := '3518800'; //02 PrestadorServico.RazaoSocial := VdAtbNse.fVsnomemi; VsCnpj:=floattostr(VdAtbNse.fVfcnpdes); VsCnpj:=StringOfChar('0',(14-Length(VsCnpj))) + VsCnpj; Tomador.IdentificacaoTomador.CpfCnpj := VsCnpj; Tomador.IdentificacaoTomador.InscricaoMunicipal := VdAtbNse.fVsimudes; Tomador.RazaoSocial := VdAtbNse.fVsnomdes; Tomador.Endereco.Endereco := VdAtbNse.fVsenddes; Tomador.Endereco.Numero := VdAtbNse.fVsnroend; Tomador.Endereco.Complemento := VdAtbNse.fVscpldes; Tomador.Endereco.Bairro := VdAtbNse.fVsbaides; Tomador.Endereco.CodigoMunicipio := IntToStr(VdAtbNse.fvicodmun); Tomador.Endereco.UF := VdAtbNse.fVsestcli; Tomador.Endereco.CodigoPais := 1058; // Brasil Tomador.Endereco.CEP := IntToStr(VdAtbNse.fVicepdes); // Provedor Equiplano é obrigatório o pais e IE Tomador.Endereco.xPais := 'BRASIL'; Tomador.IdentificacaoTomador.InscricaoEstadual := FloatToStr(VdAtbNse.fVfiesdes); Tomador.Contato.Telefone := VdAtbNse.fVsteldes; Tomador.Contato.Email := VdAtbNse.fvsemades; // Usado quando houver um intermediario na prestação do serviço // IntermediarioServico.RazaoSocial := 'razao'; // IntermediarioServico.CpfCnpj := '00000000000'; // IntermediarioServico.InscricaoMunicipal := '12547478'; // Usado quando o serviço for uma obra // ConstrucaoCivil.CodigoObra := '88888'; // ConstrucaoCivil.Art := '433'; end; end; end; ****************************************************************** ******************************************************************

Por favor alguem sabe como eu mudo o layout do ACBRBoleto eu não consegui entender direito pelo modelo em que momento ele muda o layout, eu quero emitir o boleto conforme a imagem 02 - Detalhado mas ele só emite conforme a imagem 01 boletopadrao. eu vi que no exemplo ele muda quando eu mudo o layout na caixa cbxLayOut mas não consegui entender quando ele joga esta opção para o relatório eu estou tentando isto DmAtbCadRec.ACBrBoleto.ACBrBoletoFC.LayOut :=lFaturaDetal; DmAtbCadRec.ACBrBoletoReport.LayOut :=lFaturaDetal; mas não esta funcionando.

==R E S O L V I D O == Bom dia pessoal não sei se este resultado chega a ser de interesse de todos mas de qualquer forma segue a solução pra gente fechar o tópico. O Código do Banco estava errado. Obrigado a todos.

Segue abaixo a rotina que está configurando o componente: ////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////////// procedure TFrmM005HK.SB_GerBolClick(Sender: TObject); Var Titulo : TACBrTitulo; Vsdesser: String; VLinha, logo : string; Vsdeschm:String; Vsatdchm:String; Vsperatd:String; begin Application.CreateForm(TDmAtbCadRec, DmAtbCadRec); DmAtbCadRec.ACBrBoleto.ListadeBoletos.Clear; DmAtbCadRec.ACBrBoleto.Cedente.FantasiaCedente :='xyz - informatica'; DmAtbCadRec.ACBrBoleto.Cedente.Nome :='xyz - informatica'; DmAtbCadRec.ACBrBoleto.Cedente.Logradouro :='Rua x'; DmAtbCadRec.ACBrBoleto.Cedente.Bairro :='Bairo xyz'; DmAtbCadRec.ACBrBoleto.Cedente.Cidade :='Cidade XYZ'; DmAtbCadRec.ACBrBoleto.Cedente.CEP :='07569-999'; DmAtbCadRec.ACBrBoleto.Cedente.Telefone :='(11) 9999-9999'; DmAtbCadRec.ACBrBoleto.Cedente.Modalidade :='01'; DmAtbCadRec.ACBrBoleto.LayoutRemessa :=c240; DmAtbCadRec.ACBrBoleto.Cedente.CodigoCedente :='999999-9'; DmAtbCadRec.ACBrBoleto.Cedente.CodigoTransmissao:=''; DmAtbCadRec.ACBrBoleto.Cedente.Agencia :='9999'; DmAtbCadRec.ACBrBoleto.Cedente.AgenciaDigito :='0'; DmAtbCadRec.ACBrBoleto.Cedente.Modalidade :='01'; DmAtbCadRec.ACBrBoleto.Cedente.Convenio :=''; DmAtbCadRec.ACBrBoleto.Cedente.TipoCarteira :=tctRegistrada; DmAtbCadRec.ACBrBoleto.Cedente.ResponEmissao :=tbCliEmite; DmAtbCadRec.ACBrBoleto.Cedente.TipoInscricao :=pJuridica; DmAtbCadRec.ACBrBoleto.Cedente.IdentDistribuicao:=tbClienteDistribui; DmAtbCadRec.ACBrBoleto.Cedente.CaracTitulo :=tcSimplesRapComReg; DmAtbCadRec.ACBrBoleto.Cedente.Conta :='0000000123456'; DmAtbCadRec.ACBrBoleto.Cedente.ContaDigito :='0'; DmAtbCadRec.ACBrBoleto.Cedente.CNPJCPF :='27.285.127/0001-50'; Titulo := DmAtbCadRec.ACBrBoleto.CriarTituloNaLista; with Titulo do begin Vencimento := StrToDate('16/05/2021'); DataDocumento := StrToDate('16/05/2021'); NumeroDocumento := '2'; EspecieDoc := 'DM'; Aceite := atNao; DataProcessamento := StrToDate('16/05/2021'); Carteira := '9'; NossoNumero := '2'; ValorDocumento := 5.37; Sacado.NomeSacado := 'Sacado e cia'; Sacado.CNPJCPF := '44.316.298/0001-19'; Sacado.Logradouro := 'Rua bcd'; Sacado.Numero := '1234'; Sacado.Bairro := 'Bairro bcd'; Sacado.Cidade := 'Cidade Bcd'; Sacado.UF := 'SP'; Sacado.CEP := '08893-000'; ValorAbatimento := 0; LocalPagamento := 'Pagar preferêncialmente nas agências do Sicoob'; ValorMoraJuros := 0; ValorDesconto := 0; DataMoraJuros := 0; // DataDesconto := ; // DataAbatimento := ; // DataProtesto := ; // PercentualMulta := ; // DataMulta := ; //Mensagem.Text := memMensagem.Text; // OcorrenciaOriginal.Tipo := toRemessaBaixar; OcorrenciaOriginal.Tipo :=toRemessaRegistrar; // Instrucao1 := VdBoleto.TInstrucao01; // Instrucao2 := VdBoleto.TInstrucao02; QtdePagamentoParcial:= 1; TipoPagamento:= tpNao_Aceita_Valor_Divergente; PercentualMinPagamento:= 0; PercentualMaxPagamento:= 0; ValorMinPagamento:= 0; ValorMaxPagamento:= 0; // dm.ACBrBoleto.AdicionarMensagensPadroes(Titulo,Mensagem); { ViLinhas:=1; Vsdesser:='Nro.OS' + stringOfChar(' ',10-Length('Nro.OS')) + 'Data' + stringOfChar(' ',12-Length('Data')) + 'Descrição do Chamado' + stringOfChar(' ',40-Length('Descrição do Chamado')) + 'Tipo'; Detalhamento.Add(Vsdesser); VdBoleto.TDetalhamento.First; while ((not VdBoleto.TDetalhamento.Eof) and (ViLinhas <= 27)) do Begin Vsatdchm:=VdBoleto.TDetalhamento.FieldByName('dataChamado').AsString; Vsdeschm:=VdBoleto.TDetalhamento.FieldByName('Descricao').AsString; Vsdesser:=VdBoleto.TDetalhamento.FieldByName('NumeroOS').AsString + stringOfChar(' ',10-Length(VdBoleto.TDetalhamento.FieldByName('numeroOS').AsString)) + Vsatdchm + stringOfChar(' ',20-Length(Copy(Vsatdchm,1,20))) + Vsdeschm + stringOfChar(' ',40-Length(Vsdeschm)) + ' ' + VdBoleto.TDetalhamento.FieldByName('tipo').AsString; Detalhamento.Add(Vsdesser); if (ViLinhas = 27) then begin Detalhamento.Add(Vsdesser); end; VdBoleto.TDetalhamento.Next; Vsatdchm:=''; Vsperatd:=''; Vsdeschm:=''; Vsdesser:=''; ViLinhas := ViLinhas +1; End; } logo:= ExtractFileDir(ParamStr(0)) + 'C:\sistemas\Delphi\AcbrBoleto\Win32\Debug\Img\hks.jpg'; //ArquivoLogoEmp := logo; // logo da empresa ArquivoLogoEmp := 'C:\sistemas\Delphi\AcbrBoleto\Win32\Debug\Img\hks.jpg'; // logo da empresa //ShowMessage(logo); Verso := False; end; //////////////////////////////////////////////////////////// //// gera a remessa DmAtbCadRec.ACBrBoleto.GerarRemessa(1); end; ////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////

Boa tarde, Por favor tem alguma forma da debugar o método ACBrBoleto.GerarRemessa(); Eu estou gerando um boleto que pelo exemplo esta funcionando certinho Porem quando eu coloco no meu sistema ao executar este método ele me retorna a mensagem abaixo '-' is not a valid integer value Eu estou conferindo o componente do exemplo com o meu isto vai me tomar bastante tempo por isso eu gostaria de saber se tem alguma forma de debugar este metodo ou se alguem sabe o que pode estar errado. Segue anexo a imagem do erro Obrigado

RESOLVIDO ArquivoLogoEmp:='caminho do logo\nomelogo' Obrigado a todos

Bom dia. Estou emitindo o ACBRBOLETO utilizando o layout (lFaturaDetal). Gostaria de saber se tem como colocar o logo do cliente na fatura conforme a imagem abaixo?

RESOLVIDO Muito obrigado

está informado na rotina abaixo, onde eu destaquei em vermelho. A não ser que tenha que informar em outro lugar. procedure TfrmDemo.Button4Click(Sender: TObject); var Titulo : TACBrTitulo; VQtdeCarcA, VQtdeCarcB, VQtdeCarcC :Integer; VLinha, logo : string; i: Integer; begin dm.ACBrBoleto.Cedente.FantasiaCedente := 'HKS INFORMATICA E SOLUCOES LTDA - ME'; dm.ACBrBoleto.Cedente.Nome := 'HKS INFORMATICA E SOLUCOES LTDA - ME'; dm.ACBrBoleto.Cedente.Logradouro := ' R. Evaristo Rodrigues de Arruda,121'; dm.ACBrBoleto.Cedente.Bairro := 'Jardim Dourado'; dm.ACBrBoleto.Cedente.Cidade := 'Guarulhos'; dm.ACBrBoleto.Cedente.CEP := '07093-100'; dm.ACBrBoleto.Cedente.Telefone := ' (11) 4969-5235'; dm.ACBrBoleto.Cedente.Modalidade:='01'; ///00001 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); PercentualMulta := StrToCurrDef(edtMulta.Text,0); //Mensagem.Text := memMensagem.Text; //OcorrenciaOriginal.Tipo := toRemessaBaixar; OcorrenciaOriginal.Tipo:=toRemessaRegistrar; 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;

Pessoal antes peço desculpas por abrir tantos tópicos mas estou abrindo a medida em que os erros vão aparecendo no meu arquivo. O Problema agora é que os dados do segmento R do arquivo estão vindo sem as datas, e o validador está dando erro porque o arquivo está sem a data de multa. Segue abaixo a ilustração do arquivo

RESOLVIDO O tipo do ítulo estava sendo alterado algumas linhas abaixo. Obrigado

Olá Conforme eu informei anteriormente eu estou utilizando o programa exemplo do acbrboleto. Eu fui no evento onclick do button4 (Botao incluir título) onde ele ja inicializa o método CriarTituloNalista e acrescentei a linha Titulo.OcorrenciaOriginal.Tipo:=toRemessaRegistrar; Mas não alterou nada no resultado. O que eu ainda posso estar fazendo de errado? ************************************************************************************************************************** Segue abaixo o corte do código do evendo onclick do button4 ************************************************************************************************************************** procedure TfrmDemo.Button4Click(Sender: TObject); var Titulo : TACBrTitulo; VQtdeCarcA, VQtdeCarcB, VQtdeCarcC :Integer; VLinha, logo : string; i: Integer; begin dm.ACBrBoleto.Cedente.FantasiaCedente := 'HKS INFORMATICA E SOLUCOES LTDA - ME'; dm.ACBrBoleto.Cedente.Nome := 'HKS INFORMATICA E SOLUCOES LTDA - ME'; dm.ACBrBoleto.Cedente.Logradouro := ' R. Evaristo Rodrigues de Arruda,121'; dm.ACBrBoleto.Cedente.Bairro := 'Jardim Dourado'; dm.ACBrBoleto.Cedente.Cidade := 'Guarulhos'; dm.ACBrBoleto.Cedente.CEP := '07093-100'; dm.ACBrBoleto.Cedente.Telefone := ' (11) 4969-5235'; dm.ACBrBoleto.Cedente.Modalidade:='01'; ///00001 Titulo := dm.ACBrBoleto.CriarTituloNaLista; Titulo.OcorrenciaOriginal.Tipo:=toRemessaRegistrar; with Titulo do begin

Bom dia, Estou enviando o arquivo de remessa para validação e ele está me apresentando o seguinte erro. 6 16 a 17 2 CÓDIGO DE MOVIMENTO REMESSA INVÁLIDO Conferindo o arquivo ele está informando nas posições 16-17 o numero 02 de acordo com o manual o código 02 refere-se à '02' = Solicitação de Baixa, o arquivo deveria informar '01' = Entrada de Títulos. Como eu faço pra corrigir este campo. Segue abaixo a ilustração do arquivo com a representação do erro. Obrigado.

RESOLVIDO Eu estou utilizando o programa exemplo e me esqueci que as configurações estão no fonte. eu configurei o campo modalidade conforme abaixo: dm.ACBrBoleto.Cedente.Modalidade:='01'; desta forma o campo ficou correto e a linha digitavel passou pelo validador. Obrigado a todos...