joveci guedes de almeida

Bom dia ... No meu caso a UF estava vazia pq eu esqueci de colocar a TAG UF do meu estado que e Alagoas with ACBrMDFe1.Manifestos.Add.MDFe do begin Ide.cUF := 27; ----> coloquei aqui o codigo do meu estado como eu so trabalho com cliente daqui coloquei direto o codigo se futuramente aparacer cliente de outros estados ai eu vou buscar na minha tabela. Ide.tpEmit := teTransportadora ; // QLancamanifesto.fieldbyname('codtranspmanifesto').AsString ; Ide.modelo := '58'; Ide.serie := 1; Ide.nMDF := StrToInt(QLancamanifestoCODIGOMANIFESTO.AsString); //StrToIntDef(NumMDFe, 0); Ide.cMDF := 1; // Código Aleatório

Cinsegui tesolver

Bom dia.. segue a baixo a rotina ja depurei e nao estou conseguindo resolver o erro pq esta dando uf nao pode ser vazia.. quando estou tentando fazer o encerramento da MDFe blz galera .. with ACBrMDFe1.EventoMDFe.Evento.Add do begin infEvento.chMDFe := Copy(ACBrMDFe1.Manifestos.Items[0].MDFe.infMDFe.ID, 5, 44); infEvento.CNPJ := query3.fieldbyname('CNPJ').asstring; infEvento.dhEvento := now; infEvento.tpEvento := teEncerramento; infEvento.nSeqEvento := 1; infEvento.detEvento.nProt := ACBrMDFe1.Manifestos.Items[0].MDFe.procMDFe.nProt; infEvento.detEvento.dtEnc := Date; infEvento.detEvento.cUF := StrToInt(QLancamanifesto.fieldbyname('IBGE_ORIGEM').asstring) ; infEvento.detEvento.cMun := StrToInt(QLancamanifesto.fieldbyname('COD_MUNICIPIO_IBGE_ORIGEM').asstring); //infEvento.detEvento.cUF := StrToInt(Copy(IntToStr(ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga),1,2)); //infEvento.detEvento.cMun := ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga; end; ACBrMDFe1.EnviarEvento( 1 ); // 1 = Numero do Lote

Estou gerando o xml da MDFe e nesta parte esta dando o erro.. Emit.EnderEmit.cMun := StrToInt(query3.fieldbyname('COD_MUNICIPIO_IBGE').asstring); is not a valid integer value

Bom dia galera.. os schemas estao atualizados e mesmo assim nao aparece a tag vdesc no xml blz tambem nao consegui achar essa propriedade no acbnfe1ACBrNFe1.Configuracoes.Geral.CamposFatObrigatorios se foi isso que entendi aqui no forum pra habiliatar

Consegui resolver faltou preencher nas propriedades do acbrnf _Mask_qCom ###,###,###,##0.00 _Mask_vUnCom ###,###,###,##0.00 fastfile C:\Sac\server\danfe\DANFeRetrato.fr3 Resolvido vlw Luiz .

Consegui resolver faltou preencher nas propriedades do acbrnf _Mask_qCom ###,###,###,##0.00 _Mask_vUnCom ###,###,###,##0.00 fastfile C:\Sac\server\danfe\DANFeRetrato.fr3 Resolvido vlw galera..

Pessoal estou com um pequeno problema a danfe e autorizada o xml esta tudo certo ja peguei o xml e testei no danfe online e gera certinho o pdf so que no meu sistema ele gera o danfe sem a quantidade e sem o valor unitario eu uso o fastreport 5 o trunk2 na propriedade acbrnfe1 ja olhei e esta com ImprimirUnQtVlComercial e nada.

este arquivo aqui fastreport5 DANFeNFCe4_20.fr3

Pessoal estou com pequeno problema emiti uma nota nfce em producao e a primeira nota do meu sistema em producao ela foi autorizada esta ok ja fiz a consulta mais quando imprimi sai nota em contigencia estou enviando o xml e o pdf pra se alguem poder analizar e mim dizer se tem alguma coisa errada blz 27180513483857000151650020000000019000000014-nfe.xml 27180513483857000151650020000000019000000014-nfe.pdf

Brother pra finalizar eu coloquei DANFENFCe4_20.fr3 mais continua saindo a menssagem em contingencia se poder da uma olhada nesse xml aqui e veja se esta ok pq tenho que lnstalar ate amanha esse sistema vlw ai 27180513483857000151650020000000019000000014-nfe.xml

blz vou testar agora estou usando usando sim fastrepor assim que testar lhe aviso vlw

Entendi mais esse danfenfce eu peguei do svn trunck2 tem algum mais recente so Detalhe nao estou usando nenhuma imprssora to jogadando a venda pra um txt pq estou sem a imprssora depois ele eu gero o pdf tem aguma coisa haver pq nao estou usando a imprssora ele esta reclamando de problemas tecnicos

Vlw mesmo era isso atualizei os Schemas e a nota foi autorizada so mais uma coisa enviei a nota nfce ele foi autorizada certinha blz mais o danfe so imprimi nota em contigencia tem alguma ideia vlw segue o pdf e o xml autorizado 27180513483857000151650020000000019000000014-nfe.pdf 27180513483857000151650020000000019000000014-nfe.xml

Pessoal boa tarde estou enviando esta nota da nfce em producao e a primeira nota em producao e estou deparando com este erro se alguem aqui ja viu este erro pode mim dar alguma ideia como resolvo segue abaixo o xml e o erro blz. 27180513483857000151650020000000019000000014-nfe.xml

Boa tarde pessoal uma duvida retornei agora pra finaliza a nota em contigencia ate ai tudo bem quando a nota e enviada em coontigencia e depois que a internet estiver ok eu vou enviar a nota pra sefaz primeiro eu carrego o xml assino valido e envio nao e isso e qual o status que eu coloco esta nota

Luciano de Oliveira cara muito obg sua dica foi show vlw

bom dia juliomar e hleorj eu uso fastreport 4.0 ajude ai por favor vlw

Juliomar segue meu xml e o pdf gerado como vc mim pediu ... desde ja agradeco 27180413483857000151550010000001731000001734-nfe.xml 27180413483857000151550010000001731000001734-nfe.pdf

Pessoal a nota e autorizada pela sefaz gera o xml correto mais quando imprimi o danfe nao aparece a qtde e valor unitario na nota ja fui na propriedade e ja alterei e continua sem a paracer a qtde e o valor o unitario por favor alguem mim ajude ai. Ai eu pego o xml abro ele pelo site danfe online e este site gera o danfe correto. desde ja agradeco

Pessaoal estou tentando impimir um relatorio por data mais quando coloco data inicial e final sempre sair todos os registro nao sai somente a data que eu quero coloquei aqui em baixo a minha rotina o que esta errado alguem pode mim ajudar. agradeco desde ja.. if cbb_ordem.ItemIndex = 0 then ordem := 'data'; if cbb_ordem.ItemIndex = 1 then ordem := 'codcliente'; if cbb_relatorio.itemindex = 0 then begin qrrelorcamento.close; qrrelorcamento.sql.clear; qrrelorcamento.SQL.add('select * from c000056 where data BETWEEN :datai and :dataf order by ' + ordem); qrrelorcamento.params.ParamByName('datai').asdatetime := edtinicio.date; qrrelorcamento.params.ParamByName('dataf').asdatetime := edtfinal.date; qrrelorcamento.open; FRMMODULO.QRRELATORIO.FIELDBYNAME('LINHA2').ASSTRING := 'PERIODO: ' + edtinicio.TEXT + ' A ' + edtfinal.TEXT; frxrelorcamento.LoadFromFile('\Sac\server\rel\f00069A.fr3'); frxrelorcamento.ShowReport; end;

Queria saber se posso instalar fastreport 5 sem remover o fastreport4 pq tenho muitos relatorios que usa o fast4 ou se vc s podem mim mandar o danfenfce.fr3 para fastreport 4 pq o que achei nao consegui instalar agradeco se alguem mim ajudar..

Estou no ambiente de homologacao e esta dando essa mensagem csc e idcsc estao ok veriquei ja fiz de tudo por favor alguma ideia preciso homologar segue o xml pra alguem ver o que esta errado desde ja agradeco . Mensagen de erri : Codigo de Hash no QR-code defere o calculado 27180313483857000151650020000000011000000011-nfe.xml

// como faco pra colocar em contigencia alguem por favor pode ajudar ;;; try ACBRNFCe.NotasFiscais.clear; Imprime_display(' AGUARDE... GERANDO NFC-E', CLWHITE, tiLivre); grid.Repaint; GerarNFCe(vAux); Imprime_display(' AGUARDE... ENVIANDO NFC-E', CLWHITE, tiLivre); grid.Repaint; ACBRNFCe.NotasFiscais.Assinar; ACBRNFCe.NotasFiscais.Validar; ACBRNFCe.Enviar(vNumLote, false, Sincrono); if ACBRNFCe.NotasFiscais.Items[0].Confirmada then begin If ACBRNFCe.WebServices.Enviar.cStat = 100 then begin cStatus := 100; ChaveNFCE := ACBRNFCe.NotasFiscais.Items[0].NFe.infNFe.Id; NumeroNFCe := strtoint(vAux); end; end else begin Imprime_display(ACBRNFCe.WebServices.Enviar.xMotivo, CLWHITE, tiLivre); end; Imprime_display(' AGUARDE... GERANDO QRCODE DA NFC-E', CLWHITE, tiLivre); grid.Repaint; //GerarQrCode; ACBRNFCe.Configuracoes.Geral.IncluirQRCodeXMLNFCe := True; Zint.Barcode.Data := MemoDados.text; bc := TBitmap.create; Zint.Barcode.GetBarcode(bc); bc.SaveToFile('C:\Sac\PDV\xml\qrcode' + copy(ChaveNFCE, 4, 47) + '.bmp'); FreeAndNil(bc); // ACBRDANFENFCe.FastFile := 'C:\Sac\PDV\Schemas\DANFeNFCe.fr3'; if FileExists(frmPrincipal.LerINi(sConfiguracoes, 'PDV', 'CAMINHO_LOGO', '')) then ACBRDANFENFCe.Logo := frmPrincipal.LerINi(sConfiguracoes, 'PDV', 'CAMINHO_LOGO', ''); ACBRDANFENFCe.Detalhado := true; ACBRDANFENFCe.vTroco := ed_troco.value; ACBRNFCe.NotasFiscais.Imprimir; ACBRNFCe.NotasFiscais.clear; if cStatus = 100 then nfce_autorizada := true else nfce_autorizada := false; except on e: exception do begin application.messagebox(pwidechar('Erro na geração da NFCE' + #13 + 'Erro: ' + e.Message), 'Erro', mb_ok + MB_ICONERROR); nfce_autorizada := false; end;