Ir para conteúdo
  • Cadastre-se

Agnaldo Prates

Membros
  • Total de ítens

    968
  • Registro em

  • Última visita

  • Days Won

    4

Tudo que Agnaldo Prates postou

  1. Muito estranho. Eu salvo as notas normalmente na pasta que desejo, conforme anteriormente exposto. Poderia descrever exatamente como você está tentando salvar a NFe?
  2. Boa tarde. Em primeiro lugar, apensar de você ter postado no local correto, com certeza você não leu boa parte deste post. Há inúmeros relatos aqui mesmo neste local dando conta de que, não existe a menor possibilidade do ACBr excluir um certificado, a razão é simples. Desde 30 de outubro de 2012, esse assunto vem sendo debatido aqui a exaustão, e, todos são uníssonos em certificar que essa possibilidade não existe. Começando pela explicação do @André Ferreira de Moraes neste link. Desse modo, recomendo ao colega, dar uma lida nos tópicos que seguem o link para certificar do que estamos falando. Atenciosamente, Agnaldo Prates.
  3. O Boleto no Fortes, sendo o Layout Carnê, tem a opção ImgLoja. Talvez seja isso. Unit. ACBrBoletoFCFortesFr.pas veja no form: BoletoCarne Quanto aos demais não sei se há.
  4. Já tentou. With AcbrNFE1 do NotasFiscais.Items[0].GravarXML('NOME DO ARQUIVO', 'Pasta Desejada?');
  5. Jhonlenon, você tem esses arquivos .xml, poderia anexá-los? ,
  6. Experimenta testar o seu XML no demo do ACBr para saber se a configuração da logo está em conformidade. Aqui no meu sistema está saindo 100%, tanto no fast quanto no fortes.
  7. Não seria o ini da NFC-e, Ignácio?
  8. Faz o seguinte. Utilize o FastReport e customiza sua logomarca e fontes ao gosto do seu cliente. O @Juliomar Marchetti está coberto de razão. Você já imaginou se fosse feito um DANFE para cada vontade de cliente?
  9. Qry.CommandText := 'select TITULO, NOME_CLIENTE, SALDO_DEVEDOR from TITULOS_AREC '+#13+#10; Qry.CommandText := Qry.CommandText + 'inner join CLIENTES on (CLIENTES.COD_CLI = TITULOS_AREC.CODIGO) '+#13+#10; Qry.CommandText := Qry.CommandText + 'where (COD_CLI = :cli) '+#13+#10; Qry.CommandText := Qry.CommandText + 'Order by 1' ou Qry.CommandText := 'select TITULO, NOME_CLIENTE, SALDO_DEVEDOR from TITULOS_AREC '; Qry.CommandText := Qry.CommandText + ' inner join CLIENTES on (CLIENTES.COD_CLI = TITULOS_AREC.CODIGO) ' Qry.CommandText := Qry.CommandText + ' where (COD_CLI = :cli) '; Qry.CommandText := Qry.CommandText + ' Order by 1'
  10. Boa tarde. Ao gerar o arquivo de remessa SICOOB CNAB240, tive vários problemas, e o pessoal não soube explicar o que poderia ser. Pediram para gerar no CNAB400, gerei, e retornaram dizendo que estafa divergente em algumas informações. Fiz as correções devidas e agora homologou beleza. AcbrBancoBancoob,pas Linhas 347 e 348. IntToStrZero( StrtoInt( OnlyNumber(Cedente.Conta)), 8) + // Adicionado para gerar apenas 8 dígitos conforme instruçao LAYOUT.XLS lh 32 PadLeft( Cedente.ContaDigito,1,'0') + // Dígito Corrente Essa informação do Cedente.Conta, a função PadLeft estava cortando parte da conta do cedente, então alterei para IntToStrZero. Acrescentei ainda as variáveis no ACBrBoleto TACBrBancoClass = class (...) fLayoutVersao_HF : String; // Versão do Hearder do arquivo fLayoutVersao_HL : String; // Versão do Hearder do Lote constructor TACBrBancoClass.create(AOwner: TACBrBanco); (...) fLayoutVersao_HF := '87'; fLayoutVersao_HL := '40'; Devido ao fato de que o Layout para algumas cooperativas muda a versão do Layout, entretanto, acredito que as versões de layouts já poderia fazer parte do AcbrBoleto. Por aqui normal. Parte do email recebido. boa tarde O arquivo de remessa e boletos estão ok, por favor efetuar um teste de pagamento, solicitar ao jefferson da agencia de jaru para que acompanhe o envio caso seja necessário. 0 0 1 Não existem registros com erros neste arquivo. TOTAL COM ERROS : 0 Documento(s) TOTAL SEM ERROS: 7 Documento(s) TOTAL GERAL : 7 Documento(s) _____________________ Renato Bastos Departamento de Tecnologia Analista de Sistemas
  11. Já experimentou colocar na pasta do seu executável o arquivo ACBrNFeServicos.ini? Toda configuração necessária em relação à endereços de webservices, esse arquivo resolve. Lembre-se de setar no componente ACBrNFE a propriedade: Configuraões-> Arquivos[ IniServicos o nome "ACBrNFeServicos.ini"
  12. Aqui está retornando normalmente. OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); ShowMessage('dHemi '+ DateTimeToStr( ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi) ); end;
  13. Estranho que o que baixei a primeira vez não havia a tag <retNFe> Baixando novamente sim.
  14. O xml em questão não possui a tag ora mencionada. Pelo conteúdo do xml, há apenas a tag dhResp, trata-se de arquivo de retorno. retDownloadNFe.
  15. Na devolução*, na saída da indústria para a distribuidora. * Devolução para a indústria, para que ela credite do mesmo imposto que dela foi debitado.
  16. A BC do ICMS é com o IPI por dentro, da seguinte maneira. Na hora de calcular o ICMS, calcule o IPI sobre o valor total primeiro, conforme consta na sua nota. Ex: valor total: R$ 715,69 aplica aqui a alíquota de 2% do IPI que corresponderá a R$ 14,3138, soma este valor com o valor total de R$ 715,69, totalizado assim R$ 730,0038, assim sendo, a BC do ICMS será R$ 730,00 aplicando-se a alíquota de 12%, gerando assim o ICMS no valor de R$ 87,60. E, dessa forma segue, quantos itens existirem na NFe. No final, basta que seja informado no total os respectivos valores de IPI e ICMS. Essa lei complementar é uma vergonha para o Brasil..
  17. Acabei enviando a primeira imagem com a configuração da NFCe. Segue a correta.
  18. Você não especificou em qual report está testando. No Fast está normal. Veja o mesmo exemplo no demo do ACBrNFe com FastReport.
  19. Lembre-se que somente é obrigatório no caso da NFC-e, se o seu cliente já utilizava o TEF.
  20. Galera é o seguinte: Segundo o Decreto nº. 16.738, em seu art. 1º, inciso I, § 4º, estabelece que: “§ 4º Na hipótese de pagamento com cartão de crédito ou débito,havendo integração do sistema autorizador da venda com o programa emissor de NFC-e, devem ser informados os dados da credenciadora e da autorização concedida.” Ao analisar o referido parágrafo, é possível extrair o seguinte: Caso já tenha implantado o TEF "havendo integração do sistema autorizador da venda", caso o pagamento seja feito por cartão de crédito ou débito, haverá obrigatoriamente a sua continuidade. Por outro lado, caso o contribuinte não tenha instituído o TEF, no caso da NFCe, não há obrigatoriedade. Em resumo, caso o teu cliente já utilize o TEF, e, a o pagamento tenha ocorrido com cartão de crédito ou débito, o TEF é obrigatório. Caso não tema o TEF, não é obrigado para NFCe.
  21. Eu tive que fazer isso, dois loops, um para gerar o PDF e outro para gerar a Remessa.
  22. Graça, bom dia. Na sua procedure "GeraBoleto", há algum ACBrBoleto.CriarTituloNaLista, se sim, acredito que antes deva ser chamado ACBrBoleto.ListadeBoletos.Clear. De repente pode ser isso.
  23. Em não sendo erro de aplicação, e, caso o cStat seja 656, apresente o conteúdo da tag, xMotivo. "Olá, Galera onde eu trata este erro? Estou usando a rotina - ACBrNFe1.WebServices.Consulta.Executar Esta retornando o erro - Consumo indevido. Ja tentei - ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[l].RetEventoNFe.xMotivo (Não da) queria mostrar uma mensagem para o usuario !" O que entendi ma mensagem é que se tratava de um erro.
  24. Já tentou utilizar Try ... Except ... Tratar a exceção End Assim você pega o retorno e mostra para o usuário.
  25. Seria interessante postar o xml, assim teríamos uma ideia exata do que esteja ocorrendo.
×
×
  • 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.