Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

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
 

  • Este tópico foi criado há 4802 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.