Edson.pol

Bom dia marcelokrol. Você conseguiu utilizar o SAT da Epson sem erros ? O kit da Epson com SAT+impressora está com preço bom. Estou analisando a compra. []´s Edson.

Boa tarde. No arquivo .INI, o campo "Origem=1" indica que o produto é importado, neste caso só aceita 4% Não seria "Origem=0" (Nacional) ? []´s Edson

Boa tarde OldProgramer. Ainda não tive muito sucesso, mas encontrei um exemplo no github. https://github.com/ortuagustin/Delphi-Utils Mostra como fazer o login para conseguir o token para o aplicativo (no demo em FireMonkey) []´s Edson

Boa tarde André. Fui dispensado da entrega do SPED-eFinanceira, então não dei prosseguimento nos testes. O meu problema esbarrou no Delphi 7, que não tem suporte a SHA256. Pelas pesquisas que fiz, existem alguns componentes pagos que conseguem assinar. []´s Edson.

Bom dia ! No meu caso, terei que criar alguma alternativa para venda de passagem embarcada. O ônibus sai da rodoviária com digamos 30 passageiros, e "pega" mais alguns durante o trajeto. As passagens vendidas dentro do ônibus hoje são em talão. Estou pensando em fazer algo com Delphi XE / Android, com impressora portátil (Leopardo). Teria que ter opção para venda on-line (se tiver sinal 3g ou 4g) e off-line (em contingência), porque o sinal 3g/4g por aqui é uma incógnita. Já vi que dá pra instalar certificado A1 no Android. A dúvida é se o ACBr consegue assinar/transmitir neste ambiente. Alguém já fez algo parecido ? []´s Edson.

Caramba Italo !!! Nem deu tempo de ler o manual. Já está quase tudo pronto! Pelo menos posso ajudar nos testes []´s Edson.

Boa tarde Fernando. Obrigado pelo aviso. Atualizei agora o ACBr, e vi que já está implementado. Acho que faltam os relatórios. Vou dar uma olhada. []´s Edson

Boa tarde. Alguém já conseguiu recuperar um pedido no mercado livre, para importar no ERP para emissão de NFe ? Eles tem as Api´s para consulta, por exemplo: https://api.mercadolibre.com/sites/MLB/categories -- Retorna um JSON com as categorias de produtos https://api.mercadolibre.com/items/MLB814299353 --- Retorna um JSON com dados da consulta de um anúncio Agora falta desvendar a recuperação de pedido. Se alguém tiver alguma dica, fico grato! []´s Edson

Boa tarde. Hoje as empresas de transporte rodoviário de passageiros (Ônibus) emitem as passagens em ECF comum. A partir de 2018, a passagem será eletrônica, igual NFCe, CFe, etc. Como ainda não saiu o manual de orientação do contribuinte, não sei exatamente qual será a forma adotada, imagino que seja nos moldes da NFCe, ou CFe. []´s Edson

Boa tarde. Mais um DFe pra conta ! Bilhete de Passagem Eletrônico (BP-e). https://www.confaz.fazenda.gov.br/legislacao/ajustes/2017/aj001_17 BILHETE DE PASSAGEM ELETRÔNICO (BP-e) O Ajuste SINIEF 01/2017 institui o Bilhete de Passagem Eletrônico (BP-e), modelo 63, e o DABPE, que poderão ser utilizados a partir de 01.01.2018, a critério da Unidade Federada, em substituição aos seguintes documentos fiscais: a) Bilhete de Passagem Rodoviário, modelo 13; Bilhete de Passagem Aquaviário, modelo 14; c) Bilhete de Passagem Ferroviário, modelo 16; d) Cupom Fiscal Bilhete de Passagem emitido por equipamento Emissor de Cupom Fiscal (ECF). Ainda não saiu o Manual de Orientação. Vou ficar atento a isto. -- Ajuste SINIEF anexo. []´s Edson AjusteSINIEF_001_2017.docx

Obrigado Ricardo. Vou passar esta informação para o contador do cliente. []´s Edson.

Boa tarde. Não entendi como passar os parâmetros para o SAT de ítens com redução de base de calculo de ICMS. --> Contribuinte com Regime Normal (Lucro Presumido) Exemplo: Marmitex Pequena Valor unitário do produto: R$ 11,00 Redução da base de calculo: 30,00 % Alíquota do ICMS: 12,00% Neste caso teria que enviar: Base de calculo ICMS = R$ 7,70 (11,00 menos 30%) Alíquota do ICMS = 12,00% Valor do ICMS = R$ 0,92 Mas no SAT só enviamos a CST e o percentual do ICMS. Como faria para o valor do ICMS ficar em 0,92 ? Enviaria a alíquota de 8,40% ? []´s Edson

Bom dia Dercide. No meu PC está com zeros... A unit éra de 05/09/2016. Deletei a pasta ACBrBoleto unit e fiz um SVN update, a data agora é 28/12/2016, mas continua aparecendo zeros, não espaços. []´s Edson.

Boa noite. Tive um problema este mês, na troca de cobrança sem registro para cobrança registrada com o Sicoob. No arquivo retorno, vinha mensagem de título rejeitado, mas não vinha o motivo da rejeição. Entrei em contato com o banco, e me orientaram a mudar o header do arquivo. As posições 33 a 52 devem conter espaços, e estavam com zeros. Alterei a função: GerarRegistroHeader240 de: StringOfChar('0', 20) + //33 a 52 - Brancos - Alteração para passar no validador para: de: StringOfChar(' ', 20) + //33 a 52 - Brancos - Alteração para passar no validador Unit em anexo. []´s Edson. ACBrBancoBancoob.pas

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