AllyRafhiyy E N Nunes

obrigado!!!!

Bom dia, estou com essa duvida de um cliente que me perguntou se ele pode colocar produto substituto CST 060 e produto tributado normal CST 000 na mesma nfe, nesse caso qual seria a natureza da operação?

tambem estou com esse mesmo problema o cliente e TAC

Datilas, obrigado

pessoal desculpas, sei que nao tem ahaver com acbr, mas se possivel uma ajudinha nesse meu problema de RestDataWare quando faço o teste no rest debugger, tudo funciona certinho mas quando tento testar o app da esse erro.

Obrigado, BigWings e isso mesmo, eu que estava sem entender o que cliente me passou! muito obrigado!!!

Tenho um cliente que precisa fazer uma nfe de devolucao, e a empresa quer que o cliente coloque o csosn 2900, so que da rejeição de limite de digitos maior que o permitido, teria alguam outra forma de proceder

Daniel simoes, obrigado! resolvi era a senha key que estava faltando alguns digitos!

erro: unable to send EmailFrom, estou usando o sparkpost ACBrMail1.Clear; Femail.GetEmail; ACBrMail1.From := LowerCase(Femail.Email_de); ACBrMail1.FromName := vNome; ACBrMail1.Host := Femail.servidor; // troque pelo seu servidor smtp ACBrMail1.Username := LowerCase(Femail.usuario); //ACBrMail1.From := LowerCase(Femail.usuario); ACBrMail1.Password := Femail.Senha; ACBrMail1.Port := Femail.porta; ACBrMail1.SetSSL := false; ACBrMail1.SetTLS := true; ACBrMail1.DefaultCharset := TMailCharset(27); ACBrMail1.IDECharset := TMailCharset(15); // troque pela porta do seu servidor smtp ACBrMail1.IsHTML := true; if Femail.SSL then ACBrMail1.SetSSL := true; if Femail.TLS then ACBrMail1.SetTLS := true; para := LowerCase(edtEmail.Text); ACBrMail1.AddAddress(para, '...'); if AnexaArquivo then begin ACBrMail1.Subject := EdtAssunto.Text; ACBrMail1.AltBody.Add('Enviado Por / ' + Dados.qryEmpresaRAZAO.AsString); ACBrMail1.AltBody.Add(edtMensagem.Text); ACBrMail1.ClearAttachments; for i := 0 to LstAnexo.Items.Count - 1 do begin ACBrMail1.AddAttachment(LstAnexo.Items.Strings[i], vTituloAnexo); end; ACBrMail1.Send(false); end; quando tento enviar o email da esse erro: anexo

gero o xml para nfe complementar, acbr retorna Falha na validacao dos dados da nfe 28210240516057000162550010000000721675567073-nfe.xml

<xMotivo>Lote processado</xMotivo> <cUF>28</cUF> <dhRecbto>2021-01-27T15:49:59-03:00</dhRecbto> -<protNFe versao="4.00"> -<infProt> <tpAmb>2</tpAmb> <verAplic>SVRS202010271518</verAplic> <chNFe>28210140516057000162550010000000021851824098</chNFe> <dhRecbto>2021-01-27T15:49:59-03:00</dhRecbto> <digVal>mjHbeDDOhByv2pl4BzHAQJ2zJrA=</digVal> <cStat>351</cStat> <xMotivo>Rejeicao: Valor do ICMS da Operacao no CST=51 difere do produto BC e Aliquota</xMotivo> </infProt> </protNFe> </retConsReciNFe> segue o xml com a rejeicao 351 28210140516057000162550010000000021851824098-nfe.xml

pessoal desculpa nao haver com acbr, mas estou com esse problema e nao estou entendendo esse erro nessa consullta SQL.

tenho um cliente que recebeu um aviso sobre o convenio icms 100/97 segue a imagem! para sair no produto a Redução da Base de calculo nas saidas dos insumos agropecuarios meu codigo esta assim. case ICMS.CSOSN of csosn101:begin ICMS.orig := oeNacional; ICMS.pCredSN := 0.0; // Colocar o percentual do Crédito ICMS.vCredICMSSN := 0.0; // Colocar o valor do Crédito end; csosn102: begin ICMS.orig := oeNacional; end; csosn201: begin ICMS.orig := oeNacional; ICMS.modBCST := dbisMargemValorAgregado; ICMS.pMVAST := 0; ICMS.pRedBCST := 00.00; ICMS.vBCST := 0; ICMS.pICMSST := 00.00; ICMS.vICMSST := 0; ICMS.pCredSN := 0.0; // Colocar o percentual do Crédito ICMS.vCredICMSSN := 0.0; // Colocar o valor do Crédito end; csosn202: begin ICMS.orig := oeNacional; ICMS.modBCST := dbisMargemValorAgregado; ICMS.pMVAST := 0; ICMS.pRedBCST := 00.00; ICMS.vBCST := 0; ICMS.pICMSST := 00.00; ICMS.vICMSST := 0; end; csosn500: begin ICMS.orig := oeNacional; ICMS.vBCSTRet := 0; ICMS.vICMSSTRet:= 0; end; csosn900: begin ICMS.orig := oeNacional; ICMS.modBC := dbiValorOperacao; ICMS.vBC := Dados.qryNFCE_DBASE_ICMS.AsFloat; ICMS.pRedBC := dados.QRYNFCE_DP_REDUCAO_ICMS.AsFloat; ICMS.pICMS := Dados.QRYNFCE_DALIQ_ICMS.AsFloat; ICMS.vICMS := RoundTo((ICMS.vBC * ICMS.pICMS) / 100,-2); ICMS.modBCST := dbisMargemValorAgregado; ICMS.pMVAST := 0; ICMS.pRedBCST := 00.00; ICMS.vBCST := 0; ICMS.pICMSST := 00.00; ICMS.vICMSST := 0; ICMS.pCredSN := 0.0; // Colocar o percentual do Crédito ICMS.vCredICMSSN:= 0.0; // Colocar o valor do Crédito end; end; with ICMSUFDest do begin vBCUFDest := 0.00; pFCPUFDest := 0.00; pICMSUFDest := 0.00; pICMSInter := 0.00; pICMSInterPart := 0.00; vFCPUFDest := 0.00; vICMSUFDest := 0.00; vICMSUFRemet := 0.00; end; end; end; mas no xml nao sai o valor da reducao da base de calculo, esse convenio se aplica a NFCe?

era isso mesmo, estava com a uf incorreta, obrigado!!!!

ok, vou verificar, obrigado

sim, porque ele emite NFCe, so quando tenta inutilizar que da essa rejeicao

tenho um cliente, que esta acontecendo essa mensagem quando ele tenta inutilizar uma NFce isso so acontece quando ele vai inutilizar a NFCe, para envio esta tudo ok, cancelamento tbm tudo ok apenas para inutilizar aparece essa mensagem!

eu fiz assim e deu certo. ACBrCTe.Configuracoes.Geral.SSLLib := TSSLLib(dados.qryConfigTIPO_EMISSAO.Value); ACBrCTe.Configuracoes.Certificados.ArquivoPFX :=dados.qryConfigCAMINHO_CERTIFICADO.Value; ACBrCTe.Configuracoes.Certificados.NumeroSerie :=dados.qryConfigNUMEROSERIECERTFICADO.Value; ACBrCTe.Configuracoes.Certificados.Senha :=dados.qryConfigSENHACERTIFICADO.Value; ACBrCTe.Configuracoes.Arquivos.AdicionarLiteral:= true; ACBrCTe.Configuracoes.Arquivos.EmissaoPathCTe := true; ACBrCTe.Configuracoes.Arquivos.SepararPorMes := true; ACBrCTe.Configuracoes.Arquivos.SepararPorCNPJ := true; ACBrCTe.Configuracoes.Arquivos.PathEvento :=trim(dados.qryConfigPATH_EVENTO_CTE.Value); ACBrCTe.Configuracoes.Arquivos.PathSalvar :=trim(dados.qryConfigPATH_SALVAR_CTE.Value); ACBrCTe.Configuracoes.Arquivos.PathCTe :=trim(dados.qryConfigPATH_ENVIADAS_CTE.Value); ACBrCTe.Configuracoes.Arquivos.PathSchemas :=dados.qryConfigPATH_SCHEMA_CTE.Value; ACBrCTe.Configuracoes.Arquivos.PathInu := dados.qryConfigPATH_INU_CTE.Value; PathMensal := ACBrCTe.Configuracoes.Arquivos.GetPathCTe(0); case dados.qryConfigVERSAO_CTE.Value of 0: ACBrCTe.Configuracoes.Geral.VersaoDF := TVersaoCTe(0); 1: ACBrCTe.Configuracoes.Geral.VersaoDF := TVersaoCTe(1); end; ACBrCTe.Configuracoes.Geral.SSLCryptLib := TSSLCryptLib(dados.qryConfigCRYPTLIB.AsInteger); ACBrCTe.Configuracoes.Geral.SSLHttpLib := TSSLHttpLib(dados.qryConfigHTTPLIB.AsInteger); ACBrCTe.Configuracoes.Geral.SSLXmlSignLib := TSSLXmlSignLib(dados.qryConfigXMLSIGN.AsInteger); ACBrCTe.SSL.SSLType := TSSLType(dados.qryconfigSSL_TIPO.AsInteger); //ACBrCTe.SSL.CarregarCertificadoSeNecessario; ACBrCTe.Configuracoes.Arquivos.PathSalvar := PathMensal; ACBrCTe.DACTE.PathPDF := dados.qryConfigPATH_PDF_CTE.Value; // Configurações -> WebServices ACBrCTe.Configuracoes.WebServices.AguardarConsultaRet := 15; ACBrCTe.Configuracoes.WebServices.AjustaAguardaConsultaRet := true; ACBrCTe.Configuracoes.WebServices.IntervaloTentativas := 5; ACBrCTe.Configuracoes.WebServices.Tentativas := 15; ACBrCTe.Configuracoes.WebServices.UF := dados.qryConfigUF.Text; ACBrCTe.Configuracoes.WebServices.Visualizar := false; if dados.qryConfigVISUALIZAR.Value = 'S' then ACBrCTe.Configuracoes.WebServices.Visualizar := true; ACBrCTe.Configuracoes.WebServices.Salvar := false; // DAMDFe if ACBrCTe.DACTE <> nil then begin ACBrCTe.DACTE.PathPDF := dados.qryConfigPATH_PDF_CTE.Value; ACBrCTe.DACTE.ExpandeLogoMarca := false; ACBrCTe.DACTE.Logo := dados.qryConfigLOGOMARCA.Value; ACBrCTe.DACTE.TipoDACTE := StrToTpImp(Ok, IntToStr(1)); end; // ACBrCTe.Configuracoes.Arquivos.Salvar := true; ACBrCTe.Configuracoes.WebServices.Ambiente := taProducao; if dados.qryConfigAMBIENTE.Value = 1 then ACBrCTe.Configuracoes.WebServices.Ambiente := taHomologacao; ACBrCTeDACTeRL1.Sistema := dados.qryParametroEMPRESA.Value + ' | ' + dados.qryparametroFONE1.Value + ' ' + dados.qryparametroFONE2.Value; ACBrCTeDACTeRL1.Site := dados.qryparametroSITE.Value;

muito obrigado BigWings, deu certinho fiz isso agora ta ok!!!!

Porque tem o With sendo que identifica em cada linha o caminho completo? desculpa nessa linha e tinha esquecido de retirar. continua dando o mesmo erro Dadospfx, arquivoPFX, URLPFX ou numero do certificado de serie nao especificado, ACBrCTe.Configuracoes.Geral.SSLLib := TSSLLib(dados.qryConfigTIPO_EMISSAO.Value); ACBrCTe.Configuracoes.Geral.SSLCryptLib := TSSLCryptLib(dados.qryConfigCRYPTLIB.AsInteger); ACBrCTe.Configuracoes.Geral.SSLHttpLib := TSSLHttpLib(dados.qryConfigHTTPLIB.AsInteger); ACBrCTe.Configuracoes.Geral.SSLXmlSignLib := TSSLXmlSignLib(dados.qryConfigXMLSIGN.AsInteger); ACBrCTe.SSL.SSLType := TSSLType(dados.qryconfigSSL_TIPO.AsInteger); // certificado ACBrCTe.Configuracoes.Certificados.ArquivoPFX :=dados.qryConfigCAMINHO_CERTIFICADO.Value; ACBrCTe.Configuracoes.Certificados.NumeroSerie :=dados.qryConfigNUMEROSERIECERTFICADO.Value; ACBrCTe.Configuracoes.Certificados.Senha :=dados.qryConfigSENHACERTIFICADO.Value;

quando chamo essa funcao no form da erro de: Dadospfx,arquivoPFX, URLPFX ou numero do certificado de serie nao especificado, uso essa mesma funcao no ACBRNFe e carrega os dados do certificado certinho, ja no aCBRCTe e ACBRMDFe da essa mensagem de erro. ConfiguraMDFe; var Ok: Boolean; PathMensal: String; begin dados.qryConfig.Close; dados.qryConfig.Params[0].Value := dados.qryEmpresaCODIGO.Value; dados.qryConfig.Open; ACBrMDFe.Configuracoes.Certificados.VerificarValidade := true; // Configurações -> Arquivos ACBrMDFe.Configuracoes.Arquivos.AdicionarLiteral := false; ACBrMDFe.Configuracoes.Arquivos.EmissaoPathMDFe := true; ACBrMDFe.Configuracoes.Arquivos.SepararPorMes := true; ACBrMDFe.Configuracoes.Arquivos.PathMDFe := Trim(dados.qryConfigMDFE_PATH_MDFE.Value); ACBrMDFe.Configuracoes.Arquivos.PathEvento := Trim(dados.qryConfigMDFE_PATH_EVENTO.Value); ACBrMDFe.Configuracoes.Arquivos.PathSalvar := Trim(dados.qryConfigMDFE_PATH_SALVAR.Value); ACBrMDFe.Configuracoes.Arquivos.Salvar := true; ACBrMDFe.Configuracoes.Arquivos.PathSchemas := Trim(dados.qryConfigMDFE_PATH_SCHEMA.Value); PathMensal := ACBrMDFe.Configuracoes.Arquivos.GetPathMDFe(0); // Configurações -> Geral ACBrMDFe.Configuracoes.Geral.FormaEmissao := StrToTpEmis(Ok, IntToStr(0)); ACBrMDFe.Configuracoes.Geral.Salvar := true; case dados.qryConfigMDFE_VERSAO.Value of 0: ACBrMDFe.Configuracoes.Geral.VersaoDF := ve100; 1: ACBrMDFe.Configuracoes.Geral.VersaoDF := ve300; end; with acbrmdfe.Configuracoes.Geral do begin ACBrMDFe.Configuracoes.Geral.SSLLib :=TSSLLib(dados.qryConfigTIPO_EMISSAO.Value); ACBrMDFe.Configuracoes.Geral.SSLCryptLib :=TSSLCryptLib(dados.qryConfigCRYPTLIB.AsInteger); ACBrMDFe.Configuracoes.Geral.SSLHttpLib :=TSSLHttpLib(dados.qryConfigHTTPLIB.AsInteger); ACBrMDFe.Configuracoes.Geral.SSLXmlSignLib :=TSSLXmlSignLib(dados.qryConfigXMLSIGN.AsInteger); end; // Configurações -> Certificados ACBrMDFe.Configuracoes.Certificados.ArquivoPFX :=dados.qryConfigCAMINHO_CERTIFICADO.value; ACBrMDFe.Configuracoes.Certificados.NumeroSerie :=dados.qryConfigNUMEROSERIECERTFICADO.Value; ACBrMDFe.Configuracoes.Certificados.Senha :=dados.qryConfigSENHACERTIFICADO.Value; ACBrMDFe.Configuracoes.Arquivos.PathSalvar :=dados.qryConfigMDFE_PATH_SALVAR.Value; // Configurações -> WebServices ACBrMDFe.Configuracoes.WebServices.AguardarConsultaRet := 60; ACBrMDFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := false; ACBrMDFe.Configuracoes.WebServices.Ambiente := taProducao; if dados.qryConfigAMBIENTE.Value = 1 then ACBrMDFe.Configuracoes.WebServices.Ambiente := taHomologacao; ACBrMDFe.Configuracoes.WebServices.IntervaloTentativas := 5; ACBrMDFe.Configuracoes.WebServices.Tentativas := 1000; ACBrMDFe.Configuracoes.WebServices.UF := dados.qryConfigUF.Value; ACBrMDFe.Configuracoes.WebServices.Visualizar := false; if dados.qryConfigVISUALIZAR.Value = 'S' then ACBrMDFe.Configuracoes.WebServices.Visualizar := true; ACBrMDFe.Configuracoes.WebServices.Salvar := false; ACBrMDFe.Configuracoes.WebServices.ProxyHost := ''; ACBrMDFe.Configuracoes.WebServices.ProxyPort := ''; ACBrMDFe.Configuracoes.WebServices.ProxyUser := ''; ACBrMDFe.Configuracoes.WebServices.ProxyPass := ''; ACBrMDFe.SSL.SSLType := TSSLType(dados.qryconfigSSL_TIPO.AsInteger); // DAMDFe if ACBrMDFe.DAMDFe <> nil then begin ACBrMDFe.DAMDFe.PathPDF := PathMensal; ACBrMDFe.DAMDFe.ExpandeLogoMarca := false; ACBrMDFe.DAMDFe.Logo := dados.qryConfigLOGOMARCA.Value; ACBrMDFe.DAMDFe.MostraPreview := true; ACBrMDFe.DAMDFe.TipoDAMDFe := StrToTpImp(Ok, IntToStr(1)); end; ACBrMDFeDAMDFeRL1.Sistema := dados.qryEmpresaRAZAO.Value + ' | ' + dados.qryEmpresaFONE.Value; ACBrMDFeDAMDFeRL1.Site := dados.qryEmpresaSITE.Value;

eu fiz assim aqui no meu sistema if (Ide.idDest=doInterEstadual) and (Ide.indFinal=cfConsumidorFinal) then begin with ICMSUFdest do begin // partilha do ICMS e fundo de probreza vBCUFDest := ICMS.vBC; pFCPUFDest := 2; pICMSUFDest := ICMS.pICMS; pICMSInter := 12; pICMSInterPart := 100; vFCPUFDest := (vBCUFDest * pFCPUFDest)/100; vICMSUFDest := (vBCUFDest * (pICMSInterPart/100)); vICMSUFRemet := 0.00; TotFCP := TotFCP + vFCPUFDest; TotICMSUFDest := TotICMSUFDest + vICMSUFDest; TotICMSUFRemet:=0; end; end;

isso mesmo!!!

era isso mesmo, resolvir muito obrigado!!!!

tenho um cliente que esta dando essa rejeicao Total BC ICMS Difere do somatorio dos itens, sendo que um dia antes o cliente enviou outra nota com esses mesmo dados e passou normalmente. segue o xml 28200521461346000167550010000000501190478821-nfe.xml