gabriellc

Obrigado

Pessoal esta dando este erro ECFVirtual nao foi atribuido, ao tentar setar a opcao ecfvirtual no modelo da impressora no ACBrECF. Alguem ja passou por isso? Obrigado

faz todo sentido sua explicacao, quanto ao item 3 - Aplicações que usam o INI para passar o parâmetro ao componente não tem esse problema porque não gera o ASCII (Não sei explicar porque), na minha aplicacao pego direto do ini exatamente como é no demo do ACBR, e sempre retorna o erro 464, fiz uma modificacao no fonte acbr para pegar diretamente o campo CSC do ini, e esta funcionando, se eu deixo o fonte do ACBR como é pegando o CSC do componente carregado, sempre sempre retornar o erro 464.

nao sei pq cargas dagua em algums cantos funciona quando se gera um novo CSC e se revoga o antigo, o que acho que nao é necessario, pois tenho clientes que continuam usando o CSC que ja tinham, e ta indo normal(lembrando com a alteracao que fiz no codigo).

bicho nao sei mais o que fazer nao, voltei o codigo do acbr ao normal, fiz exatamente como vc fez ai, digitando CSC novo, e deu a mesma porra do erro 464!!! mais com a alteracao que fiz continua funcionando

isso que nao entendo mano, eu tentei isso e nao deu certo, emitir CSC novo emitiu algumas notas e logo voltou a dar o erro 464, ta uma viagem esse calculo desse hash!

toda teria enquanto nao sabemos o real motivo do erro é valida: mais nos meus testes posso afirmar: nao é necessario emitir um novo CSC, a modificacao que fiz no codigo do acbr esta funcionando perfeito ate agora nao recebi nanhuma reclamacao de clientes, o que me leva a conclusao que o erro, nao sei nem se eh um erro, o campos CSC quando chega na variavel cCSC na hora de gerar o hash, acontece alguma mudanca nela que da a diferenca de calculo do hash, pode ser ate que o problema seja na propria SEFAZ, mais o fato concreto eh que consegui resolver fazendo a mudanca acima! vamos aguardar uma opniao do administradores.! o que tb nao entendi ate agora, é como em alguns locais emitindo um CSC novo funciona! ainda continua muito estranho!

mais no codigo da minha aplicacao ja eh assim : Ini := TIniFile.Create( IniFile ); ACBrNFe1.Configuracoes.Geral.CSC := Ini.ReadString( 'Geral','Token' ,''); o meu codigo é exatamente este: with frmPrincipal.ACBrNFe1.Configuracoes.Geral do begin ExibirErroSchema := cbxExibirErroSchema.Checked; FormatoAlerta := edtFormatoAlerta.Text; FormaEmissao := TpcnTipoEmissao(cbFormaEmissao.ItemIndex); ModeloDF := TpcnModeloDF(cbModeloDF.ItemIndex); VersaoDF := TpcnVersaoDF(cbVersaoDF.ItemIndex); IdCSC := edtIdToken.Text; CSC := Ini.ReadString( 'Geral','Token' ,''); Salvar := ckSalvar.Checked; AtualizarXMLCancelado := true; end;

ASSIM: essa alteracao que fiz no acbr: IniFile := ChangeFileExt( Application.ExeName, '.ini'); Ini := TIniFile.Create( IniFile ); cCSC := Ini.ReadString( 'Geral','Token' ,'') ; é o mesmo codigo que uso pra carregar o componente.

amigo faz sentido o que voce esta falando, mais nos meus testes, eu fiz esses testes, digitando minusculo maiusculo copiando e colando e mesmo assim continou com o erro 464, so resolvendo com a gambiarra que fiz, vou aguardar uma posicao oficial dos administradores por enquanto sou obrigado a fazer assim!

fernando acabei de testar com um cliente que nao regerou o CSC, foi normal tb, unica coisa que fiz foi adicionar os - no CSC que estava sem

era bom algum administrador que conheca bem o codigo, dar uma opniao ja olhei o codigo nao consigo enchergar onde estaja um possivel erro! mais o fato é que alterando aquela linha que falei mais cima ta funcionando!

mais pior que: tetando aqui com um regerado tb tava dando o erro 464 sempre, quando troquei esse pedaco do codigo parou ta indo normal! ainda nao testei com um que nao foi regerado, vou testar hj! ta muito estranho isso

ja vi isso, mais a ideia continua a mesma, nao sei o que esta havendo, quando se coloca direto o CSC no codigo ele vai normal, talvez seja um problema de conversao de tipo nao sei! fiz essa gamibiarra aqui pra funcionar hj, se nao os clientes me comem vivo: IniFile := ChangeFileExt( Application.ExeName, '.ini'); Ini := TIniFile.Create( IniFile ); cCSC := Ini.ReadString( 'Geral','Token' ,'') ; e o patrão tb!

eh ta tenso, jaja comeca as ligacoes dos clientes rsrsrs, ja to pensando em compila uma versao pra cada cliente com o CSC direto no codigo!

realmente! mecher no que ta queto!

bicho estou desde as 3 da tarde quebrando a cabeca com isso lol monte de cliente ligando!!!! eu colocando a culpa na receita

o problema esta aqui com certeza, é so substituir para o codigo original que retorna o erro 464, colocando o CSC diratamente no codigo vai normal // Passo 3 e 4 cIdCSC := IntToStrZero(StrToIntDef(Configuracoes.Geral.IdCSC,0),6); //cCSC := Configuracoes.Geral.CSC; cCSC := 'FBD8D05E-BA6B-544B-037A-C90B38204390';

adicionei este codigo abaixo do local em negrito anteriormente, e o resultado vem um . no final apos o CSC: GerarException(ACBrStr('ERRO: '+Configuracoes.Geral.CSC));

pessoal, acho q o problema pode ser aqui(so um chute), alterei o codigo do acbr, coloquei o CSC diretamente no codigo, e esta indo normal ate agora! // Passo 1 sdhEmi_HEX := AsciiToHex(DateTimeTodh(DataHoraEmissao) + GetUTC(CodigoParaUF(CUF), DataHoraEmissao)); sdigVal_HEX := AsciiToHex(DigestValue); if (CUF in [35, 41, 50]) then begin sdhEmi_HEX := LowerCase(sdhEmi_HEX); sdigVal_HEX := LowerCase(sdigVal_HEX); end; // Passo 3 e 4 cIdCSC := IntToStrZero(StrToIntDef(Configuracoes.Geral.IdCSC,0),6); //cCSC := Configuracoes.Geral.CSC; cCSC := 'FBD8D05E-BA6B-544B-037A-C90B38204390'; if EstaVazio(cCSC) then cCSC := Copy(idNFe, 7, 8) + '20' + Copy(idNFe, 3, 2) + Copy(cIdCSC, 3, 4); sCSC := cIdCSC + cCSC; sNF := StringReplace(FormatFloat('0.00', ValorTotalNF), ',', '.', [rfReplaceAll]); sICMS := StringReplace(FormatFloat('0.00', ValorTotalICMS), ',', '.', [rfReplaceAll]); sEntrada := 'chNFe=' + idNFe + '&nVersao=100&tpAmb=' + TpAmbToStr(TipoAmbiente) + IfThen(cDest = '', '', '&cDest=' + cDest) + '&dhEmi=' + sdhEmi_HEX + '&vNF=' + sNF + '&vICMS=' + sICMS + '&digVal=' + sdigVal_HEX + '&cIdToken='; // Passo 5 calcular o SHA-1 da string sEntrada cHashQRCode := AsciiToHex(SHA1(sEntrada + sCSC)); // Passo 6 if Pos('?', urlUF) > 0 then Result := urlUF + '&' + sEntrada + cIdCSC + '&cHashQRCode=' + cHashQRCode else Result := urlUF + '?' + sEntrada + cIdCSC + '&cHashQRCode=' + cHashQRCode;

olha que estranho, acabei de gerar esses dois XML, na mesma hr, um foi autorizado outro nao, entrei no validador de xml da sefaz RS, o que foi autorizado passou no teste o outro nao! nao to entendendo mais nada!!!!!!! 25170218963781000185650030000000081000000010-nfe.xml 25170218963781000185650030000000071000000012-nfe.xml

pessoal peguei esse trecho do manual de Padrões Técnicos do DANFE-NFC-e e QR Code versao 3.3 atentem para o item 5 que fala que o resultado SHA-1 deve estar em HEXA e em CAIXA BAIXA. olhei no XML e ele esta em caixa ALTA. teria alguma coisa haver? 4.5.1 Passos para a geração do Hash do QR Code: 1º - Converter o valor da Data e Hora de Emissão da NFC-e (dhEmi) para HEXA; 2º - Converter o valor do Digest Value da NFC-e (digVal) para HEXA; 3º - Substituir os valores (“dhEmi” e “digVal”) nos parâmetros; 4º - Adicionar ao final dos parâmetros o CSC (CSC do contribuinte disponibilizado pela SEFAZ do Estado onde a empresa esta localizada); 5º - Aplicar o algoritmo SHA-1 sobre todos os parâmetros concatenados. O resultado do algoritmo SHA-1 deve estar em HEXA e em caixa baixa; 6º - Junte tudo sem o CSC entregue pela SEFAZ e gere a imagem QR Code: 1º parte (endereço da consulta) + 2º parte (itens da tabela indicados com “SIM” na última coluna) + cHashQRCode. esse outro trecho se encontra no item 4.5: Observação: todas as conversões para hexadecimal deverão ser efetuadas para hexadecimal em caixa baixa. A eventual utilização de conversão de hexadecimal para caixa alta, sem observância da presente recomendação poderá gerar erro na validação do Hash do QR Code

sim, peguei os dados de um cliente estava testando aqui, desde as 6 nao enviou nenhuma, agora agora conseguiu enviar sem fazer alteracao nenhuma, eles estao cagando no pau nessa validacao!

Fernando, atualiza agente msm, foda que nao tenho acesso a emissao de CSC, solicitei a 2 contadores eles me enviarao um novo CSC, em 2 clientes emitiu algumas notas mas logo parou novamente retornando o erro 464, ta tenso!

caramba velho, alguem tem uma solucao? ja tentei de tudo, CSC letra Maiuscula minuscula sem -, ja tentei com CSC novo e nada continua do mesmo jeito