Fabio Souza

Amigos eu realizei uma pequena implementação de uma rotina para Capturar e definir o certificado Digital via Capicom. Com ela, na minha aplicação será possível selecionar o certificado Capicom de uma forma mais simples. Isto é útil quando ocorre por exemplo a compra de um novo certificado digital A3. Caso a mesma seja útil, peço para que seja analisada e inserida ao projeto. Abaixo a rotina implementada e em anexo o arquivo .PAS completo: //* Permite selecionar e definir um certificado Capicom, retornando o número de série. //* Útil para uso com várias empresas e renovação de certificados //* //* selecionarcertificadocapicom([atualizacomponentes], [senhacertificado]) //* [atualizacomponentes] - Se informado 1, irá definir o certificado selecionado para os componentes (Opicional) //* [senhacertificado] - Se informado, irá gravar definir a senha do do certificado selecionado (Opicional) //* Ex: selecionarcertificadocampicom(1, '1234') else if Cmd.Metodo = 'selecionarcertificadocapicom' then try ACBrNFe1.Configuracoes.Geral.SSLLib := libCapicom; ACBrNFe1.SSL.SelecionarCertificado; if ACBrNFe1.SSL.NumeroSerie <> '' then begin Cmd.Resposta := 'Serie=' + ACBrNFe1.SSL.NumeroSerie; //Caso seja 1 indica que deve ser atualizado o número de série nos componentes if Cmd.Params(0) = '1' then begin ACBrNFe1.Configuracoes.Certificados.NumeroSerie := ACBrNFe1.SSL.NumeroSerie; ACBrCTe1.Configuracoes.Certificados.NumeroSerie := ACBrNFe1.SSL.NumeroSerie; ACBrMDFe1.Configuracoes.Certificados.NumeroSerie := ACBrNFe1.SSL.NumeroSerie; ACBrGNRE1.Configuracoes.Certificados.NumeroSerie := ACBrNFe1.SSL.NumeroSerie; edtNumeroSerie.Text := ACBrNFe1.SSL.NumeroSerie; //Caso a senha tenha sido informada, atualiza if cmd.Params(1) <> '' then begin ACBrNFe1.Configuracoes.Certificados.Senha := Cmd.Params(1); ACBrCTe1.Configuracoes.Certificados.Senha := Cmd.Params(1); ACBrMDFe1.Configuracoes.Certificados.Senha := Cmd.Params(1); ACBrGNRE1.Configuracoes.Certificados.Senha := Cmd.Params(1); edtSenha.Text := Cmd.Params(1); end; rgVersaoSSL.ItemIndex := 1; //Define como CAPICOM SalvarIni; end; end; except on E: Exception do begin raise Exception.Create('Falha ao selecionar o certificado digital'); end; end DoACBrNFeUnit.pas

Consegui gerar com todos os componentes que preciso utilizando a opção IDE Otimizada e adicionando a opção -CX (Smart Link) na Janela "Configure Build Lazarus". Obrigado

Pessoal estou usando o Lazarus 1.6.2 em uma máquina com Windows 10 e tenho muitos componentes como ACBr, ZeosLib, FortesReports, Brook Framework, etc.. Quando tento recriar o Lazarus, recebo o erro "no memory left". Tentei mudar as opções de criação no Lazarus, rodar em modo Administrador, tentei ver algo no fórum do Lazarus mas sem sucesso. Para resolver de forma temporária, tenho que remover alguns componentes para poder recriar e isto esta me dando muita dor de cabeça, dependendo do projeto que vou trabalhar, tenho que ficar removendo e adicionando componentes. O projeto ACBrMonitor usa a maioria dos componentes do ACBr e esta cada vez mais complicado de recompilar. Alguém já enfrentou este problema? Acredito que isto não esteja ligado a meu hardware, uma máquina com I5 e 4Gb de memória RAM. Obrigado

Acredito que seja algum problema, pois o Sintegra esta retornando "Não foi encontrado contribuinte cadastrado no Estado de São Paulo com o CNPJ informado". Este problema esta acontecendo aparentemente com empresas sem inscrição estadual (ISENTO). No meu entendimento é errado informar como não contribuinte neste caso (indIEDest ='9'). Segundo o manual: Nota 3: No caso de Contribuinte Isento de Inscrição (indIEDest=2), não informar a tag IE do destinatário. []´s

Eu também estou com este problema em vários clientes. Aparentemente é um algum tipo de problema. Tentei consultar o cadastro via CNPJ no Sintegra e esta retornando "Não foi encontrado contribuinte cadastrado no Estado de São Paulo com o CNPJ informado." Estamos tentando contactar a SEFAZ para saber o que esta acontecendo e uma previsão de retorno. []´s

Bom dia. Faça uma pesquisa no fórum existem vários tópicos sobre SICREDI.

Veja este Post: []´s

Sobre o Lote em processamento, as vezes pode ocorrer caso o processamento na SEFAZ não tenha ocorrido a tempo e sua aplicação deve estar preparada para tratar e efetuar uma consulta posterior para saber o resultado, só assim você poderá considerar autorizada ou não (dependendo da resposta).

Você pode utilizar o ACBrMonitor via socket e assim acessar o mesmo ACBrMonitor de qualquer terminal de rede. No caso do PDV para a maioria dos casos o ideal é ter um ACBrMonitor para cada terminal bem com uma impressora para cada. Mas isto vai depender da sua solução e como você pretende trabalhar com isso. São várias opções e vai muito da sua criatividade e forma de trabalho. []´s

Amigos, eu realizei alguns ajustes no ACBr/ACBrMonitor relacionados a alguns comandos referente a NF-e, pois em alguns casos eu não estava obtendo informações do nome do arquivo e conteúdo do XML. Coloquei abaixo os detalhes das alterações realizadas bem como os arquivos já modificados para que sejam analisados e assim seja avaliada a inclusão destes ao projeto. * ACBrNFeWebServices.pas - Adicionado propriedade NomeArquivo a classe TNFeInutilizacao para armazenar o nome e caminho do arquivo gerado (Linhas 333, 369 e 2409); * DoACBrNFeUnit.pas - Em 'imprimirinutilizacaopdf', corrigido o retorno do nome do arquivo gerado (PDF) armazenado na variável ArqPDF, estava ArqPDF := PathWithDelim(ACBrNFe1.DANFE.PathPDF)+ArqPDF+'-inu.pdf' e o correto é ArqPDF := PathWithDelim(ACBrNFe1.DANFE.PathPDF)+ArqPDF+'-procInutNFe.pdf' (Linha 639); - No retorno do evento de Cancelamento ("cancelarnfe") foi adicionado o valor "Arquivo=" contendo o caminho e nome do arquivo gerado (Linha 332); - No retorno do evento de Cartão de correção ("enviarevento") foram adicionados os valores "Arquivo=" contendo o caminho e o nome do arquivo gerado (Linha 572) e "XML=" contendo o conteúdo do XML gerado (Linha 573); - Criado "enviaremailinutilizacao" para envio de e-mail de inutilização permitindo o envio do XML e do PDF (a partir da linha 1597); []´s Fabio Souza DoACBrNFeUnit.pas ACBrNFeWebServices.pas

Você consegue acessar algum site com o certificado? Tente este https://cav.receita.fazenda.gov.br/eCAC/publico/login.aspx []´s

Parece ser um problema no certificado. Entre em contato com o suporte da empresa fornecedora para que sejam efetuados testes. []´s

Amigo, eu não utilizo o ACBr para comunicação com balanças e faço via comunicação direta/DLL. No caso da Filizola eu utilizo uma DLL que faz parte de um pacote de ferramentas chamada PCSCALE. Para o ACBR provavelmente seja necessário testar e debugar o código, mas para isso será necessário uma balança (não tenho no momento uma para testes). Se desejar testar utilizando a DLL, baixe o aplicativo PCScale do site da Filizola, []´s

Eu também consegui alterar com sucesso!

E ai pessoal, alguém conseguiu fazer? Eu testei hoje e continuo com problemas. Alguém é filiado junto a AFRAC? Será que através deles não podemos conseguir alguma coisa?

Nos testes que eu realizei, a resposta vem corretamente para a aplicação e o problema ocorre apenas na exibição dos comandos no ACBrMonitorPlus. Vou analisar com detalhes o problema.

Pessoal também estou com o mesmo problema. Meu certificado irá vencer em breve e recebo a mesma mensagem de erro. Sobre a opção de cancelar o cadastro e efetuar novamente, alguém conseguiu ter sucesso? E em relação aos equipamentos já vinculados, houve algum problema? Temo ter algum tipo de problema com os equipamentos já vinculados.

Sobre o erro eu testei aqui e o problema ocorre se o arquivo informado "C:\ACBrMonitorPLUS\NFE\NFE_7687.TXT" não existir. Se ele existir o erro não ocorre. Na prática você esta gerando dois arquivos: o "C:\ACBrMonitorPLUS\NFE\NFE_7687.TXT" e o arquivo ENT.TXT contendo o comando NFE.CRIARENVIARNFE("C:\ACBrMonitorPLUS\NFE\NFE_7687.TXT",7687,1) . Caso o erro continue, tente colocar o conteúdo já no arquivo ENT.TXT. Ex: NFE.CRIARENVIARNFE("[IDENTIFICACAO] NaturezaOperacao=VENDA DE PRODUCAO DO ESTABELECIMENT Modelo=55 Serie=1 Codigo=7666 Numero=7666 Emissao=08/09/2016 Saida=08/09/2016 Tipo=1 FormaPag=1 Finalidade=1 indFinal=1 idDest=2 cUF=31 CidadeCod=3106200 [Emitente] CNPJ=19236355000102 (... e o restante)")

Maravilha Celso, muito obrigado pela dica e por incorporar o ajuste.

Francisco boa tarde! Sobre sua mensagem, ela esta um pouco confusa. Não existe o arquivo XSAT.ini no ACBrMonitor. Você deve gerar um arquivo de entrada (ENT.TXT), aguardar o processamento do ACBrMonitor até ele gerar uma resposta (arquivo SAI.TXT) e, sua aplicação deve ler esta reposta e apagar o arquivo SAI.TXT em seguida. Lembrando que o ACBrMonitor pode trabalhar com troca de arquivos ou via TCP/IP. Veja qual opção esta marcada em seu ACBrMonitor. De uma olhada no manual OnLine do ACBrMonitor http://acbr.sourceforge.net/ACBrMonitor/ACBrMonitor.html.

Eu realizei um pequeno ajuste no ACBrMonitorPlus para que efetue a remoção dos acentos ao gerar a(s) resposta(s). Eu precisei realizar este ajuste pois na linguagem em que desenvolvo hoje (Xharbour 32bits) não consigo obter corretamente o retorno de caracteres acentuados (Ex: Rejeição eu recebia como Rejeição), mesmo convertendo de UTF8 para ANSI. Acredito que este problema também possa ocorrer para outros que usam linguagens mais antigas e, por isso criei uma opção para que seja possível remover os acentos da(s) resposta(s) e assim ter a mesma legível. Anexo imagem da nova opção criada na guia Monitor bem como os arquivos modificados (compactado). Eu estou usando o ACBrMonitorPlus com as alterações aplicadas com sucesso. Gostaria de solicitar para que seja analisado o ajuste realizado e caso seja útil, aplicado ao repositório. Obs: No ACBrMonitorPlus existe uma opção para remoção de acentos que era usada pelo antigo ACBrNfeMonitor (seção ACBrNfeMonitor, opção RetirarAcentos) e, além desta outras opções que ao meu entender foram deixadas como uma forma de manter a compatibilidade, mas que no caso da remoção de acentos não esta funcionando. Talvez seja interessante revisar estas opções de compatibilidade mantidas. Obrigado, AjutesACBrMonitorPlus.zip

Oi Daniel, segue anexo a Unit Modificada. []´s ACBrEscDiebold.pas

Eu realizei alguns ajustes na impressão do código de barras para a impressora Diebold (EscDiebold), pois o mesmo não estava sendo impresso (estava saindo Código inválido). O erro era causado devido a mudança e uso da mesma rotina usada para a impressora EPSON (EscEpson) e um tratamento estava sendo feito para remover dois caracteres que a Diebold não aceita, algo similar a "{C". Com isso os dois caracteres eram removidos da String e a informação que continha o tamanho do código de barras ficava com 2 caracteres a mais causando o erro. Como este carácter ficava logo após o texto removido, ficou fácil tratar. Abaixo coloquei o pequeno ajuste que eu realizei e deram certo (Indicado por //* Linha adicionada) e foram testados com o SATTESTE e ACBrMonitorPlus: function TACBrEscDiebold.ComandoCodBarras(const ATag: String; ACodigo: AnsiString): AnsiString; var P: Integer; BTag: String; begin // EscDiebold não suporta Code128C if (ATag = cTagBarraCode128a) or (ATag = cTagBarraCode128b) or (ATag = cTagBarraCode128c) then BTag := cTagBarraCode128 else BTag := ATag; Result := inherited ComandoCodBarras(BTag, ACodigo); // EscDiebold não suporta notação para COD128 A, B e C do padrão EscPos if (BTag = cTagBarraCode128) then begin P := pos('{',Result); if P > 0 then begin Delete(Result,P,2); //Corrigindo o caracter que contém o tamanho do código de barras pois foram removidos 2 caracteres //* Linha adicionada Result[P-1] := AnsiChr(Length(ACodigo)); //*Linha adicionada end; end; end; []´s

Pegadinha da SEFAZ-SP neste 01 de Abril. []´s

Amigo, você esta usando o Fortes Report, por isso tente diminuir a largura e a margem direita. Infelizmente esta impressora não possui suporte nativo a impressão de QRCode, senão você poderia utilizar via Posprinter. []´s