Leao

Alguém, se abilita, a corrigir. Obrigado, Leão

Cara, essa unit ACBrEFDConversao.pas, não existe no meu computador, uso nf-e, boleto e agora spedfiscal. E agora? Obrigado, Leão

Alex, agradeço, Declarei no USES ACBrEFDConversao, o delphi7, informa, que não encontrou te pergunto é preciso instalar algum componente referente ao mesmo? Aguardo e obrigado, Leão

Não dar certo.

Olá pessoal, No registro D100New, o campo IND_OPER:= informou 0(zero) e informa erro variavel impativel. o que informar nesse campo? estar assim na unit ACBrEFDBloco_D_Class.pas: (linha 586) Add( LFill('D100') + LFill( Integer(IND_OPER), 0 ) + LFill( Integer(IND_EMIT), 0 ) + o próximo campo deverá ocorrer o mesmo erro. Já houve alguma correção, no Bloco D? with RegistroD100New do begin IND_OPER:= IND_EMIT:= StrToinT(TabGlobal.DConh_transp.IND_EMIT.Conteudo); COD_PART:= TabGlobal.DConh_transp.COD_FORN.ValorString; COD_MOD:= TabGlobal.DConh_transp.MODELO.Conteudo; COD_SIT:= StrToInt(TabGlobal.DConh_transp.COD_SIT.Conteudo); SER:= TabGlobal.DConh_transp.SERIE.Conteudo; SUB:= TabGlobal.DConh_transp.SUBSERIE.Conteudo; NUM_DOC:= TabGlobal.DConh_transp.NF.Conteudo; CHV_CTE:=TabGlobal.DConh_transp.CHV_CTE.Conteudo; DT_DOC:= TabGlobal.DConh_transp.DATA_EMISSAO.Conteudo; DT_A_P:= TabGlobal.DConh_transp.DATA_ENTRADA.Conteudo; TP_CT_e:= TabGlobal.DConh_transp.TP_CT_E.Conteudo; CHV_CTE_REF:=TabGlobal.DConh_transp.CHV_CTE_REF.Conteudo; VL_DOC:= TabGlobal.DConh_transp.VALOR_TOTAL.Conteudo; VL_DESC:=0; if TabGlobal.DConh_transp.IND_FRT.Conteudo='0' then IND_FRT:=tfPorContaTerceiros else if TabGlobal.DConh_transp.IND_FRT.Conteudo='1' then IND_FRT:=tfPorContaEmitente else if TabGlobal.DConh_transp.IND_FRT.Conteudo='2' then IND_FRT:=tfPorContaDestinatario else if TabGlobal.DConh_transp.IND_FRT.Conteudo='9' then IND_FRT:=tfSemCobrancaFrete; VL_SERV:=TabGlobal.DConh_transp.VALOR_TOTAL.Conteudo; VL_BC_ICMS:=TabGlobal.DConh_transp.VALOR_BA_CAL_ICMS.Conteudo; VL_ICMS:=TabGlobal.DConh_transp.VALOR_ICMS.Conteudo; VL_NT:=TabGlobal.DConh_transp.VALOR_ISEN_NAO_TRIB.Conteudo; COD_INF:=TabGlobal.DConh_transp.COD_INF.Conteudo; COD_CTA:=TabGlobal.DConh_transp.COD_CTA.Conteudo; end; // registroD100new Obrigado, Leão

Obrigado, porém, não dar certo, porque a chave no emissor gratuito, a chave é gerada aleatóriamente, e no meu fonte delphi7, é a mesma chave da nf-e. Fiz assim, Importar TXT/XML, ele pega a chave e grava no meu db. DNF.Modifica; DNF.SITUACAO.Conteudo :='AUTORIZADA'; // DNF.RECIBO_NFE.Conteudo := DNF.NUMERO_NFE.Conteudo :=procNFe.chNFe; DNF.NUMERO_PROTOCO.Conteudo:=procNFe.nProt; DNF.HORA_AUTORI.Conteudo :=DateTimeToStr(procNFe.dhRecbto); DNF.CSTAT.Conteudo :='100'; DNF.Salva; Obrigado, Leão

por favor, alguém sabe tirar essa dúvida? Obrigado, Leão

Régis, ao clicar no botão Criar\Enviar, estar ocorrendo a mesma mensagem de erro Na mesma tela mostra o número do certificado e senha e mostra normalmente ShowMessage('Certificado...:'+ACBrNFe1.Configuracoes.Certificados.NumeroSerie+#13+ ' Senha...: '+ACBrNFe1.Configuracoes.Certificados.Senha); Consulta usando o status serviço e mostra em operação normalmente. O que pode ser Obrigado, Leão Peço desculpa, falta enviar... try ACBrNFe1.Enviar(StrToInt(vNumLote)); except on e: Exception do ShowMessage('Falha ao enviar...: '+ e.Message); end; obrigado,

Obrigado pela resposa, pequena dúvida. no cNF, passo a chave completa do certificado ou de 1 até 8 copy(chave,1,8) ? e o digito como passo esse parametro? · cNF - Código Numérico que compõe a Chave de Acesso //Diminuiu um dígito. De 9 passou para 8. · cDV - Dígito Verificador da Chave de Acesso estou usando o NotaUtil.ChaveAcesso para gerar a chave, existe outra forma? Obrigado, Leão

Preciso processar meu db, e criar as chaves de acessos para cada nf-e, estava usando o emissor gratuito do governo, e para criar o sped fiscal precisa da chave, estou usando a função abaixo, tenho uma dúvida: vNumero := NotaUtil.Poem_Zeros(ANumero, 9); é o número da nf vCodigo := NotaUtil.Poem_Zeros(ACodigo, 9); vCodigo a quem refere? Gerei a chave usando os parametros mas deu diferente. Comparo com a emitida pelo emissor do governo gratuito. class function NotaUtil.ChaveAcesso(AUF: Integer; ADataEmissao: TDateTime; ACNPJ: String; ASerie, ANumero, ACodigo: Integer; AModelo: Integer): String; var vUF, vDataEmissao, vSerie, vNumero, vCodigo, vModelo: String; begin vUF := NotaUtil.Poem_Zeros(AUF, 2); vDataEmissao := FormatDateTime('YYMM', ADataEmissao); vModelo := NotaUtil.Poem_Zeros(AModelo, 2); vSerie := NotaUtil.Poem_Zeros(ASerie, 3); vNumero := NotaUtil.Poem_Zeros(ANumero, 9); vCodigo := NotaUtil.Poem_Zeros(ACodigo, 9); Result := vUF+vDataEmissao+ACNPJ+vModelo+vSerie+vNumero+vCodigo; Result := Result+NotaUtil.Modulo11(Result); end; Ou se alguém tiver outra função para criar-la, de já agradeço. Obrigado, Leão Denunciar esta mensagem

Preciso processar meu db, e criar as chaves de acessos para cada nf-e, estava usando o emissor gratuito do governo, e para criar o sped fiscal precisa da chave, estou usando a função abaixo, tenho uma dúvida: vNumero := NotaUtil.Poem_Zeros(ANumero, 9); é o número da nf vCodigo := NotaUtil.Poem_Zeros(ACodigo, 9); vCodigo a quem refere? Gerei a chave usando os parametros mas deu diferente. Comparo com a emitida pelo emissor do governo gratuito. class function NotaUtil.ChaveAcesso(AUF: Integer; ADataEmissao: TDateTime; ACNPJ: String; ASerie, ANumero, ACodigo: Integer; AModelo: Integer): String; var vUF, vDataEmissao, vSerie, vNumero, vCodigo, vModelo: String; begin vUF := NotaUtil.Poem_Zeros(AUF, 2); vDataEmissao := FormatDateTime('YYMM', ADataEmissao); vModelo := NotaUtil.Poem_Zeros(AModelo, 2); vSerie := NotaUtil.Poem_Zeros(ASerie, 3); vNumero := NotaUtil.Poem_Zeros(ANumero, 9); vCodigo := NotaUtil.Poem_Zeros(ACodigo, 9); Result := vUF+vDataEmissao+ACNPJ+vModelo+vSerie+vNumero+vCodigo; Result := Result+NotaUtil.Modulo11(Result); end; Ou se alguém tiver outra função para criar-la, de já agradeço. Obrigado, Leão

Olá, Sobre nf-e, cancelada entra no sped fiscal, se sim, como diferenciar? Obrigado, Leão

Régys, Muito obrigado por mais esta. Leão

Régis, obrigado, Agora outra pergunta, o componente ACBrNFe.assinar, pode gerar a chave da nf-e, exatamente igual a das já emitidas? Pois preciso gerar essa chave nos movimento anteriores, meu db não tem essa chave, quais são os parametros para gerar a chave? Obrigado, Leão

Olá, Estou iniciando a gerar o sped fiscal, e estou com uma dúvida, é preciso informar a chave da nf-e, em algum instante da geração do sped fiscal? Uso o emissor gratuito do governo, e não tenho essa informação no meu bd. Obrigado, Leão

sim. Rapaz, na verdade era a sefaz, passei a manhã toda testando, depois descobrir ninguém estava conseguindo enviar-las. Agradeço a todos Obrigado. Leão

Em anexo o .xml NFe sem autorização de Uso da SEFAZ Agradeço e obrigado, Leão 21111005517740000113550010000067061000067063-nfe.xml

Agradeço a todos, mas de fato o meu campo era tipo alfanumerico então : DNF.HORA_AUTORI.Conteudo :=DateToStr(ACBrNFe1.NotasFiscais.Items.NFe.procNFe.dhRecbto); Obrigado, Leão

Espeficamente qual? Realmente o meu campo alfanumerico, então: DNF.HORA_AUTORI.Conteudo :=DateToStr(ACBrNFe1.NotasFiscais.Items.NFe.procNFe.dhRecbto);

Sábado estava emitindo nf-e, normalmente, hoje ao Criar\Enviar, estar ocorrendo essa mensagem O documento XML deve ter um elemento de nível superior A pagina XML nao pode ser exibida Não é possível exibir a entrada XML usando a folha de estilos . Corrija o erro e clique no botao Atualizar ou tente novamente mais tarde. -------------------------------------------------------------------------------- O documento XML deve ter um elemento de nível superior. Erro ao processar o recurso file:///D:/NOVO/Gerente_nfetemp.xml. Ao imprimir a nf-e, a taja informando : NFe sem autorizada pela sefaz de USO da SEFAZ Alguém sabe o que é isto? Agradeço e aguardo Leão

Sábado estava emitindo nf-e, normalmente, hoje ao Criar\Enviar, estar ocorrendo essa mensagem O documento XML deve ter um elemento de nível superior A página XML não pode ser exibida Não é possível exibir a entrada XML usando a folha de estilos . Corrija o erro e clique no botão Atualizar ou tente novamente mais tarde. -------------------------------------------------------------------------------- O documento XML deve ter um elemento de nível superior. Erro ao processar o recurso 'file:///D:/NOVO/Gerente_nfetemp.xml'. Ao imprimir a nf-e, a taja informando : NFe sem autorizada pela sefaz de USO da SEFAZ Alguém sabe o que é isto? Agradeço e aguardo Leão ------------------[ Resolvido ]-------------- Peça desculpa, faltava enviar... try ACBrNFe1.Enviar(StrToInt(vNumLote)); except on e: Exception do ShowMessage('Falha ao enviar...: '+ e.Message); end; Obrigado, Leão

Obrigado, Régis, mas o detalhe é não consta DhRecbto ACBrNFe.WebServices.Cancelamento.DhRecbto; no delhpi7, o que pode ser? Aguardo e obrigado, Leão

Olá, Preciso gravar no db, data de autorização\cancelamento trabalho com delhi7, no componente não existe o dhRecbto 2011-10-03T11:24:25 Alguém tem a solução Obrigado, Leão

Nome estado estava errado cUF obrigado, Leão

Olá, Após gerar o .xml, beleza, ao solicitar para imprimir o danfe, mostra a mensagem: Invalid Project Format, interessante é que usando o próprio demo, funciona certinho e também o ACBrNFeMonitor imprimir. ao clikar no botão para visualizar ou imprimir, ele abri o formulário ACBrNFeDANGERave.pas, na linha 152 with dmDanfe.RvProject.ProjMan do A versão do ACBrNFe = Versão: 0.4.0a A versão do Rave Reports = 5.0 Trabalho com delphi7 O arquivo NotaFiscalEletronica.rav é de 27/09/2011 as 16:21 O arquivo DANFE.FR3 = 13/07/2011 as 16:00 da para D:\Acbr\Exemplos\ACBrNFe2\Delphi\Report e já testei também os da pasta D:\Acbr\Exemplos\ACBrNFe\Delphi\Report Já procurei o fórum, e não encontrei a solução, Agradeço a ajuda dos amigos. Obrigado, Leão ************[ Solução ]******************* Na verdade o erro era: ACBrNFeDANFERave1.RavFile:=Sistema.Pasta; o certo ACBrNFeDANFERave1.RavFile:=Sistema.Pasta+'NotaFiscalEletronica.rav'; Obrigado, Leão