Claudio Stein Junior

De novembro de 2014 ate hoje dia 03/02/2015 três clientes tiveram problemas perdendo a chave privada do certificado A3. Muito estranho, todos usavam Windows 7 e cartão. Nenhum deles tinha conhecimento para excluir as chaves. Acredito que pode ser devido a descargas elétricas da porta USB, mas não tenho como afirmar nada ainda.

Obrigado, valeu pela informação.

Olá estou com uma dúvida referente ao cálculo de ICMS do CTE. Para calcular o ICMS utilizo o UF de destino da carga que por ser Paraíba (PA) é 7%. Segue código abaixo: if (DmTabelas.CdsVendasUF_DESTINO.AsString = 'PR') OR (DmTabelas.CdsVendasUF_DESTINO.AsString = 'RS') OR (DmTabelas.CdsVendasUF_DESTINO.AsString = 'SC') OR (DmTabelas.CdsVendasUF_DESTINO.AsString = 'MG') OR (DmTabelas.CdsVendasUF_DESTINO.AsString = 'RJ') OR (DmTabelas.CdsVendasUF_DESTINO.AsString = 'SP') then DmTabelas.CdsItensVendaALIQUOTAICMS.AsFloat:= 12 else DmTabelas.CdsItensVendaALIQUOTAICMS.AsFloat:= 7; Mas um cliente do meu cliente está reclamando pois o faturamento é feito em MG e o CFOP que está utilizando é 6357. Ele diz que o ICMS deveria ser 12%, ou seja pela UF do Tomador. Alguém sabe se esta informação procede? Att Claudio

Se o windows é 64 copia os arquivos na pasta syswow64 e registra lá. Use a capicom do componente, pois tem várias versões e dependendo da versão não funciona no 32 bits.

Verifique se a capicom.dll está registrada e instalada. Verifique se o internet explorer não está offline. Se estiver deixe online.

Mude o valor do ICMS que está 17 Para 0 e faça o teste.

Obrigado Italo, já pedi a ele. Se eu tiver alguma novidade posto aqui.

Olá boa tarde, qual tag (campo) informo a condição de pagamento no provedor Ginfes (se é a vista ou a prazo). Existe esta tag? Pois o contador de um cliente está pedindo para alimentar este campo. Mas não vi em lugar nenhum a existência do mesmo. Att Claudio Stein Junior

Obrigado Régys.

Como fica este campo na NF-e, ele vai continuar existindo ou não preciso mais usar ele, pois agora tenho que mostrar o resultado dos cálculos em separado. É isso mesmo? Total.ICMSTot.vTotTrib := DmTabelas.CdsVendasIMPOSTOTOTAL.AsFloat; Att

Isso resolveria: Ide.natOp := Copy(DmTabelas.CdsVendasNATUREZADAOPERACAO.AsString,1,60);

Eu voltei para a verão 2.0 até esta regra ser sanada. Testei hoje no SEFAZ de SP e o erro continua. Voltei para a versão 2.0 mesmo depois dos clientes terem emitido nota na versão 3.10. Não tive problemas. O prazo da NF-e 3.10 foi prorrogado para março de 2015.

Ok valeu obrigado pelo retorno

Pessoal, olá, uma dúvida. Qual a melhor impressora para imprimir cupons de NFC-e utilizando o componente da ACBR? Um cliente me perguntou mas eu não soube responder. Aguardo as opiniões Obrigado

Resolvido, consegui configurando algumas propriedades do Componente.ACBrNFSe Configurações - Arquivos - Salvar - False (antes estava true) Configurações - Arquivos - TabServicosExt - False (antes estava true) Obrigado

Não estou anexando, na verdade não mudei nada. Vou tentar atualizar o componente para ver se muda algo e reporto aqui. Obrigado.

Olá, ao enviar e-mail pelo componente 3 arquivos estão sendo anexados 260-nfse.xml 260-nfse.xml (outro com o mesmo nome mas conteúdo em branco) 260.pdf Não mudei uma linha de código do demo. O que posso fazer para remover este anexo em branco? Att Claudio Stein Junior

Obrigado Italo, deu certo Resolvido.

Olá gerei o RPS do Provedor Ginfes da Cidade de Votuporanga - SP apesar de ainda não ter validado. Tenho o arquivo XML em mãos, qual seria o próximo passo, tentei gerar e enviar NFS-e mas não funcionou para meu provedor. A outra dúvida é que no Demo tem uma caixa de texto Prefeitura, o que digito ali? Prefeitura de Votuporanga, Município de Votuporanga Obrigado Att Claudio Stein Junior

Obrigado Ítalo ficou bem mais claro agora, obrigado.

Olá tenho uma dúvida relacionado ao número do lote até mesmo porque não trabalho com lotes. Emito cada CTE de maneira individual. Por exemplo imaginem que vou emitir o CTE nr. 10, quando eu envio este CTE, passo 10 como nr. do lote o 10 também. Os 2 usando a mesma numeração. Está certo fazer desta forma? Ou eu poderia deixar sempre o nr. do lote como 1 e enviar tipo: lote 1 - cte 10 lote 1 - cte 11 e assim por diante? Ou devo gerenciar tanto o lote como o cte com numerações diferenciadas? Obrigado Att Claudio Stein Junior

Como faço a operação para pegar o protocolo e chave no retorno por duplicidade e consequentemente imprimir a NF-e? Obrigado

Olá, minha NF-e funciona perfeitamente, mas em alguns clientes muitas vezes ocorre um atraso para pegar o retorno do protocolo de autorização. Consequentemente o cliente tenta emitir a mesma nota novamente quando obtém a mensagem de "NOTA EM DUPLICIDADE". Quando ele tenta imprimir a NF-e a partir do XML gerado sai com a tarja de NF-e não autorizada pelo SEFAZ. Para resolver este problema peço para consultar a nota e em seguida imprimir novamente que dá certo. Mas como faço para minimizar estes problemas? Obrigado

Consegui com o código abaixo: procedure TfrmDemo_ACBrCTe.Button1Click(Sender: TObject); var vAux, idLote, cte: String; begin vAux:= 'CTE Cancelado por desacordo comercial'; if not(InputQuery('WebServices Eventos: Cancelamento', 'Digite o nr. do CTE: ', cte)) then exit; DmTabelas.CdsVendas.Close; DmTabelas.CdsVendas.Params[0].AsInteger:= StrToInt(cte); DmTabelas.CdsVendas.Open; idLote := FormatDateTime('yymmddhhmm', now); if not(InputQuery('WebServices Eventos: Cancelamento', 'Identificador de controle do Lote de envio do Evento', idLote)) then exit; if not(InputQuery('WebServices Eventos: Cancelamento', 'Justificativa (Digite mais de 15 caracteres)', vAux)) then exit; with ACBrCTe1.EventoCTe.Evento.Add do begin InfEvento.tpAmb := taProducao; ACBrCTe1.Eventocte.idLote := StrToInt(idLote); infevento.chCTe := DmTabelas.CdsVendasCHAVENFE.AsString; infEvento.CNPJ := edtEmitCNPJ.Text; infEvento.dhEvento := Now; infEvento.tpEvento := teCancelamento; InfEvento.nSeqEvento := 1; infEvento.detEvento.xJust := vAux; infEvento.detEvento.nProt := DmTabelas.CdsVendasPROTOCOLO.AsString; infEvento.cOrgao := 35; InfEvento.detEvento.xCondUso := ''; end; DmTabelas.CdsVendas.Close; ACBrCTe1.EnviarEventoCTe(StrToInt(idLote)); MemoResp.Lines.Text := UTF8Encode(ACBrCTe1.WebServices.EnvEvento.RetWS); LoadXML(MemoResp, WBResposta); ShowMessage(IntToStr(ACBrCTe1.WebServices.EnvEvento.cStat)); ShowMessage(ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt); end;

Fiz assim: procedure TfrmDemo_ACBrCTe.Button1Click(Sender: TObject); var vAux, idLote, cte: String; begin if not(InputQuery('WebServices Eventos: Cancelamento', 'Digite o nr. do CTE: ', cte)) then exit; DmTabelas.CdsVendas.Close; DmTabelas.CdsVendas.Params[0].AsInteger:= StrToInt(cte); DmTabelas.CdsVendas.Open; ACBrCTe1.Conhecimentos.Clear; idLote := '1'; if not(InputQuery('WebServices Eventos: Cancelamento', 'Identificador de controle do Lote de envio do Evento', idLote)) then exit; if not(InputQuery('WebServices Eventos: Cancelamento', 'Justificativa (Digite mais de 15 caracteres)', vAux)) then exit; with ACBrCTe1.EventoCTe.Evento.Add do begin infevento.chCTe := DmTabelas.CdsVendasCHAVENFE.AsString; infEvento.CNPJ := edtEmitCNPJ.Text; infEvento.dhEvento := Now; infEvento.tpEvento := teCancelamento; infEvento.cOrgao := 35; infEvento.detEvento.xJust := vAux; infEvento.detEvento.nProt := DmTabelas.CdsVendasPROTOCOLO.AsString; end; DmTabelas.CdsVendas.Close; ACBrCTe1.EnviarEventoCTe(StrToInt(idLote)); MemoResp.Lines.Text := UTF8Encode(ACBrCTe1.WebServices.EnvEvento.RetWS); LoadXML(MemoResp, WBResposta); ShowMessage(IntToStr(ACBrCTe1.WebServices.EnvEvento.cStat)); ShowMessage(ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt); end; Mas está dando o erro conforme imagem em anexo, o que pode ser? Obrigado