[NFSe - Tangara da Serra MT - Novo Provedor]

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 ?

 

 

 

[Exclusão de certificado A3 - Continua]

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

[Exclusão de certificado A3 - Continua]

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

[Exclusão de certificado A3 - Continua]

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

 

 

 

 

[erro na instalação do trunk2 04/04/2018]

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

[O mistério da exclusão dos certificados A3]

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.

 

 

[Desenvolvimento Web Delphi C/ Unigui]

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

[Imprimir Pdf Direto Em Um Diretorio]

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);

 

 

----------------

[Quero Saber O Interesse Do Acbr E...]

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

[certificadora valid - problemas]

Pegue o conversor.

 

Resolvido nesse post. : 

 

 

Cristiano Barbosa

[Nao ha suporte para criptografia 24 " Resolvido "]

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