Edson.pol

Bom dia. Solução para o problema: Banir uso de Currency ! Alterei todos as variáveis para Real e o problema parou. O que ocorria: var PrecoUnitario: Currency; begin PrecoUnitario:=TabelaPrecoUnitario.AsCurrency; // o valor gravado no banco MySQL em campo Decimal(12,2) éra : 12.45 mas o valor carregado é 12.4501 end; Solução: var PrecoUnitario: Real; begin PrecoUnitario:=TabelaPrecoUnitario.Value; ( ou .AsFloat ); end; []´s Edson

Boa noite. Anexei um projetinho com um exemplo de como faço para enviar. Sete a propriedade "JobTitle" de cada relatório para servir como nome do arquivo pdf gerado. Debug a unit SendMailOptions, até o "FilterPages", para entender como é gerado o pdf. Falta só incluir sua rotina para enviar o email. []´s Edson EnviaRelatorioPorEmail.rar

Bom dia. Estou com um problema com decimais. (Delphi 7) Por exemplo, emito uma nota fiscal e o campo valor unitário é impresso com duas casas decimais (variável tipo Currency), mas no debug, sempre tem 4 decimais. O valor está gravado em banco de dados MySQL , num campo decimal (18,2), exemplo no banco de dados: ValorUnitário: 18,22 no debug: 18,2201 e no final das contas, a quarta casa decimal tem causado problemas. mesmo tentando converter 18,2201 para string - com FormatFloat('#0.00',18.22), que obtém "18,22", transformo a string para float e volta a quarta casa decimal. StrToFloat(18,22) resulta em 18,2201. Já tentei alterar CurrencyDecimals para 2, mas não faz efeito. Já tentei todas as funções de arredondamento do ACBr, e tbm não resolve. As vezes, percebendo o problema o usuário fecha o sistema e abre novamente e some "magicamente" a quarta decimal. Alguém tem alguma dica ? []´s Edson.

Boa tarde. Passei o dia inteiro fazendo testes e consegui resolver alterando os campos qCom e qTrib na unit pcnNFe. Estão como Currency, e alterei para Double, resolvendo o problema. Antes da alteração: Alimentava o componente com 0,990 e ficava como 0,9901 Alimentava o componente com 0,185 e ficava como 0,1851 Alterando de Currency para Double matou a questão. É possível aplicar esta correção ao trunk ? []´s Edson pcnNFe.pas

Boa noite. Problema com um cliente que usa 4 decimais na quantidade dos produtos. No banco de dados, a quantidade é um campo decimal (12,4) O valor gravado no banco é 0.9900 (dois zeros a direita) Quando alimento o componente, com: Prod.qCom := dm.qrNf02Quantidade.AsFloat, o valor fica como 0.9901 De onde vem este 01 no final ? O correto seria (0,9900 * 800,00 = R$ 792,00) Porém está calculando (0,9901 * 800 = R$ 792,08) Já tentei tudo o que me veio à cabeça: Prod.qCom := dm.qrNf02Quantidade.Value; Prod.qCom := dm.qrNf02Quantidade.AsFloat; Prod.qCom := dm.qrNf02Quantidade.AsCurrency; Tentei atribuir a variáveis do tipo Real, Double, Extended, Currency... Tentei todas as funções Round, RoundTo, RoundABNT,. mas o 01 não some. Alguém tem alguma dica ? []´s Edson

Obrigado Daniel. Já tinha pesquisado nestes links, mas a dúvida sobre o crédito na nota fiscal paulista ainda persiste. Emitindo nota fiscal de entrada, resolve o problema fiscal do emitente (apuração do faturamento), mas não achei em lugar algum se a nota irá estornar o crédito do consumidor no sistema da NF Paulista. Amanhã irei até o posto fiscal sanar a dúvida. O problema é que geralmente volto do posto fiscal com mais problemas do que soluções. []´s Edson.

Boa tarde. Semana passada um cliente emitiu 3 cupons com valor incorreto (5.300,00 ao invés de 53,00) Como se passaram os 30 minutos para cancelamento, faremos nota fiscal de entrada (estorno de CFe não cancelado em tempo hábil, com a chave do CFe referenciado). A dúvida é quanto a Nota Fiscal Paulista. Esta nota de entrada irá cancelar o crédito no site da NF Paulista ? Alguém já passou por esta situação ? []´s Edson.

Bom dia Wandarlei. Se você estiver usando TRESTClient para receber o retorno, deixe a propriedade "Accept" apenas com "application/json" . Por padrão deve estar como: Accept = 'application/json, text/plain; q=0.9;q=0.8,' e não sei porque não funciona. Uma dúvida: Como você está fazendo para obter o token ? Com o código que passei neste link https://github.com/ortuagustin/Delphi-Utils ? O meu problema é que ainda uso Delphi 7, que não tem os recursos do "OAuth...", então vou fazer um aplicativo com o XE, para rodar em background para obter o token e salvar o pedido no banco de dados. []´s Edson

Bom dia. O cliente precisa emitir CTe-OS na sexta feira para as viagens (excursões) que ocorrerão no sábado e domingo (porque o escritório fecha no final de semana). Se emitir o CTe-OS com data de sexta, poderá ter problemas ? Tipo ser parado numa fiscalização no domingo, com CTe-OS emitido na sexta ? Como vocês estão fazendo ? []´s Edson.

Você emite NFe ? Verifique se está "limpando" o componente ACBrNFe após emitir uma nota por exemplo. ACBrNFe.NotasFiscais.Clear; Tive um problema parececido há muito tempo por causa disto. Procure por outros componente que tenham metódo ".Add" e veja se também se aplica. []´s Edson

Como você está tratando o campo Ide.cNF ? Está usando um número randômico (o que é indicado) ou algum valor fixo? Se for fixo, fica fácil descobrir a chave da NFe.

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