Ir para conteúdo
  • Cadastre-se

Reginaldo Costa

Membros
  • Total de ítens

    62
  • Registro em

  • Última visita

Contact Methods

  • Website URL
    http://www.homesoft.com.br

Últimos Visitantes

1.169 visualizações

Reginaldo Costa's Achievements

Enthusiast

Enthusiast (6/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

8

Reputação

2

Community Answers

  1. Bom dia, Antonino, tem um post aqui no forun, que tem um simulador de balança, este programinha simula balanças toledo e filizola, funciona muito bem. de uma pesquisada, voce tem que instalar um emulador de porta tipo o Com0com ou virtual port da eltima. segue anexo. EmuladorBalanca.zip
  2. Bom dia, Para mim já funciona a tempos, para qualquer certificado válido. ok Reginaldo.
  3. Esta é minha rotina de buscar uma nota autorizada e perdida(como chamo). procedure TF_GeracaoNotaFiscalServico.BuscarNotafiscalEmitida; var Reg: TIniFile; xXml, xprotocolo: string; seq: integer; begin Reg:=TIniFile.Create(Sistema.IniConfiguracao); if Sistema.MultiEmpresa=1 then Reg:=TIniFile.Create(ExtractFilePath(Application.ExeName)+Sistema.ApelidoAtual+'.ini'); Nota.NotasFiscais.Clear; if TBXML.Locate('NumeroRPS', StrZero(TBSEminFiscalNumeroRPS.AsInteger, 10), []) then begin Nota.NotasFiscais.LoadFromString(TBXML.FieldByName('NotaFiscalXML').AsString); if Nota.NotasFiscais.Count=0 then begin PreencherNF; //esta procedure só preenche os dados todos do rps na Nota(ACBrNFSe1), prestador/Tomador/Serviço, etc... Nota.NotasFiscais.GerarNFSe; end; end else begin if Nota.NotasFiscais.Count=0 then begin PreencherNF; Nota.NotasFiscais.GerarNFSe; end; end; if Nota.NotasFiscais.Count>0 then begin //esta é a chamada para consulta do RPS no provedor. Nota.ConsultarNFSeporRps(Nota.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, Nota.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(Nota.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo)); Mensagem('!!! Nota Fiscal Eletrônica Serviço recuperada com sucesso !!!'+#13+#13+'Número da Nota Fiscal: '+ Nota.NotasFiscais.Items[0].NFSe.Numero+#13+'Código Verificação..: '+ Nota.NotasFiscais.Items[0].NFSe.CodigoVerificacao, tmAviso, ''); xXml:=Nota.WebServices.ConsNFSeRps.RetornoWS; if TBXML.Locate('NumeroRPS', StrZero(StrToIntDef(Nota.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, 0), 10), []) then begin TBXML.Edit; end else begin seq:=UltimoRegistro(TBXML.TableName, 'Sequencia', ''); IncluirRegistro(TBXML); TBXML.FieldbyName('Sequencia').AsString:=StrZero(seq+1, 10); TBXML.FieldbyName('NumeroRPS').AsString:=StrZero(StrToIntDef(Nota.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, 0), 10); TBXML.FieldByName('NumeroNfs').AsString:=Nota.NotasFiscais.Items[0].NFSe.Numero; end; TBXML.FieldbyName('CodigoVerificador').AsString:=Nota.NotasFiscais.Items[0].NFSe.CodigoVerificacao; TBXML.FieldbyName('Data').AsDateTime:=date; TBXML.FieldbyName('DataNFe').AsDateTime:=Nota.NotasFiscais.Items[0].NFSe.DataEmissao; TBXML.FieldbyName('CNPJCIC').AsString:=TBSEminFiscalCGC.Value; TBXML.FieldbyName('Nome').AsString:=TBSEminFiscalNOME.Value; TBXML.FieldByName('NumeroNFS').AsString:=TBSEminFiscalNumeroOficialNF.Value; TBXML.FieldbyName('ProtocoloNFe').AsString:=Nota.WebServices.EnvioWebService.Protocolo; TBXML.FieldbyName('NotaFiscalXML').AsString:=xXml; TBXML.FieldbyName('ReciboXML').AsString:=Nota.WebServices.ConsNFSeRps.RetWS; TBXML.FieldbyName('Usuario').AsString:=Sistema.UsuarioAtual; Gravartabela(TBXML); TBSEminFiscal.Edit; TBSEminFiscalNumeroOficialNF.Value:=Nota.NotasFiscais.Items[0].NFSe.Numero; TBSEminFiscal.Post; RadioGroup1.ItemIndex:=5; BExecutar.Click; end; FreeAndNil(Reg); end; espero ter ajudado.
  4. Bom dia, no meu caso quando acontece esta mensagem eu faço uma consulta no provedor e me retorna a nota autorizada, pois algumas prefeituras demoram muito a autorizar um RPS. ai você tenta enviar novamente o mesmo RPS e retorna como RPS já existente. porto alegre/RS, acontece direto, tenho que aumentar o tempo de resposta sempre. espero ter ajudado.
  5. Boa tarde, para mim, mesmo procedendo como o Thales sugeriu, não rolou, continua com o mesmo problema, conforme abaixo: Embarcadero Delphi for Win32 compiler version 23.0 Copyright (c) 1983,2011 Embarcadero Technologies, Inc. Fatal: F2084 Internal Error: L2095 Compilation failure Erro ao compilar o pacote "ACBr_DFeComum.dpk". Abortando... Ocorreram erros na compilação dos pacotes. obrigado desde já.
  6. Boa noite, eu só atualizei meu sistema com a ultima versão do ACBr e tudo funcionou, mesmo sem instalar a certificação 5. Clientes felizes e eu mais ainda. Reginaldo.
  7. Boa tarde, johnbh3, retire o & (e comercial) que estará resolvido. abraços,
  8. Boa Noite, Agnaldo, Sim, segundo informações terceiras o sefaz do RS ainda não tem ou não vai ter isto. porque vc pode fazer pelo site, basta ter o certificado na máquina. então criei um link em meu sistema apontando para a pagina do sefaz para geração dos CSCs. Paliativo mas funcionou. abraços,
  9. Bom dia, isto vai ser uma maravilha, acaba a festa das prefeituras com sistema cada, causando muito transtornos para nós. espero que as prefeituras aceitem... abraços.
  10. Eu já tive alguns clientes com certificado excluído, de um parque de 200 empresas, tive 6 até agora excluídos, sendo 2 este mês. to preocupado, já estou recomendando aos clientes trocarem por A1, nunca tive problemas com estes. mas tá complicado pois tem algumas certificadoras que convencem eles que A1 não é seguro.
  11. Boa tarde, saberiam me dizer se o sefaz do RS está funcionando o AdministraCSC ? não estou obtendo sucesso na implementação.
  12. Boa tarde, meus caros, to tentando implementar a Administração no sistema e ta ocorrendo erro de URL, segue: (alguém sabe se isso já está funcionando, sou do RS). Inicio TAdministrarCSCNFCe ERRO: URL não definida para: TAdministrarCSCNFCe ERRO: WebService Administrar CSC da NFC-e: - Inativo ou Inoperante tente novamente. Parâmetro incorreto. - URL: - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/CscNFCe/admCscNFCe
  13. Bom dia, gss200610, tive este mesmo errro em um cliente meu, depois de colocar os perdigueiros, dalmatas, busdogs, etc.. atraz, constatei que era uma erro de fechamento do cupom, as vezes acontecia de a impressora fiscal dar um total de arrendondamento diferente do sistema, ex: imp: 123,45 o sistema dava 123,44 quando chama o fechamento final do cupom e falta 1 centavo para receber ela da esta mensagem, que convenhamos nada esclarecedor. espero ter ajudado.
  14. Bom dia, Infoel, eu tentaria por um tempo ajustado entre cada item, o teu problema pode ser o tempo de envio dos ítens. está enviando um atras do outro, pode ser isso que a impressora ta se perdendo. espero ter ajudado.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.