Marcos Gerene

Boa tarde a todos, O meu certificado A1 venceu e desta vez optei pelo A3. Consigo gerar a chave pelo ACBrSign normalmente, mas eu tinha um script para gerar as chaves no meu sistema que facilitava e muito meu processo. Este script era basicamente rodar isso no CMD: openssl dgst -sha256 -sign cert.pem -out assinatura.bin cnpjs.txt openssl enc -base64 -in assinatura.bin -out assinatura.txt Aonde "cert.pem" seria o certificado A1 convertido em Base64 se não me engano. A questão é, consigo gerar este arquivo que uso com o certificado A3? Ou existe com o A3 que eu consiga fazer um script parecido? Obrigado, Marcos.

Obrigado

Bom dia a todos, Alguém poderia por favor postar um exemplo da impressão de um CTeOS? Obrigado

Bom dia a todos, Para não inundar ainda mais este post e para servir de base de conhecimento, quando apenas a luz power do SAT acende e ele não pisca as outras luzes ao plugar o aparelho o mesmo está com defeito. No meu caso aconteceu com um aparelho que chegou a 20 dias justamente objeto de troca citado no post anterior. Infelizmente serão mais 20 dias com o cliente sem SAT. Att, Marcos

Somente para dar um feedback, por minha aplicação ser em C# optei reescrever a minha rotina de boletos usando um componente nativo (https://github.com/BoletoNet/boleto2net) e remover a ultima dependência externa que meu projeto ainda tinha do Lazarus (boletos). Att, Marcos

A FS700 é fiscal né? Se o problema ocorre também com o ACBrMonitorPLUS tudo indica que o problema não está no AcbrFramework e sim na comunicação com a impressora. Tentou comunicar com algum software de testes fornecido pela fabricante? Faz um tempo que trabalho com impressoras fiscais, mas ate aonde eu conheço a comunicação ocorre por porta serial ou USB emulando uma Serial, veja se existe algum arquivo de configuração (como a Bematech tem o bemafi.xml) e se a porta COM está correta neste arquivo.

PS: O layout é o CNAB 240

Boa noite a todos, Tive um retorno do Sicoob na remessa que mandei de testes que acredito que envolva ajustes também no componente. layout sicoob.pdf Atualmente eu emitia boleto apenas pelo Bradesco e este está ok. Meu código: procedure TBoleto.GetBoletos(GerarPDF: boolean); var qryContasReceber : TZQuery; begin try ACBrBoleto.ListadeBoletos.Clear; qryContasReceber := TZQuery.Create(nil); qryContasReceber.Connection := FrmPrincipal.Conexao; qryContasReceber.SQL.Add('SELECT CONTAS_RECEBER.*, CLIENTE.*, CIDADE.* FROM CONTAS_RECEBER'); qryContasReceber.SQL.Add('INNER JOIN CLIENTE ON CLIENTE.CLI_CODIGO = CONTAS_RECEBER.CLI_CODIGO'); qryContasReceber.SQL.Add('INNER JOIN CIDADE ON CIDADE.CID_CODIGO = CLIENTE.CID_CODIGO'); qryContasReceber.SQL.Add('WHERE CONTAS_RECEBER.CR_CODIGO IN ('+FCodigos+')'); qryContasReceber.Open; while not qryContasReceber.EOF do begin if (GerarPDF) then ACBrBoleto.ListadeBoletos.Clear; with ACBrBoleto.CriarTituloNaLista do begin OcorrenciaOriginal.Tipo := toRemessaRegistrar; Sacado.NomeSacado := qryContasReceber.FieldByName('CLI_RAZAO').AsString; Sacado.CNPJCPF := qryContasReceber.FieldByName('CLI_CNPJ').AsString; if (Length(qryContasReceber.FieldByName('CLI_CNPJ').AsString) = 11) then Sacado.Pessoa := pFisica else Sacado.Pessoa := pJuridica; Sacado.Logradouro := qryContasReceber.FieldByName('CLI_LOGRADOURO').AsString; Sacado.Numero := qryContasReceber.FieldByName('CLI_NUMERO').AsString; Sacado.Bairro := qryContasReceber.FieldByName('CLI_BAIRRO').AsString; Sacado.Cidade := qryContasReceber.FieldByName('CID_NOME').AsString; Sacado.UF := qryContasReceber.FieldByName('CID_UF').AsString; Sacado.CEP := qryContasReceber.FieldByName('CLI_CEP').AsString; if Length(qryContasReceber.FieldByName('CLI_EMAIL').AsString) > 5 then Sacado.Email := qryContasReceber.FieldByName('CLI_EMAIL').AsString; if Length(qryContasReceber.FieldByName('CLI_TELEFONE').AsString) > 3 then Sacado.Fone := qryContasReceber.FieldByName('CLI_TELEFONE').AsString; EspecieMod := 'R$'; Vencimento := qryContasReceber.FieldByName('CR_VENCIMENTO').AsDateTime; DataDocumento := qryContasReceber.FieldByName('CR_LANCAMENTO').AsDateTime; NumeroDocumento := qryContasReceber.FieldByName('CR_CODIGO').AsString; SeuNumero := qryContasReceber.FieldByName('CR_CODIGO').AsString; NossoNumero := qryContasReceber.FieldByName('CR_CODIGO').AsString; EspecieDoc := 'DM'; Aceite := atNao; Carteira := FCarteira; DataProcessamento := Now; LocalPagamento := ACBrBoleto.Banco.LocalPagamento; ValorDocumento := qryContasReceber.FieldByName('CR_VALOR').AsFloat; PercentualMulta := FPercentualMulta; if (FPercentualMulta > 0) then begin ValorMoraJuros := (qryContasReceber.FieldByName('CR_VALOR').AsFloat * FPercentualMulta / 100) / 30; DataMoraJuros := IncDay(Vencimento, 1); end; if (FDiasProtesto > 0) then begin TipoDiasProtesto := diUteis; DataProtesto := IncDay(Vencimento, FDiasProtesto); end; TipoImpressao := tipNormal; end; if (GerarPDF) then begin ACBrBoletoRpt := TACBrBoletoFCLazReport.Create(nil); ACBrBoleto.ACBrBoletoFC := ACBrBoletoRpt; ACBrBoletoRpt.DirLogo := diretorio_logotipos; ACBrBoletoRpt.NomeArquivo := ACBrBoleto.DirArqRemessa + '\bol_' + FormatFloat('000000000', qryContasReceber.FieldByName('CR_CODIGO').AsInteger) + '.pdf'; ACBrBoletoRpt.GerarPDF; ACBrBoleto.ACBrBoletoFC := nil; ACBrBoletoRpt.Free; end; qryContasReceber.Next; end; finally qryContasReceber.Free; end; end; Att, Marcos

@BigWings Obrigado pela dica!

@BigWings Obrigado pela atenção, meu script é basicamente um arquivo txt separado por # que rodo no banco. ex: ALTER TABLE CLIENTE ADD CLI_ID INTEGER NOT NULL; # ALTER TABLE PRODUTO ADD PROD_ID INTEGER NOT NULL; Eu leio isso, faço um split com # executo ação a ação. Como eu poderia usar o recurso que me falou neste caso, pode me dar um exemplo?

PS: Em ultimo caso pretendo criar um campo auxiliar, armazenar o valor do campo alterado, dropar e recriar o campo... vai dar um trabalho gigantesco, mas funcionaria...

Bom dia a todos, Estou fazendo um refatoring no meu software, entre as modificações alguns campos devem ser not null. Bem, o que acontece é que sou uma software house, ou seja, tenho vários banco de dados. Eu utilizo Firebird, tenho algo em torno de 80% em FB 2.5.x e o restante em 3.0.x. Bem, meus sistemas se atualizam de forma automatica, tenho uma aplicação que baixa a nova versão e roda um script no banco atualizando tudo, entretanto barrei num problema complexo com o Firebird agora. Na versão 3.0 é permitido usar SET NOT NULL, logo posso usar da seguinte forma: ALTER TABLE [tabela] ALTER COLUMN [coluna] SET NOT NULL; Entretanto na versão 2.5 o código acima não funciona, então tenho que usar desta forma: UPDATE RDB$RELATION_FIELDS SET RDB$NULL_FLAG = 1 WHERE (RDB$FIELD_NAME = 'campo') AND (RDB$RELATION_NAME = 'tabela'); Mas o update em tabelas de sistema não é permitido no FB 3.0.x. Existe alguma solução para isto que eu possa usar num script. Em ultimo caso vou usar o script da 2.5.x e deixar que o erro aconteça nos clientes que estejam na versão 3.0.x minimizando o problema, mas isso vai "quebrar" meus scripts posteriormente. Att, Marcos

Conhece o ORMBr? (www.ormbr.com.br) o "pai" da criança se não me engano é o @Isaque Pinheiro e entre os mantenedores está o @Juliomar Marchetti. Como eu disse antes estou completamente fora do Pascal, matei na minha ultima release a unica aplicação que eu ainda tinha em Lazarus, nem conheço a ferramenta, mas acredito que vale a pena dar uma conferida.

Me enquadro perfeitamente neste caso.

@BigWings O problema não estava no meu código mas sim na versão, a NFe era de um cliente novo, nem no meu sistema a NFe tinha sido emitida, eu ia fazer um micro executavel so pra resolver isso pra ele, foi um "serviço à parte" que vendi pro cliente no momento da implantação. De qualquer forma deu certo aqui comigo, muito obrigado pela atenção.

Amigo eu programo em C# e utilizo um componente nativo, atualmente não uso o ACBrNFe, eu apenas utilizo o forum. Sobre a emissão eu fiz usando o emissor gratuito versão 2.00.

@Agnaldo Prates e outros amigos. Em contato com o Sefaz me solicitaram que baixasse a versão 2.0 do emissor gratuito e emitisse a CCe. Para minha surpresa o CCe foi emitido. Obrigado mesmo assim pela ajuda, abraços

Numa leitura de 2 minutos você explicou o que levei anos para entender minimamente. Excelente, eu te daria um abraço se pudesse haha.

Bom dia, Sim Sim, as respostas aqui foram claras. Muito obrigado a todos pela ajuda!

@Sérgio Assunção Então quando eu renovar devo upar o novo certificado e deixar o antigo, tendo 2 certificados em paralelo, seria isso? Uma ultima questão: meu certificado atual é A1, por questões de custos estou cogitando pegar um A3 na renovação, existe algum problema para tal?

@André Ferreira de Moraes Boa tarde, obrigado pela atenção. Lendo o link que postei anteriormente ficou uma dúvida no ar, no caso de clientes que eu vinculei anteriormente (com o certificado que no caso estaria vencido) eu preciso trocar a chave de ativação ou não existe a necessidade?

Boa noite a todos, Recebi um e-mail da empresa que gerou meu certificado (tipo A1) que meu certificado vence em 60 dias. A única função do meu certificado é gerar a chave de associação do SAT, logo a renovação só seria feita para esta finalidade. Sendo assim fiz um teste com o ACBrSign e um certificado também A1 só que vencido de um cliente e o código de associação foi gerado normalmente. A questão é, existe a necessidade da renovação do meu certificado para estes fins? Att, Marcos Acredito que achei minhas respostas aqui: http://www.afrac.com.br/wp-content/uploads/2016/06/Perguntas-frequentes-de-desenvolvedores-do-SAT.pdf

Bom dia @Agnaldo Prates Obrigado pelas informações, entrei em contato com o contador e ele disse que ja fez este processo algumas vezes, vou imprimir a NT aqui pois essa novela vai gerar novos capítulos... rs Abraços

Bom dia a todos, Um cliente meu precisa emitir uma CCe para uma NFe de 2015 para conseguir uma certidão negativa. Em contato com o contador ele me informou que esse processo era possível, mas meu retorno quando tentei emitir foi que a data da chave era inferior em mais de 6 meses da data atual. Alguém já fez este processo e pode me orientar como fazer? Ou pode pelo menos me dizer se é ou não possível isso, nunca tive esse tipo de solicitação. Obrigado a todos

Problema resolvido, basta executar o Integrador como administrador para ter a resposta como citou o Sr. @André Ferreira de Moraes