EduXml

Bom dia existe tantas informações onde se mistura NFe e NFce que ficou uma dúvida: A partir de 1 de outubro somente NFCe(simples ou não) será obrigado a enviar os novos campos(IBS, CBS, etc)? No demo da Acbr ainda continua dando erro de IBS e CBS o problema continua na Sefaz SP ? Desde já agradeço

Opa resolvido, fiz atualização do Acbr funcionou perfeitamente. Muito obrigado a todos

Fiz uma atualização do Acbr no mês 08 , vou fazer novamente e testar.

Boa Tarde tenho essa função para ler os xmls porém sempre quando atinge por volta dos 4000 xmls lidos apresenta error memory allocation failed quando tenta carregar um novo xml. Já tentei colocar o componente AcbrNfce direto na tela também não adiantou. Desde já agradeço qualquer ajuda function TForm2.SomarXmlsNfce(datai, dataf: Tdate; pdv: integer):Boolean; var listadir : TStringList; numeronfc, camxmls : string; i,id : integer; valornfce, valdesconto, acrescimo, valortotal : Currency; ok : Boolean; dataii : Tdate; NFeXml : TACBrNFe; begin try dataii := datai; while dataii <= dataf do begin NFeXml := TACBrNFe.Create(Application); listadir := TStringList.Create; try camxmls := Camexe + '/cfesfisco/' + FormatDateTime('yyyymm', dataii) + '/' + 'sat' + FormatFloat('##000', pdv); try DirList(camxmls + '/*-nfe.xml',listadir); if listadir.Count > 0 then begin valornfce := 0; valdesconto := 0; acrescimo := 0; valortotal := 0; JvSpecialProgress1.Maximum := listadir.Count; for i := 0 to listadir.Count - 1 do begin try JvSpecialProgress1.Position := JvSpecialProgress1.Position + 1; ok := true; try NFeXml.NotasFiscais.Clear; NFeXml.NotasFiscais.LoadFromFile(camxmls + '/' + listadir[i]); except ok := false; end; if ok then begin if ok then begin JvSpecialProgress1.Caption := 'PDV' + FormatFloat('##000', pdv) + ' ' + FormatDateTime('dd/MM/YYYY', dataii) + ' - ' + listadir.Strings[i]; valornfce := NFeXml.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF; valortotal := valortotal + valornfce; for id := 0 to NFeXml.NotasFiscais.Items[0].NFe.Det.Count - 1 do begin ValDesconto := ValDesconto + NFeXml.NotasFiscais.Items[0].NFe.Det.Items[id].Prod.vDesc; Acrescimo := Acrescimo + NFeXml.NotasFiscais.Items[0].NFe.Total.ICMSTot.vOutro; end; end; end; finally end; end; end; except on E: Exception do ShowMessage('Erro: ' + E.Message ); end; finally FreeAndNil(listadir); FreeAndNil(NFeXml); JvSpecialProgress1.Position := 0; JvSpecialProgress1.Caption := ''; dataii := dataii + 1; end; end; finally end; end;

A solução para a consulta do status do serviço para NFCe foi trocando o certificado para um A1. O outro certificado era um A1 na nuvem para NFe a consulta do status do serviço funciona.

Agora acertei o ncm mas continua o erro, testei no validador do RS 35230656046576000144650010000000011431293461-nfe.xml

Acabei de consultar consta como credenciada

Desde já agradeço. Emissor não habilitado para NFC-e estranho ontem entrei no https://www.nfce.fazenda.sp.gov.br/NFCeSiteContribuinte/Secure/CredenciamentoVoluntario.aspx e fiz o credenciamento. A empresa pode se cadastrar como emissor de Nfe e Nfce ?

35230656046576000144650010000000011749146431-nfe.xml Sim anexo mas apresenta erro

Boa Tarde Estou tentando emitir uma Nfce em homologação pelo AcbrNfe_Exemplo mas apresenta erro tanto na consulta status como envio, o certificado que estou usando é o que fica em nuvem, para Nfe funciona perfeitamente. Segue abaixo telas dos erros.

Resolvido através do HTTP Segue código abaixo function ObterToken():integer; var HTTPClient: TIdHTTP; SSLIOHandler: TIdSSLIOHandlerSocketOpenSSL; url,json: string; JsonStreamRetorno, JsonStreamEnvio: TStringStream; retorno : integer; begin url := 'https://mtls-mp.hml.flagship.maas.link/auth/realms/Matera/protocol/openid-connect/token'; HTTPClient := TIdHTTP.Create(nil); HTTPClient.Request.CharSet := 'utf-8'; HTTPClient.Request.Accept := '*/*'; HTTPClient.Request.AcceptEncoding := 'gzip, deflate, br'; HTTPClient.Request.CustomHeaders.Values['Content-Type'] := 'application/x-www-form-urlencoded'; HTTPClient.HTTPOptions := [hoKeepOrigProtocol, hoInProcessAuth]; HTTPClient.HandleRedirects := True; json:= 'grant_type=client_credentials&client_id=teste&client_secret=123456789'; //aqui era o maior problema JsonStreamEnvio := TStringStream.Create(utf8Encode(json)); JsonStreamRetorno := TStringStream.Create(''); SSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); try SSLIOHandler.SSLOptions.Mode := sslmUnassigned; SSLIOHandler.SSLOptions.CertFile := 'd:\matera\novo\certificate.pem'; SSLIOHandler.SSLOptions.KeyFile := 'd:\matera\novo\certificate.key'; SSLIOHandler.SSLOptions.SSLVersions := [sslvTLSv1,sslvTLSv1_1,sslvTLSv1_2]; HTTPClient.IOHandler := SSLIOHandler; try HTTPClient.Post(url, JsonStreamEnvio, JsonStreamRetorno); except retorno := HTTPClient.ResponseCode; end; retorno := HTTPClient.ResponseCode; if retorno = 200 then begin JsonStreamRetorno.SaveToFile('d:\token.json'); end; finally HTTPClient.Free; SSLIOHandler.Free; end; end; Obrigado Pessoal.

Resolvido Segue código abaixo function ObterToken():integer; var HTTPClient: TIdHTTP; SSLIOHandler: TIdSSLIOHandlerSocketOpenSSL; url,json: string; JsonStreamRetorno, JsonStreamEnvio: TStringStream; retorno : integer; begin url := 'https://mtls-mp.hml.flagship.maas.link/auth/realms/Matera/protocol/openid-connect/token'; HTTPClient := TIdHTTP.Create(nil); HTTPClient.Request.CharSet := 'utf-8'; HTTPClient.Request.Accept := '*/*'; HTTPClient.Request.AcceptEncoding := 'gzip, deflate, br'; HTTPClient.Request.CustomHeaders.Values['Content-Type'] := 'application/x-www-form-urlencoded'; HTTPClient.HTTPOptions := [hoKeepOrigProtocol, hoInProcessAuth]; HTTPClient.HandleRedirects := True; json:= 'grant_type=client_credentials&client_id=teste&client_secret=123456789'; //aqui era o maior problema JsonStreamEnvio := TStringStream.Create(utf8Encode(json)); JsonStreamRetorno := TStringStream.Create(''); SSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); try SSLIOHandler.SSLOptions.Mode := sslmUnassigned; SSLIOHandler.SSLOptions.CertFile := 'd:\matera\novo\certificate.pem'; SSLIOHandler.SSLOptions.KeyFile := 'd:\matera\novo\certificate.key'; SSLIOHandler.SSLOptions.SSLVersions := [sslvTLSv1,sslvTLSv1_1,sslvTLSv1_2]; HTTPClient.IOHandler := SSLIOHandler; try HTTPClient.Post(url, JsonStreamEnvio, JsonStreamRetorno); except retorno := HTTPClient.ResponseCode; end; retorno := HTTPClient.ResponseCode; if retorno = 200 then begin JsonStreamRetorno.SaveToFile('d:\token.json'); end; finally HTTPClient.Free; SSLIOHandler.Free; end; end; Obrigado Pessoal.

Olá pessoal Executo no Rest Debugger um post para geração de um token na Api ele pede a confirmação do certificado e funciona, porém quando passo os componentes para o Form não funciona(procedimento efetuado através do Copy Components). Quando ResTRequest1.execute não aparece a tela pedindo o certificado e apresenta erro. Desde já agradeço. Segue abaixo as telas :

Opa segue o link completo da Api Desde já agradeço http://doc-api.matera.com/mp_server.html

Opa segue p link da api no Postman https://ipflagship.freshdesk.com/support/solutions/articles/67000719185