douglas_k

Bom dia, Estamos iniciando o desenvolvimento com o ACBrBoletos e fazendo alguns testes para ver se conseguimos trabalhar com Linux, porem estamos com erro ao compilar o projeto adicionando apenas um form com o componente ACBrBoleto O erro ocorre no mesmo local que o amigo teve nesse post: Minha dúvida é, ainda não esta 100 % compatível essa questão? O Fortes reports para geração do boleto em PDF também não esta compatível com linux 64?

Estou com a mesma situação, ele mostra certinho na Danfe e no xml da NFC-e, mas quando colo a URL no browser ou faço a leitura pelo qr-code ele altera para https://hom.sat.sef.sc.gov.br/tax.net/ e da erro 999-qr-code inválido

Verdade Amigo, falha minha na leitura, obrigado.

Boa tarde @Juliomar Marchetti, na verdade atualizei sim, a parte dos registros do PAF-NFC-e vi que foi colocado um tipo para geração onde é possível gerar para PAF-ECF e PAF-NFC-e. A parte que não encontrei foi o seguinte requisito: I – “Identificação do PAF-NFC-e”, que apresentará na tela as seguintes informações: a) identificação da empresa desenvolvedora, contendo: 1. CNPJ; 2. razão social; 3. endereço; 4. telefone; e 5. contato. b) identificação do PAF-NFC-e, contendo: 1. nome comercial do PAF-NFC-e; e Hoje o identificação do PAF-ECF é chamado por ACBrECF.PafMF_RelIdentificacaoPafECF mas não encontrei algo já desenvolvido para PAF-NFC-e.

Boa tarde, o ACBr já possui algo para geração do arquivo 'Identificação do PAF-NFC-e' semelhante ao 'Identificação do PAF-ECF' conforme requisito REQUISITO V do ANEXO III (Ato DIAT nº 038/2020) Até mais.

Boa tarde Pessoal, Tive um caso semelhante com o do colega do seguinte post: https://www.projetoacbr.com.br/forum/topic/59916-mensagem-estranha-pelo-acbrmail/?tab=comments#comment-393386 e gostaria de compartilhar com quem eventualmente tenha o mesmo problema. O email ficava sem assunto e o corpo vinha com o conteúdo da imagem abaixo. Em testes encontrei que a causa era o timeout muito baixo, se deixo sem timeout ou com um valor alto a mensagem é enviada corretamente.

Show, contornei usando o update direto com sql, se encontrar alguma solução para o caso publico aqui. Muito obrigado EMBarbosa. Até mais.

Só para exemplificar, nessa sequencia de testes todos executam e tem o resultado esperado, menos o ultimo que seria o .clear. Ele chega executar só não altera a base de dados. dmSupervisor.cldsTeste.Active := False; dmSupervisor.cldsTeste.CommandText := 'SELECT * ' + 'FROM sis_usuarios ' + 'WHERE login_siusua=:P1'; dmSupervisor.cldsTeste.Params[0].DataType := ftString; dmSupervisor.cldsTeste.Params[0].AsString := '0'; dmSupervisor.cldsTeste.Active := True; while not dmSupervisor.cldsTeste.Eof do begin dmSupervisor.cldsTeste.Edit; dmSupervisor.cldsTeste.FieldByName('nome_siusua').AsString := 'Teste'; dmSupervisor.cldsTeste.post; dmSupervisor.cldsTeste.ApplyUpDates(-1); dmSupervisor.cldsTeste.Next; end; dmSupervisor.cldsTeste.Active := False; dmSupervisor.cldsTeste.CommandText := 'UPDATE sis_usuarios ' + 'SET nome_siusua=null ' + 'WHERE login_siusua=:P1'; dmSupervisor.cldsTeste.Params[0].DataType := ftString; dmSupervisor.cldsTeste.Params[0].AsString := '0'; dmSupervisor.cldsTeste.Execute; dmSupervisor.cldsTeste.Active := False; dmSupervisor.cldsTeste.CommandText := 'SELECT * ' + 'FROM sis_usuarios ' + 'WHERE login_siusua=:P1'; dmSupervisor.cldsTeste.Params[0].DataType := ftString; dmSupervisor.cldsTeste.Params[0].AsString := '0'; dmSupervisor.cldsTeste.Active := True; while not dmSupervisor.cldsTeste.Eof do begin dmSupervisor.cldsTeste.Edit; dmSupervisor.cldsTeste.FieldByName('nome_siusua').AsString := 'Outro Teste'; dmSupervisor.cldsTeste.post; dmSupervisor.cldsTeste.ApplyUpDates(-1); dmSupervisor.cldsTeste.Next; end; dmSupervisor.cldsTeste.Active := False; dmSupervisor.cldsTeste.CommandText := 'SELECT * ' + 'FROM sis_usuarios ' + 'WHERE login_siusua=:P1'; dmSupervisor.cldsTeste.Params[0].DataType := ftString; dmSupervisor.cldsTeste.Params[0].AsString := '0'; dmSupervisor.cldsTeste.Active := True; while not dmSupervisor.cldsTeste.Eof do begin dmSupervisor.cldsTeste.Edit; dmSupervisor.cldsTeste.FieldByName('nome_siusua').Clear; dmSupervisor.cldsTeste.post; dmSupervisor.cldsTeste.ApplyUpDates(-1); dmSupervisor.cldsTeste.Next; end;

Na verdade se salvo outros valores ele faz corretamente, se por exemplo mover o valor 'Teste' ele salva corretamente, agora o .Clear, simplesmente não altera o valor, fica o mesmo que ja estava.

Boa tarde, Obrigado pela sugestão. Testei de algumas formas assim, usando o Clear, mais devo estar fazendo algo incorreto, pois mesmo o código executando e não retornando nenhum erro, na base de dados o valor não salva, ele sempre fica com o valor já salvo no campo string. Testei com duas tabelas diferentes, com clientdatasets diferentes e não tive sucesso. Obrigado.

Ainda não encontrei a solução, acredito que vou trocar nesse caso para firedac essas leituras, mais se alguém tiver alguma solução para o DBExpress me avise. Obrigado.

Boa tarde Pessoal, Estou com a seguinte dificuldade. - Tenho um campo chamado usuario do tipo character varying em uma tabela com base de dados Postgres. - Utilizo o DBExpress com a conexão ODBC - Preciso Salvar esse campo em uma determinada situação como null, mais ele sempre esta salvando como ''. Faço da seguinte forma: ClientDataset.Edit; ClientDataset.FieldByName('usuario=').AsString := ''; ClientDataset.post; ClientDataset.ApplyUpDates(-1); Pesquisei e tentei fazer assim, mas ai ele me retorna erro: 'No error Information; Error while executing the query': ClientDataset.Edit; ClientDataset.FieldByName('usuario').Value := Null; ClientDataset.post; ClientDataset.ApplyUpDates(-1); Se faço o mesmo teste usando Firedac ele salva corretamente como null, tanto usando conexão ODBC como direto pelo driver do Postgres. Resumindo, tem alguem que utilize DBExpress com ODBC e conexão postgres, que consiga ou saiba salvar null um campo String?

Na verdade não Felipe, vou fazer isso da próxima vez. Tentei executar o seguinte comando para ver se retornava algum erro: 'gfix -v -full C:\Sistema\banco.fdb -user SYSDBA -pass masterke' mais não retornou nada. Mesmo assim rodei um comando para reparar a base de dados, mais a principio também não resolveu. Agora tentamos reiniciar mais uma vez a maquina e o erro parou de ocorrer. Não sei dizer oque solucionou o problema, mais de qualquer forma agora esta OK. Agradeço a ajuda.

Boa tarde Pessoal. Em um cliente nosso começou a dar alguns erros na base de dados. Não estava fazendo update de alguns registros entre outras coisas. Tentei acessar a base de dados pelo ibexpert e veja o erro que ocorre 'Invalid Token. Dynamic SQL Error. Sql error code = -104. Token unknown -line 1, column 8. DISTINCT' Toda tabela que tento abrir retorna esse erro no DISTINCT. Em anexo imagem com o erro. Alguém já teve algum erro semelhante. Desde já agradeço

Bom dia Daniel, Voltamos a verificar essa situação agora, vocês já utilizaram avisos sonoros no scanner com conexão USB para identificar produto invalido ou por alguma outra situação? Utilizando o componente ACBrLCB, o fabricante do scanner teria que disponibilizar um driver para gerar uma porta com virtual. Tem alguma outra forma ou componente, para emitir beep em scanners USB.

Meu email é [email protected], vamos nos falando, quem sabe encontramos alguma solução.

Boa tarde DSilva, Tenho a mesma situação que você relatou. Utilizando o certificado instalado, praticamente nunca ocorria esses erros de envio. Agora com OpenSSL tenho com frequência erro de Timeout. Faço o tratamento pulando a numeração e emitindo offline sem problema, mais realmente parece estranho ter esse aumento no numero de ocorrência de erros. Alguma medida que você adotou melhorou essa questão do envio. Trabalho com emissão de NFC-e no Rio Grande do Sul.

uhum, esta em anexo. Obrigado. ACBrECFEscECF.pas

Bom dia Pessoal, Fui cadastrar uma nova alíquota de valor 5,60 na ECF Epson TM-T900F. Após executar o comando, sempre era cadastrada a alíquota de 5,59. Debugando encontrei a seguinte linha na unit ACBrECFEscECF procedure TACBrECFEscECF.ProgramaAliquota, EscECFComando.AddParamString( IntToStrZero( Trunc(Aliquota*100), 4 ) ); Após executar essa linha a alíquota que vinha com o valor 5,60 se transformava em 0559. Se eu alterar a function Trunc pela TrunFix do AcbrUtil, faz corretamente. Não sei qual a melhor solução para essa questão, ou se estou fazendo algo errado, a principio fiz essa alteração... Até mais.

Isso, vamos verificando se mais gente vai ter essa situação. Obrigado.

Pse, ele comentou que se não foi emitido nenhum documento que atualizou o estoque dentro do período que foi gerado o arquivo, não poderia gerar o registro E3. De qualquer forma também achei estranho, mais acabou passando assim.

Boa tarde, Outra alteração solicitada pelo homologador e que efetuei na classe ACBrPaf foi o seguinte. Se no período do arquivos do PAF que estou gerando, não existir nenhum documento responsável pela atualização do estoque, eu não informo nada para esse registro 'E3'. Dessa forma, vou ter apenas os registros E2 sem registros E3. Para isso fiz uma alteração no ACBrPaf, hoje esta assim: if FPAF_E.RegistroE2.Count > 0 then begin FPAF_E.WriteRegistroE2; end; if FPAF_E.RegistroE3.DT_EST > 0 then begin FPAF_E.WriteRegistroE3; FPAF_E.WriteBuffer; end; e alterei para seguinte forma: if FPAF_E.RegistroE2.Count > 0 then begin FPAF_E.WriteRegistroE2; end; if FPAF_E.RegistroE3.DT_EST > 0 then begin FPAF_E.WriteRegistroE3; end; if (FPAF_E.RegistroE2.Count > 0) or (FPAF_E.RegistroE3.DT_EST > 0) then begin FPAF_E.WriteBuffer; end; Dessa forma pode existir registros E2 sem E3. Sugiro a alteração mais de qualquer forma se entenderem que não é assim o funcionamento deixo anotado para sempre fazer o ajuste nas atualizações. ACBrPAF.pas

Boa tarde, Encerramos a homologação de nosso PDV com sucesso, graças aos componentes ACBr. Na unit 'ACBrPAF_W_Class' fiz alguns pequenos ajustes, que seriam os seguintes: No registro W1 e W2 coloquei um UpperCase na RAZAOSOCIAL e no W4 alterei de RFill(CRE, 9) para LFill(CRE, 9), para que assim seja colocado os zeros a esquerda na geração do arquivo. O arquivo alterado esta em anexo. As alterações foram solicitadas pelo homologador. ACBrPAF_W_Class.pas

Bom dia Pessoal, Hoje utilizamos alguns 'beeps' no scanner para identificar que um produto invalido foi digitado. Isso é possível pelo componente ACBrLCB. O problema que agora a maioria dos scanners adquiridos estão vindo com a conexão USB. Alguém tem o conhecimento se é possível enviar 'beeps' para esse tipo de equipamento, ou alguém utiliza alguma outra forma de avisar de forma sonora que um produto digitado é invalido? Outro post falando sobre o assunto. https://www.projetoacbr.com.br/forum/topic/20431-fazer-o-leitor-de-codigo-de-barras-bipar/?tab=comments#comment-303665

Obrigado Juliomar, havia atualizado o ACBr e olhei no change-log não tinha encontrado nada. Mais agora fui no fonte e realmente existe esses registros.