{ Resolvido } Conjunto De Mdf_E Transmitidos Excedido

[francasoftware]

Prezados Companheiros:

 

Gostaria de solicitar ajuda dos companheiros.

 

Estou iniciando agora desenvolvimento de rotina para transmissão do MDF_E.

 

Quando executo o método ENVIAR, aparece o seguinte erro :

 

Project AndesFaturamento.exe raised exception class Exception with message 'ERRO: Conjunto de MDF-e transmitidos (máximo de 1 MDF-e) excedido. Quantidade atual: 3'.

 

Por acaso algum dos companheiros já passou por este problema.

 

Grato

 

Carlos

Editado 30 Maio, 2014 por francasoftware

[Juliomar Marchetti]

Só pode enviar um único por vez!

seria esse o problema , veja se no seu código não está adicionando sem querer mais de um!

[GustavoKato]

acredito que esteja com o mesmo problema deste tópico, porém com o componente do MDF-e, tente a solução deste.

[francasoftware]

Prezados Companheiros:

 

Eu li o post sugerido pelo Sr. Gustavo, porém continuo com o problema.

 

Ontem eu consegui efetuar com sucesso remessa em modo de homologação.

 

Porém, quando tento transmitir outro MDF_e em modo de homologação o erro ocorre novamente.

 

Abaixo o código-fonte visando solicitar ajuda dos companheiros :

  // limpo eventos associados ao componente do mdf

  acbrMdf_e.Manifestos.Clear;

  acbrMdf_e.EventoMDFe.Evento.Clear;

  // verifico quantos manifestos existem no componente no momento ( resultado : 0 Manifestos )
  showmessage('Qtd.Manifestos (Inicial)  : ' + IntToStr(acbrMdf_e.Manifestos.Count));

  // passo dados ao componente
  Gera_Dados_Manifesto;

  // verifico quantos manifestos existem no componente no momento ( resultado : 1 Manifestos )
  showmessage('Qtd.Manifestos (Depois Atribuir Informações)  : ' + IntToStr(acbrMdf_e.Manifestos.Count));

  // valido os dados inseridos no componente
  acbrMdf_e.Manifestos.Valida;

  // verifico quantos manifestos existem no componente no momento ( resultado : 1 Manifestos )
  showmessage('Qtd.Manifestos (Depois Validar)  : ' + IntToStr(acbrMdf_e.Manifestos.Count));
  // finalmente tento transmitir o MDF_e
  try
    acbrMdf_e.Enviar(0,True);
  except
    Raise;
  end;
  // no momento da execução do método ENVIAR, a quantidade de menifestos é movida para 2

  // provocando mensagem de erro definida no médodo ENVIAR ( unit : AcbrMdFe )

  if Manifestos.Count > 1 then
  begin
    if Assigned(Self.OnGerarLog)  then

       Self.OnGerarLog('ERRO: Conjunto de MDF-e transmitidos (máximo de 1 MDF-e) excedido.  

       Quantidade atual: '+IntToStr(Manifestos.Count));
    raise Exception.Create('ERRO: Conjunto de MDF-e transmitidos (máximo de 1 MDF-e) excedido. Quantidade atual:

    '+IntToStr(Manifestos.Count));
    exit;
  end;

 

  // o erro é exibido da seguinte forma :

  'ERRO: Conjunto de MDF-e transmitidos (máximo de 1 MDF-e) excedido. Quantidade atual: 2'.

 

Podem os companheiros me ajudar ? Não tenho idéia alguma do que pode estar ocasionando este erro.

 

Grato

 

Carlos

[GustavoKato]

Bom dia,

pode não ter nada a ver, mas tente passar acbrMdf_e.Enviar(1,True);

[francasoftware]

Prezados Srs.

Juliomar e Gustavo

 

Atualmente estou utilizando o componente versão : 0.2.0 que foi baixado da url : svn://svn.code.sf.net/p/acbr/code.

 

Estas informações coincidem ?

 

Fiz novo download do componente MDF-e nestas condições e persiste o mesmo erro.

 

Podem conferir para mim ?

 

Grato

 

Carlos

[GustavoKato]

boa tarde, a url está correta.

recompilou os pacotes? atualizou os schemas? testou o parâmetro que passei acima?

[francasoftware]

Prezado

Gustavo

 

Boa tarde.

 

Não consegui êxito. Eu executo 4 sequências de ação :

 

- limpo quaisquer informações no componente

- atribuo dados de apenas 1 manifesto ao componente

- valido

- envio

 

Curiosamente que, logo após da uma destas ações eu verifico o valor da propriedade :Manifestos.Count , sendo que o valor é sempre igual a 1.;

Porém, quando dou o comando enviar, o valor de Manifestos.Count sobe para 2, o que ocasiona o erro.

 

Eu baixei o componente novamente através da url : svn://svn.code.sf.net/p/acbr/code e vou instalá-lo novamente agora para ver se consigo resolver o problema.

 

A revísion recebida é : 6876.

 

Mais um detalhe : a versão que aparece no componente MDF_e aí é 0.2.0 ?

 

Grato

 

Carlos

Editado 21 Maio, 2014 por francasoftware

[GustavoKato]

sim, a versão é 0.2.0

 

bom, olhei o código e no ponto desta exception não foi realizado nada. Então só vejo um local pra ocorrer o erro.

verifique onde esta chamando o seguinte procedimento e se não está chamando mais de uma vez.

 

with MDFe1.Manifestos.Add.MDFe do

begin

  //e verifique se não estão chamando o enviar de dentro deste bloco

end;

[francasoftware]

Prezado Gustavo

 

Muito obrigado por sua ajuda.

 

Com as informações que me passou e atualização do componente obtive êxito.

 

Agora está ocorrendo erro na impressão. Mas vou fazer um post específico sobre isto.

 

Grato novamente por sua ajuda.

 

Carlos

Franca-sp

[GustavoKato]

Fico Feliz em ter ajudado!

 

Marque o Tópico como "Resolvido".