[Resolvido] Criar Enviar, Erro:is not a valid integer value

[Leao]

Olá,

Ao clikar no botão Criar e Enviar, onde informo o Número da Nota e em seguida o Número

do Lote. Exemplo Nota:

Nota 2266

Lote 1

mensamge de erro:is not a valid integer value

estar dizendo que é inválida os parametros, o que pode ser esse erro.Já pesquisei

no fórum, e não encontrei a resposta, (uso delphi7, banco firebird 2.00xx)

estou usando copia do demo, veja o meu fonte abaixo:

procedure TFormNFe_gerar.btnCriarEnviarClick(Sender: TObject);

var

vAux, vNumLote : String;

begin

//vAux:=XNumEdit1.Text;

//vNumLote:='1';

if not(InputQuery('WebServices Enviar', 'Numero da Nota', vAux)) then

exit;

if not(InputQuery('WebServices Enviar', 'Numero do Lote', vNumLote)) then

exit;

vNumLote := OnlyNumber(vNumLote);

if Trim(vNumLote) = '' then

begin

MessageDlg('Número do Lote inválido.',mtError,[mbok],0);

exit;

end;

ACBrNFe1.NotasFiscais.Clear;

GerarNFe(vAux);

// ACBrNFe1.Enviar(vNumLote); Já testei da maneira abaixo, ocorre o mesmo erro.

ACBrNFe1.Enviar(StrToInt(vNumLote));

if ACBrNFe1.WebServices.Retorno.cStat = 105 then // Lote em processamento

begin

repeat

Application.MessageBox('Envio da NFE - Lote em processamento.' +#13 + 'Aguarde 5 minutos e Clique em OK !!!', 'Leão Informática', MB_OK);

ACBrNFe1.WebServices.Retorno.Recibo := ACBrNFe1.WebServices.Enviar.Recibo;

until ACBrNFe1.WebServices.Retorno.Executar;

end;

if ACBrNFe1.WebServices.Retorno.cStat = 100 then // Autorizado o uso da NF-e

begin

TabGlobal.DNF.Filtro.Clear;

TabGlobal.DNF.Filtro.Add('NF = '+IntToStr(DNF.NF.Conteudo));

TabGlobal.DNF.Filtro.Add('AND MODELO = '+#39+DNF.MODELO.Conteudo+#39);

TabGlobal.DNF.Filtro.Add('AND SERIE = '+#39+DNF.SERIE.Conteudo+#39);

TabGlobal.DNF.AtualizaSql;

if not TabGlobal.DNF.Eof then

begin

DNF.Modifica;

DNF.SITUACAO.Conteudo :='Autorizada';

DNF.RECIBO_NFE.Conteudo :=ACBrNFe1.WebServices.Retorno.Recibo;

DNF.NUMERO_NFE.Conteudo :=ACBrNFe1.WebServices.Retorno.ChaveNFe;

DNF.NUMERO_PROTOCO.Conteudo:=ACBrNFe1.WebServices.Retorno.Protocolo;

DNF.CSTAT.Conteudo :='100';

DNF.Salva;

end;

TabGlobal.DNF.Filtro.Clear;

TabGlobal.DNF.AtualizaSql;

end;

MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS);

memoRespWS2.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS);

LoadXML(MemoResp, WBResposta);

MemoDados.Lines.Add('');

MemoDados.Lines.Add('Envio NFe');

MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb));

MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic);

MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat));

MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF));

MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo);

MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg));

MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg);

MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo);

MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo);

// MemoDados.Lines.Add('cStat: '+ ACBrNFe1.WebServices.Retorno.NFeRetorno);

ACBrNFe1.NotasFiscais.Clear;

end;

De já agradeço o esforço de todos

Leão

[centuryinf]

Tente isto

if not(InputQuery('WebServices Enviar', 'Numero da Nota', vAux)) then

exit;

if not(InputQuery('WebServices Enviar', 'Numero do Lote', vNumLote)) then

exit;

//////////////////////////////////////////// vNumLote := OnlyNumber(vNumLote);

if Trim(vNumLote) = '' then

begin

MessageDlg('Número do Lote inválido.',mtError,[mbok],0);

exit;

end;

ACBrNFe1.NotasFiscais.Clear;

GerarNFe(vAux);

ACBrNFe1.Enviar(StrToInt(vNumLote));

[Leao]

Agradeço ao amigo, mas na verdade era o mod(modelo da nfe), estava fazio.informar 55

agora estar certo.

Obrigado,

Leão

[vbarreto]

Agradeço ao amigo, mas na verdade era o mod(modelo da nfe), estava fazio.informar 55

agora estar certo.

Obrigado,

Leão

 

Leão,

 

Estou com este mesmo problema. Onde altero o modelo da nota? Preciso integrar a NFe ao sistema da empresa "prá ontem".

 

Obrigado.

[FGGLUIZ]

Leão,

 

Estou com este mesmo problema. Onde altero o modelo da nota? Preciso integrar a NFe ao sistema da empresa "prá ontem".

 

Obrigado.

vbarreto, dê uma olhada no Demo do componente, lá você vai encontrar.

Fábio

[vbarreto]

vbarreto, dê uma olhada no Demo do componente, lá você vai encontrar.

Fábio

Fábio, desculpe a ignorância, mas verifique a propriedade do componente e o modelo está ajustado para moNFe. Ao Criar uma nota fiscal, informando número e lote, ocorre o erro citado por Leão. O default de moNFe é 55. Deveria funcionar. Gostaria de saber como ele conseguiu resolver o problema. Se puder ajudar, agradeço.

[Italo Giurizzato Junior]

Boa tarde vbarreto,

 

Inclua caso esteje faltando as linhas abaixo ao alimentar o componente:

 

     infNFe.Versao := 2;
     Ide.modelo    := 55;
     // TpcnConsumidorFinal = (cfNao, cfConsumidorFinal);
     Ide.indFinal  := cfNao;
     // TpcnPresencaComprador = (pcNao, pcPresencial, pcInternet, pcTeleatendimento, pcOutros);
     Ide.indPres   := pcOutros;
     Ide.dEmi      := StrToDate(edtEmissao.Text);
     Ide.dSaiEnt   := StrToDate(edtSaida.Text);
     Ide.hSaiEnt   := StrToTime(edtHora.Text);
 

[FGGLUIZ]

Fábio, desculpe a ignorância, mas verifique a propriedade do componente e o modelo está ajustado para moNFe. Ao Criar uma nota fiscal, informando número e lote, ocorre o erro citado por Leão. O default de moNFe é 55. Deveria funcionar. Gostaria de saber como ele conseguiu resolver o problema. Se puder ajudar, agradeço.

vbarreto, precisa ver o modelo no qual você esta falando, abaixo estão os dois:

 

//Configurações

ACBrNFe1.Configuracoes.Geral.ModeloDF := := moNFe;    ////Modelo Documento Fiscal (moNFe, moNFCe)  --> moNFCe - Consumidor

 

//Identificação

Ide.modelo:= 55;  //Modelo NFe - Nota Fiscal Eletrônica

 

Exemplo:

      if ACBrNFe1.Configuracoes.Geral.ModeloDF = moNFe then

      begin

        infNFe.Versao := 2;

        Ide.indFinal := cfNao;  //Consumidor - cfNao, cfConsumidorFinal

        Ide.indPres := pcOutros;  //Comprador - pcNao, pcPresencial, pcInternet, pcTeleatendimento, pcOutros

        Ide.modelo:= 55;  //Modelo NFe

      end

 

 

Poste o resultado, estamos para ajudar.

 

Fábio