Ir para conteúdo
  • Cadastre-se

Reginaldo Costa

Membros
  • Total de ítens

    62
  • Registro em

  • Última visita

Tudo que Reginaldo Costa postou

  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.
  15. Não por isso, este é justamente o proposito deste forum, troca de experiencias. não imagina quantos dias me retorcendo e noites sem dormir até descobrir isto. hahahaha que bom que resolveu. abraços.
  16. Boa noite, Ess, ja tive problemas com esta impressora, tem um defeito de fabrica, que muda a velocidade configurada do nada, se pedir uma leitura da memoria fiscal ou nota gaucha, etc ela passa sozinha para 115200, eu configuro no braço no acbr para esta velocidade e funciona belezinha, mas a esta velocidade o acbr não encontra ela. tem que configurar manualmente. vel.: 115200 8bts e fluxo por hardware. espero ter ajudado, ate Reginaldo.
  17. eu tive contato com este tipo de tabela, é da linguagem CLARION, se não estou enganado. tem um componente na internet que abre este tipo de tabela. chama-se: Desigydb espero ter ajudado.
  18. Bom dia, Italo, que isso, não precisa pedir desculpas, as vezes não conseguimos escrever o que estamos pensando, precisamente. obrigado.
  19. Bom dia, Italo. justamente, o que está na pagina da prefeitura de São Leopoldo é sem o "s" tirei ele do ini e funcionou homologação, que estava dando erro de estouro de tempo. com relação a atualização, faço toda a semana, pra evitar falar besteira. e nem atrapalhar o tempo de vcs, que como o meu é curtissimo, heheheh o dia tinha que ter 48 hs.
  20. o arquivo INI da cidade de São Leopoldo/RS provedor Thema está com link de homologação errado. não tem o "s" no http mas somente na homologação, na produção está correto. segue anexo arquivo correto. ; Sao Leopoldo/RS RecepcaoLoteRPS_4318705=http://nfehomologacao.saoleopoldo.rs.gov.br/thema-nfse/services/NFSEremessa ConsultaSitLoteRPS_4318705=http://nfehomologacao.saoleopoldo.rs.gov.br/thema-nfse/services/NFSEconsulta ConsultaLoteRPS_4318705=http://nfehomologacao.saoleopoldo.rs.gov.br/thema-nfse/services/NFSEconsulta ConsultaNFSeRPS_4318705=http://nfehomologacao.saoleopoldo.rs.gov.br/thema-nfse/services/NFSEconsulta ConsultaNFSe_4318705=http://nfehomologacao.saoleopoldo.rs.gov.br/thema-nfse/services/NFSEconsulta CancelaNFSe_4318705=http://nfehomologacao.saoleopoldo.rs.gov.br/thema-nfse/services/NFSEcancelamento Thema.INI
  21. Bom dia, Thiago, esta modificação estaria no FR3 e não nos fontes do ACBr, portanto somente se vc usa sempre o FR3 atualizado pelos fontes. eu não atualizo estes FR3 nos meus clientes, somente quando uma alteração muito significativa. como foi esta ultima do truck para truck2. de qualquer forma espero ter ajudado. []s,
  22. Bom dia, Thiago, se for no fast, eu uso o seguinte: no evento beforeprint do formulário do relatório o seguinte código: if <Servicos."Aliquota"><1 then Memo112.Text:=formatfloat('#,##0.00',<Servicos.Aliquota>*100); este quebra galho funciona com todos os provedores, acredito. espero ter ajudado.
  23. Boa noite, da certo sim, eu ja fiz e funcionou, o programa da Valid converteu o certificado da Safeweb de 2048 bits para 1024 bits. Reginaldo.
  24. Boa tarde, Weber, segundo orientação que tenho, tambem não sei se é correta, me corrijam se tiver errado por favor. meus clientes colocam este destaque nas informações adicionais, ICMS IPI etc... ainda não tive nenhum problema com fisco pois a ordem é Simples Nacional não pode destacar ICMS IPI ... 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.