Reginaldo Costa

sim Regys, fiz o passo a passo junto com o suporte da certisign, tive que atualizar o java, limpar caches, etc... eu tbm ja trabalho a anos com este certificado, nunca deu nada, sempre funcionou, e pior que é renovação do mesmo, era pra por o cartao, mudar a serie dele e bola pra frente. por isso to achando muito estranho.

Caros, ERRO AO ACESSO A CANAIS SEGUROS AO EFETUAR ATE CONSULTA AO SEFAZ. tenho o sistema funcionando ja a 3 anos neste cliente, com cartão a3, agors o cliente renovou o cartao e adquiriu um novo da Certisign, versao V2, depois de instalado na mesma maquina, da erro a canais seguros ja fiz todas as configurações que conhecia no IE e instalei todos os certificados cadeia 2, e tbm informações aqui consultadas e nao tem jeito, nem consulta ao sefaz vai. inclusive este certificado agora é gerado e instalado no cartao no momento de habilita-lo pela internet. ta tudo funcionando tudo na receita, nos testes de validação no site da certisign, capicom 2.0.1 instalada, etc. nao conseguindo nesta maquina, tentei em outra maquina, mesma coisa. não sei mais o que fazer, se alguem tem alguma dica, por favor me passem. e mais estranho que tava funcionando com o cartao antigo, isso foi uma renovação. meu cenário: windows 7 ult. 64 bits ie 10 sistema proprio compilado com a ultima versao do acbr. java 1.7.0.45 outra maquina windows 7 basic 32 bits ie 9 mesmo sistema obrigado

Cara Juliana ou responsável, favor incluir no fonte do banrisul texto exigido pelo banco nas orientações. no create da classe do banrisul: fpOrientacoesBanco.Add(ACBrStr('SAC BANRISUL: 0800 646 15 15' + sLineBreak+ 'OUVIDORIA BANRISUL: 0800 644 22 00 www.banrisul.com.br')); obrigado pela atenção. Reginaldo Costa.

Boa noite, André, obrigado pela ajuda.

boa noite, Regis não teve tempo de subir parao SVN o código ?????? obrigado.

ok, Regis segue em anexo... pcnNFeW.pas

então depois de tudo relatado e acho que entendido, Regis e Kiko, se for possivel alterar o fonte, no SVN, agradeço. pois acho dificil ter base de icms e nao icms, mas o inverso é verdadeiro. agradeço desde já. Reginaldo Costa. ps e nao sou novato, ja uso o acbr desde a 1a versao. ja ajudei muitas vezes outros colegas.

Boa noite, sim passa somente na finalidade 3, nota de ajuste, passa sem problemas, autoriza beleza. o unico problema é que o teste é feito na base e como so tem o valor do icm eu nao conseguia por o valor no item, ai dava mensagem: total do icms difere do somatorio dos itens. depois que arrumei o fonte conforme relatei acima passou legal. abraços,

obrigado, abraços...

Caros Srs, estou com uma situação especial aqui, tem um cliente meu que utiliza uma NFe de apenas credito de ICMS todo o mês. este mês tivemos um problema com a NFe, conforme segue: NFe de entrada/ cfop 1.949 CST 090 - e é preenchido somente o valor do ICMS, sem base de calculo e produto e total geral com 0.00 somente o campo vICMS contem valor. depois de muito sofrer uma madrugada sem dormir e mais uma manha. cheguei no meu problema, no arquivo fonte do acbr, pcnNFeW.pas na pasta PCN2, precisei alterar o if para testar o vICMS e não a base vBC maior que zero, pois a base de calculo é zero, so o ICMS que é maior que zero. então alterei conforme abaixo: (resolveu meu problema....) não sei se mais alguém usa este tipo de nota ?????? cst90, cstPart90 : begin >>>>>>>> if nfe.Det.Imposto.ICMS.vICMS > 0 then <<<<<<alterei aqui>>>>>>>>>>>> begin Gerador.wCampo(tcStr, 'N13', 'modBC ', 01, 01, 1, modBCToStr(nfe.Det.Imposto.ICMS.modBC), DSC_MODBC); Gerador.wCampo(tcDe2, 'N15', 'vBC ', 01, 15, 1, nfe.Det.Imposto.ICMS.vBC, DSC_VBC); Gerador.wCampo(IIf(NFe.infNFe.Versao >= 3.10,tcDe4,tcDe2), 'N14', 'pRedBC ', 01, 05, 0, nfe.Det.Imposto.ICMS.pRedBC, DSC_PREDBC); Gerador.wCampo(IIf(NFe.infNFe.Versao >= 3.10,tcDe4,tcDe2), 'N16', 'pICMS ', 01, 05, 1, nfe.Det.Imposto.ICMS.pICMS, DSC_PICMS); Gerador.wCampo(tcDe2, 'N17', 'vICMS ', 01, 15, 1, nfe.Det.Imposto.ICMS.vICMS, DSC_VICMS); end; >>>>>>>>>> if nfe.Det.Imposto.ICMS.vICMSST > 0 then <<<<<<<e alterei aqui tbm ??? não sei se necessita>>>>>>>> begin Gerador.wCampo(tcStr, 'N18', 'modBCST ', 01, 01, 1, modBCSTToStr(nfe.Det.Imposto.ICMS.modBCST), DSC_MODBCST); Gerador.wCampo(tcDe2, 'N19', 'pMVAST ', 01, 05, 0, nfe.Det.Imposto.ICMS.pMVAST, DSC_PMVAST); Gerador.wCampo(IIf(NFe.infNFe.Versao >= 3.10,tcDe4,tcDe2), 'N20', 'pRedBCST', 01, 05, 0, nfe.Det.Imposto.ICMS.pRedBCST, DSC_PREDBCST); Gerador.wCampo(tcDe2, 'N21', 'vBCST ', 01, 15, 1, nfe.Det.Imposto.ICMS.vBCST, DSC_VBCST); Gerador.wCampo(IIf(NFe.infNFe.Versao >= 3.10,tcDe4,tcDe2), 'N22', 'pICMSST ', 01, 05, 1, nfe.Det.Imposto.ICMS.pICMSST, DSC_PICMSST); Gerador.wCampo(tcDe2, 'N23', 'vICMSST ', 01, 15, 1, nfe.Det.Imposto.ICMS.vICMSST, DSC_VICMSST); end; atenciosamente, Reginaldo Costa.

ops: falha nossa: é codigo do cedente e nao nosso numero. desculpe. Reginaldo Costa.

Cara, Juliana Tamizou, gostaria que arrumasse a montagem do nosso numero do banco banrisul, toda vez que atualizo o ACBr, tenho que arrumar isso: versão que ta no SVN: function TACBrBanrisul.MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): string; begin Result:=copy(ACBrTitulo.ACBrBoleto.Cedente.Agencia, 2, 4)+'-'+ copy(ACBrTitulo.ACBrBoleto.Cedente.Agencia, 5, 1)+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,1,6) + '.' + copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,7,1) + '.' + copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,8,2); end; correção: function TACBrBanrisul.MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): string; begin Result:=copy(ACBrTitulo.ACBrBoleto.Cedente.Agencia, {>>>2<<<<<muda para 1} 1, 4)+'-'+ {>>>>sai copy(ACBrTitulo.ACBrBoleto.Cedente.Agencia, 5, 1) <<<<<} + ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,1,6) + '.' + copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,7,1) + '.' + copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,8,2); end; ficando assim: function TACBrBanrisul.MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): string; begin Result:=copy(ACBrTitulo.ACBrBoleto.Cedente.Agencia, 1, 4)+'-'+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,1,6) + '.' + copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,7,1) + '.' + copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,8,2); end; atenciosamente, Reginaldo Costa.