Dercide Alvarez

Boa tarde @hmzbr Temos enviado sem problemas, usando a Capicom. Dercide.

Bom dia, Porto Alegre disponibilizou em homologação a substituição da NFSe. http://portalnotalegal.portoalegre.rs.gov.br/default.php?reg=146&p_secao=113 Dercide.

@Caejr Já tinha visto esse post, mas até agora nada funcionou. Com XPManifest fica beleza, mas ai os link dos Frames desaparecem. Dercide.

Bom dia, Tinha um erro na cobrança Santander : else if Trim(EspecieDoc) = 'CH' then {CH - CHEQUE} sEspecie := '97' else if Trim(EspecieDoc) = 'CH' then {ND - NOTA PROMISSORIA DIRETA} sEspecie := '98' Mudei para : else if Trim(EspecieDoc) = 'CH' then {CH - CHEQUE} sEspecie := '97' else if Trim(EspecieDoc) = 'ND' then {ND - NOTA PROMISSORIA DIRETA} sEspecie := '98' Segue o fonte alterado. Dercide. ACBrBancoSantander.pas

@Juliomar Marchetti Pelos testes que fiz aparentemente esta tudo ok. Caso constatemos alguma divergência avisaremos. Peço ao @Andre Cristiano Ittner que também de uma analisada, visto que foi ele quem implementou o Cecred 240. Obrigado pela atenção. Dercide.

@Juliomar Marchetti Atualizei hoje os fontes e inclui as alterações feitas pelo @Andre Cristiano Ittner para geração do CNB240 do CECRED, fiz alguns ajustes por causa da negativação do Serasa tanto para o Cecred como para o Itau CNB240. Segue a relação das alterações para facilitar a tua analise. Foi criado uma propriedade CodigoMoraJuros mas vi que o componente tem uma CodigosMoraAceitos, talvez nesse caso possa ser feito um ajuste, não tive tempo de avaliar isso, as acredito que possa ser feito. Foram alterados os seguintes fontes : ACBRBoleto.Pas Foram criadas as seguintes propriedades : property CodigoDesconto : TACBrCodigoDesconto read fCodigoDesconto write fCodigoDesconto; property CodigoMoraJuros : TACBrCodigoJuros read fCodigoMoraJuros write fCodigoMoraJuros; property CodigoMulta : TACBrCodigoMulta read fCodigoMulta write fCodigoMulta; property CodigoNegativacao : TACBrCodigoNegativacao read fCodigoNegativacao write fCodigoNegativacao default cnNaoProtestar; Foi incluso em TACBrTitulo = class fCodigoNegativacao : TACBrCodigoNegativacao; fCodigoDesconto : TACBrCodigoDesconto; fCodigoMoraJuros : TACBrCodigoJuros; fCodigoMulta : TACBrCodigoMulta; Foi incluso em TACBrTipoOcorrencia = toRemessaNegativacaoSerasa, toRemessaExcluirNegativacaoSerasa, Foram criados : {Definir codigo Desconto } TACBrCodigoDesconto = (cdSemDesconto, cdValorFixo); {Definir codigo Juros } TACBrCodigoJuros = (cjValorDia, cjTaxaMensal, cjIsento); {Definir codigo Multa } TACBrCodigoMulta = (cmValorFixo, cmPercentual); {Definir se o titulo será protestado, não protestado ou negativado } TACBrCodigoNegativacao = (cnNenhum, cnProtestarCorrido, cnProtestarUteis, cnNaoProtestar, cnNegativar, cnNaoNegativar); ACBrBancoCecred.Pas Foram criadas as rotinas para geração CNB 240: GerarRegistroHeader240 GerarRegistroTransacao240 GerarRegistroTrailler240 ACBrBancoItau.Pas Na rotina GerarRegistroTransacao240, foram feitas alterações para o envio do cliente para Negativação no Serasa. Criada a variavel ACodigoNegativacao para comportar o código da negativação, Serasa ou cartório, na posição 221 do registro P: { Pegando Tipo de Protesto/Negativação } case CodigoNegativacao of cnNenhum : ACodigoNegativacao := '0'; cnProtestarCorrido : ACodigoNegativacao := '1'; cnProtestarUteis : ACodigoNegativacao := '2'; cnNaoProtestar : ACodigoNegativacao := '3'; cnNegativar : ACodigoNegativacao := '7'; cnNaoNegativar : ACodigoNegativacao := '8'; else ACodigoNegativacao := '0'; end; Isso foi o que me lembro e que ajustei hoje. Dercide. ACBrBancoCecred.pas ACBrBoleto.pas ACBrBancoItau.pas

Mês passado atualizei o meu Windows 10 para a versão mais atual, e com isso todas os TDateTimePicker ficaram totalmente desconfigurados. Pesquisei e verifiquei que aconteceu isso com outras pessoas, não só em aplicações Delphi 7, mas VB, Visual Studio,,,etc Até o momento não consegui uma solução. Se o usar o XPManifest, o problema não acontece,, mas ele some com varias coisas da tela, os links dos frames desaparecem. Se alguém passou por isso e conseguiu resolver compartilhe. Se achar alguma solução postarei. Dercide.

@hmzbr A minha maquina de trabalho é Windows 10 a ultima versão, que só me incomoda...heheh,,,mas os testes foram feito em uma com Windows 7, 32 bits. Dercide.

Erra esse mesmo erro que estava ocorrendo, ai mudamos as configurações conforme a imagem:

Olá, Enviei vários RPS e geramos as NFSe sem problemas, usando a CAPICOM. O erro ao consultar é do nosso sistema, esta funcionando 100%. Vou fazer testes com a libWinCrypt. Dercide.

Fiz um teste hoje, usando a libCapicom, em uma maquina com Windows 7. ACBrNFSe1.Configuracoes.Geral.SSLLib := libCapicom; ACBrNFSe1.Configuracoes.Geral.SSLCryptLib := cryCapicom; ACBrNFSe1.Configuracoes.Geral.SSLHttpLib := httpWinINet; ACBrNFSe1.Configuracoes.Geral.SSLXmlSignLib := xsMsXmlCapicom; Marcamos as seguinte opõções : SSL 2.0 TLS 1.0 Mostrou uma mensagem de erro ao consultar o RPS, mas leu todos os dados corretamente. Estamos fazendo mais testes, porém com o libWinCrypt não deu certo, mas farei mais testes. OBS: Agora esta disponivel em homologação na HBISS a substituição da NFSe. Dercide.

Boa noite, É meio chato vir novamente bater na tecla, mas já fazem 6 meses desde que o @Andre Cristiano Ittner disponibilizou a inclusão do CNB 240 do CECRED para analise, depois fiz alterações, e efetuei a homologação junto ao banco, além disso fiz alguma alterações no Itau, e disponibilizei no inicio deste post. Eu sei que todos envolvidos no projeto tem seus compromissos, e que demanda tempo para analisar todas as alterações, mas vejo constantemente alterações sendo incorporadas ao projeto. Assim como todos usufruo do projeto, e procuro colaborar. Mas a cada nova implementação, tenho que analisar e se for o caso fazer os ajustes para manter a compatibilidade. Então se alguém responsável pelas analises dos boletos puder dar uma analisada e dar um parecer ajudaria muito, senão vamos ficar no esquecimento. Só espero não ser criticado pelos moderadores, pois procuro ajudar como posso o projeto e os amigos que precisam de ajuda. Dercide.

Boa noite, Eu tenho um gerador próprio para emissão da nota modelo 21, mas o ACBr tem uma demo que você poderá se basear. Quanto aos aplicativos e manuais necessários podem serem baixados do link abaixo : https://portal.fazenda.sp.gov.br/servicos/nf-comunicacao-energia/paginas/sobre.aspx Dercide.

@Dércio Luis Zanatta No tópico explica isso com detalhes, mas tudo bem. Você pode continuar usando a Capicom conforme o exemplo da demo que o Daniel postou. Mas caso queira excluir totalmente a Capicom do componente, basta alterar o ACBr.ini, conforme o tópico : Como remover completamente, as Units da CAPICOM dos meus fontes ? Abra o arquivo \ACBr\Fontes\ACBrComum\ACBr.inc e altere a seguinte linha: {.$DEFINE DFE_SEM_CAPICOM} para: {$DEFINE DFE_SEM_CAPICOM} Ou seja, remova o "." do inicio Dercide.

Olá, Com essa nova versão não estou conseguindo enviar notas para Porto Alegre, nem com a libWinCrypt e nem com a Capicom. Antes das mudanças funcionava perfeitamente já a uns 2 anos. Vou fazer mais testes e verificar se o problema é o mesmo. Dercide.

@Italo Jurisato Junior É para usarmos a libCapicom ou libWinCrypt ? Dercide.

Verifique o formato do CNPJ no mestre. Advertência não impede a transmissão. O ideal é sempre postar o arquivo e a linha do erro. Dercide.

@LeoSlander Esta faltando o código do municipio (IBGE) na coluna 244 a 250. Dercide.

@LeoSlander Esse arquivo é o mestre, o erro é no de destinatarios. Dercide.

@Alessandra.imofficer Provavelmente você deverá concatenar os itens, quebrando linha para poder ficarem conforme a sua necessidade. Eu faço conforme o exemplo abaixo : while not qryNFSeItens.Eof do begin vDescricao := vDescricao + IntToStr(FieldByName('SEQUENCIA').AsInteger) + ' ) ' +Trim(FieldByName('DESCRICAO').AsString); vDescricao := vDescricao + 'QUANTIDADE = '+FormatFloat('0.,00', FieldByName('QUANTIDADE').AsFloat)+' '; vDescricao := vDescricao + FieldByName('NOME_UNI').AsString+' '; vDescricao := vDescricao + ' - ' + 'UNITARIO = R$ '+ FormatFloat(vFormatoUnitario, FieldByName('VALOR_UNITARIO').AsFloat); vDescricao := vDescricao + ' - ' + 'TOTAL = R$ '+ FormatFloat('0.,00', FieldByName('VALOR_TOTAL').AsFloat); //-------------------------------------------------------------------- vDescricao := vDescricao + '|'; // Quebra De Linha //-------------------------------------------------------------------- qryNFSeItens.Next; End; Na descrição também coloca os parcelamentos das duplicatas, e outras informações a mais. Deve ficar atento a quantidade de caracteres permitido para a descrição, que deve ser algo em torno de 2000. Dercide.

Bom dia, Aconteceu o mesmo problema comigo com o BHISS. Sempre funcionou perfeitamente, agor mudei para libWinCrypt Dercide.

Boa tarde, Esse problema aconteceu comigo, mas utilizando certificado A1 (arquivo). Testei uns 3 certificados e acontecia o mesmo problema, porém na DEMOS funcionava. Então ajustei todos os parâmetros do componente conforme a demo. Depois que mudei Webservice.TimeOut := 20000 o problema foi sanado. Acredito que isso possa ajudar, não custa tentar. Dercide.

@Daniel Simoes Implementei essa rotina : LerCertificadosStore Porém ela não carrega um certificado da SERPRORBv4, é um certificado valido até 2018 e que uso constantemente. Já havia testado na DEMO e também não carrega. Dercide.

Boa Noite @Daniel Simoes Acabei me esquecendo de completar a mensagem, visto que estava de saída. Desculpa se sair do tópico, não sou de fazer isso, assim como todos procuro solução para os problemas encontrados. Mas eu relatei ==> Passei por esse erro do parâmetro também. Estou usando certificados A1. "Parâmetro Invalido" ao Ler Certificado pelo ACBr" Acontece quando tendo configurar pela Capicom, a qual estava funcionando perfeitamente. O problema surgiu de uma semana pra cá. Desde já agradeço a atenção. Dercide.

Boa tarde, Fiz os testes com a DEMO, com dois certificados diferentes, funciona tudo perfeitamente usando WinCrypt. Mas no meu sistema não consigo fazer funcionar a WinCrypt. Passo o numero de série do certificado, quanto tento checar a data de validade ele da erro dizendo que não encontrou o provedor de criptografia. Realmente não sei o que é, estou desde sexta batendo cabeça com isso. Os fontes estão atualizados, esta tudo configurado conforme os posts que tenho visto. Passei por esse erro do parâmetro também. Vou continuar tentando,,, uma hora achamos o problema. Dercide.