Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

douglas_k

Membros
  • Posts

    167
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by douglas_k

  1. Pelo instalador deu os mesmos erros que abrindo pelo delphi e compilando. Ele gerou uma pasta LibD27x64 vazia. Oque acho estranho é assim, se eu crio um projeto vcl com o acbrboleto e o acbrboletofcfortes, ele compila win32 e win64, inclusive o exemplo utilizando o acbrboleto que vem junto com o projeto compilou corretamente para os dois. Agora se faço a criação de um projeto delphimvcframework ele só compila win32 se tentar compilar win64 gera aqueles erros do primeiro tópico. Esse diretório libD27x64, tentei substituir para o libD27 e tambem deixar sem ele, e de todos jeitos ocorreram os mesmos erros.
  2. Boa tarde, Estou tentando instalar o fortes para windows 64. Tanto usando o instalador quanto compilando pelo delphi, ocorre o seguinte erro ao compilar 'e2202 required package 'designide' not found'. Estamos iniciando um projeto utilizando delphi mvc e o acbrboleto e gostaríamos de utilizar win64. Compilando win32 vai sem problema mas compilando win64, ocorrem vários erros na compilação.
  3. Bom dia @automacaosamos, Obrigado pela ajuda. Tentei fazer dessa forma, só não tinha o 'RELEASE' na Condicional Defines, mas mesmo inserindo ela o erro permanece.
  4. 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?
  5. 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
  6. 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.
  7. 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.
  8. 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.
  9. Show, contornei usando o update direto com sql, se encontrar alguma solução para o caso publico aqui. Muito obrigado EMBarbosa. Até mais.
  10. 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;
  11. 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.
  12. 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.
  13. 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.
  14. 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?
  15. 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.
  16. 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
  17. 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.
  18. Meu email é [email protected], vamos nos falando, quem sabe encontramos alguma solução.
  19. 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.
  20. uhum, esta em anexo. Obrigado. ACBrECFEscECF.pas
  21. 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.
  22. Isso, vamos verificando se mais gente vai ter essa situação. Obrigado.
  23. 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.
  24. 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
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.