Jump to content

Reginaldo Costa

Membros
  • Content Count

    62
  • Joined

  • Last visited

Community Reputation

8 Neutral

About Reginaldo Costa

  • Rank
    Membro
  • Birthday 09/18/1962

Contact Methods

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

Profile Information

  • Sexo
    Masculino
  • Localização
    Guaiba/RS
  • Interesses
    programação sistemas e hardwares, desenvolvimento, novas tecnologias

Recent Profile Visitors

600 profile views
  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.
×
×
  • Create New...