cbsistem

aqui Nó transmitimos todas as noas no dia 04/04 com sucesso. Os problemas encontrado foi: Enviamos a TAG <IssRetido>2</IssRetido> e ao processa as notas, o webservice alterou tudo pra <IssRetido>1</IssRetido> (com retenção de ISS) outro erro é que ao alterar o iss para retido ele não alterou o valor liquido das notas. Por final, ajustaram os XML direto na base de dados pra ficar certo. O suporte me falou que eles podem alterar o conteúdo do meu XML, eu achei absurdo, ou ele processa como eu envio ou ele recusa. Mas ele ainda bateu o pé dizendo que pode alterar sim. Quando ele alterou meu xml, causou erros em todos... devido ao bug no webservice. o que acham disso?? podem alterar ?

Na App1 (NFSe) que estava enviando SSLLib := libWinCrypt; SSLCryptLib := cryWinCrypt; SSLHttpLib := httpWinHttp; SSLXmlSignLib := xsMsXml; Na App2 (NFe) onde houve a exclusão: provavelmente estava compilada com uma versao mais antiga do acbr. não tinha essas configurações (não exigia) att Cristiano

SSLLib := libWinCrypt; SSLCryptLib := cryWinCrypt; SSLHttpLib := httpWinHttp; SSLXmlSignLib := xsMsXml;

Ola relato que a exclusão do certificado A3 continua. Estava utilizando o certificado o A3 o dia todo assinando notas ficais de serviço no App1. Sem fechar o App1 e após ter assinado e transmitidos notas de serviço, alternei para o App2, e ao enviar uma nota fiscal de produtos, perguntou a senha digitei e ZAAAP;;; erro... acessei o administrador de token e o certificado ja não esta no cartão. Isso ja ocorreu antes comigo e o que eu percebo é que se vc tiver 2 apps assinando documentos isso vai ocorrer. Então na duvida sempre feche o App1 para depois Assinar no App2. Eu sempre uso assim, fecho o App1 e somente depois transmito no App2, sempre funciona. Mas hoje estava corrido e esqueci de fechar o App1. Pelo que parece, esta ficando alguma coisa carregada no App1 e se você não fechar ele por completo, e usar um segundo App ocorre a exclusão. Fica a dica. Att Cristiano

Faça upgrade no seu FastReport ou no marque as os pacotes que usam o fastreport.

Ola .. Meu certificado A3 acabou de ser excluido. E justamamente foi após um loop de assinatura de xml. Apos dar uma pausa... e tentar assinar outro xml.. a surpresa. E realmente foi excluido.

Raudus.com pode ser usando no Delphi 7 ... XE 10 Berlin e Lazarus 1.6 Versão comercial estará disponível em 01/03/2017

usando o RLBoleto; {Dados do titulo} with gbTitulo1 do begin NumeroDocumento := cdsTitulosNUMERODOCUMENTO.AsString+'/'+cdsTitulosPARCELA.AsString; SeuNumero := cdsTitulosNUMERODOCUMENTO.AsString; EspecieDocumento := edFatura; NossoNumero := cdsTitulosBOL_NUMERO.AsString; Carteira := cdsCedentesCARTEIRA.AsString; DataDocumento := cdsTitulosDATAEMISSAO.AsDateTime; DataVencimento := cdsTitulosDATAVENCIMENTO.AsDateTime; DataProcessamento := cdsTitulosDATADIGITACAO.AsDateTime; ValorDocumento := cdsTitulosVALORORIGINAL.AsCurrency; vInstrucoes := 'dados da instruções para pagamento'; Instrucoes.Text := vInstrucoes; {Dados do cedente} with Cedente do begin if AnsiUpperCase(cdsCedentesTIPOINSCRICAO.Value) = 'F' then TipoInscricao := tiPessoaFisica {CPF} else if AnsiUpperCase(cdsCedentesTIPOINSCRICAO.Value) = 'J' then TipoInscricao := tiPessoaJuridica {CNPJ} else TipoInscricao := tiOutro; NumeroCPFCGC := cdsCedentesNUMEROINSCRICAO.Value; Nome := cdsCedentesNOMECEDENTE.Value; CodigoCedente := cdsCedentesCODIGOCEDENTE.Value; //33 a 52 - Código do convênio no banco DigitoCodigoCedente := cdsCedentesDIGITOCEDENTE.Value; {Endereço do cedente} with Endereco do begin Rua := cdsCedentesRUA.AsString; Endereco.Numero := cdsCedentesNUMERO.AsString; Complemento := cdsCedentesCOMPLEMENTO.AsString; Bairro := cdsCedentesBAIRRO.AsString; Cidade := cdsCedentesCIDADE.AsString; Estado := cdsCedentesESTADO.AsString; CEP := stringreplace(cdsCedentesCEP.AsString,'-','',[rfReplaceAll]); Email := cdsCedentesEMAIL.AsString; end; {with Endereco} {Dados bancários do cedente} with ContaBancaria do begin Banco.Codigo := cdsCedentesNUMBANCO.AsString; CodigoAgencia := cdsCedentesNUMAGENCIA.AsString; DigitoAgencia := cdsCedentesDIGITOAGENCIA.AsString; NumeroConta := cdsCedentesNROCONTA.AsString; DigitoConta := cdsCedentesDIGITOCONTA.AsString; // B.B. Convenio := cdsCedentesNUMCONVENIO.AsString; end; {with Banco} end; {with Cedente} {Dados do sacado do título} with Sacado do begin if AnsiUpperCase(qryClientesPESSOAFISJUR.AsString) = 'F' then TipoInscricao := tiPessoaFisica else if AnsiUpperCase(qryClientesPESSOAFISJUR.AsString) = 'J' then TipoInscricao := tiPessoaJuridica else TipoInscricao := tiOutro; NumeroCPFCGC := LimpaCGCCPF(qryClientesCGCCFO.AsString); Nome := qryClientesNOME.AsString + ' (' + qryClientesNOMEFANTASIA.AsString + ' ' + qryClientesCODCFO.AsString + ')'; {Endereço do sacado do título} with Endereco do begin if not Empty(qryClientesRUAPGTO.AsString) then begin Rua := qryClientesRUAPGTO.AsString; Numero := qryClientesNUMEROPGTO.AsString; Complemento := qryClientesCOMPLEMENTOPGTO.AsString; Bairro := qryClientesBAIRROPGTO.AsString; Cidade := qryClientesCIDADEPGTO.AsString; Estado := qryClientesCODETDPGTO.AsString; CEP := stringreplace(qryClientesCEPPGTO.AsString,'-','',[rfReplaceAll]); end else begin Rua := qryClientesRUA.AsString; Numero := qryClientesNUMERO.AsString; Complemento := qryClientesCOMPLEMENTO.AsString; Bairro := qryClientesBAIRRO.AsString; Cidade := qryClientesCIDADE.AsString; Estado := qryClientesCODETD.AsString; CEP := stringreplace(qryClientesCEP.AsString,'-','',[rfReplaceAll]); end; Email := qryClientesEMAIL.AsString; end; {with Endereco} {Dados bancários do sacado do título} with ContaBancaria do begin Banco.Codigo := ''; CodigoAgencia := ''; DigitoAgencia := ''; NumeroConta := ''; DigitoConta := ''; end; {with Banco} end; {with Sacado} end; {with Titulo} gbTitulo1.InsertRecord; gbTitulo1.SalvarPDF(NomeArquivoPDF); ----------------

Ola... algum link para download do projeto ??

Pegue o conversor. Resolvido nesse post. : Cristiano Barbosa

Motivo do erro: Ele foi gerado com criptografia 2048 bits. Solução: Converte o certificado para criptografia 1024 bit´s. Passos: Faça download do instalador : http://www.onlinecertificadora.com.br/arquivo/suporte/validcertificadora.zip ou anexo Execute, Seleciona o Modelo A1, Selecione o Certificado e Pronto. Fonte: Alessando - OnlineCerificadora Outra Solução: Instalar no WinXP, Exportar a chave. Xp nao aceita criptografia 2048, ira converter automaticamente para 1024 e ao ser exportado ira manter a criptografia 1024. Cristiano Barbosa