Edson.pol

Funcionando ! Seguindo as dicas do Edmar Frazão. []´s Edson

Vou testar nos clientes amanhã, depois reporto aqui o resultado. Obrigado pelo feedback !

Bom dia! "No dia 30 de maio, é possível que você perca o acesso a apps que estão usando tecnologia de login menos segura. Para proteger sua conta, o Google não vai mais aceitar o uso de apps ou dispositivos de terceiros que solicitam que você faça login na sua Conta do Google usando apenas seu nome de usuário e senha. Você vai precisar usar o recurso Fazer login com o Google ou outras tecnologias mais seguras, como o OAuth 2.0. Saiba mais" O gmail atendia perfeitamente os meus clientes, mas agora complicou... Muitos não tem e-mail empresarial, então estou buscando uma alternativa. Qual solução vocês adotam em seus sistemas ? Enviam e-mails com a conta do cliente, ou utilizam o domínio da própria empresa desenvolvedora ([email protected], cliente2, etc) ? []´s Edson

Boa tarde. Meu cliente utiliza a cobrança do Bradesco (CNAB400), e antigamente, ele numerava os títulos, enviava a remessa com o nosso número definido e o banco imprimia e enviava o boleto. Agora, vi que existe uma função "ValidaNossoNumeroResponsavel", que zera o nosso número quando o responsável pela emissão é o banco. Porém... segundo o manual do Bradesco: "093 a 093 - Condições para Emissão do Boleto de Cobrança Se for igual a 1 = o Banco emite o boleto e processa o registro. Se o Nosso Número for informado nas posições 71 a 82 do registro de transação, o Banco assume. Se o Nosso Número não for informado, o Banco criará automaticamente. Se for igual a 2 = o cliente emite o boleto e o Banco somente processa o registro. Nesse caso, será obrigatório informar o Nosso Número formatado nas posições 71 a 82 do registro de transação Tipo 1." A função não deveria zerar o nosso número no caso dele já vir preenchido. Em anexo, ACBrBoleto.pas com a alteração necessária na função "ValidaNossoNumeroResponsavel" []´s Edson. ACBrBoleto.pas 4008-524-0121-layout-cobranca-versao-portugues.pdf

Pra testes no IOS, estou usando uma maquina virtual (VMWare) com o MacOS Catalina instalado. No MacOS tem que instalar o XCode e o PA-Server. Mas tive que comprar um iPhone 7, só pra testes "de verdade". Criei um certificado no XCode, dá pra fazer deploy no iPhone, mas só deixa o APP funcionando por 7 dias no aparelho. Pra funcionar de verdade, só adquirindo certificado de desenvolvedor (99,00 dólares/ano). Por enquanto o App vai rodar em alguns Androids e somente em um iPhone... Vai ficar caro a brincadeira. Já estava cotando impressoras Bluetooh quando percebi que não funciona no IOS. []´s Edson

Alguém conseguiu imprimir via IOS, em impressora Bluetooth, pelo ACBrPosPrinter, ou qualquer outra forma ? Estou tentando compilar um teste de impressão, mas ao setar o Device "IOS 64 bits", dá erro nas units do Bluetooth. Andei pesquisando, e parece que o IOS não tem suporte a impressoras Bluetooth, somente via "Air Print", mas o estranho é que na Apple Store, pesquisando por "Thermal Print", existem algumas opções de APPs. Para Android até estou conseguindo imprimir via Socket, o ACBrPosPrinter já testei de todas as maneiras mas não imprime. Dá um salto de uma linha e desconecta a impressora. []´s Edson.

Misturei as coisas ! Obrigado a todos por esclarecer. Estou começando o meu primeiro projeto Mobile, e ainda estou "engatinhando" com Rest, Datasnap, Firemonkey, etc. []´s Edson

Caros, Vi que temos algumas opções de framework ORM, como: RestDataWare ( Free ) http://www.aegys.com.br/ Delphi MVC Framework ( Free ) https://github.com/danieleteti/delphimvcframework TMS Aurelius ( € 175,00 ) / R$ 775,00 https://www.tmssoftware.com/site/aurelius.asp ORMbr ( R$1.349,00 ) / Não entendi se tem ou não versão free https://www.ormbr.com.br/produto/ormbr-rest-server-e-client-component Alguém utiliza alguma destas opções, e pode dar uma opinião ? []´s Edson.

Bom dia Juliana ! Sobre o post acima, seria possível implementar no ACBrBoleto ? Pesquisando sobre o problema, vi que alguma DLL carregada (provavelmente para assinar XML) está afetando o comportamento do ponto flutuante. Não consegui detectar qual delas é a "culpada", mas achei uma solução. criar uma variável global: Saved8087CW: Word; no evendo OnCreate do formuário principal: Saved8087CW:=Default8087CW; No evento OnCreate do formulário onde está havendo problema com cálculo (decimais) System.Set8087CW(Saved8087CW); Os comandos "round" são afetados pelo problema do ponto flutuante, mas a função abaixo funciona corretamente (o FloatToStrF não é afetado pelo problema) function FormatarValorComZeros(Valor: Double; Tamanho: Integer): String; var ValorStr: String; begin ValorStr:=FloatToStrF(Valor,ffFixed,10,2); ValorStr:=StringReplace(ValorStr,',','',[rfreplaceall]); ValorStr:=PadLeft(ValorStr,Tamanho,'0'); Result:=ValorStr; end; []´s Edson.

Entendi. Obrigado !

Daniel, Sabe me dizer se isto acontece somente com porta tipo RAW ? Se usar porta LPT o pulo de etiqueta funciona ? É que a impressora está em outra cidade, e o PC não tem porta paralela. Se for o caso, peço pra instalarem uma porta paralela (placa PCI). []´s Edson

Boa tarde. Estou testando o demo do ACBrETQ com Zebra TLP 2844, porta RAW:NomeDaImpressoraWindows , usando PPLB Até imprime, só que não pula a etiqueta. (ver imagem) Só vai pular se a etiqueta tiver GAP (cortinho) ? Atualmente estou usando impressão via FortesReport, mas de vez em quando a impressora imprime só metade da etiqueta, ou saem muitas etiquetas em branco. Reset não resolve. Testando pelo ACBrETQ parece que não teria este problema. []´s Edson

Boa noite Juliana. Desconfio que o meu problema deve ser algo citado em outro tópico: No meu caso, o valor gravado no banco de dados por exemplo: 123,45 (Campo Decimal 12,2) Quando recupero o valor de um TField, vem como 123,4501 Fiz uma alteração nos fontes do ACBrBoleto, vou anexar para vocês analisarem se pode ser incluído no repositório. Criei uma função utilizando o FloatToStrF, que foi a única forma de eliminar os dois últimos dígitos "fantasmas", pois com Round e suas variações não funcionou function FormatarValorComZeros(Valor: Double; Tamanho: Integer): String; var ValorStr: String; begin ValorStr:=FloatToStrF(Valor,ffFixed,10,2); ValorStr:=StringReplace(ValorStr,',','',[rfreplaceall]); ValorStr:=PadLeft(ValorStr,Tamanho,'0'); Result:=ValorStr; end; Na função MontarCodigoBarras, alterei de IntToStrZero(Round(ACBrTitulo.ValorDocumento * 100), 10) para FormatarValorComZeros(ACBrTitulo.ValorDocumento,10) []´s Edson. ACBrBoleto.rar

Boa tarde. Estou com um problema chato com erros de centavos nos boletos. Por exemplo: Valor do título: 591,67 No código de barras, gera 59166 Na imagem em anexo dá pra ver que o componente foi alimentado com 591,67 mas ao converter com IntToStrZero(Trunc(ACBrTitulo.ValorDocumento * 100), 10) retorna 59166 Já tentei tudo o que está ao meu alcance. Testei todas as funções de arredondamento e nenhuma resolveu. A unica solução foi converter para string, remover o ponto decimal e preencher os zeros a esquerda com: ValorStr:=FloatToStr(ACBrTitulo.ValorDocumento); ValorStr:=StringReplace(ValorStr , ',' , '' , [rfreplaceall]); ValorStr:=PadLeft(ValorStr,10,'0'); CodigoBarras := IntToStr( Numero ) + '9' + FatorVencimento + ValorStr + // IntToStrZero(Trunc(ACBrTitulo.ValorDocumento * 100), 10) + <<<<==== desta forma dá erro nos centavos ANossoNumero + aAgenciaCC + '000'; Nenhum de vocês teve problema deste tipo ? Vou ter que ficar atento sempre que o ACBrBoleto for atualizado, e refazer esta alteração para não voltar o problema. []´s Edson.

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.