Ir para conteúdo
  • Cadastre-se

dev botao

Erro ao Instalar NFE2


  • Este tópico foi criado há 4617 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Pessoal estou subindo o ambiente em uma maquina nova e esta apresentando alguns erro na instalacao segue o arquivo

erro em tlCCeNFe nao exite

pcnCCeNFe

function TCCeNFe.GerarXML: boolean;

var

i : integer;

begin

Result := False;

if RetornarVersaoLayout(FSchema, tlCCeNFe) = '2.00' then

begin

Gerador.ArquivoFormatoXML := '';

Gerador.wGrupo('envEvento ' + NAME_SPACE + ' ' + V1_00);

Gerador.wCampo(tcInt, 'HP03', 'idLote', 001, 015, 1, FidLote, DSC_IDLOTE);

for i:= 0 to Evento.Count - 1 do

begin

Evento.Items.InfEvento.id := 'ID110110' + SomenteNumeros(Evento.Items.InfEvento.chNFe) + Format('%.2d', [Evento.Items.InfEvento.nSeqEvento]);

Gerador.wGrupo('evento ' + V1_00);

Gerador.wGrupo('infEvento Id="' + Evento.Items.InfEvento.id + '"');

if Length(Evento.Items.InfEvento.id) < 54 then

Gerador.wAlerta('HP07', 'ID', '', 'ID de carta de correção inválido');

Gerador.wCampo(tcInt, 'HP08', 'cOrgao', 001, 002, 1, Evento.Items.InfEvento.cOrgao);

Gerador.wCampo(tcStr, 'HP09', 'tpAmb', 001, 001, 1, TpAmbToStr(Evento.Items.InfEvento.tpAmb), DSC_TPAMB);

if Length(SomenteNumeros(Evento.Items.InfEvento.CNPJ)) = 14 then

begin

Gerador.wCampo(tcStr, 'HP10', 'CNPJ', 014, 014, 1, SomenteNumeros(Evento.Items.InfEvento.CNPJ), DSC_CNPJ);

if not ValidarCNPJ(SomenteNumeros(Evento.Items.InfEvento.CNPJ)) then

Gerador.wAlerta('HP10', 'CNPJ', DSC_CNPJ, ERR_MSG_INVALIDO);

end

else if Length(SomenteNumeros(Evento.Items.InfEvento.CNPJ)) = 11 then

begin

Gerador.wCampo(tcStr, 'HP11', 'CPF', 011, 011, 1, SomenteNumeros(Evento.Items.InfEvento.CNPJ), DSC_CPF);

if not ValidarCPF(SomenteNumeros(Evento.Items.InfEvento.CNPJ)) then

Gerador.wAlerta('HP11', 'CPF', DSC_CPF, ERR_MSG_INVALIDO);

end;

Gerador.wCampo(tcStr, 'HP12', 'chNFe', 044, 044, 1, Evento.Items.InfEvento.chNFe, DSC_CHAVE);

if not ValidarChave('NFe' + SomenteNumeros(Evento.Items.InfEvento.chNFe)) then

Gerador.wAlerta('HP12', 'chNFe', '', 'Chave de NFe inválida');

Gerador.wCampo(tcStr, 'HP13', 'dhEvento', 001, 050, 1, FormatDateTime('yyyy-mm-dd"T"hh:nn:ss',Evento.Items.InfEvento.dhEvento)+'-03:00');

Gerador.wCampo(tcInt, 'HP14', 'tpEvento', 006, 006, 1, Evento.Items.InfEvento.tpEvento);

Gerador.wCampo(tcInt, 'HP15', 'nSeqEvento', 001, 002, 1, Evento.Items.InfEvento.nSeqEvento);

Gerador.wCampo(tcStr, 'HP16', 'verEvento', 001, 004, 1, Evento.Items.InfEvento.versaoEvento);

Gerador.wGrupo('detEvento ' + V1_00);

Gerador.wCampo(tcStr, 'HP19', 'descEvento', 005, 060, 1, Evento.Items.InfEvento.detEvento.descEvento);

Gerador.wCampo(tcStr, 'HP20', 'xCorrecao', 015, 1000, 1, Evento.Items.InfEvento.detEvento.xCorrecao);

Gerador.wCampo(tcStr, 'HP20a', 'xCondUso', 001, 5000, 1, Evento.Items.InfEvento.detEvento.xCondUso);

Gerador.wGrupo('/detEvento');

Gerador.wGrupo('/infEvento');

Gerador.wGrupo('/evento');

end;

Gerador.wGrupo('/envEvento');

Result := (Gerador.ListaDeAlertas.Count = 0);

end

end;

Leandro dos Santos
Analista / Desenvolvedor
 

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde Leandro,

Você compilou o PCN2 antes do ACBr_NFe2?

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 4617 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.