Numero do Lote de Envio

[Claudio Simão]

Prezados,

Abaixo encaminho o codigo da geração da NFe, e no envio não sei qual é o numero do lote. Onde ele é criado??

with ACBrNFe1.NotasFiscais.Add.Nfe do begin

Ide.cNF := qrNfe['NTFNum'];

Ide.natOp := qrNfe['CFOPDesc'];

Ide.indPag := Variant('1'); // 1-A Vista 2-A Prazo 3-Outros

Ide.modelo := 55;

Ide.serie := 1;

Ide.nNF := qrNfe['NTFNumNF'];

Ide.dEmi := Date;

Ide.dSaiEnt := Date;

Ide.tpNF := Variant('1'); // 0-Entrada 1-Saída

Ide.tpAmb := Variant('2'); // 1-Produção 2-Homologação

Ide.verProc := '1.0'; //Versão do seu sistema

Ide.cUF := StrToInt(qrNfe['UfIbge']); // Codigo da UF no IBGE

Ide.cMunFG := StrToInt(Empresa.CidadeIbge); // Codigo da Cidade no IBGE

// Ide.finNFe := 1; // 1- NF-e normal/ 2-NFe-complementar /

// 3 – NF-e de ajuste Default Normal

// Dados do Emissor

Emit.CNPJCPF := qrNfe['CNPJ'];

Emit.IE := qrNfe['Inscricao'];;

Emit.xNome := qrNfe['Razao'];;

Emit.xFant := qrNfe['Fantasia'];;

Emit.EnderEmit.fone := Empresa.Fone;

Emit.EnderEmit.CEP := StrToInt(TiraChar(qrNfe['Cep']));

Emit.EnderEmit.xLgr := qrNfe['Endereco'];

Emit.EnderEmit.nro := '';

Emit.EnderEmit.xCpl := '';

Emit.EnderEmit.xBairro := qrNfe['Bairro'];

Emit.EnderEmit.cMun := StrToInt(Empresa.CidadeIbge); // Codigo da Cidade no IBGE

Emit.EnderEmit.xMun := qrNfe['Cidade'];

Emit.EnderEmit.UF := qrNfe['UFCod'];

Emit.enderEmit.cPais := 1058;

Emit.enderEmit.xPais := 'BRASIL';

Emit.IEST := '';

Emit.IM := qrNfe['Inscricao']; // Preencher no caso de existir serviços na nota

Emit.CNAE := qrNfe['Cnae']; // Verifique na cidade do emissor da NFe se é permitido

// a inclusão de serviços na NFe

// Dados do Destinatário

Dest.CNPJCPF := TiraChar(qrNfe['NTFCgc']);

Dest.IE := TiraChar(qrNfe['NTFInscricao']);

Dest.ISUF := '';

Dest.xNome := qrNfe['NTFDest'];

Dest.EnderDest.Fone := '';

Dest.EnderDest.CEP := StrToInt(TiraChar(qrNfe['NTFCep']));

Dest.EnderDest.xLgr := qrNfe['NTFEndereco'];

Dest.EnderDest.nro := ''; // Número

Dest.EnderDest.xCpl := ''; // Complemento

Dest.EnderDest.xBairro := qrNfe['NTFBairro'];

Dest.EnderDest.cMun := 5300108; // Codigo da Cidade no IBGE (Brasilia)

Dest.EnderDest.xMun := qrNfe['NTFCidade'];

Dest.EnderDest.UF := qrNfe['NTFUF'];

Dest.EnderDest.cPais := 1058;

Dest.EnderDest.xPais := 'BRASIL';

//Adicionando Produtos

with Det.Add do begin

While Not qrNfe.Eof do begin

Prod.nItem := qrNfe['INGSeq']; // Número sequencial, para cada item deve ser incrementado

Prod.cProd := IntToStr(qrNfe['INGCodFiscal']);

Prod.cEAN := qrNfe['EAN'];

Prod.xProd := qrNfe['DescPrd'];

Prod.NCM := qrNfe['CLFisc'];

Prod.EXTIPI := '';

Prod.CFOP := qrNfe['Cifop'];

Prod.uCom := qrNfe['Und'];

Prod.qCom := qrNfe['INGQuant'] ;

Prod.vUnCom := qrNfe['INGValUnit'];

Prod.vProd := qrNfe['INGQuant']*qrNfe['INGValUnit'];

Prod.cEANTrib := '';

Prod.uTrib := 'UN';

Prod.qTrib := qrNfe['INGQuant'];

Prod.vUnTrib := qrNfe['INGQuant']*qrNfe['INGValUnit'];

Prod.vFrete := 0;

Prod.vSeg := 0;

Prod.vDesc := 0;

{

with Imposto do

begin

with ICMS do

begin

// CST := 'Verificar';

// ICMS.orig := 'Verificar';

// ICMS.modBC := 'Verificar';

ICMS.vBC := 100;

ICMS.pICMS := 18;

ICMS.vICMS := 18;

// ICMS.modBCST := 'Verificar';

ICMS.pMVAST := 0;

ICMS.pRedBCST:= 0;

ICMS.vBCST := 0;

ICMS.pICMSST := 0;

ICMS.vICMSST := 0;

ICMS.pRedBC := 0;

end;

with IPI do

begin

// CST := 'Verificar' ;

clEnq := '999';

CNPJProd := '';

cSelo := '';

qSelo := 0;

cEnq := '';

vBC := 100;

qUnid := 0;

vUnid := 0;

pIPI := 5;

vIPI := 5;

end;

End;

}

qrNfe.Next;

end;

End;

qrNfe.First;

Total.ICMSTot.vBC := qrNfe['NTFValor'];

Total.ICMSTot.vICMS := 17; // Verificar ICMS

Total.ICMSTot.vBCST := 0;

Total.ICMSTot.vST := 0;

Total.ICMSTot.vProd := qrNfe['NTFValor'];

Total.ICMSTot.vFrete := 0;

Total.ICMSTot.vSeg := 0;

Total.ICMSTot.vDesc := qrNfe['NTFDscMoeda'];

Total.ICMSTot.vII := 0;

Total.ICMSTot.vIPI := 0;

Total.ICMSTot.vPIS := 0;

Total.ICMSTot.vCOFINS := 0;

Total.ICMSTot.vOutro := 0;

Total.ICMSTot.vNF := qrNfe['NTFValor'];

{ Total.ISSQNtot.vServ := 0;

Total.ISSQNTot.vBC := 0;

Total.ISSQNTot.vISS := 0;

Total.ISSQNTot.vPIS := 0;

Total.ISSQNTot.vCOFINS := 0;}

{ Total.retTrib.vRetPIS := 0;

Total.retTrib.vRetCOFINS := 0;

Total.retTrib.vRetCSLL := 0;

Total.retTrib.vBCIRRF := 0;

Total.retTrib.vIRRF := 0;

Total.retTrib.vBCRetPrev := 0;

Total.retTrib.vRetPrev := 0;}

// Transp.modFrete := 'Verificar';

Transp.Transporta.CNPJCPF := '';

Transp.Transporta.xNome := '';

Transp.Transporta.IE := '';

Transp.Transporta.xEnder := '';

Transp.Transporta.xMun := '';

Transp.Transporta.UF := '';

{ Transp.retTransp.vServ := 0;

Transp.retTransp.vBCRet := 0;

Transp.retTransp.pICMSRet := 0;

Transp.retTransp.vICMSRet := 0;

Transp.retTransp.CFOP := '';

Transp.retTransp.cMunFG := 0; }

Transp.veicTransp.placa := '';

Transp.veicTransp.UF := '';

Transp.veicTransp.RNTC := '';

end;

// Envia NF

ACBrNFe1.NotasFiscais.Valida;

ACBrNFe1.Enviar(???);

[Régys Silveira]

o numero do lote é você quem controla.