Alan Lucas

Olá @Italo Giurizzato Junior Adicionei as seguintes validações em ACBrNFeNotasFiscais.pas linha 1051, unit em anexo, se puder avaliar e se tiver de acordo adicionar aos fontes if (NFe.Ide.modelo = 65) then begin GravaLog('Validar: 383-NFCe Item com CSOSN indevido [nItem: '+IntToStr(Prod.nItem)+']'); if Imposto.ICMS.CSOSN in [csosn101, csosn201, csosn202, csosn203] then AdicionaErro('383-Rejeição: NFC-e Item com CSOSN indevido [nItem: '+IntToStr(Prod.nItem)+']'); GravaLog('Validar: 766-NFCe Item com CST indevido [nItem: '+IntToStr(Prod.nItem)+']'); if Imposto.ICMS.CST in [cst10, cst30, cst50, cst51, cst70] then AdicionaErro('766-Rejeição: NFC-e Item com CST indevido [nItem: '+IntToStr(Prod.nItem)+']'); Quando for emitida uma NFC-e com Código de Situação da Operação – Simples Nacional (CSOSN) diferente da lista abaixo, será retornado a rejeição "383 - Item com CSOSN indevido": 102 - Tributada pelo Simples Nacional sem permissão de crédito; 103 - Isenção do ICMS no Simples Nacional para faixa de receita bruta; 300 - Imune; 400 - Não tributada pelo Simples Nacional; 500 - ICMS cobrado anteriormente por substituição tributária (substituído) ou por antecipação; 900 - Outros (a critério da UF); Quando for emitido uma NFC-e e com CST de ICMS diferente da lista abaixo será retornado a rejeição "766 - Rejeição: Item com CST indevido": 00 - Tributada integramente; 20 - Com redução da Base de Cálculo; 40 - Isenta; 41 - Não tributada; 60 - ICMS cobrado anteriormente por substituição tributária; 90 - Outros (a critério da UF). Removi a validação abaixo já que já é contemplada pela validação acima GravaLog('Validar: 766-NFCe CST 50 [nItem: '+IntToStr(Prod.nItem)+']'); if (Imposto.ICMS.CST = cst50) then AdicionaErro('766-Rejeição: NFC-e com CST 50-Suspensão [nItem: '+IntToStr(Prod.nItem)+']'); ACBrNFeNotasFiscais.pas

Olá problema resolvido, Eu estava esquecendo de abater a desoneração do ICMS do valor da nota, podem fechar o tópico. Obrigado!

Olá, Estou tentando utilizar a function abaixo porem estou recebendo a mensagem da img1 Em anexo o xml que validei tanto no site da tecnospeed quanto da sefazrs e passou sem erro img2 e img3 Obs: Dependendo da CST se for calcular só ICMS passa, mas se tiver mais cálculos não passa, já atualizei os fontes do ACBr, atualizei os schemas com os do ACBr, tentei com os schemas que a sefaz distribui e nada Como não sei se o validador está correto embora passa a nota, estou postando aqui para o caso de alguém ter alguma luz ou para o caso de ser algo na Function ACBrNFe.NotasFiscais.ValidarRegrasdeNegocios(ErrosRegraNegocio); if ErrosRegraNegocio <> EmptyStr then raise Exception.Create(ErrosRegraNegocio); img1 img2 img3 53231001641028000170550010000000011000000029-nfe.xml

Olá Diego, Obrigado pela resposta, Eu aumentei o tempo de timeout a quantidade de tentativas o tempo entre elas nada resolveu, então entrei em contato com eles, segundo eles estão com problema lá mas sem previsão de restabelecer. Infelizmente com o ISSNet nem fico mais surpreso com os problemas...

Bom dia, Estou com problema para emitir NFS-e aqui em Brasília está gerando erro de timeout até sábado estava tudo ok Conversando com uma pessoa que trabalha numa outra empresa eles falaram que mudaram a integração para TXT e voltou a funcionar, com a ACBr eu consigo mudar isso? não achei como Obs: Esse erro ocorre em todos os nossos clientes que usam NFSe

Boa tarde Italo, Acabei vendo sua mensagem só hoje. Resolvido obrigado pelo empenho.

Boa tarde Italo, Estou usando essa versão do Delphi Embarcadero® Delphi 10.3 Version 26.0.36039.7899

Opa Italo boa tarde, Então eu mudei de local os schemas para encurtar o caminho, mas em ambos os caminhos estava setado corretamente para onde estavam os schemas tanto que deu erro na validação, se não encontrasse os schemas o erros seria outro não concorda? De qualquer forma depois das alterações na classe que vc sugeriu consegui emitir a NFS-e sem erro nenhum

Boa tarde Italo, Obrigado pela dica, fiz conforme vc sugeriu e deu certo validou sem problema, segue a unit em anexo. Entendo que só eu reportei esse problema, mas talvez seja porque aqui em Brasília só deve entrar em funcionar em 01.01.2023 ISSNet.GravarXml.pas

Olá Italo, Alterei na classe ACBrNFSeXGravarXml.pas na linha 190 de: FFormatoAliq := tcDe4; para: FFormatoAliq := tcDe2; Com isso passou na validação e deu certo, contudo com certeza pode afetar outros provedores, mas foi a solução que eu achei

Segue o XML e o print de como está no XML temp1.xml

Não mexi nada no programa de exemplo apenas compilei configurei os parâmetros necessários e quando tento enviar da esse erro. Nele para o ISSNet está assim a alíquota, eu vi no fórum algumas pessoas falando para dividir por 100 mas dá na mesma porque o ACBr normaliza Servico.Valores.Aliquota := 2;

Boa tarde Italo, Está correto o caminho dos schemas tanto que chega a validar dizendo que só aceita 4 dígitos mas está sendo passado com 5 dígitos Segue print de como está

Boa noite Italo, Fiz um teste pelo programa de exemplo e deu o mesmo erro, estou com a última versão atualizei e recompilei hoje, segue imagem do erro Posso está fazendo algo de errado, mas não identifiquei

Olá, Estou tendo o erro abaixo na na validação da alíquota no provedor ISSNet aqui em Brasília Código: X800 Erro de validação: '5.0000' violates totalDigits constraint of '4' the element '{http://www.abrasf.org.br/nfse.xsd}Aliquota' whith value '5.0000' failed to parse No arquivo schema nfse.xsd está configurado dessa forma <xsd:simpleType name="tsAliquota"> <xsd:restriction base="xsd:decimal"> <xsd:totalDigits value="4" /> <xsd:fractionDigits value="2" /> <xsd:minInclusive value="0" /> </xsd:restriction> </xsd:simpleType> Eu vi que já houve esse erro em outros provedores, mas não encontrei nada do ISSNet

Em Brasília entra os serviços no total da nota. Lembrei agora que aqui tem algumas particularidades.

Boa tarde Roberto, Obrigado pelo feedback bom vou verificar mas isso só ocorre na regra de negócio do ACBr quando eu comentei o trecho para não validar foi enviado e autorizado sem erro. O XML de teste está anexo acima

Resolvido, Alterei a linha 1107 da Unit ACBrNFeNotasFiscais.pas de: GravaLog('Validar: 564-Total Produto/Serviço'); if (NFe.Total.ICMSTot.vProd <> fsvProd) then AdicionaErro('564-Rejeição: Total do Produto / Serviço difere do somatório dos itens'); para: GravaLog('Validar: 564-Total Produto/Serviço'); if ((NFe.Total.ICMSTot.vProd + NFe.Total.ISSQNtot.vServ) <> fsvProd) then AdicionaErro('564-Rejeição: Total do Produto / Serviço difere do somatório dos itens'); Pois na validação só estava considerando produtos e não serviços. O problema ocorria quando se adicionava produtos e serviços na nota, o fsvProd vem carregado com o valor total dos produtos e serviços e estava sendo comparado apenas com os produtos gerando erro. Não sei se foi a melhor solução mas passou sem problema rs... Forte abraço.

Olá, Estou com um problema ao tentar validar as regras de negocio pelo ACBr está me retornando o seguinte erro em anexo... Para validar eu uso o seguinte código: DM.ACBrNFe1.NotasFiscais.ValidarRegrasdeNegocios(ErrosRegraNegocio); if ErrosRegraNegocio <> '' then raise Exception.Create(ErrosRegraNegocio); Eu achei que estava errando em algum calculo mas se eu remover esse trecho a nota é autorizada normalmente Segue em anexo o xml caso alguém tenha alguma dica fico agradecido 53180126850336000137650010000000049000000046-nfe.xml

Olá Gustavo, Dia 14/06 o Daniel subiu para o SVN todas as correções necessárias. Está totalmente funcional.

Olá Daniel, Desculpa não mandei no primeiro post mas segue fonte com um adendo agora a consulta também trás a data da inscrição do CPF. Aproveitei e implementei esse campo no componente e mudei o exemplo ACBrConsultaCPF.pas Delphi.zip

Olá, Houve uma alteração no endereço onde é feito a consulta do CPF e por conta disso o ACBrConsultaCPF não estava funcionando corretamente Segue fonte com as correções necessárias. Alan Lucas ACBrConsultaCPF.pas

Ruan Sousa, O código que identifica o cancelamento homologado é cStat = 135 ou 155 cStat = 135 para cancelamento homologado dentro do prazo cStat = 155 para cancelamento homologado fora do prazo Pegue esse retorno aqui: ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat Alan Lucas http://www.dftech.com.br