EMERSON CREMA

Achei isso: 3 - Enviei uma NF-e para a SEFAZ e ela foi denegada pelo erro "302 – Uso Denegado : Irregularidade fiscal do destinatário", mas o meu cliente é uma empresa prestadora de serviço, não contribuinte do ICMS. O que devo fazer neste caso? Quando o comprador/cliente for empresa (pessoa jurídica) não contribuinte do ICMS ou pessoa física, o emitente da NF-e deve informar o termo "ISENTO" no campo referente à inscrição estadual do destinatário. Este procedimento possibilitará a autorização da NF-e ainda que a empresa que consta como destinatária na NF-e possua uma inscrição estadual antiga nos cadastros da SEFAZ em situação de cancelamento ou baixa. A SEFAZ alerta, entretanto, que omitir ou alterar a inscrição estadual quando o destinatário for contribuinte do ICMS configura infração à legislação tributária vigente. http://sistemas.sefaz.am.gov.br/nfeweb-hom/portal/pdf/infoDenegacaoSefazAM.pdf Não sei se aplica a todos os estados.

Bom dia a todos. Também estou com o mesmo problema em diversos clientes, peguei alguns CNPJs, fui na "Consulta Pública ao Cadastro ICMS" do estado de SP, e não constam os CNPJs. Os mesmos também pesquisei no "Cadastro Centralizado de Contribuinte (CCC)" e também não constam. O que mais está parecendo é que colocaram em prática uma regra e ainda não existe uma base de dados completa e confiável para executar o mesmo. Boa sorte para nós. Atenciosamente, Emerson Crema.

Você tem razão, tinha ficado verde em algum momento mas voltou a ficar indisponível, vejo que ainda teremos uma longa estrada...

Boa tarde. Estranho, o mesmo está acontecendo em um cliente em Rondonia, estou tentando todas as dicas disponíveis, e nada.

E o pior é q não é a primeira vez, é uma luta sem fim, mas segue a vida, obrigado a todos!

Em ambiente de homologação voltou a funcionar neste exato instante, tinha feito uma a 2 minutos, e deu a rejeição 905, agora tentei novamente e validou. Eu já imaginava q o problema era por lá mesmo.

Parece que não está tão simples assim. Eu tenho o ACBr atualizado hoje, está com CamposFatObrigatorios = True, o campo vDesc é gerado no XML, os Schemas estão atualizados com o que está disponivel no site no Sefaz, e ainda assim é rejeitado com o código 905. Tá me parecendo que é mais uma atrapalhada lá no Sefaz mesmo. Ah, e só mais 1 detalhe, realmente é só em homologação, clientes com a mesma versão do meu sistema em produção estão ok.

Só para constar, acabei de utilizar em um cliente que também estava desde quinta-feira passada sem emitir NF-e, já havia testado todas as outras possibilidades, e esta do registro foi a que resolveu. Obrigado Felipe.

Souza, isto vem dando certo? Pergunto porque na maioria dos clientes com Windows 10 está tudo ok, mas alguns não. Desde já agradeço Abraço!

Bom dia! Você conseguiu resolver este problema? Estou passando pela mesma situação hoje, e apenas em alguns clientes. Desde já agradeço. Att, Emerson Crema.

Tive o mesmo problema hoje, do nada, também atualizei e resolveu 100%! Obrigado também.

Eu concordo com tudo o que vc diz, seria o perfeito e lógico, porém isto está sendo feito baseado em uma situação que um cliente tem de nota de importação, ele passou exatamente desta forma, e como sempre, não abre mão de que seja de outra forma. O chato é que sempre há a alegação que não consegue retirar a mercadoria do porto se não for exatamente da forma que é informado. Veja o original do XML que o cliente forneceu: Sim, se deixar a base de cálculo zerada é validado, veja:

O rejeitado foi incorreto, é este outro. NFE_rejeitado.xml

Bom dia! Sim, claro, sem problemas. Seguem os anexos. No arquivo NFE_rejeitado.xml, o retorno é o seguinte: Nota(s) não confirmadas: 61946->Rejeição: Valor do ICMS da Operação no CST=51 difere do produto BC e Alíquota. Mais uma vez, obrigado. Abraço! NFE_aprovado.xml NFE_rejeitado.xml

Será possível esta alteração? Pois não vejo outra forma, se não tem como validar a NFe sem isto.

Sim, eu até sei que é opcional, ao menos na teoria, mas na prática não é o que acontece. Ao meu ver também "NÃO" é muito lógico ter que enviar um valor zerado ou vazio. O erro é o seguinte: Rejeição: Valor do ICMS da Operação no CST=51 difere do produto BC e Alíquota E não tem jeito, se eu informar as tags com zero, blz, é validado, se suprimir as tags acontece esta rejeição.

Bom dia a todos! Passei uma situação semana passada com relação ao CST 51 (diferimento), onde precisava colocar a tag <pICSMS> com zero, além de outras tags como <vICMSOp>, <vICMSDif>, etc. Porem neste caso, a rotina do contida em pcnNFeW.pas suprime estas tags no XML, quer dizer, elas não são geradas caso tenham o valor zero. Mas isto gera rejeição, ao menos no ambiente 4.0 de webservices. Mas notei que é utilizada a procedure wCampo(), e existe o parâmetro "ocorrencias", que hoje é setado com 0 (zero), mas setando para 1 (um), a tag é gerada mesmo com o conteúdo zero. Gostaria de saber se é possível fazer a alteração disto para o cst 51, pois como eu mencionei, não há condições de validar a NFe sem esta alteração. Segue a imagem do ponto onde encontra-se a programação a ser alterada: Minha sugestão, já alterando os campo necessário (parâmetro "ocorrencias" com o valor 1 (um): Gerador.wCampo(tcStr , 'N13' , 'modBC' , 01, 01 , 1, modBCToStr(nfe.Det[i].Imposto.ICMS.modBC), DSC_MODBC); Gerador.wCampo(IIf(Usar_tcDe4,tcDe4,tcDe2), 'N14' , 'pRedBC' , 01, IIf(Usar_tcDe4,07,05), 1, nfe.Det[i].Imposto.ICMS.pRedBC , DSC_PREDBC); Gerador.wCampo(tcDe2 , 'N15' , 'vBC' , 01, 15 , 1, nfe.Det[i].Imposto.ICMS.vBC , DSC_VBC); Gerador.wCampo(IIf(Usar_tcDe4,tcDe4,tcDe2), 'N16' , 'pICMS' , 01, IIf(Usar_tcDe4,07,05), 1, nfe.Det[i].Imposto.ICMS.pICMS , DSC_PICMS); Gerador.wCampo(tcDe2 , 'N16a', 'vICMSOp' , 01, 15 , 1, nfe.Det[i].Imposto.ICMS.vICMSOp , DSC_VICMS); Gerador.wCampo(IIf(Usar_tcDe4,tcDe4,tcDe2), 'N16b', 'pDif' , 01, IIf(Usar_tcDe4,07,05), 1, nfe.Det[i].Imposto.ICMS.pDif , DSC_PICMS); Gerador.wCampo(tcDe2 , 'N16c', 'vICMSDif' , 01, 15 , 1, nfe.Det[i].Imposto.ICMS.vICMSDif , DSC_VICMS); Gerador.wCampo(tcDe2 , 'N17' , 'vICMS' , 01, 15 , 1, nfe.Det[i].Imposto.ICMS.vICMS , DSC_VICMS); Espero mais uma vez estar contribuindo positivamente. Um ótima semana a todos. Grande abraço! Emerson Crema Max Scalla Informática Ltda.

Acho que não vou ter outra alternativa, o caso é o mesmo, o cliente foi renovar o certificado, usaram o mesmo cartão, e daí em diante começou a dar todo o problema. vou recomendá-lo a troca do cartão. Muito obrigado pela resposta. Grande abraço!

Bom dia! Estou tendo o mesmo problema, só que o meu é um certificado Cartão A3, da Boa Vista. Alguma sugestão? Desde já agradeço. Emerson Crema Max Scalla Informática Ltda.

Boa tarde pessoal. Incrível, estou com o mesmo problema, e não há o que resolva. Já reinstalaram o certificado digital, ele é reconhecido, mas ao enviar, sempre o retorno é "Chave inválida". O cliente também está usando um cartão A3 da Boa Vista. Ao utilizar o recurso do ACBR de consulta e status do serviço, o processamento é feito perfeitamente. Não existe problema na chave de acesso, ela esta no formato correto, pois gero por aqui com outro certificado digital, e fazendo as comparações, os campos são preenchidos da mesma forma, mudando é lógico, apenas o CNPJ e as numerações da nota, a estrutura esta correta, até porq é uma aplicação utilizada em mais de 500 clientes, e apenas em 1, tenho este problema. Alguem tem alguma sugestão? Abraço a todos.

Ronaldo, Ricardo, gostaria de agradece-los pela preocupação e a tentativa em me ajudar. Finalmente achei onde estava a diferença. Primeiro fato, realmente configurando como Epson, não funciona de forma alguma. Segundo, o que estava de errado no meu código éra a relação entre a informação do número de bytes do código de barras, e o código de barras em si. Então o código ficou basicamente assim: function TACBrEscElgin.ComandoCodBarras(const ATag: String; ACodigo: AnsiString): AnsiString; var ACodBar, CmdBarCode: AnsiString; L, A, M, nCount: Integer ; begin with fpPosPrinter.ConfigBarras do begin L := IfThen( LarguraLinha = 0, 2, max(min(LarguraLinha,4),1) ); A := IfThen( Altura = 0, 50, max(min(Altura,255),1) ); M := IfThen( MostrarCodigo, 2, 0 ); end ; CmdBarCode := 'I' + Chr( ( Length( ACodigo ) div 2 ) + 2 ) + '{C' nCount := 1 ; while nCount < Length( ACodigo ) do begin ACodBar := ACodBar + Chr( StrToInt( Copy( ACodigo, nCount, 2 ) ) ) ; nCount := nCount + 2 ; end ; Result := GS + 'h' + Chr( A ) + // Altura GS + 'w' + Chr( L ) + // Largura GS + 'H' + IntToStr( M ) + // HRI (numero impresso abaixo do cod.barras) GS + 'k' + CmdBarCode + ACodBar; end; Como podem ver, os dígitos são passados de 2 em 2 bytes, e o tamanho, será a metade (parte em negrito) do tamanho da string original (ACodigo) + 2, esses 2 referentes ao '{C' que complementa o comando. Assim ficou perfeito para a Elgin. Eu mudei mais uma coisa, que achei conveniente, pois vi que para todas as outras impressoras, o código de barras imprime-se em 2 linhas, mas existe espaço suficiente (em 64 colunas) para imprimir em apenas 1 linha, e assim o fiz. Existem muitos clientes reclamando pelo consumo de papel, então estou fazendo o máximo possível para diminuir isto, tendo em vista que não se pode abrir mão das informações necessárias. Fiz o teste tanto do código de barras quando do qrCode, e bateu certinho, fiz a leitura via app em meu smartphone memo. Em anexo o resultado. Agora, fica a pergunta, se no meu caso funcionou com este código, mas muitos tiveram sucesso com as definições da Espson, o que fazer em relação ao projeto ACBR? Envio o meu fonte para análise? De qualquer forma quero mais uma vez deixar os meus sinceros agradecimentos a todos que se pre-dispuseram desde o início. Abraços.

Se vc estivesse aqui na capital de SP, poderia marcar um dia pra que eu levasse um equipamento até vc. Mas ao que vi, vc está em Tatuí, aí já torna-se mais complicado. Mas de qualquer forma agradeço pela atenção e esforço. Abraço!

Bom dia Daniel! Opa, com certeza, utilizei o ppEscPosEpson, e como não tive sucesso, criei esta outra unit como laboratório. Com relação a busca no fórum, foi o que eu mais fiz, e nada me apontou algo que possa resolver esta situação. Não sei se existe alguma influência, mas eu uso ela acessando via mapeamento no windows (\\127.0.0.1\ELGIN). Achei um programa em Clipper, ao utilizá-lo, tive a surpresa de que funciona perfeitamente, e ele realmente foi desenvolvido para uma EPSON TM-T20, e esta mesma programação foi compatível com a Elgin i9, imprimiu tanto o código de barras como o qrCode. Seque a impressão pelo ACBR, usando EscPos e configurado como ppEscPosEpson, mas imprimindo na Elgin. Veja que não imprime o código de barras, e o corte do papel é feito em cima do qrCode. O mesmo acontece utilizando o programa de exemplo SATTeste, disponível na pasta ACBR\Exemplos\ACBrSAT\Delphi Realmente, até o momento está inexplicável, e entendo quando vc diz que em outros usuários está funcionando perfeitamente, já passei por isto muitas vezes na vida, e sempre surge uma nova e inesperada surpresa. Se tiver mais alguma sugestão, fico agradecido. Abraço!

Sem chance, o código utilizado foi este (tentei utilizar também L := 2 ou L := 1): function TACBrEscElgin.ComandoCodBarras(const ATag: String; ACodigo: AnsiString): AnsiString; var ACodBar, Cmd128, cChr: AnsiString; L, A, M, nCount, nChr : Integer ; { L, A, M : Integer ; CmdBarCode: Char; ACodBar, Cmd128: AnsiString; } begin with fpPosPrinter.ConfigBarras do begin L := IfThen( LarguraLinha = 0, 3, max(min(LarguraLinha,4),1) ); A := IfThen( Altura = 0, 50, max(min(Altura,255),1) ); M := IfThen( MostrarCodigo, 2, 0 ); end ; Cmd128 := #29 + 'h' + Chr( A ) + // Altura #29 + 'w' + Chr( L ) + // Largura #29 + 'H' + IntToStr( M ) + // HRI (numero impresso abaixo do cod.barras, H0 = INIBE, H2 = MOSTRA) #29 + #107 + #73 + #24 + '{C' ; For nCount := 0 To 10 do begin cChr := Copy( ACodigo, (nCount * 2) + 1, 2 ); nChr := StrToInt( cChr ); ACodBar := ACodBar + Chr( nChr ); end ; Result := Cmd128 + ACodBar ; end;

Daniel, vc sabe porque mesmo utilizando o ppEscPosEpson, é impresso tudo corretamente na Elgin i9, menos o código de barras, até o QRCODE está imprimindo, mas o código de barras já tentei de tudo, até criei uma unit separada só pra Elgin (ACBrEscElgin.pas), e testei todos os comandos possíveis, mas sem sucesso. Se tiver algum sugestão fico grato. Abraço!