Edson.pol

Obrigado Italo !

Semana passada a prefeitura alterou o link para consumo de web-service. Link antigo: http://fi1.fiorilli.com.br:5663/IssWeb-ejb/IssWebWS/IssWebWS?wsdl Novo link: http://servicos.jau.sp.gov.br:8090/IssWeb-ejb/IssWebWS/IssWebWS?wsdl Alteração que deve ser feita no ACBrNFSeXServicos.INI: [3525300] Nome=Jau UF=SP Provedor=Fiorilli Versao=2.00 ProRecepcionar=http://servicos.jau.sp.gov.br:8090/IssWeb-ejb/IssWebWS/IssWebWS ProLinkURL=http://servicos.jau.sp.gov.br:8090/gerarnfse.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso% []´s Edson.

Boa tarde ! O problema foi resolvido em 2020, mas "ressuscitou" agora ... Quando o responsável pela emissão é o banco (Bradesco), o cedente pode gerar a remessa com um "nosso número" já gerado pelo ERP, ou em branco, quando não precisar disto. No meu caso, gero a remessa (CNAB400) com o nosso número gerado pelo ERP, pois existe uma rotina de "lembrete de vencimento" que envia cópia dos boletos dois dias antes do vencimento via e-mail para os clientes e, neste caso, o nosso número tem que ser o gerado pelo ERP. []´s Edson ACBrBancoBradesco.pas

Boa tarde Diego ! No meu caso, tive que acrescentar mais uma linha na unit Fiorilli.Provider.pas Se puder verificar a possibilidade de incluir nos updates: function TACBrNFSeXWebserviceFiorilli200.TratarXmlRetornado( const aXML: string): string; begin Result := inherited TratarXmlRetornado(aXML); Result := NativeStringToUTF8(Result); Result := StringReplace(Result, '
', '\s\n', [rfReplaceAll]); Result := StringReplace(Result, ''#$A'', '\s\n', [rfReplaceAll]); //Linha acrescentada Result := ParseText(AnsiString(Result), True, {$IfDef FPC}True{$Else}False{$EndIf}); Result := RemoverPrefixosDesnecessarios(Result); Result := RemoverCaracteresDesnecessarios(Result); end; Fiorilli.Provider.pas

Bom dia ! A quebra de linha do provedor Fiorilli está configurada com com o valor "default": ConfigGeral.QuebradeLinha := '\s\n'; - Eu gero o texto da Discriminação dos Serviços em um TMemo, depois envio para o componente ACBrNFSeX. O Danfe está imprimindo &#13 no lugar dos "Enters". Não encontrei onde posso corrigir isto.

Boa tarde! Estou com dificuldade de emissão de nota, provedor Fiorilli, utilizando o demo da NFSeX. Como está configurado: case ACBrNFSeX1.Configuracoes.Geral.Provedor of proPadraoNacional: RegimeEspecialTributacao := retMicroempresarioEmpresaPP else RegimeEspecialTributacao := retMicroempresarioEmpresaPP; end; // TnfseSimNao = ( snSim, snNao ); OptanteSimplesNacional := snSim; // Provedor PadraoNacional OptanteSN := osnOptanteMEEPP; ==> Se envio como: RegimeEspecialTributacao := retMicroempresarioEmpresaPP Retorna o erro: Erro(s): Código : L125 Mensagem: O Regime Especial de Tributação informado está diferente do que foi cadastrado para este contribuinte. O Regime Especial de Tributação correto é Não Possui, ou seja, REMOVA do xml essa informação. ==> Se envio como: RegimeEspecialTributacao := retNenhum Retorna o erro: Erro(s): Código : E166 Mensagem: Regime Especial de Tributaçãoo não informado para optante do simples nacional. Quando a empresa prestadora do serviõo for optante pelo simples nacional informe "05" MEI ou "06" ME/EPP. Correção: Quando a empresa prestadora do serviçoo for optante pelo simples nacional informe "05" MEI ou "06" ME/EPP. Tentei altarando os tipos na unit ACBrNFSeXProviderBase.pas para 01,02,03,04,05,06, etc ... Aí retorna o erro: Erro(s): Código : X800 Mensagem: Erro de Validação: 1839 - Element '{http://www.abrasf.org.br/nfse.xsd}RegimeEspecialTributacao': [facet 'pattern'] The value '06' is not accepted by the pattern '1|2|3|4|5|6'. { TnfseRegimeEspecialTributacao = (retNenhum, retMicroempresaMunicipal, retEstimativa, retSociedadeProfissionais, retCooperativa, retMicroempresarioIndividual, retMicroempresarioEmpresaPP, retLucroReal, retLucroPresumido, retSimplesNacional, retImune, retEmpresaIndividualRELI, retEmpresaPP, retMicroEmpresario, retOutros, retMovimentoMensal, retISSQNAutonomos, retISSQNSociedade, retNotarioRegistrador); } Alguém tem alguma dica ?

Boa tarde. Estou tentando calibrar uma Argox OS-214 Plus para pular corretamente as etiquetas. Já fiz o processo normal de calibragem (ligar a impressora com o Feed apertado) A etiqueta em questão é para gondola, com tarja preta no verso (ver foto). O vendedor da etiqueta insiste que o problema é de configuração, mas já tentei de tudo e continua pulando errado. Alguém já passou por isto?

Bom dia Marcos. Vc está usando a tag <autXML> para adicionar os interessados no download da NFe ? Ou somente informando os dados do transportador (tag Transp.Transporta) ? Seria interessante também ver esta NT 2020.004 https://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=A1ayJmuTiI8= que trata de 'Ator interressado na NFe'. []´s Edson.

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.