Gabriel Bonzanini

@hleorj grato pela atenção e desculpe a demora para responder. Ainda está adicionando um traço desnecessário no início, pois o loop começa com Result := sQuebraLinha;. Adicionei um tratamento para que as quebras de linha (ou traços, dependendo de como o componente é configurado) sejam utilizadas no momento da concatenação de cada uma das informações, antes das mesmas e não depois, o que evita que elas fiquem sobrando. Utilizei o arquivo mais atualizado do SVN e apliquei as melhorias novamente, 100% testado. Vou deixá-lo em anexo. ACBrNFeDANFEFRDM.pas

Boa tarde @hleorj! Grato pela atenção. Na verdade, a alteração é específica para a unit ACBrNFeDANFEFRDM.pas, que acredito ser exclusiva para o Fast Report. Segue em anexo arquivo xml. NF.xml

Depende diretamente do TWebBrowser e da versão do Internet Explorer instalada na máquina... Ou seja, em alguns ambientes funciona, em outros não.

Algum desenvolvedor poderia verificar e upar este código? Estou usando ele em produção aparentemente está 100%.

O pior é que alguns de nossos clientes nem mesmo têm licença do Windows... Vou ter que pensar em outra alternativa que não dependa diretamente do TWebBrowser/Internet Explorer, pois mesmo que funcionasse, iria dar muito transtorno fazer a atualização em todos eles. Mas obrigado de qualquer forma.

Saberia me dizer onde encontro a versão mais recente? Baixei a versão em pt-br neste link: https://support.microsoft.com/pt-br/help/18520/download-internet-explorer-11-offline-installer E o navegador não abre mais, apresentando a seguinte mensagem:

Verifiquei que, acessando diretamente pelo Internet Explorer dá a mesma coisa... Tanto o IE9 32 bits quanto o IE9 64 bits. Isso me leva à uma quest antiga, que talvez seja tema para outro tópico: como integrar outros navegadores dentro do Delphi... É osso estar vinculado diretamente à um navegador ruim desses e já descontinuado.

Bom dia. Obrigado pela atenção. Eu utilizo Windows 7 SP1 64 bits com Internet Explorer 9 e estou compilando o exemplo em Delphi 2010: Ao consultar, aparece a seguinte mensagem: Os esclarecimentos adicionais são os seguinte: Estou com receio de que liberando isto para os clientes (que possuem os mais variados ambientes), em alguns poderá acontecer a mesma coisa... Reparei pelas units inclusas na seção 'uses' que você utiliza uma versão mais recente do Delphi, provavelmente uma XEx. Poderia ser algum tratamento incluso em versões mais recentes do componente TWebBrowser e ausente no Delphi 2010? Abraço.

Obrigado pela contribuição amigo! Porém, não consigo fazer o bloco do ReCaptcha aparecer na tela... Qual a explicação para estas chaves de registro, e qual o efeito das mesmas? [HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION] "TesteConsultaCNPJ.exe"=dword:00002af8 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION] "TesteConsultaCNPJ.exe"=dword:00002af8 Obs: Troquei o 'TesteConsultaCNPJ.exe' pelo nome do aplicativo onde preciso desta funcionalidade. Seria legal se conseguíssemos isolar este componente para não precisar trazer a página toda na tela... Mas por hora, se funcionar, vai quebrar um galhão. Abraço.

Deve ser meio complicado... Nunca vi algum sistema desktop integrado com esse novo modelo de captcha...

Parece não fazer muita diferença... A Receita Federal não colabora com nada e ainda consegue estragar o que está funcionando, é inacreditável. Parece que disponibilizar um WebService para consulta de tais informações, sem forçar os programadores a fazer gambiarras como ficar recortando uma página html seria trabalhoso demais.

Ahhh não não... A intenção não é essa... Se reparar no arquivo ajustado, eu mantive a utilização do 'sQuebraLinha' que vai conter o que o usuário tiver preenchido na propriedade 'QuebraLinhaEmDetalhamentoEspecifico'. A intenção é que, independente do fato de quebrar a linha ou não, que sejam suprimidas informações desnecessárias.

Este trecho está correto ao meu ver... Pois o sQuebraLinha irá conter ';' (quebra de linha) ou então ' - ': Function TACBrNFeFRClass.QuebraLinha : String; begin if fQuebraLinhaEmDetalhamentoEspecifico then Result := ';' else Result := ' - '; end; Os ajustes foram feitos apenas dentro dos procedimentos 'ManterMedicamentos' e 'ManterRastro', sem afetar o restante dos detalhamentos.

Abaixo um exemplo de DANF-e impresso no cliente, e onde seriam aplicadas as melhorias mencionadas:

O código de agregação não, segundo o layout (e segundo os testes que fiz enviando sem preencher): E a questão da quantidade acho que ela também não precisaria ser reimpressa, caso seja igual à quantidade total do item, pois isto indicaria que existe apenas um lote em questão e a quantidade total pertence à este mesmo lote...

Bah, não sabia da existência dessa propriedade... Obrigado, vai reduzir bastante o espaço. Eu imaginei que 'sQuebraLinha' fosse uma constante do ACBr, como a 'sLineBreak' (padrão do Delphi). De qualquer forma, acha que fariam sentido os tratamentos adicionados para que não sejam impressos textos sem necessidade? No caso do detalhe de rastreamento, fica apenas um 'C.AGREGAÇÃO: ' sem nada a seguir, caso a informação não esteja preenchida. Grato pela atenção.

Boa tarde pessoal. Gostaria de contribuir com algumas melhorias para a visualização de DANF-e do Fast Report, ambas para o detalhamento específico de medicamentos/lotes e com o intuito de reduzir um pouco o espaço ocupado, pois em muitos casos 2 itens já preenchem uma folha inteira: Teste para que não seja reimpressa a quantidade do lote caso a mesma seja igual à quantidade total do item, o que subentende que há apenas um lote referenciado; Teste para que não seja impressa uma linha com o "código de agregação" caso o mesmo esteja em branco (seu conteúdo não é obrigatório de acordo com o layout da NF-e); Melhorias nas quebras de linha, pois em alguns casos está ficando uma linha em branco após o código da Anvisa. Peço que verifiquem se está nos padrões desejados e qualquer coisa me avisem. Gabriel. ACBrNFeDANFEFRDM.pas

Boa tarde pessoal. Estou recebendo esta crítica do SEFAZ para produtos sobre os quais não há incidência de tal percentual adicional, como por exemplo pipocas, sucos de uva e alimentos em geral. Informando o percentual de 2%, a nota fiscal é aprovada. Exemplo de NCM: 1904.10.00 Alguém sabe como proceder? O percentual passará a ser exigido para todos os produtos sem distinção? Grato pela atenção.

Boa tarde ALA. Conseguiu evoluir nesta questão? Se precisar de ajuda pra desenvolver algo, posso contribuir, pois também precisarei desta forma alternativa de integração em breve. Abraço.

Boa tarde Juliomar. Obrigado pelo retorno. Infelizmente não conheço todos os gerenciadores de pagamentos existentes, mas se considerarmos que as propriedades SuportaSaque (1), SuportaDesconto (2) e SuportaReajusteValor (64) são válidas para todos, pela lógica o tratamento do NSU estendido (128) também deve ser... Qual seria o procedimento para verificarmos com precisão?

Acabei de receber a resposta de um dos desenvolvedores da NTK a respeito do NSU estendido: Adicionei uma nova propriedade ao componente, chamada SuportaNSUEstendido, e também o tratamento para que o valor 128 seja somado nas capacidades da automação caso esta propriedade estiver assinalada. Fiz alguns testes, e aparentemente está ok. ACBrTEFD.pas ACBrTEFDClass.pas

Em anexo, a unit ACBrTEFDClass sem o tratamento mencionado, caso os administradores entendam que a alteração esteja correta. Grato pela atenção. ACBrTEFDClass.pas

Olá @diegao15. Também estou com um problema semelhante. No meu caso, o arquivo retornado após a aprovação não possui o NSU estendido (campo 745). Ele aparece apenas na impressão do comprovante (029-015): 000-000 = CRT 001-000 = 44094 003-000 = 1234567 004-000 = 0 009-000 = 0 010-000 = CERTIF 011-000 = 10 012-000 = 9C123456789D 013-000 = 031088 015-000 = 0712043000 016-000 = 0712043000 022-000 = 07122017 023-000 = 043000 027-000 = 1712070430003456789C123456789D 028-000 = 27 029-001 = "****************************************" 029-002 = "********* DEMONSTRACAO PAY&GO *********" 029-003 = "****************************************" 029-004 = " " 029-005 = " COMPROVANTE DE TEF" 029-006 = " " 029-007 = " CERTIFICACAO - PASSO 41" 029-008 = " " 029-009 = " ESTABELECIMENTO DE TESTE" 029-010 = " 823982346832235/03876463" 029-011 = " " 029-012 = " 07/12/2017 04:30:00" 029-013 = " DOC:123456 AUTORIZ:031088" 029-014 = "REF.HOST: " 029-015 = "123456789A123456789B123456789C123456789D" 029-016 = " " 029-017 = " TEST CARD ************3012" 029-018 = " VENDA CREDITO A VISTA" 029-019 = " VALOR FINAL: R$ 12.345,67" 029-020 = " " 029-021 = " " 029-022 = " ________________________________" 029-023 = " JOAO DA SILVA" 029-024 = " " 029-025 = "****************************************" 029-026 = "********* DEMONSTRACAO PAY&GO *********" 029-027 = "****************************************" 030-000 = TRANSACAO APROVADA - AUTORIZACAO: 031088 040-000 = TEST CARD 729-000 = 2 730-000 = 1 731-000 = 1 732-000 = 1 737-000 = 3 739-000 = 029 999-999 = 0 Além disso, o componente faz um tratamento para remover as letras (fNSU := OnlyNumber(AValue)), ocasionando a rejeição da requisição, mesmo que seja passado o NSU correto por parâmetro para a função CNC, manualmente: procedure TACBrTEFDReq.SetNSU(const AValue : String); begin fNSU := OnlyNumber(AValue); fConteudo.GravaInformacao(12,0,fNSU); end; Fiz o teste removendo este tratamento e o cancelamento foi aprovado. Porém, não consegui automatizar o cancelamento do pagamento ao cancelar o documento por não ter o NSU estendido armazenado no banco de dados. IntPos.001

Em anexo, o arquivo retornado pelo gerenciador de pagamento, com o seguinte conteúdo: 000-000 = CRT 001-000 = 42122 003-000 = 3000 004-000 = 0 009-000 = 0 010-000 = CERTIF 011-000 = 10 012-000 = 012369014727 013-000 = 014467 015-000 = 0612114918 016-000 = 0612114918 022-000 = 06122017 023-000 = 114918 027-000 = 171206114918012369014727 028-000 = 26 029-001 = "****************************************" 029-002 = "********* DEMONSTRACAO PAY&GO *********" 029-003 = "****************************************" 029-004 = " " 029-005 = " COMPROVANTE DE TEF" 029-006 = " " 029-007 = " CERTIFICACAO - PASSO 22" 029-008 = " " 029-009 = " ESTABELECIMENTO DE TESTE" 029-010 = " 823982346832235/03876463" 029-011 = " " 029-012 = " 06/12/2017 11:49:18" 029-013 = " DOC:009500 AUTORIZ:014467" 029-014 = " REF.HOST:012369014727" 029-015 = " " 029-016 = " TEST CARD ************3012" 029-017 = " VENDA CREDITO A VISTA" 029-018 = " VALOR FINAL: R$ 30,00" 029-019 = " " 029-020 = " " 029-021 = " ________________________________" 029-022 = " JOAO DA SILVA" 029-023 = " " 029-024 = "****************************************" 029-025 = "********* DEMONSTRACAO PAY&GO *********" 029-026 = "****************************************" 030-000 = TRANSACAO APROVADA - AUTORIZACAO: 014467 040-000 = TEST CARD 710-000 = 4 711-001 = "VENDA CREDITO A VISTA" 711-002 = "TEST CARD ************3012" 711-003 = "POS:03876463 DOC:009500 AUTORIZ:014467" 711-004 = "VALOR FINAL: R$ 30,00" 712-000 = 23 713-001 = "****************************************" 713-002 = "********* DEMONSTRACAO PAY&GO *********" 713-003 = "****************************************" 713-004 = " " 713-005 = " COMPROVANTE DE TEF" 713-006 = " VIA: CLIENTE" 713-007 = " " 713-008 = " CERTIFICACAO - PASSO 22" 713-009 = " " 713-010 = " ESTABELECIMENTO DE TESTE" 713-011 = " 823982346832235/03876463" 713-012 = " " 713-013 = " 06/12/2017 11:49:18" 713-014 = " DOC:009500 AUTORIZ:014467" 713-015 = " REF.HOST:012369014727" 713-016 = " " 713-017 = " TEST CARD ************3012" 713-018 = " VENDA CREDITO A VISTA" 713-019 = " VALOR FINAL: R$ 30,00" 713-020 = " " 713-021 = "****************************************" 713-022 = "********* DEMONSTRACAO PAY&GO *********" 713-023 = "****************************************" 729-000 = 2 730-000 = 1 731-000 = 1 732-000 = 1 737-000 = 3 739-000 = 029 999-999 = 0 Pelo que entendi, os três modelos estão nos registros 029, 711 e 713. Este comprovante do registro 713 (Via cliente) nunca é impresso. IntPos.001

Bom dia Juliomar! Grato pela atenção. Este roteiro é da NTK, versão de 26/05/2017. O que acontece é que, nos testes, não é necessário configurar o servidor ou o cliente... Seguindo o roteiro, o gerenciador se comporta conforme o que está sendo testado, independente de configuração... Por exemplo, mesmo que eu não envie valor de desconto, em alguns testes o gerenciador retorna um valor de desconto de forma fixa, assim, como neste caso, aparentemente de forma fixa, ele retorne 3 tipos de vias distintas, dos quais devem ser impressos apenas 2.