Geraldo Rodrigues

Olá Daniel, 1- Uso o componente; 2- DMFuncao.ACBrNFe.NotasFiscais.Clear; DMFuncao.ACBrNFe.NotasFiscais.LoadFromFile(strArquivo, True); try DMFuncao.ACBrNFe.NotasFiscais.Validar; if DMFuncao.ACBrNFe.NotasFiscais.Items[0].Alertas <> '' then MemoDados.Lines.Add('Alertas: '+DMFuncao.ACBrNFe.NotasFiscais.Items[0].Alertas); Result:=True; except on E: Exception do begin TabPagina.ActivePage:=TabAlertas; MemoDados.Lines.Add('Exception: '+E.Message); MemoDados.Lines.Add('Erro: '+DMFuncao.ACBrNFe.NotasFiscais.Items[0].ErroValidacao); MemoDados.Lines.Add('Erro Completo: '+DMFuncao.ACBrNFe.NotasFiscais.Items[0].ErroValidacaoCompleto); Mensagem('NFe INVÁLIDA.||'+strArquivo+'||'); end; end; 3- No Demo também dá erro. Uso a opção Validar XML, informando o arquivo XML. Obrigado. Abraço.

Prezados estou com problema na leitura de arquivo xml de fornecedor. Quando mando validar recebo a mensagem 'O CNPJ do documento difere do CNPJ do Certificado Digital'. Arquivos de outros fornecedores são lidos normalmente. O que pode estar acontecendo. Segue anexo um xml em questão. Obrigado. Abraço. 00292481.xml

Obrigado.

Prezados, Na impressão da NFC-e, a linha 'QTD. TOTAL DE ITENS', mostra o números de itens impressos. Como faço para que neste campo seja impresso o numero total de itens adquiridos, ou seja a somatória do campo qtde? Obrigado.

Prezados, O layout boletofatura.fr3 também tinha um problema deste tipo; o campo LocaldePagamento estava em formato de data. Segue em anexo o corrigido. BoletoFatura.fr3

Olá Juliomar, o problema continua. Acho que encontrei uma solução, assim que terminar todo ciclo de teste, volto aqui para colocar a solução. Obrigado. Abraço.

Estou usando Pay&Go.

Juliomar, eu já tentei várias situações: - Indicando como no demo: cbxGP.Items.Clear ; For I := Low(TACBrTEFDTipo) to High(TACBrTEFDTipo) do cbxGP.Items.Add( GetEnumName(TypeInfo(TACBrTEFDTipo), integer(I) ) ) ; cbxGP.Items[0] := 'Todos' ; cbxGP.ItemIndex := 0 ; Nesta opção escolho no combobox a opção gpTefDial; - Indicando: cbxGP.ItemIndex := 1 ; - Indicando direto: ACBrTEFD1.Inicializar( gpTefDial );

Olá Juliomar. Sim, programei todos os eventos e também escolhi a solução tef. A mensagem surge na ' procedure TACBrTEFD.Inicializar(GP : TACBrTEFDTipo);' - em: GPAtual := GP ; try fTefClass.Inicializado := True; - aqui ..... fTefClass.Habilitado := True; except fTefClass.Inicializado := False; raise ; end;

Prezados, estou tentando colocar o TEF num projeto. No create carrego os dois combobox igual ao exemplo ACBr, mas quando mando inicializar recebo a mensagem 'argument out of range'. O que estou fazendo errado ou não fazendo? Obrigado. Abraço.

Olá Barbosa, Seguindo a sua dica, retirei tudo sobre acbr do diretorio de instalação do XE7, baixei tudo novamente, rodei o apagarACbr.bat nas duas unidades e reinstalei o ACbr. Resultado: Compilou certinho. Obrigado. Abraço.

Olá Juliana, o referido .pas está sim nos fontes do ACBrBoleto. Obrigado.

Prezados, Atualizei hoje o ACBr, instalou normalmente. Ainda não tinha usado pra valer o ACBrBoleto, hoje, quando fui compilar o Demo que acompanha o projeto, está dando o erro: F2063: could not compile used unit 'ACBrBancoBradesco.pas' Depois disto o meu projeto também não compilou, para fazê-lo funcionar re-instalei o ACBr sem a opção Boleto. O que pode estar acontecendo??? Obrigado.

Olá Régys, Usei o exemplo e as diferenças eram: COTAÇÃO DE PREÇO eu digito num edit; DefaultCharset=UTF_8; IDECharset=CP1252; Com esta configuração o nome do destinatário saia errado então mudei DefaultCharset=CP1252 e funcionou. No meu aplicativo criei uma variável TCaption e carreguei com 'COTAÇÃO DE PREÇO' e mudei os Charset's para CP1252, feito isto, tudo funcionou corretamente na minha máquina de desenvolvimento, vou aguardar quando testar nos clientes, mas acredito que vai dar tudo certo. Obrigado. Abraço.

Olá Régys. Mesmo que passe: ACBrMail1.Subject:=UTF8Encode('COTAÇÃO DE PREÇO'); Dá o mesmo resultado ou seja os caracteres especias somem. Abraço.

Olá Régys, Estou passando assim: ACBrMail1.DefaultCharset:=UTF_8; ACBrMail1.IDECharset:=UTF_8; ACBrMail1.Subject:='COTAÇÃO DE PREÇO'; Abraço.

Atualizei o Trunk2, após isto atualizei minha pasta de Schema e coloquei: ACBrNFe1.Configuracoes.Geral.IncluirQRCodeXMLNFCe := true; Após isto funcionou perfeitamente em ambiente de homologação. Abraço.

Prezados, estou com problema de acentuação no Subject no envio de e-mail. No Delphi 7 tudo certo, funcionando perfeitamente, mas, no XE6 com windows10 e trunk2, caracteres acentuados ou cedilha não estão sendo impressos, mesmo mantendo IDECharSet=UTF_8 e DefaultCharSet=UTF_8. Ex: 'COTAÇÃO DE PREÇO' sai: 'COTAO DE PREO' E tanto no Outlook quando no Gmail. Abraço.

Olá Régys, Este último XML que te enviei foi após a desinstalação e instalação do Delphi, pois estava recebendo muita mensagem de 'Out of memory', Nesta re-instalação segui todos os passos da sua instrução para instalação do Trunk2, principalmente executando o apagarACBr nas duas unidades que possuo. Assim como configurei o DANFEREtrato_Basic.fr3 para imprimir o 'vl aprox de tributos' e a linha de fatura, fiz o mesmo no DANFERetrato no campo informações complementares, ou seja, copiei o campo memoOBS do Basic e colei no Retrato e a impressão aparentemente está correta neste campo, agora vou ajustar os demais campos que aparecem de forma incorreta, tipo código de barras de contingência que vou colocar como visible=false, se tiver outro comando por favor me envie e o tamanho de alguns campos de valores. Acredito que esta situação conseguimos resolver pois tenho dois lay-out's atendendo as necessidades. Agradeço a todos pela ajuda. Abraço. NovoTeste.rar

Olá Régys, Atualizei o ACBr, e realmente o DANFERetrato_Basic está com o número de folha corrigido. Coloquei o campo de 'total de tributos' que não estava sendo impresso, adaptei a linha de fatura para torná-lo parecido com o DANFERetrato, pois, realmente não entendo porque aqui, não consigo imprimir as 'informações complementares' neste formulário. Obrigado. Abraço.

Olá Régys, Com relação a: 'Lembre que o ACBr grava o arquivo autorizado na pasta que você configurou mas também tem opção de salvar o arquivo não configurado.' Realmente estava configurado com diferença de diretório entre o PathSalvar e PathNFe, corrigi e gerei novas notas todos com a autorização gravada no .xml; Agora com relação ao formulário DANFERetrato.fr3 continua o mesmo problema. Obrigado. Abraço. uCad_Est_NotaEletronica_Saida3.rar 01338_DHMEYER.rar

Olá Régys, então o problema é mais grave, pois com certeza enviei o xml para autorização pode ver pelos arquivos de retorno. Será que o problema não está relacionado com Windows10 ou XE6?

Olá Daniel, Segue o projeto com opção de impressão do DANFERetrato.fr3 e DANFERetrato_Basic.fr3. No DANFERetrato: - É impresso um código de barras de contingência, coisa que esta nota não é; - A autorização de uso não é impressa; - A informação completar não é impressa; No DANFERetrato_Basic: - O total de folha não é impresso corretamente aparece 0; - A autorizaçao de uso não é impressa; - A informação complementar está impressa; Obrigado. Abraço. Temp.rar

Ola Daniel, entendi. Você quer que altere o demo que vem no ACBr e troque o formulário para testarmos. OK, vou providenciar... Desculpe, é que o meu prazo está se esgotando e além desta situação tem uma no XE6 que é de deixar louco 'Out of memory'. Obrigado. Abraço.

Olá Daniel, não entendi. Como modificar o Demo do ACBrNFe??? Obrigado. Abraço.