Luiz Carlos de Lima

Boa tarde Ítalo, estão anexos. 31181223338155000138670080000002061000002069-cteCorreto.xml 31181223338155000138670080000002061000002069-cte-rejeitado.xml

Bom dia, Ontem ao atualizar o ACBr, voltou a dar o erro - "INSS deve ser preenchido para tomador pessoa jurídica", na Emissão de um CTeOS dentro do Estado de MG de Tomador Jurídico não Isento, TpServ = 6 Transporte de Pessoas. Não estava gerando a Tag InfTribFed, voltei a Unit pcteCTeW.pas do dia 21/05/2018 e voltou a gerar a tag e o CTeOS foi processado.

Resolvido, Grato.

Boa tarde, Ao executar ACBrCEP1.BuscarPorCEP está retornando o erro abaixo. Já atualizei o ACBr e continua.

Grato Big, é isso mesmo.

Boa tarde, Ontem começou a retornar mensagem do envio de CTeOS "Número do registro estadual é obrigatório para transportes de pessoas rodoviário nas operações internas". Já atualizei o ACBR e os schemas, mas não resolveu. Estou carregando as tags da forma abaixo, conforme pode verificar no XML anexo o FAT é montado mas o NroRegEstadual não. infCTeNorm.rodoOS.TAF := FieldByName('TAF_FreteOS_Carga').AsString; infCTeNorm.rodoOS.NroRegEstadual := FieldByName('NroRegEstadual_FreteOS_Carga').AsString; 17181025021692000185670020000007581000007584-cte.xml

Bom dia, utilizo no Delphi, fiz umas alterações no modelo original do ACBR em anexo, veja se ajuda. BoletoFaturaConta.fr3

Boa tarde a todos, Grato pela atenção, em especial ao BigWings que acertou na mosca, estava passando o CNPJ do próprio certificado(falha braba), agora deu certo ao passar o CNPJ da filial correspondente.

Bom dia, Meu cliente tem duas filias, a filial 1 tem o CNPJ 03915923000161 e a Filial 5 o CNPJ 03915923000323. O certificado pertence ao CNJ 03915923000161, sendo que as duas usam o mesmo certificado. As notas emitidas pelo CNPJ 03915923000161 consigo pesquisar normalmente mas as notas da Filial 5 todas dão Documento não localizado e não monta um XML completo que possa fazer uma análise. Agradeço uma ajuda.

Boa tarde Jose, o que eu precisava voce já respondeu, que era gravar o XML de envio (vACBRCTE.Configuracoes.WebServices.Salvar := true;), por ele ja resolvi o problema. Muito obrigado.

Boa tarde José, grato pela atenção, Atualizei hoje o projeto ACBr assim como os schemas. haviam reclamado do erro no CTeOS, mas ao fazer testes verifiquei que no CTe também esta com erro. Segue os fontes: // CONFIGURACAO if vModeloDF = 57 then vACBRCTE.Configuracoes.Geral.ModeloDF := MoCTe // Mod 57 else vACBRCTE.Configuracoes.Geral.ModeloDF := MoCTeOS; // Mod 67 if vModeloDF = 67 then ACBrCTeDACTeFR.FastFile := 'C:\Gintran\Programa\Modelo_Impressão\DACTE_OS.fr3' else ACBrCTeDACTeFR.FastFileEvento := 'C:\Gintran\Programa\Modelo_Impressão\DACTE_EVENTOS.fr3'; ACBrCTeDACTeFR.TipoDACTE := tiRetrato; ACBrCTeDACTeFR.PathPDF := vPatchPadrao + vPastaDacte; SelecionarCertificado ACBrCTeDACTeFR.MostrarPreview := False; ACBrCTeDacteFR.MostrarStatus := False; ACBrCTeDACTeFR.Logo := ''; vLogo := ReplaceChars(ExtractFilePath(Application.ExeName) + '\Modelo_Impressão\' + FormatFloat('000', SisCodigoEmpresa) + '-LogoEmpresa.jpg'); if FileExists(vLogo) then ACBrCTeDACTeFR.Logo := vLogo; ACBrCTeDACTeFR.ExpandirLogoMarca := True; vACBRCTE.Configuracoes.Geral.ValidarDigest := False; vACBrCTe.Configuracoes.Geral.Salvar := False; if vModeloDF = 57 then begin vACBRCTE.Configuracoes.Arquivos.PathCTe := 'C:\Gintran\Programa\XML_CTE'; vACBRCTE.Configuracoes.Arquivos.PathSalvar := 'C:\Gintran\Programa\XML_CTE'; end else begin vACBRCTE.Configuracoes.Arquivos.PathEvento := 'C:\Gintran\Programa\XML_CCe'; vACBRCTE.Configuracoes.Arquivos.PathSalvar := 'C:\Gintran\Programa\XML_CCe'; end; vACBRCTE.DACTe := ACBrCTeDACTeFR; vACBRCTE.Configuracoes.WebServices.Visualizar := False; vACBRCTE.Configuracoes.WebServices.UF := vUFFilialEmissora; vACBRCTE.Configuracoes.WebServices.TimeOut := 20000; if vVersao = 300 then vACBRCTE.Configuracoes.Geral.VersaoDF := ve300 else vACBRCTE.Configuracoes.Geral.VersaoDF := ve200; // ENVIO vACBRCTE.Conhecimentos.Clear; with vACBRCTE.EventoCTe.Evento.Add do begin InfEvento.cOrgao := vACBrCTe.Conhecimentos.Items[0].CTe.ide.cUF; InfEvento.tpAmb := vACBrCTe.Conhecimentos.Items[0].CTe.ide.tpAmb; InfEvento.CNPJ := vACBrCTe.Conhecimentos.Items[0].CTe.emit.CNPJ; InfEvento.chCTe := Copy(vACBrCTe.Conhecimentos.Items[0].CTe.infCTe.Id, 4, 44); InfEvento.dhEvento := vDataHoraServ; InfEvento.tpEvento := teCCe; InfEvento.nSeqEvento := CdsCorrecao.FieldByName('Sequencia_Correcao_Carga').AsInteger; i := 0; CdsCorrecao.First; while (not(CdsCorrecao.Eof)) do begin with InfEvento.detEvento.infCorrecao.Add do begin InfEvento.detEvento.infCorrecao.Items.grupoAlterado := CdsCorrecao.FieldByName('Grupo_Correcao_Carga').AsString; InfEvento.detEvento.infCorrecao.Items.campoAlterado := CdsCorrecao.FieldByName('Campo_Correcao_Carga').AsString; InfEvento.detEvento.infCorrecao.Items.valorAlterado := CdsCorrecao.FieldByName('ValorAlterado_Correcao_Carga').AsString; InfEvento.detEvento.infCorrecao.Items.nroItemAlterado := 1; inc(i); end; CdsCorrecao.Next; end; end; vACBRCTE.EnviarEvento(1); Aqui acontece o Erro

Bom dia, Favor desconsiderar o texto ( Após atualizar o ACBr Começou a dar erro "is not valid value of local atomic type", ver erro anexo. Isso não só em novos CTe, mas em CTe já autorizados quando vai emitir um pdf ou imprimir um DACTE.) Incluído erroneamente e não consegui alterar. Este é meu problema: Estou com retorno de erro ao enviar Carta de Correção de CTeOS, "Falha no Schema XML", Já atualizei o ACBr mas não resolveu. Preciso verificar o XML dele mas não consigo, pois o erro dá ao enviar Retorno := vACBRCTE.EnviarEvento(1). Tentei fazer uma consulta antes mas o XML não monta nada. Estou utilizando a mesma rotina que uso para o CTe, trocando apenas InfEvento.tpEvento := teCCe; Grato, Luiz

Bom dia, Após atualizar o ACBr Começou a dar erro "is not valid value of local atomic type", ver erro anexo. Isso não só em novos CTe, mas em CTe já autorizados quando vai emitir um pdf ou imprimir um DACTE.

Boa tarde, Estou migrando para a versão 4.0 da NFe(Deplhi), e meu XML esta gerando a tag pag em duplicidade, ver XML anexo. Já verifiquei e estou passando somente uma vez, não sei de onde esta vindo o tPag=15. pag.Add.tPag := fpBoletoBancario pag.Add.vPag := ValorTotalNota; o valor 100,00 é que estou passando Grato por uma ajuda 51180703915923000161550010000005441000005442-nfe.xml

Bom dia Ítalo, Veja bem, uso o MDFe desde que foi implantado. No meu processo passo as configurações, os parâmetros então faço a chamado ACBrMDFe1.Enviar(1). Não guardo o XML em banco, e como o usuário pode excluir seu XML, posteriormente não tem como reimprimir o DAMDFE . Então meu procedimento para reimpressão sempre foi: Passo as configurações, os parâmetros usando a mesma rotina de envio(sem chamar o evento Enviar), então chamo ACBrMDFe1.Consultar e ACBrMDFe1.Manifestos.Imprimir. Isso sempre funcionou e ainda funciona até a última versão que liberei aos clientes que foi em Abril/2018(Veja anexo anterior). Depois que atualizei o ACBr que percebi este problema, ou seja, no evento ACBrMDFe1.Consultar retorna o erro 'UF não pode ser vazia', se retiro a chamada deste evento e chamo apenas o evento ACBrMDFe1.Manifestos.Imprimir o DAMDFE sai errado(Veja anexo Atual). Quanto a não gerar XML, sempre acreditei que o evento Consultar que montava ele para a o evento imprimir. o XML anexo foi montado com a versão anterior, onde uso Consultar, somente com o evento imprimir o XML não é gerado. DAMDFe_Anterior.pdf DAMDFe_versaoatual.pdf 52180701526219000191580000000018781000018782-mdfe.xml

Valeu pela dica, muito obrigado.

Boa tarde, Na versão 3.0 do MDFe me retornou o erro cInt: '51' is not a valid value of the local atomic type, isso ocorre sempre que o código do veiculo tem menos de 3 caracteres. Não consegui descobrir o porque deste problema, pois meus clientes tem muitos veículo com código interno com menos de 3 caracteres. Grato por alguma ajuda.

Bom dia Italo, O erro esta na chamada do evento ACBrMDFe1.Consultar. O MDFe já está autorizado, quando preciso imprimir chamo os eventos ACBrMDFe1.Consultar e ACBrMDFe1.Manifestos.Imprimir. Retirei o ACBrMDFe1.Consultar e consegui imprimir chamando apenas o ACBrMDFe1.Manifestos.Imprimir. Mas nao gera o XML.

Boa noite, Esta retornando erro no meu MDFe versão 3.0 quando vou imprimir, sendo que o mesmo ja foi autorizado. Já debuguei e esta sendo informada as UFs, alguém pode me informar qual a tag especifica que deve ser preenchida para este caso. ACBrDFe if EstaVazio(UF) then raise EACBrDFeException.Create('UF não pode ser vazia'); Utilizo Delphi e FastReport Grato,

Muito obrigado Juliana, era isso mesmo. Problema resolvido.

Bom dia Juliana, primeiro passo as configurações: ArquivoDeImpressao := ExtractFilePath(Application.ExeName); ArquivoDeImpressao := ArquivoDeImpressao + 'Modelo_Impressão\BoletoPadraoConta.fr3' vPatchPadrao := ExtractFilePath(Application.ExeName); vPatchPadrao := vPatchPadrao + 'Boletos\'; if not DirectoryExists(vPatchPadrao) then CreateDir(vPatchPadrao); if not DirectoryExists(vPatchPadrao) then raise Exception.Create('Não foi possivel criar o diretório "' + vPatchPadrao + '"'); ACBrBoletoFCFR.MostrarPreview := False; ACBrBoletoFCFR.MostrarSetup := False; // Imprimir na printer padrão. Depois passo os títulos nesta ordem: NossoNumeroBanco := StrToIntDef(DMBACad.CDSConta_Banco.FieldByName('ProximoNumero_Conta_Banco').AsString, 0); ACBrBoleto.Cedente.Conta := DMBACad.CDSConta_Banco.FieldByName('Conta_Conta_Banco').AsString; ACBrBoleto.Cedente.ContaDigito := DMBACad.CDSConta_Banco.FieldByName('DigitoConta_Conta_Banco').AsString; ACBrBoleto.Cedente.Nome := DMBACad.CDSConta_Banco.FieldByName('Cedente_Conta_Banco').AsString; ACBrBoleto.Cedente.Logradouro := vLogradouroFilial; ACBrBoleto.Cedente.NumeroRes := vNumeroFilial; ACBrBoleto.Cedente.Bairro := vBairroFilial; ACBrBoleto.Cedente.Cidade := vCidadeFilial; ACBrBoleto.Cedente.UF := vUFFilial; ACBrBoleto.Cedente.CEP := vCEPFilial; ACBrBoleto.Cedente.CNPJCPF := DMBACad.CDSConta_Banco.FieldByName('NroInscricao_Conta_Banco').AsString; ACBrBoleto.Cedente.Agencia := DMBACad.CDSConta_Banco.FieldByName('Agencia_Conta_Banco').AsString; ACBrBoleto.Cedente.AgenciaDigito := DMBACad.CDSConta_Banco.FieldByName('DigitoAgencia_Conta_Banco').AsString; ACBrBoleto.Cedente.Convenio := SomenteNumerico(DMBACad.CDSConta_Banco.FieldByName('Convenio_Conta_Banco').AsString); ACBrBoleto.Banco.TipoCobranca := cobNenhum; ACBrBoleto.Banco.TipoCobranca := cobBradesco; with Titulo do begin //Banco bradesco if DMBACad.CDSConta_Banco.FieldByName('Numero_Conta_Banco').AsString = '237' then begin EspecieDoc := DMBACad.CDSConta_Banco.FieldByName('Especie_Conta_Banco').AsString; EspecieMod := 'R$'; Carteira := DMBACad.CDSConta_Banco.FieldByName('Carteira_Conta_Banco').AsString; Aceite := atNao; if Tag = 1 then NossoNumero := IntToStr(NossoNumeroBanco) else NossoNumero := CDSTitulos.FieldByName('NroBoleto_Titulo_Receber').AsString; Aceite := atSim; ACBrBoleto.Cedente.Modalidade := '101'; end; DataProcessamento := Now; NumeroDocumento := Format('%s-%s', [Trim(CDSTitulos.FieldByName('Codigo_Titulo_Receber').AsString), Trim(CDSTitulos.FieldByName('Codigo_Serie_Receber').AsString)]); Vencimento := CDSTitulos.FieldByName('DataVencto_Titulo_Receber').AsDateTime; DataDocumento := CDSTitulos.FieldByName('DataEmissao_Titulo_Receber').AsDateTime; Sacado.NomeSacado := Format('%s - %s', [CDSTitulos.FieldByName('Codigo_Cliente_Receber').AsString, CDSTitulos.FieldByName('RazaoSocial_Cliente_Receber').AsString]); Sacado.CNPJCPF := CDSTitulos.FieldByName('CNPJ_Cliente_Receber').AsString; Sacado.Logradouro := CDSTitulos.FieldByName('Endereco').AsString; Sacado.Numero := CDSTitulos.FieldByName('Numero').AsString; Sacado.Bairro := CDSTitulos.FieldByName('Bairro').AsString; Sacado.Cidade := CDSTitulos.FieldByName('Nome_Cidade_Nucleo').AsString; Sacado.UF := CDSTitulos.FieldByName('Codigo_Estado_Nucleo').AsString; Sacado.CEP := CDSTitulos.FieldByName('CEP').AsString; LocalPagamento := CDSTitulos.FieldByName('Nome_Cidade_Nucleo').AsString; ValorDocumento := CDSTitulos.FieldByName('ValorTitulo').AsCurrency; ValorMoraJuros := CDSTitulos.FieldByName('Juros_Titulo_Receber').AsCurrency; ValorDesconto := CDSTitulos.FieldByName('Desconto_Titulo_Receber').AsCurrency; ValorAbatimento := 0.0; titulo.TextoLivre := titulo.TextoLivre + vTextoLivre; end; ACBrBoletoFCFR.FastReportFile := ArquivoDeImpressao; ACBrBoleto.ACBrBoletoFC := ACBrBoletoFCFR; ACBrBoletoFCFR.MostrarProgresso := False; vNomeArquivo := CDSTitulos.FieldByName('RazaoSocial_Cliente_Receber').AsString + '_' + CDSTitulos.FieldByName('Codigo_Titulo_Receber').AsString + '_' + CDSTitulos.FieldByName('Codigo_Serie_Receber').AsString + '.pdf'; ACBrBoletoFCFR.NomeArquivo := vPatchPadrao + vNomeArquivo; ACBrBoleto.GerarPDF; ACBrBoleto.Imprimir;

Não sei se é a forma correta mas resolvi da seguinte forma: na unit ACBrBancoBradesco function TACBrBancoBradesco.MontarCampoCodigoCedente ( const ACBrTitulo: TACBrTitulo ) : String; begin Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ PadLeft(RightStr(ACBrTitulo.ACBrBoleto.Cedente.Conta,7),7,'0')+'-'+ > Alterei aqui // ACBrTitulo.ACBrBoleto.Cedente.Conta +'-'+ ACBrTitulo.ACBrBoleto.Cedente.ContaDigito; end;

Já verifiquei, não encontrei uma resposta para o meu problema do porque uma primeira chamada retorna o Código cedente 000000080773- e na segunda retorna o correto 0080773-7 sendo que os parâmetros passados são os mesmos? Conta 0080773 Digito 7, no manual do bradesco que é o caso, a conta é com 7 caracteres e o digito com 1

Complementando, no modelo Boleto.Fr3 também estou com mesmo problema.

Boa tarde, No modelo BoletoFatura.Fr3 esta com problema na impressão da Conta Corrente(Código do Beneficiário) . Quando o aplicativo chama ACBrBoleto.GerarPDF ou ACBrBoleto.Imprimir, na primeira chamada da impressão é impresso errado 2218-7/000000080773- , sem fechar o aplicativo chama novamente a impressão e então sai correto 2218-7/0080773-7. Uma outra dúvida, alguns clientes querem imprimir o código do convenio e não a conta corrente no Código do Beneficiário. No modelo Boleto.Fr3 consegui mas no BoletoFatura.Fr3 não deu certo. Agradeço um ajuda. Luiz Carlos FERROGIL ALUMINIO INDUSTRIA E COM LTDA_46179_CE2.pdf FERROGIL ALUMINIO INDUSTRIA E COM LTDA_46179 1.pdf