Edson.pol

Prezados... Encontrei o erro (e éra meu). Fiz uma instalação limpa em um novo PC, somente com Delphi, ACBr e Fortes Report, e está tudo em ordem. No PC antigo, vi que havia uma pasta antiga do Fortes no Library Path, antes da pasta do novo componente "Fortes Comunity Edition". Removi a entrada no library path, renomeei a pasta antiga e deu tudo certo. []´s Edson

Boa tarde. Ainda não resolvi o problema. Na geração do PDF de um Conhecimento de Transporte (CTe), a situação é ainda pior que na NFe. No preview do Fortes e na impressão está tudo em ordem, o problema é somente no PDF. Vejam um exemplo de PDF gerado pelo Fortes e outro impresso na impressora virtual "Microsoft Print to PDF" que já vem instalada no Windows 10. Utilizo: Delphi 7, ACBr Atualizado, Fortes Comunity (atualizado via github). Testei em: Windows 7 - 32 e 64 bits / Windows 10 - 32 e 64 bits Com resoluções diferentes, e monitores diferentes (17,19,23") / Todos com o zoom do Windows em 100% Procurei fontes faltantes.... e nada. Estou tentando debugar o Fortes, mas não consigo "ligar" o debug. Não sei qual diretiva está impedindo a depuração. Não encontrei nenhum {-d} nos fontes. No DPR existe a diretiva {$DEBUGINFO ON} Alguém tem uma dica sobre como debugar ?

Bom dia Ítalo. No provedor CONAM, na consulta da situação do lote (unit pnfsConsSitLoteRpsResposta.pas) function LerXml_proCONAM: Boolean; FInfSit.FSituacao:= Leitor.rCampo(tcStr, 'PrtXSts'); {1 (Aguardando processamento) 2 (Em Processamento) 3 (Rejeitado) 4 (Rejeitado Parcialmente) 5 (Processado)} A palavra correta é "PrtXSts" e não "PrtXS", o que causava o disparo de um aviso de erro, sem mensagem. []´s Edson. pnfsConsSitLoteRpsResposta.pas

Boa noite. Também não estou conseguindo imprimir a GNRE. (Delphi 7) Na procedure TfrlGuiaRL.ConfigDataSet; Ocorre erro de Access Violation, na ultima linha: dsItens.dataset := cdsItens; Não consigo entender, pois no debug, o valor de dsItens é igual a Nil, e deveria ter algum valor

Bom dia. Utilizo o provedor CONAM, e com frequência ocorre o erro: "Erro interno 12002 - O tempo limite da operação foi atingido" e neste ponto, não pega o protocolo. Então, tem que abrir o site da prefeitura, consultar a ultima nota emitida, copiar o protocolo e fazer uma consulta do lote. Aí aparece a mensagem "notas carregadas com sucesso", e dá pra imprimir o DANFSe pelo sistema. Como devo ajustar os parâmetros AguardarConsultaRet, IntervaloTentativas, TimeOut ? []´s Edson.

Bom dia Juliomar. Testei a geração do PDF via "PDF Creator" e "Microsoft Print to PDF". Nestes dois, o PDF gerado é exatamente igual ao Preview do Fortes. Estou lendo os fontes do fortes, na unit RLPDFFilter.pas, e vi seu nome lá !!! Sabe me dizer se seria "culpa" das funções DrawText e DrawRectangle ? Tipo, na DrawRectangle daria para deixar o frame mais fino, e na DrawText, imprimir alguns pontos mais a esquerda ? Nesta parte da função DrawText: WriteText( PDF_PixelsToPoints(L), PDF_PixelsToPoints(T), AObj.DisplayText, GetFontId(AObj.Font.Name, AObj.Font.Style), AObj.Font.Size); Se diminuir o L e o T, imprimiria o texto mais acima e mais a esquerda ? []´s Edson.

Boa tarde. O PDF do DANFE gerado pelo FortesReport está "grudando" os valores nas bordas e cortando caracteres (ver imagem) Tem cliente reclamando que na impressão do PDF, não dá pra ler o valor total da nota, porque corta metade do ultimo número do valor. Na impressão sai corretamente, só no PDF que isto ocorre. Alguém tem alguma dica pra minimizar este problema ? []´s Edson

Boa noite Ítalo. Sobre a mensagem: Favor Informar o ISS na Coluna de ISS Devido, entrei em contato com o suporte da CONAM, eles analisaram os XMLs e detectaram que o erro ocorria devido ao cadastro do prestador no ambiente de homologação estar diferente do de produção. Resolvido este problema, refiz os testes. O envio do RPS, e a impressão subsequente da NFe estão corretos. Mas... quanto tenho que reimprimir uma NFSe, carregando o XML gerado, os valores de ISS retido e valor líquido da nota saem incorretos. Fiz a correções para a reimpressão funcionar. (pnsfNFSeR.pas -> function TNFSeR.LerNFSe_CONAM) Em anexo. pnfsNFSeR.pas

Bom dia. Comparei o arquivo -env.xml atual com os antigos, e não vi nenhuma diferença que justifique o erro. Enviei os arquivos para o suporte da CONAM. Estou aguardando resposta. []´s Edson

Boa noite Italo. Atualizei os fontes, e agora ocorre um erro estranho: 01/08/2016 20:37:12 Rps 812. Favor Informar o ISS na Coluna de ISS Devido Protocolo Rejeitado O tomador dos serviços é pessoa jurídica, da mesma cidade que o prestador, então o ISS deve ser "retido" e não "devido". No RPS está sendo informado corretamente o ISS retido. <RetFonte>SIM</RetFonte> <CodSrv>01.07</CodSrv> <DiscrSrv>TESTE DE SERVICO</DiscrSrv> <VlNFS>380,00</VlNFS> <VlDed>0,00</VlDed> <DiscrDed/> <VlBasCalc>380,00</VlBasCalc> <AlqIss>2,00</AlqIss> <VlIss>0,00</VlIss> <VlIssRet>7,60</VlIssRet> -- Teste emitindo NFSe pelo ACBrNFSe -- Teste emitindo NFSe pelo site (homologação) 812UNICA-rps.xml

Boa tarde Italo. Na impressão do DANFSE - provedor CONAM, o valor do ISS retido não está sendo descontado no valor líquido da nota. Exemplo: Valor dos Serviços: 260,00 ISS Retido 5,20 Valor Líquido 254,80 Fiz algumas alterações no arquivo pnfsNFSeR, na função LerNFSe_CONAM (as alterações estão marcadas com //Eds no final A impressão do código de verificação está cortando o texto, então diminui o tamanho da fonte de 10 para 9. (em anexo) []´s Edson. ACBrNFSeDANFSeRLRetrato.pas ACBrNFSeDANFSeRLRetrato.dfm pnfsNFSeW_CONAM.pas pnfsNFSeR.pas

Bom dia Graça. O estranho é que só uso campos "currency" para valores monetários, que só tem duas decimais. Emiti vários aqui, com valores parecidos, e com um um backup do cliente, e saíram todos certos.

Bom dia. Um cliente me reportou um problema, com o Bradesco, que por enquanto só ocorreu uma vez. Um boleto com valor de 92,52, na linha digitável saiu 92,53 Não estou conseguindo reproduzir o erro aqui. Alguém já passou por isto ? []´s Edson.

Bom dia Hernani. Na minha visão, se o emitente é optante pelo Simples Nacional, não há cobrança de DIFAL/FCEP. A cobrança foi suspensa pelo STF. http://www.contabilidadedeschamps.com.br/Noticias/STF-suspende-cobranca-do-diferencial-de-aliquota-do-ICMS/318/ Se não está conseguindo validar as notas, verifique se os Schemas não estão desatualizados. []´s Edson.

Boa noite. Estou tentando assinar um arquivo XML com digest SHA256, mas está ocorrendo erro: The DigestMethod Algorithm "http://www.w3.org/2001/04/xmlenc#sha256" is not supported. Criei as funções Assinar256, SignatureElement256, AdicionarSignatureElement256 em ACBrDFeSSL, para não alterar as funções atuais, aí tento assinar com: FXMLAssinado := ACBrEFinanceira1.SSL.Assinar256(FXMLOriginal , 'eFinanceira', 'evtCadDeclarante'); e o erro é disparado. Será que o Delphi não assina com SHA256 ? A Receita Federal disponibilizou um programa assinador escrito em C#. Instalei o Visual Studio e testei, assina corretamente. function TDFeSSLClass.SignatureElement256(const URI: String; AddX509Data: Boolean; IdSignature: String; Digest:TSSLDgst): String; begin {(*} Result := '<Signature xmlns="http://www.w3.org/2000/09/xmldsig#"' + IdSignature + '>' + '<SignedInfo>' + '<CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" />' + '<SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig-more#rsa-sha256"/>' + //ALTERACAO PARA SHA256 '<Reference URI="' + IfThen(URI = '', '', '#' + URI) + '">' + '<Transforms>' + '<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" />' + '<Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" />' + '</Transforms>' + '<DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256" />'+ // ALTERACAO PARA SHA256 '<DigestValue></DigestValue>' + '</Reference>' + '</SignedInfo>' + '<SignatureValue></SignatureValue>' + '<KeyInfo>' + IfThen(AddX509Data, '<X509Data>' + '<X509Certificate></X509Certificate>' + '</X509Data>', '')+ '</KeyInfo>'+ '</Signature>'; {*)} end; CadDeclaranteLote-ASSINADO.xml

Boa tarde Juliomar ! Era exatamente isto que eu precisava... Estava me matando tentando criar um componente baseado no ACBrCTe... mas ele é bem complexo. Este ACBrBlocoX tem a estrutura bem parecida com o que pede o SPED e-Financeira. O duro é que vou ter que gerar apenas arquivos vazios, somente a abertura e encerramento, sem movimento. Um trabalhão lascado, pra nada. A Receita Federal não tem mais plantão de dúvidas para pessoa jurídica, somente para pessoa física. Não responde os e-mails, ninguém nas agências orienta o contribuinte sobre SPED e-financeira (eles nem sabem do que se trata). Só sabem cobrar multa por atraso na entrega. Se tudo der certo, vou criar um componente "ACBrEFinanceira", e depois envio para análise. Muito obrigado. Edson.

Boa noite. Preciso assinar arquivos XML (do SPED e-Financeira) com chave SHA-2 (imagino que seja SHA256) Tentei criar um componente baseado no ACBrDFe, mas o prazo está apertado, e foi mais fácil criar o XML "na mão". Estou tentando utilizar as funções da unit ACBrDFeCapicom para assinar o XML, mas não estou tendo sucesso. Exemplo: textoXML:= String com o conteúdo do arquivo xmlAssinado := Assinar( textoXML , 'evtCadDeclarante' , 'id' ); Esta provavelmente não é a forma correta. Alguém teria um exemplo de como chamar a função, se é que isto é possível ? Grato. Edson.

Bom dia André. Um cliente me alertou sobre um problema: Gerou a NFSe pelo sistema, mas foi imprimir em outro local, pelo site. Imprimindo pelo site, a descrição do serviço está saindo duas vezes. Isto porque na procedure TNFSeW_CONAM.GerarListaServicos está assim: Gerador.wCampoNFSe(tcStr, '', 'DiscrSrv', 01, 4000, 1, StringReplace( NFSe.Servico.Discriminacao, ';', FQuebradeLinha, [rfReplaceAll, rfIgnoreCase] ), ''); Gerador.wCampoNFSe(tcStr, '', 'VlNFS', 01, 16, 2, FormatFloat('############0.00', NFSe.Servico.Valores.ValorServicos), ''); Gerador.wCampoNFSe(tcStr, '', 'VlDed', 01, 16, 2, FormatFloat('############0.00', NFSe.Servico.Valores.ValorDeducoes), ''); Gerador.wCampoNFSe(tcStr, '', 'DiscrDed', 01, 4000, 1, StringReplace( NFSe.Servico.Discriminacao, ';', FQuebradeLinha, [rfReplaceAll, rfIgnoreCase] ), ''); Uma solução seria alimentar o componente usando a propriedade "JustificativaDeducao" Gerador.wCampoNFSe(tcStr, '', 'DiscrDed', 01, 4000, 1,StringReplace( NFSe.Servico.Valores.JustificativaDeducao, ';', FQuebradeLinha, [rfReplaceAll, rfIgnoreCase] ), ''); []´s Edson.

Bom dia André / Italo. Atualizei os fontes, testei em homologação, e deu tudo certinho, da geração do RPS até a impressão. Só um 'incoveniente': Eu fiz uns ajustes para a impressão dos serviços sair "colunada", em fonte fixa (Courier new). Mas toda vez que atualizo, tenho que refazer alguns passos. procedure TNFSeW_CONAM.GerarXML_CONAM; begin Gerador.Opcoes.RetirarEspacos := False; // para permitir que a impressão saia "colunada" E na unit ACBrNFSeDANFSeRLClass.pas, altero a fonte: procedure TACBrNFSeDANFSeRL.ImprimirDANFSe(NFSe: TNFSe = nil); var i: integer; frlDANFSeRLRetrato: TfrlDANFSeRLRetrato; begin frlDANFSeRLRetrato := TfrlDANFSeRLRetrato.Create(Self); try frlDANFSeRLRetrato.rlmDescricao.Font.Name:='Courier New'; // a impressão do Código de verificação está estourando, portando diminui a fonte frlDANFSeRLRetrato.rllCodVerificacao.Font.Size:=9; // para a quebra de linha funcionar, o correto é pegar Configuracoes.Geral.ConfigGeral, não de Configuracoes.WebServices //frlDANFSeRLRetrato.QuebradeLinha(TACBrNFSe(ACBrNFSe).Configuracoes.WebServices.QuebradeLinha); frlDANFSeRLRetrato.QuebradeLinha(TACBrNFSe(ACBrNFSe).Configuracoes.Geral.ConfigGeral.QuebradeLinha); if NFSe = nil then Talvez o mais 'elegante' seria criar mais um parâmetro no arquivo INI, tipo "ImpressaoEmColunas", que setaria o "RetirarEspacos" para False, e usaria uma fonte de pontos fixos, como a Courier New. O que vocês acham ? []´s Edson.

Boa tarde Graça. Eu resolvi setado a propriedade 'CodigoCedente' com o 'código da empresa no banco'. (Código com 20 dígitos como este : 00000000000004042751) Assim a remessa e os boletos são gerados corretamente. []´s Edson.

Alterada também a unit ACBrNFSeDANFSeRLRetrato.pas, para corrigir a impressão do campo "competência". []´s Edson. ACBrNFSeDANFSeRLRetrato.pas

Boa noite Italo. Estou testando as alterações do CONAM, e ainda tive que fazer alguns ajustes: 1) Ao tentar enviar um RPS, ainda ocorre erro 'É necessário um certificado para concluir a autenticação do cliente.' - Resolvido com a inclusão da função 'IgnoreCerticateErrors' na unit \Fontes\ACBrCapicom\ACBrHTTPReqResp.pas Eu já tinha reportado/resolvido isto nos posts anteriores, mas acho que há um certo receio de alterações nas units da Capicom. Só pra tranquilizar, estou usando esta unit alterada e não tive nenhum problema com os outros componentes. Até porque a função entendo que só será disparada no caso específico do provedor CONAM, que acessa via https:// (SSL) e não requer certificado. 2) procedure TNFSeW_CONAM.GerarIdentificacaoRPS está gerando "AlqIssSN_IP" zerada, - Corrigido na unit \Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeW_CONAM.pas 3) Na impressão do DANFESe, as datas estão saindo tipo '2/31/0', porque no XML da NFSe, os campos do tipo 'Data' vem no formato dd/mm/aaaa e a função TLeitor.rCampo da unit \Fontes\PCNComum\pcnLeitor.pas só está tratando no formato aaaa-mm-dd, Ajustei para converter corretamento nos dois formatos (os campos do tipo tcDat e tcDatHor). []´s Edson. pcnLeitor.pas ACBrHTTPReqResp.pas pnfsNFSeW_CONAM.pas

Boa tarde. Você chegou a ver se o xml foi gerado com os espaços ? Eu estou usando o Fortes e está funcionando (provedor CONAM) Tem como testar com o Fortes ? []´s Edson.

Boa tarde Roger. Tenho alguns clientes que se encaixam no 'rol' dos obrigados (cooperativas de crédito). Estava esperando algum milagre (prorrogação) e por falta ainda estou empurrando 'pra amanhã'. Agora o amanhã chegou. Se puder ajudar no desenvolvimento e testes, pode contar comigo. []´s Edson

Bom dia Frederico. Acho que não expliquei direito no post anterior. O que está errado, aparentemente é a tag NCM... está faltando 1 caracter. como está no arquivo: <NCM>99999999/NCM> como deveria estar: <NCM>99999999</NCM> []´s Edson.