Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

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(???);

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

The popup will be closed in 10 segundos...