reij

Desculpem incomodar mais é que não estou conseguindo achar no no manual mdfe é a questão do limite de mdfe que vai em cada manifesto porque de 22 nfe's que inseri apenas 17 foram pro xml então tive que gerar um novo manifesto com as outras 5 notas restantes queria saber se 17 é realmente o limie máximo por xml ou é questão de configuração mersmo

BigWings vc foi em cima da pereba, fica até de aviso pra quem usa fast report nativo do delphi ou compra licença ou usa fortes report caso contrario não vai funcionar com acbr

nenhuma diferença gritante veja Inicio xml meu aplicativo <?xml version="1.0" encoding="UTF-8"?> -<mdfeProc xmlns="http://www.portalfiscal.inf.br/mdfe" versao="1.00"> -<MDFe xmlns="http://www.portalfiscal.inf.br/mdfe"> -<infMDFe versao="1.00" Id="MDFe17160721249678000182580010000000111000000114"> -<ide> inicio xml sefaz <?xml version="1.0"?> -<mdfeProc versao="1.00" xmlns="http://www.portalfiscal.inf.br/mdfe"> -<MDFe xmlns="http://www.portalfiscal.inf.br/mdfe"> -<infMDFe versao="1.00" Id="MDFe17160721249678000182580010000000111000000114"> -<ide> final xml meu aplicativo -<protMDFe versao="1.00"> -<infProt Id="MDFe917160000269408"> <tpAmb>1</tpAmb> <verAplic>RS20160614102143</verAplic> <chMDFe>17160721249678000182580010000000111000000114</chMDFe> <dhRecbto>2016-07-04T14:27:24</dhRecbto> <nProt>917160000269408</nProt> <digVal>FzO7x3wjhucuj+lTQKaeNUYCgGM=</digVal> <cStat>100</cStat> <xMotivo>Autorizado o uso do MDF-e</xMotivo> </infProt> </protMDFe> </mdfeProc> final do xml sefaz -<protMDFe versao="1.00" xmlns="http://www.portalfiscal.inf.br/mdfe"> -<infProt Id="MDFe917160000269408"> <tpAmb>1</tpAmb> <verAplic>RS20160614102143</verAplic> <chMDFe>17160721249678000182580010000000111000000114</chMDFe> <dhRecbto>2016-07-04T14:27:24</dhRecbto> <nProt>917160000269408</nProt> <digVal>FzO7x3wjhucuj+lTQKaeNUYCgGM=</digVal> <cStat>100</cStat> <xMotivo>Autorizado o uso do MDF-e</xMotivo> </infProt> </protMDFe> </mdfeProc> so pra constar tanto o meu quanto o que eu baixei da sefaz aparecem que o mesmo problema creio que o problema seja alguma configuração pq não é possível ja setei até onumerodo protocolo e continua swaindo esses nomes de impressão em ambiente de homologação e mdfe cancelada mdfe previsão

Gente desinstalei e reinstalei o acbr e continua imprimindo como se estivesse em HOMOLOGAÇÃO(ESTÁ EM PRODUÇÃO) com as mensagens de MDF-E CANCELADO MDF-E PREVISAO alguém teria alguma ideia do que pode ser isto

Boa noite pessoa estou comum grande problema gerei um mdfe completamente valido(xml em anexo) e quando vou imprimir ele sai como mdfe cancelado ou mdfe previsão alguém poderia me dizer o que tenho feito errado pois analisando o xml ta tudo perfeito? obs: estou usando o esse código para imprimir sera que tem algum problema com ele com fast report nativo do delphi ACBrMDFeDAMDFEFR1.FastFile := 'C:\AdminDfe\Report\DAMDFe_Paisagem.fr3'; ACBrMDFeDAMDFEFR1.FastFileEvento := 'C:\AdminDfe\Report\EVENTOS_MDFE.fr3 '; ACBrMDFe1.Manifestos.Imprimir; agradeço aos amigos que puderem me ajudar pois tenho muita urgência em resolver este problema 17160721249678000182580010000000111000000114-mdfe.xml damdfe problematico.pdf

Gente alguem tem alguma ideia do que pode estar acontecendo pq gerei uma cte em produção usando o layout de cte basic so que quando vou imprimir ele aparece com a tarja de que que ou esta em homologação ou cancelado preciso de ajuda dos amigos

Desculpe se fui rude na replica é que isso ta me tirando o sono tanto que que acabei de criar uma rotina de insert/update pra ver se o problema ta na forma como estou trazendo estes dados

pergunta mais irrelevante se não sabe ou não quer responder não opine por favor pq falo de algo que tenho visto e gostaria de saber o porque ou se existe um porque?, comentários desse tipo são completamente desnecessário

gente ninguem temideia do porque de não importar notas de bonificação

boa tarde a todos, tenho um manifestador de notas fiscais e este manifestador faz a importação das notas até ai seria tudo perfeito se não fosse um problema notas de bonificação ele não importa alguém teria alguma ideia do que pode ser pq quando me falaram fiquei sem ideia do que poderia ser a causa do problema a sintaxe da baixa visualização das notas é esta CNPJ := dm.Empresa2CNPJ.AsString; case cbx_Indicador_NFe_Consultada.ItemIndex of 0 : IndNFe := '0' ; // 0 = Todas as NF-e 1 : IndNFe := '1' ; // 1 = Somente as NF-e que ainda não tiveram manifestação do destinatário // (Desconhecimento da operação, Operação não Realizada ou Confirmação da Operação) 2 : IndNFe := '2' ; // 2 = Idem anterior, incluindo as NF-e que também não tiveram a Ciência da Operação end ; case cbx_Indicador_Emissor.ItemIndex of 0 : IndEmi := '0' ; // 0 = Todos os Emitentes / Remetentes 1 : IndEmi := '1' ; // 1 = Somente as NF-e emitidas por emissores / remetentes que não tenham a mesma // raiz do CNPJ do destinatário (para excluir as notas fiscais de transferência entre filiais).*) end ; ultNSU := '' ; ultNSU := dm.empresa2ULTNSU.AsString; // ultNSU := '0'; Tem_Doctos := 'S' ; while Tem_Doctos = 'S' do begin Tem_Doctos := 'N' ; dm.ACBrNFe1.NotasFiscais.Clear ; dm.ACBrNFe1.EventoNFe.Evento.Clear ; dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Clear ; try dm.ACBrNFe1.ConsultaNFeDest(CNPJ, StrToIndicadorNFe(ok,indNFe), StrToIndicadorEmissor(ok,IndEmi), UltNSu) ; o restante do código creio que não seja preciso postar desde ja grato pela ajuda

alguem teriaalguma ideia de como atualizar o status de somente uma unica nota fiscal pois tem acontecido muito de emitirem a nfe e algumas horas depois o emitente cancela a nota e ai ela ja foi capturada pelo sistema e preciso alterar o status dela dinamicamente alguem teria alguma ideia de como fazer isto

boa-noite pessoal estou precisando tirar uma duvida com os amigos tenho esta rotina for i := 0 to dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do begin if Trim(dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe) <> '' then begin dm.XmlNfe.Insert; dm.XmlNfeCODXML.AsInteger := dm.Inc_Gen('GEN_XML_ID'); dm.XmlNfeFLAG.AsString := 'N' ; dm.XmlNfeNOME_RAZAO.AsString := dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.xNome; dm.XmlNfeCHAVE.AsString := dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe; dm.XmlNfeUF_ORIGEM.AsString := copy(dm.XmlNfeCHAVE.AsString,1,2); dm.XmlNfeCNPJ_CPF.AsString := dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.CNPJCPF; dm.XmlNfevalor.ascurrency:= dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.vNF; dm.xmlNfeINSC_EST.AsString:= dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.IE; dm.xmlNfeDT_EMISS.AsDateTime:= dm.ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dEmi; dm.XmlNfeDT_AUT.AsDateTime:= dm.ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dhRecbto; dm.XmlNfeTP_AMB_NFE.AsString := (VarToStr(dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.tpNF)); que uso na consulta de nfe do destinatário agora estava precisando atualizar o status de algumas notas porem preciso fazer issosomente comuma única nota de cada vez porem se uso sem o (VarToStr(dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.tpNF)); da erro algum dosamigos poderiam me dizer o que posso fazer pra resolver este problema desculpem não sei pq os ''s não apareceram for i := 0 to dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do begin if Trim(dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe) <> '' then begin dm.XmlNfe.Insert; dm.XmlNfeCODXML.AsInteger := dm.Inc_Gen('GEN_XML_ID'); dm.XmlNfeFLAG.AsString := 'N' ; dm.XmlNfeNOME_RAZAO.AsString := dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.xNome; dm.XmlNfeCHAVE.AsString := dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe; dm.XmlNfeUF_ORIGEM.AsString := copy(dm.XmlNfeCHAVE.AsString,1,2); dm.XmlNfeCNPJ_CPF.AsString := dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.CNPJCPF; dm.XmlNfevalor.ascurrency:= dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.vNF; dm.xmlNfeINSC_EST.AsString:= dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.IE; dm.xmlNfeDT_EMISS.AsDateTime:= dm.ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dEmi; dm.XmlNfeDT_AUT.AsDateTime:= dm.ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dhRecbto; dm.XmlNfeTP_AMB_NFE.AsString := (VarToStr(dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.tpNF)); dm.XmlNfeSIT_NFE.AsString := (VarToStr(dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.cSitNFe));

essa rotina é usada num manifestador

por favor seja mais explicito o que é manifestação de distribuição conheço manifestação de destinatário!

Bom dia a todos alguem poderia me dizer o que posso estar fazendo errado nesta sintaxe pois o sistema diz que o download foi feito equando vou procurar ele não fez download nenhum procedure TF_Importador.SpeedButton2Click(Sender: TObject); var i: Integer; begin //inicio dm.ACBrNFe1.NotasFiscais.Clear; configuracoes; dm.XmlNfe.DisableControls; Try //inicio do try begin dm.ACBrNFe1.DownloadNFe.Download.CNPJ := Dm.empresa2CNPJ.AsString; dm.XmlNfe.First; while not dm.XmlNfe.Eof do begin//begin while if dm.XmlNfeFLAG.AsString = 'M' then begin dm.ACBrNFe1.DownloadNFe.Download.Chaves.Add.chNFe := dm.xmlnfe.FieldByName('chave').AsString; Dm.XmlNfe.Edit; DM.XmlNfeIMPORTADA.AsString := 'S'; dm.XmlNfeFLAG.AsString := 'S'; dm.XmlNfeCAMINHO_XML.AsString := Trim(DM.empresa2CAMINHOXML.AsString); DM.XmlNfe.Post; end; dm.XmlNfe.Next; end; dm.ACBrNFe1.Download; // dm.ACBrNFe1.WebServices.DownloadNFe.Executar; DM.XmlNfe.ApplyUpdates(0); showmessage('Download concluido com sucesso em ' + DM.empresa2CAMINHOXML.AsString +'\'+dm.ACBrNFe1.DownloadNFe.Download.Chaves.Add.chNFe); end; except on e: exception do begin showmessage('Erro ao baixar nfe(s) '+#13+e.Message); end; end; //end while xmlempresa; dm.XmlNfe.EnableControls; end; //fim desde ja grato pela ajuda

Bom dia amigos Como manifestar uma nfe que ja aparece pra mim como cancelada desde ja grato pelaajuda

pelo delphi tem como fazer?

Boa tarde a todos existe alguma forma de fazer o download do xml sem ter que manifestar a nfe desde ja grato pela ajuda ficaria muito grato sealguem puder me ajudar

o que acontece é o seguinte estou verificando que ao fazer a consulta das nfes destinadas elas ja aparecem pra mim como se eu tivesse manifestado ciência da operação o que é bem estranho pois elas deveriam vir sem nenhuma manifestação do destinatário no caso eu então atualizei o acbrnfe aparentemente deixou de acontecer pelo menos nestes últimos 2 dias porem tenho um monte de notas que foram importadas ja com uma manifestação de "CIENCIA DA OPERAÇÃO" por parte da empresa sem que ninguém tenha manifestado nada foi bem estranho agora devo estar com umas 200 notas com esse status de ciência da operação sem que ninguém as tenha manifestado graças a Deus a grande maioria das notas fiscais realmente devem ser manifestadas porem se ocorrer algum problema não teria como explicar pois consultando as notas na sefaz verifiquei que a manifestação foi feita exatamente na hora que foram consultadas kkkk graças a Deus parou, agora é so pedir pra papai do céu pra que todas as remanescentes sejam manifestadas assim finalizo esta historia ps: não alterei nada do código que ja uso há anos apenas atualizei aversão do acbr e parou de ja chegarem manifestadas desde ja grato a todos pela ajuda

Boa tarde a todos estou tendo alguns problemas e duvidas com meu importador nfe e o mais estranho é que ele esta fazendo a consulta de nfe destinadas e elas ja vem com "CIENCIA DA OPERAÇÃO" como faz tempo que não mexia com ele e fiquei curioso porque antes vinham sem manifestação nenhuma

gente descobri onde estava o problema estava no path do pdf que estava em branco

na minha maquina com windows 10 e delphi funciona ja na maquina do cliente e na maquina virtual com ambas windows 7 não funciona

Acabei de atualizar o ACBR e continua o mesmo erro

Gente alguém teria alguma ideia do que pode estar acontecendo em um cliente meu que ao enviar nfe da a mensagem "unable to create directory" asintaxe que estou usando é essa var Mensagem: Tstrings; Assunto, Endereco: string; begin F_Nfe.ACBrNFe1.NotasFiscais.Clear; F_Nfe.ACBrNFe1.NotasFiscais.LoadFromFile(EdtArquivo.Text); F_Nfe.ACBrNFeDANFEFR1.FastFileEvento := 'C:\Admin\Projeto\Report\EVENTOS.fr3'; F_Nfe.ACBrNFeDANFEFR1.FastFile := 'C:\Admin\Projeto\Report\DANFeRetrato_Basic.fr3'; mensagem := TStringList.Create; Endereco := edtPara.Text; //especifique um email válido mensagem.add('nfe emitdas'); Assunto :='Envio de XML-NFE'; acbrmail1.Host := F_Nfe.edtSmtpHost.Text; acbrmail1.port := F_Nfe.edtSmtpPort.Text; acbrmail1.Username:= F_Nfe.edtSmtpUser.Text; acbrmail1.Password := F_Nfe.edtSmtpPass.Text; acbrmail1.From := F_Nfe.edtSmtpUser.Text; if F_Nfe.cbEmailSSL.Checked = true then // SSL - Conexão Segura then begin acbrmail1.SetSSL := True end else begin acbrmail1.SetSSL := False; end; ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email ACBrMail1.UseThread := False; //Aguarda Envio do Email(não usa thread) ACBrMail1.FromName := F_Nfe.edtSmtpHost.Text; F_Nfe.ACBrNFe1.MAIL := ACBrMail1; F_Nfe.ACBrNFe1.NotasFiscais.Items[0].EnviarEmail( Endereco //Lista com emails que serão enviado cópias - TStrings ,Assunto ,mensagem ,True //Enviar PDF junto ,nil // Lista de anexos - TStrings ,nil //Pede confirmação de leitura do email ); Mensagem.Free; na minha maquina funciona sem problemas porem quando tento enviar la no cliente da a mensagem unable to create directory não tenho ideia do que pode ser o erro, alguém poderia me dar uma dica de como resolver isto

Julimar uanto a consulta já sabia que cada loop percorria 50 mil notas agora pra manifestar o máximo é 50 por vez ja não sabia obrigado