Ir para conteúdo
  • Cadastre-se

Claudiomir

Membros
  • Total de ítens

    202
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que Claudiomir postou

  1. Saudações Juliana Sim. Segue codigo anexo. fprinci.ACBrBoleto1.ListadeBoletos.Clear; // fprinci.ACBrBoleto1.Banco.Numero := strtoint(bc); case strtoint(bc) of 1: begin fprinci.ACBrBoleto1.Banco.Numero := 1; fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoDoBrasil; end; 237: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBradesco; 341: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobItau; 748: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobSicred; 756: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoob; 104: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobCaixaEconomica; 33, 53, 008: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobSantander; end; fprinci.ACBrBoleto1.Cedente.Agencia := self.ctactanragencia.AsString; fprinci.ACBrBoleto1.Cedente.AgenciaDigito := self.ctactadgagencia.AsString; fprinci.ACBrBoleto1.Cedente.Conta := self.ctacatnrconta.AsString; fprinci.ACBrBoleto1.Cedente.ContaDigito := self.ctactadgconta.AsString; . . . Se eu testar aqui, nesse ponto ele me retorna Banco=0 fprinci.ACBrBoleto1.ChecarDadosObrigatorios; fprinci.ACBrBoleto1.Imprimir; Ainda tentando entender... Claudiomir
  2. Saudações David_Junior. ABCRBoleto atualizado. Testei sua ideia. Não funcionou. Continua dando "Banco não definido, impossível listar boleto" Continuo tentando e aguardando novas ideias. Claudiomir
  3. Saudações Estou tentando implementar o AcbrBoleto para o Banco do Brasil, mas estou esbarrando em um erro. Segue código abaixo: case strtoint(bc) of 1: begin fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoDoBrasil; fprinci.ACBrBoleto1.Banco.Numero := 001; <=== erro aqui end; 237: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBradesco; 341: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobItau; 748: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobSicred; Ele aceita o valor, mas de alguma forma, maneira ou circunstância, continua com valor 0(zero). Não importa quantas vezes ou de que forma eu atribua valor para este campo (ACBrBoleto1.Banco.Numero) ele continua com valor zero. Na hora de imprimir o boleto ele retorna erro dizendo que o banco não foi informado. "Banco não definido, impossível listar boleto" Já tentei somente com '1', e nada feito. Com outros bancos, isso não acontece. Imprimo com itau e Sicredi numa boa. Alguém tem alguma idéia??? Claudiomir
  4. resolvi da seguinte forma. unit ACBrBancoob; . . . . constructor TACBrBancoob.create(AOwner: TACBrBanco); begin inherited create(AOwner); fpDigito := 0; fpNome := 'SICOOB'; fpNumero := 756; fpTamanhoMaximoNossoNum := 9; fpTamanhoCarteira := 1; fpTamanhoConta := 8; fpCodigosMoraAceitos:= '2'; end; por enquanto.... funciona Claudiomir
  5. Saudações Otávio. Desculpe, mas não posso te ajudar. Estou com o mesmo problema, apesar de usar o Fast Report. Meu problema tem sido Bancoob e Banco do Brasil. Se alguém puder ajudar, fico grato. Claudiomir
  6. Ok, Rodrigo. Agradeço vosso esclarecimento. Sem forçar a amizade, já forçando, e por favor não me xingue, mas você tem um "roteiro" de como fazer isso? Você usou algum componente para isso ou fez tudo na unha?? Abraços Bom final de semana
  7. Saudações. O Escritório contábil de um cliente exige que eu envie para eles, no final de cada mês, somente um e-mail com todos os xml das NFC-e e das NFE emitidas durante o mês. Não um e-mal por NFE. Um geral, com tudo. Duvida: 1) Isso é responsabilidade do Sistema ou do Escritório Contábil? 2) Alguém tem alguma ideia de como implementar isso?? No aguardo, Claudiomir
  8. Desculpe reabrir o tópico mas achei melhor do que começar um novo. Sobre o cancelamento da nfce tenho o seguinte código: // retornos qvnd.Edit; qvndvndDataHoraEvento.AsFloat := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; qvndvndnprotcancela.AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; qvndstatus.AsString := 'NFC-e Cancelada'; qvndvndXMLCancelamento.AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.XML; //// Aqui! O que devo salvar aqui? O Xml inteiro? o local onde ele foi gravado?? no momento ele me retorna o seguinte valor <?xml version="1.0" encoding="UTF-8" ?> <procEventoNFe versao="1.00" xmlns="http://www.portalfiscal e só. Ou o campo é pequeno ou eu estou salvando a coisa errada por aqui. idéias?? Sugestões?? No aguardo Claudiomir
  9. Caro Centuryinf Testei sua ideia. Ele aparece somente uma parcela, ja quitada. No entanto, eu gostaria que aparecesse como 'PAGAMENTO A VISTA'. Grato pela ajuda. Claudiomir
  10. Arquivo anexado. 51140811124759000100550010001760001001760004-nfe.xml
  11. Desculpe, Juliomar, mas não entendi nada. Por favor use palavras pequenas. Sem férias ha 5 anos e sem dormir ha 3 dias. Foi definida que as Nfe deste cliente seriam sempre a vista. Ide.natOp: = 'VENDA'; Ide.indPag: = ipVista; Não é assim que determina a forma de pgto da NFE?? Ou estou viajando tanto em café que nem sei mais?? No aguardo, Claudiomir
  12. Claudiomir

    Nfe - Pagamento A Vista

    Saudações Estou montando a NFE e estou sem entender como defino o pagamento a vista na NFE. Estou usando o Fast-Report e não aparece nada em 'Fatura'. Sei que esqueci algo, mas nem ideia do que seja. Código segue abaixo. ACBrNFe1.NotasFiscais.Clear; with ACBrNFe1.NotasFiscais.Add.NFe do begin ACBrNFeDANFEFR1.FastFile := 'C:\Posirelo\relat\danfe.fr3'; ACBrNFeDANFEFR1.MostrarPreview := true; { ACBrNFe1.Configuracoes.Geral.IdToken := cfgcfgidtoken.AsString; ACBrNFe1.Configuracoes.Geral.Token := cfgcfgtoken.AsString; } ACBrNFe1.Configuracoes.Certificados.NumeroSerie := cfgcfgnumserie.AsString; ACBrNFe1.Configuracoes.Certificados.Senha := cfgcfgsenha.AsString; ACBrNFe1.Configuracoes.Geral.PathSalvar := cfgcfgcaminhoarquivoenviorespostaNFC.AsString; numNfe := cfgcfgnumNFC.AsInteger + 1; Ide.cNF := numNfe; Ide.nNF := numNfe; Ide.natOp := 'VENDA '; Ide.indPag := ipVista; Ide.Modelo := 55; Ide.Serie := 1; Ide.cUF := NotaUtil.UFtoCUF(cfgcfguf.AsString); Ide.cMunFG := cfgcddcodigo.AsInteger; Ide.finNFe := fnNormal; Ide.dEmi := Date; Ide.dSaiEnt := Date; Ide.hSaiEnt := now; Ide.tpNF := tnSaida; Ide.tpEmis := teNormal; ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; Ide.indFinal := cfConsumidorFinal; Ide.indPres := pcPresencial; Transp.modFrete := mfSemFrete; if Assigned(ACBrNFe1.DANFE) then Ide.tpImp := ACBrNFe1.DANFE.TipoDANFE; if cfgcfgnfceambiente.AsString = 'Produção' then begin Ide.tpAmb := taProducao; ACBrNFe1.Configuracoes.WebServices.Ambiente := taProducao; end else begin Ide.tpAmb := taHomologacao; ACBrNFe1.Configuracoes.WebServices.Ambiente := taHomologacao; end; { // ***************************** // Dados da Empresa Emissora // ***************************** } Se alguém tiver uma ideia, fico grato e ofereço em troca um saco de balinhas de limão, ruins como só. akakakaka No aguardo Claudiomir
  13. Galera... acho que achei. Testes indicam isso. mudei isso. with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := copy(qvndvndnomenfce.AsString, 28, 44); infEvento.CNPJ := cfgcfgdoc1.AsString; infEvento.dhEvento := now; erro no envio da chave. Abraços galera Tópico (aparentemente) resolvido.
  14. Saudações Estou cometendo algum erro muito idiota que não consigo ver. Estou tentando cancelar uma Nfce emitida e estou tendo um retorno que não encontro aqui no site, (apesar de achar alguns bem parecidos). Fiz a nota em tempo de homologação e tento cancelar ainda entro do prazo de 2 horas. Estou usando o código abaixo: if qvndvndEmitiuNfce.AsString = 'Sim' then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(qvndvndnomenfce.AsString); ACBrNFeDANFEFR1.FastFile := 'C:\Posirelo\relat\nfcesimples - modelo 2.fr3'; ACBrNFeDANFEFR1.MostrarPreview := true; ACBrNFe1.Configuracoes.Geral.IdToken := cfgcfgidtoken.AsString; ACBrNFe1.Configuracoes.Geral.Token := cfgcfgtoken.AsString; // numero do lote de envio (somente um exemplo, pode-se utilizar seu proprio controle) NumeroLote := 0; Protocolo := qvndvndnprot.AsString; // carregar o xml da nota fiscal eletronica, pode ser omitido // showmessage(copy(qvndvndnomenfce.AsString, 28, 52)); { if not ACBrNFe1.NotasFiscais.LoadFromString((copy(qvndvndnomenfce.AsString, 28, 52))) then raise Exception.Create('Não foi possível carregar o XML da Nota Fiscal Eletrônica correspondente!'); } // Criar o cancelamento ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.idLote := NumeroLote; with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := copy(qvndvndnomenfce.AsString, 28, 152); infEvento.CNPJ := cfgcfgdoc1.AsString; infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.nProt := Protocolo; infEvento.detEvento.xJust := motivo; infEvento.detEvento.cOrgaoAutor := 51; // Mato Grosso ACBrNFe1.EnviarEventoNFe(1); end; // Enviar o evento de cancelamento if ACBrNFe1.EnviarEventoNFe(NumeroLote) then begin with ACBrNFe1.WebServices.EnvEvento do begin if EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135 then begin raise Exception.CreateFmt('Ocorreu o seguinte erro ao cancelar a nota fiscal eletrônica:' + sLineBreak + 'Código:%d' + sLineBreak + 'Motivo: %s', [EventoRetorno.retEvento.Items[0].RetInfEvento.cStat, EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo]); end; // retornos qvndvndDataHoraEvento.AsFloat := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; qvndvndNumeroProtocolo.AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; qvndvndXMLCancelamento.AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.XML; qvndvndCodigoStatus.AsInteger := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat; qvndvndMotivoStatus.AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo; end; end else begin with ACBrNFe1.WebServices.EnvEvento do begin raise Exception.Create('Ocorreram erros ao tentar efetuar o cancelamento:' + sLineBreak + 'Lote: ' + inttostr (EventoRetorno.idLote) + sLineBreak + 'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak + 'Orgao: ' + inttostr(EventoRetorno.cOrgao) + sLineBreak + sLineBreak + 'Status: ' + inttostr(EventoRetorno.cStat) + sLineBreak + 'Motivo: ' + EventoRetorno.xMotivo); end; end; end; O erro que retorna é : ' Falha na validação dos dados de envio de evento '51140811124759000100650010000670011000670018-nfe.xml' violates pattern constraint of '[0-9] {44}. The element '{www.portalfiuscal.inf.br/nfe/} chnfe ' whith value 51140811124759000100650010000670011000670018. Até onde entendi, estou enviando a chave errada, mas não consigo descobrir o porque. Ás vezes também recebo o erro de Orgão não identificado. Sou de MT onde o Orgão seria 51. Qualquer idéia ajuda. Grato galera. Claudiomir
  15. Caro juaumkiko Resolvi com uma alteração minima. No formulário, opção onclose. Action:=cafree. Falta de sono e cansaço somado a falta de férias causam erros estupidos. Obrigado por vossa ajuda. Tópico Resolvido.
  16. Saudações. Gero a nfce do Senhor XXX. Envio a Nfce do Senhor XXX. Visualizo a NFce do Senhor XXX. Imprimo a Nfce do Senhor XXX. Gero a nfce do Senhor YYY.Envio a Nfce do Senhor YYY. Visualizo a NFce do Senhor XXX Imprimo a Nfce do Senhor XXX. Nem mesmo com a opção de reimprimir a Nfce ele permite a visualização da NFce do Senhor YYY. Somente a do Senhor XXX. A única maneira de visualizar e imprimir a Nfce do Senhor YYYY é fechando o sistema inteiro e abrindo de novo. Funciona mas é impraticável a longo prazo. É como se o relatorio ficasse preso na memoria e não atualizasse os dados do relatório de jeito nenhum. Alguém tem alguma idéia do que estou fazendo de errado?? Abaixo código usado para impressão. .... ACBrNFe1.NotasFiscais.Clear; ACBrNFeDANFEFR1.FastFile := 'C:\Posirelo\relat\nfcesimples - modelo 2.fr3'; ACBrNFeDANFEFR1.MostrarPreview := true; ... ACBrNFe1.Enviar(vNumLote, true, Sincrono); E da Reimpressão.. if qvndvndEmitiuNfce.AsString = 'Sim' then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFeDANFEFR1.FastFile := ''; ACBrNFe1.NotasFiscais.LoadFromFile(qvndvndnomenfce.AsString); ACBrNFeDANFEFR1.FastFile := 'C:\Posirelo\relat\nfcesimples - modelo 2.fr3'; // ACBrNFeDANFEFR1.MostrarPreview := true; ACBrNFe1.Configuracoes.Geral.IdToken := cfgcfgidtoken.AsString; ACBrNFe1.Configuracoes.Geral.Token := cfgcfgtoken.AsString; ACBrNFe1.NotasFiscais.Imprimir; end Aguardo qualquer ideia por que as minhas se esgotaram. Claudiomir
  17. Ainda com problema. Consegui acertar NossoNumero de acordo com o manual, mas agora dá erro dizendo que o Nosso Numero não está correto. Peguei o manual direto do banco e ele informa que nosso numero é de 9 digitos. estou informando essa linha abaixo, antes de dar o erro. fprinci.ACBrBoleto1.Banco.Numero := strtoint(bc); // sendo que bc é = 756. Uma vez que envio para impressao tenho uma mensagem de erro dizendo: " Tamanho Máximo do Nosso Numero é 7" Galera, qualquer ajuda, ajuda. No aguardo. Claudiomir
  18. Saudações a todos Assumi os fontes de um sistema e precisei atualizar o Acbr para imprimir as NFC-e. Depois de muita ajuda por parte de todos, incluindo os membros deste grupo, as NFC-e estão funcionando. No entanto, o acbr boleto ficou... bem, eu diria insano, mas não se adequa. 1) Por exemplo, ele não imprime mais boletos para o banco Bancoob, e sim, eu li o tópico associado a este grupo e fiz as alterações de acordo, conforme modelo abaixo. fprinci.ACBrBoleto1.Banco.Numero := strtoint(bc); //fprinci é o formulario principal, ou tela principal do sistema case strtoint(bc) of 1: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoDoBrasil; 237: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBradesco; 341: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobItau; 748: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobSicred; // incluido na atualizacao da nfce 756: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoob; 104: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobCaixaEconomica; 33, 53, 008: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobSantander; end; Fazendo dessa forma, ele indica que on banco 756 o numero máximo do "nosso número" deve ser 7 e não 13 como estava sendo feito. Estou errando algo ou é assim mesmo??? 2) em outro cliente, que usa o mesmo sistema(só que com o banco sicredi) ele funciona adequadamente. Só que o programador antigo alterou algo( e não, eu não sei onde ele fez ou por onde anda) só que na impressão do boleto, ele imprimia ao invés de recibo e fatura (com código de barra para pgto em banco) ele imprimia recibo, fatura, fatura (2x) na mesma folha. Como torno a implementar isso??? Espero ter sido claro ( embora os problemas sejam obscuros kakakakaka!!) No aguardo de qualquer ajuda, Antecipadamente agradeço, Claudiomir
  19. Valeu Régys. Obrigado. Achei realmente que o contador tava tirando uma da minha cara. Vou implementar a reimpressão. Mais uma vez, muito obrigado. Claudiomir - Sorriso - MT
  20. Saudações a todos Vou fazer uma pergunta meio idiota, mas... Contador de um cliente me informa que devo montar uma rotina de Reimpressão de Nfc-E. Pesquisei para todos os lados e não encontrei nada sobre isso. Das duas uma, ou não encontrei por procurar no lugar errado, ou o contador tá tirando uma com a minha cara. Por favor, alguém tem alguma idéia? E se tiver a informação, pode me orientar onde a encontrar?? Obrigado a todos. Claudiomir - Sorriso - MT.
  21. Caro Régys Grato por sua explicação. Estou usando um aplicativo chamado QR Droid. Ele realmente entende como texto simples. Vou tentar usar outro aplicativo e ver se resolve o problema. Por falar nisso... Parabéns a todos do Projeto ACBR por um componente tão fabuloso. Salvaram-me de semanas de dor de cabeça. Abraço especial ao criador do módulo de impressão integrada ao Fast Report. Até + Claudiomir
  22. Caro Régys Grato por sua explicação. Consegui criar o qrcode e o imprimir. Mas quando vou ler no celular ele ao invés de acessar o site da sefaz, acessa o do google e traz o endereço na tela como se fosse um link normal. Após confirmar ele finalmente acessa o site da sefaz. Tentei com vários celulares e deu a mesma coisa. Isso é "assim mesmo" ou estou errando algo tão na cara que nem estou vendo?? No aguardo, Claudiomir - Sorriso - MT
  23. Encontrei algo Interessante. Não sei se tem a ver... mas... Estou usando o FastReport. Na hora de ler o QrCode ele está lendo assim: http:/homologacao.sefaz.mt.gov.br/nfce/consultanfce?chnfe=5140711...... Eu fique pensando que talvez essa sequencia "chnfe=" não deveria existir??? Ou estou procurando piolho em ovo?? No aguardo, Claudiomir
  24. Primeiro, meus sinceros agradecimentos por sua resposta. Informo isso. ACBrNFe1.Configuracoes.Geral.IdToken := '000001'; // 6 dígitos ACBrNFe1.Configuracoes.Geral.Token := '84c7d8895731d0ed65ce9612e7af6cc6'; // até 36 // Acbrnfe-->certificados-->geral IdToken 84c7d8895731d0ed65ce9612e7af6cc6 Ele gera a nota e até imprime um qrCode, no entanto, na hora de ler, ele acessa o sefaz, mostra a nfce gerada, mas acusa erro de QrCode inválido. Alguma idéia?? Claudiomir - Sorriso - MT
×
×
  • 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.