Ir para conteúdo
  • Cadastre-se

Rodrigo Cardilo

Membros Pro
  • Total de ítens

    254
  • Registro em

  • Última visita

Tudo que Rodrigo Cardilo postou

  1. Oi amigos, Eu criei uma rotina chamada gravacedente sempre antes de gerar o boleto ou a remessa e funciona perfeitamente. Segue exemplo do código: procedure TDM1.GravaCedenteCobranca(CodCarteira: integer); begin // Grava Configurações do Cedente e Cobrança ACBrBoleto1.ListadeBoletos.Clear; DM1.TB03600.Refresh; DM1.TB03600.Locate('CONTROLE', CodCarteira, []); with ACBrBoleto1 do begin case DM1.TB03600BANCO.Value of 1: Banco.TipoCobranca := cobBancoDoBrasil; 104: Banco.TipoCobranca := cobCaixaEconomica; 237: Banco.TipoCobranca := cobBradesco; 341: Banco.TipoCobranca := cobItau; 756: begin Banco.TipoCobranca := cobBancoob; Cedente.Modalidade := '01'; end; end; Cedente.Agencia := DM1.TB03600AGENCIA.Value; Cedente.AgenciaDigito := ' '; if DM1.TB03600DIGAGENCIA.Value <> '' then Cedente.AgenciaDigito := DM1.TB03600DIGAGENCIA.Value; Cedente.Conta := DM1.TB03600CONTA.Value; Cedente.ContaDigito := DM1.TB03600DIGCONTA.Value; Cedente.Nome := DM1.TB03600NOMECEDENTE.Value; Cedente.Logradouro := DM1.TB03600ENDCEDENTE.Value; Cedente.NumeroRes := DM1.TB03600ENDNUMCEDENTE.Value; Cedente.Cidade := DM1.TB03600CIDADECEDENTE.Value; Cedente.Bairro := DM1.TB03600BAIRROCEDENTE.Value; Cedente.UF := DM1.TB03600UFCEDENTE.Value; Cedente.CEP := DM1.TB03600CEPCEDENTE.Value; if Length(FRC_Funcoes.DesformataCNPJ_CPF(DM1.TB03600CPFCEDENTE.Value)) = 11 then Cedente.TipoInscricao := pFisica else if Length(FRC_Funcoes.DesformataCNPJ_CPF(DM1.TB03600CPFCEDENTE.Value)) = 14 then Cedente.TipoInscricao := pJuridica; Cedente.CNPJCPF := FRC_Funcoes.DesformataCNPJ_CPF(DM1.TB03600CPFCEDENTE.Value); Cedente.CodigoCedente := DM1.TB03600CODCEDENTE.Value; Cedente.Convenio := DM1.TB03600CONVENIO.AsString; // Cedente.Modalidade := DM1.TB03600MODALIDADE.Value; ACBrBoletoFC.DirLogo := ExtractFilePath(Application.ExeName) + '\Boleto'; Cedente.ResponEmissao := tbCliEmite; case DM1.TB03600TIPOIMPRESSAO.Value of 1: ACBrBoletoFC.LayOut := lPadrao; 2: ACBrBoletoFC.LayOut := lFatura; 3: ACBrBoletoFC.LayOut := lCarne; 99: Cedente.ResponEmissao := tbBancoEmite; end; Cedente.CaracTitulo := tcSimples; case DM1.TB03600TIPOMOD.Value of 1: Cedente.CaracTitulo := tcSimples; 2: Cedente.CaracTitulo := tcVinculada; 3: Cedente.CaracTitulo := tcCaucionada; 4: Cedente.CaracTitulo := tcDescontada; 5: Cedente.CaracTitulo := tcVendor; end; if DM1.TB03600CNAB.Value = 240 then LayoutRemessa := c240 else LayoutRemessa := c400; end; end;
  2. Amigos, De forma não explicada consegui enviar. Os parâmetros que utilizei foram: CSOSN: 102 idDest: 2=Operação interestadual; ndFinal: 0=Normal; indIEDest: 9=Não Contribuinte, que pode ou não possuir Inscrição Estadual no Cadastro de Contribuintes do ICMS. A UF do destinatário era SP e a do remetente era MG Uma dica que já tinha visto a um tempo atrás: Fiquem atento ao CSOSN. Segundo a regra não se pode utilizar 101 ou 201 para não contribuintes. Isso pode acarretar problemas. Mas sinceramente não sei porque aconteceu o problema justamente hoje. Notei que o sistema estava lento para receber os dados do retorno da nota fiscal. Creio que pode estar havendo alguma falha no sistema. No mais qualquer novidade aviso vocês. Boa sorte
  3. Bom dia, Meu sistema que até ontem, 30/06/2016 emitia notas para fora da minha UF normalmente hoje começou a dar o mesmo erro citado pelo amigo Ariboni. A diferença é que os dados informados por mim são diferentes: O meu cliente e Simples Nacional, o destinatario tem CPF , 9 = Nao Contribuinte; 1 = Consumidor Final ; 2 = Interestadual ; o CFOP = 6101 e CST = 101. Alguém sabe dizer se mudou alguma regra a partir de 01/07? Grato desde já,
  4. Bom dia Fábio, A única maneira de você fazer testes com NFe é tendo uma inscrição estadual. Eu mesmo passei por isso (a 6 anos atrás) e tive que ter IE para resolver fazer meus testes. Lembrando que a empresa desenvolvedora não é impedida de ter IE. Atc,
  5. Oi amigo, Seu post é muito vago.. Você está preenchendo o compontente ACBRNFe corretamente? No envie o xml gerado para analisarmos. Pelo erro, aparentemente, seu sistema não está gerando o xml. Atc,
  6. Oi Filipe, Atualize seu fonte e tente enviar a nota novamente. Automaticamente o grupo de informações acima citados serão criados. Quanto a obrigatoriedade das informações o nosso amigo Gildenor já explicou. As empresas SIMPLES NACIONAL possuem uma liminar do STF (ADI 5464) desobrigando as informações. Portanto você só precisa atender ao layout e já basta. Atc,
  7. Oi Mateus. Cada estado tem uma legislação específica para a nota fiscal eletrônica de produtor Rural. Só é possível emissão de nota fiscal se o produtor possuir CNPJ e não somente CPF. http://www.nfe.fazenda.gov.br/portal/perguntasFrequentes.aspx?tipoConteudo=LnhDJy3Fl+g= O ACBRNFe só vai emitir notas para CNPJ's. Verifique junto ao seu estado a possibilidade de emissão desse tipo de nota. Só uma dica: Se seu estado permitir que a nota seja emitida pelo Emissor Gratuito você também consegue emitir pelo ACBRNFe, caso contrário não será possível. Espero ter ajudado. Atc,
  8. Oi amigo, Você consegue fazer toda a parte de desenvolvimento sem necessidade do certificado digital (vide exemplos). Porém, o teste propriamente dito, utilizando o ambiente de homologação é obrigatório o uso do certificado. No começo eu adquiri um certificado tipo A1, pois o custo é menor e é possível instalar em vários computadores. Sugiro utilizar o capicom para o desenvolvimento. Boa sorte,
  9. Perfeito Rafael, Era isso mesmo. Fiz o que você me sugeriu e está funcionando perfeitamente. Muito obrigado pela atenção e pelo tempo dispensado. Abraço
  10. Oi Juliomar. Bem, estou tentando. Na verdade sempre desenvolvi nos windows server anteriores (2000, 2003). Tenho um cliente em especial onde desenvolvo dentro da empresa dele. E como ele adquiriu um servidor novo com o windows 2008 vi a possibilidade de usar uma maquina virtual para desenvolver. Eu já tinha visto programadores em Visual Studio utilizarem essa técnica daí pensei em usar também. Segue anexo o erro Renato. Grato desde já
  11. Oi Juliomar, Usando o Hyper-V eu consegui um melhor desempenho no Windows Server.. E também por ser a versão que meu cliente comprou as licenças.
  12. Oi amigos,Estou tentando instalar o delphi XE3 no windows server 2008 r2 (hyper V) e após a instalação o delphi simplesmente abre e dá erro carregando os pacotes de componente do próprio delphi.Alguém já passou por isso? Será que tenho que configurar algo diferente na permissões do windows server para rodar o delphi corretamente? Já instalei como Administrador e etc e nada. Já tentei o XE5 e aconteceu a mesma coisa.Grato desde já,
  13. Oi André, Já passei por erros parecidos várias vezes. Minha solução está aqui: Siga os passos e dará certo. Atc,
  14. ACBrCTe.EventoCTe.Evento.Clear; with ACBrCTe.EventoCTe.Evento.Add do begin infevento.chCTe := Chave; infEvento.CNPJ := sCNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := nSequencia; infEvento.detEvento.xCondUso := ''; ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Clear; with ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Add do begin grupoAlterado := sGrupo; campoAlterado := sCampo; valorAlterado := sValor; nroItemAlterado := iNumItem; end; end; ACBrCTe.EnviarEventoCTe(iNumLote); É só pesquisar na pasta exemplos no ACBR que tem tudo
  15. Bom dia, Post o xml também. Atc,
  16. Oi Ítalo, Vou resumir o que venho recebendo nos arquivos de muitas empresas com duas palavras que você postou: ZORRA e PORCARIA. Eu já tinha feito a alternativa que você me passou. Agradeço a atenção dispensada de qualquer forma. Abraço
  17. Boa tarde Italo, Sobre a questão da apostrofe provavelmente foi um erro ao copiar pois dentro do arquivo (anexo) está ok. Já quanto aos namespace concordo contigo, porém, a empresa responsável pelo desenvolvimento do arquivo não aceitou meu argumento alegando que o visualizador de DF-e lê normalmente ( nada a comentar). Eu estava analisando a fonte do ACBRNFe e pensei: Se ignoramos a namespace e considerar somente a versão (que no arquivo está escrita corretamente)? Pelo que vi tem vários amigos aqui com o mesmo problema devido à auto-sapiência de algumas empresas de software que acham que seu sistema está sempre certo. Bem, é só uma sugestão. Grato. 31151107420928000255550010002934571152934576-nfe Autorizado.xml 31151107420928000255550010002954641152954643-nfe Autorizado.xml
  18. Italo, Já fiz esse teste e deu certo.. substituí: <nfeProc xmlns='http://www.portalfiscal.inf.br/nfe' xmlns:ds='http://www.w3.org/2000/09/xmldsig#' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xsi:schemaLocation='http://www.portalfiscal.inf.br/nfe procNFe_v3.10.xsd' versao='3.10'> <NFe xmlns="http://www.portalfiscal.inf.br/nfe"> por ><nfeProc versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe"><NFe xmlns="http://www.portalfiscal.inf.br/nfe"> e deu certinho. Também fiz o seguinte. Baixei o Visualizador de DF-e no portal e testei. Lá não erro algum. Fiz isso pois liguei para o fornecedor que está enviando esses arquivos e me pediram pra testar do visualizador. Grato
  19. Boa dia Ítalo, O problema é que a tag nfeProc que está dando problema é exatamente a segunda do seu comentário, ou seja, a tag vinda do fornecedor <nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" xmlns:ds="http://www.w3.org/2000/09/xmldsig#"xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.portalfiscal.inf.br/nfe procNFe_v3.10.xsd"versao="3.10"> é que está retornando o erro que mencionei. Não seria uma falha do componente ACBRNFe na leitura? Grato
  20. Bom dia amigos, Quando tento carregar o xml para importar para meu sistema, em alguns casos, está me retornando o seguinte erro: Não encontrei o atributo: versão Esse erro acontece quando utilizo da seguinte forma: ACBrNFe1.NotasFiscais.LoadFromFile Percebi que isso acontece em alguns xml's enviados por alguns fornecedores. Abri o arquivo enviado por esses fornecedores e notei a seguinte diferença no início do arquivo: <?xml version="1.0" encoding="UTF-8"?><nfeProc xmlns='http://www.portalfiscal.inf.br/nfe' xmlns:ds='http://www.w3.org/2000/09/xmldsig#' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xsi:schemaLocation='http://www.portalfiscal.inf.br/nfe procNFe_v3.10.xsd' versao='3.10'> <NFe xmlns="http://www.portalfiscal.inf.br/nfe"> Esse é o início dos arquivos baixados pelo site do portal nfe. <?xml version="1.0" encoding="utf-8"?><nfeProc versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe"><NFe xmlns="http://www.portalfiscal.inf.br/nfe"> Estou enviando o arquivo anexo com problema. Grato pela ajuda 31151107420928000255550010002934571152934576-nfe Autorizado.xml
  21. Oi amigos, Estou passando pelo mesmo problema. O que eu descobri até agora é que o arquivo enviado ao meu cliente é diferente dos baixados pelo site do portal nfe. Esse é o início do arquivo xml enviado pela empresa. <?xml version="1.0" encoding="UTF-8"?><nfeProc xmlns='http://www.portalfiscal.inf.br/nfe' xmlns:ds='http://www.w3.org/2000/09/xmldsig#' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xsi:schemaLocation='http://www.portalfiscal.inf.br/nfe procNFe_v3.10.xsd' versao='3.10'> <NFe xmlns="http://www.portalfiscal.inf.br/nfe"> Esse é o início dos arquivos baixados pelo site do portal nfe. <?xml version="1.0" encoding="utf-8"?><nfeProc versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe"><NFe xmlns="http://www.portalfiscal.inf.br/nfe">< Estou enviando o arquivo anexo com problema. O erro que apresenta quando tento carregar o arquivo é "Não encontrei o atributo: versão" Grato pela ajuda 31151107420928000255550010002934571152934576-nfe Autorizado.xml
  22. Oi datilas, Não consegui fazer funcionar. Tenho 2 provaveis explicações. 1 - Meu servidor de hospedagem (kinghost) tem algum problema 2 - Eu utilizo o delphi 2010 e a versão do Indy pode ser diferente da sua De qualquer forma obrigado pela atenção.
  23. Boa tarde Datilas, Tentei usar o exemplo que você me passou mas sempre recebo um retorno vazio, mesmo quando o arquivo não existe. Por exemplo: Tenho o arquivo http://www.cardilo.com/clientes/36.txt e da maneira que você me passou continuo recebendo mensagem de conteúdo vazio. Como você consegue pegar seus arquivos no servidor na internet? Grato.
  24. Caro amigo, Eu preciso saber se o arquivo existe no endereço da web e não no meu computador.. Leia novamente minha dúvida inicial no post que vai entender do que se trata. Grato
  25. Oi Isaque... Você tem alguma sugestão ou exemplo de como fazer isso? Grato
×
×
  • 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.