ActiveDelphi

[JonasB]

Boa noite,

Pessoal, andei vendo o fonte do ACbr e não entendi até agora como faço para definir as tags do XML, vi no fonte de exemplo que já estão definidos por padrão, mais não entendi a forma que vou transferir esses dados da minha aplicação.

Alguém pode ajudar ?

Abraços

[Ghost_Rider]

Cara, tipo..o exemplo ta pronto, basta pegar a query do seu sisteme e adicionar no exemplo...simples...
lá onde ele tem o item, como um valor fixo, vai entrar sua query...entendeu ?

[JonasB]

Vou tentar, obrigado.

[douglaspacheco]

[usr2]

Colega tive esta mesma duvida e não consegui adaptar o exomple no meu sistema a unica saida foi fazer na raça ai esta o codigo fonte para Gerar o xml.:

var
aNumIten: Integer;
begin
//ACBrNFe1.NotasFiscais.Add.NFe;
//ACBrNFe1.NotasFiscais.Add.NFe.Ide.cUF:=35;
ACBrNFe1.NotasFiscais.Clear;
//
with ACBrNFe1.NotasFiscais.Add.NFe do
begin
// Dados Principais
ACBrNFe1.NotasFiscais.Add.NFe.Ide.cNF:=35;
ACBrNFe1.NotasFiscais.Add.NFe.Ide.natOp:='5102';
ACBrNFe1.NotasFiscais.Add.NFe.Ide.indPag:=ipVista;
ACBrNFe1.NotasFiscais.Add.NFe.Ide.modelo:=55;
ACBrNFe1.NotasFiscais.Add.NFe.Ide.serie:=1;
ACBrNFe1.NotasFiscais.Add.NFe.Ide.nNF:=123;
ACBrNFe1.NotasFiscais.Add.NFe.Ide.dEmi:= Date;
ACBrNFe1.NotasFiscais.Add.NFe.Ide.dSaiEnt:= Date;
ACBrNFe1.NotasFiscais.Add.NFe.Ide.tpNF:= tnSaida;
ACBrNFe1.NotasFiscais.Add.NFe.Ide.tpAmb:= 1;
ACBrNFe1.NotasFiscais.Add.NFe.Ide.verProc:= '1.0.0.0';
ACBrNFe1.NotasFiscais.Add.NFe.Ide.cUF:= 33;
ACBrNFe1.NotasFiscais.Add.NFe.Ide.cMunFG:= 58;
ACBrNFe1.NotasFiscais.Add.NFe.Ide.finNFe:= fnNormal;
// Emitente
ACBrNFe1.NotasFiscais.Add.NFe.Emit.CRT:=1;
ACBrNFe1.NotasFiscais.Add.NFe.Emit.CNPJCPF:='123456789';
ACBrNFe1.NotasFiscais.Add.NFe.Emit.IE:='1231548755';
ACBrNFe1.NotasFiscais.Add.NFe.Emit.IEST:='';
ACBrNFe1.NotasFiscais.Add.NFe.Emit.xNome:='MINHA EMPRESA';
ACBrNFe1.NotasFiscais.Add.NFe.Emit.xFant:='EMPRESA';
ACBrNFe1.NotasFiscais.Add.NFe.Emit.IM:='';
ACBrNFe1.NotasFiscais.Add.NFe.Emit.CNAE:='';
ACBrNFe1.NotasFiscais.Add.NFe.Emit.EnderEmit.xLgr:='MINHA RUA';
ACBrNFe1.NotasFiscais.Add.NFe.Emit.EnderEmit.nro:='21';
ACBrNFe1.NotasFiscais.Add.NFe.Emit.EnderEmit.xCpl :='';
ACBrNFe1.NotasFiscais.Add.NFe.Emit.EnderEmit.xBairro:='JARDIM PRINCESA';
ACBrNFe1.NotasFiscais.Add.NFe.Emit.EnderEmit.cMun:=35;
ACBrNFe1.NotasFiscais.Add.NFe.Emit.EnderEmit.xMun:= 'PONTAL';
ACBrNFe1.NotasFiscais.Add.NFe.Emit.EnderEmit.UF:= 'SP';
ACBrNFe1.NotasFiscais.Add.NFe.Emit.EnderEmit.CEP:=14180000;
ACBrNFe1.NotasFiscais.Add.NFe.Emit.EnderEmit.fone:='39537421';
ACBrNFe1.NotasFiscais.Add.NFe.Emit.EnderEmit.cPais:= 1058;
ACBrNFe1.NotasFiscais.Add.NFe.Emit.EnderEmit.xPais:= 'BRASIL';
// Destinatario
ACBrNFe1.NotasFiscais.Add.NFe.Dest.CNPJCPF:='13488753000158';
ACBrNFe1.NotasFiscais.Add.NFe.Dest.IE:= '123456789';
ACBrNFe1.NotasFiscais.Add.NFe.Dest.ISUF:='';
ACBrNFe1.NotasFiscais.Add.NFe.Dest.xNome:='NOME DESTINATARIO';
ACBrNFe1.NotasFiscais.Add.NFe.Dest.EnderDest.xLgr:='SUA RUA';
ACBrNFe1.NotasFiscais.Add.NFe.Dest.EnderDest.nro:= '33';
ACBrNFe1.NotasFiscais.Add.NFe.Dest.EnderDest.xCpl:='';
ACBrNFe1.NotasFiscais.Add.NFe.Dest.EnderDest.xBairro:='jardim princesa';
ACBrNFe1.NotasFiscais.Add.NFe.Dest.EnderDest.cMun:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Dest.EnderDest.xMun:='PONTAL';
ACBrNFe1.NotasFiscais.Add.NFe.Dest.EnderDest.UF:= 'UF';
ACBrNFe1.NotasFiscais.Add.NFe.Dest.EnderDest.CEP:=14180000;
ACBrNFe1.NotasFiscais.Add.NFe.Dest.EnderDest.cPais:= 1058;
ACBrNFe1.NotasFiscais.Add.NFe.Dest.EnderDest.xPais:= 'BRASIL';
ACBrNFe1.NotasFiscais.Add.NFe.Dest.EnderDest.fone:='3537421';
// Entrega
ACBrNFe1.NotasFiscais.Add.NFe.Entrega.xLgr:= 'O MESMO';
ACBrNFe1.NotasFiscais.Add.NFe.Entrega.nro:= '55';
ACBrNFe1.NotasFiscais.Add.NFe.Entrega.xCpl:= '';
ACBrNFe1.NotasFiscais.Add.NFe.Entrega.xBairro:='ZONA SUL';
ACBrNFe1.NotasFiscais.Add.NFe.Entrega.cMun:= 0;
ACBrNFe1.NotasFiscais.Add.NFe.Entrega.xMun:='PONTAL';
ACBrNFe1.NotasFiscais.Add.NFe.Entrega.UF:= 'SP';
// Itens da NFe
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.nItem:= aNumIten;
aNumIten := 0;
// DmNFe.CdsPedidoItens.First;
while not DmNFe.CdsPedidoItens.Eof do
begin
Inc(aNumIten);
DmNFe.Dados_Produto(DmNFe.CdsPedidoItensIDPRODUTO.AsInteger);
with Det.Add do
begin
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.nItem:= aNumIten;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.cProd:=2156;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.cEAN:='123456789';
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.xProd:='LAN DE CARNEIRO';
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.NCM:='455544';
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.EXTIPI:='';
if(DmNFe.CdsPedidoItensTIPOPROD.AsInteger = 0) or
(DmNFe.CdsPedidoItensTIPOPROD.AsInteger = 1) or
(DmNFe.CdsPedidoItensTIPOPROD.AsInteger = 2) or
(DmNFe.CdsPedidoItensTIPOPROD.AsInteger = 4) then
begin
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.CFOP := '5102';
end
else if DmNFe.CdsPedidoItensTIPOPROD.AsInteger = 3 then
begin
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.CFOP := '5403';
end;

ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.uCom:='PC';
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.qCom:=12.3;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.cEANTrib:='';
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.uTrib:='PC';
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.vDesc:=0;
if DmNFe.CdsPedidoItensTIPOPROD.AsInteger = 0 then

ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.qTrib:=12.3;
else
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.qTrib:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.vFrete:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.vSeg:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Prod.vDesc:=0;
with Imposto do
begin
with ICMS do
begin
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.CSOSN:=0;
if DmNFe.CdsPedidoItensTIPOPROD.AsInteger = 0 then // 0 - Tributado
begin
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.CST:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.CSOSN:=0;// Nacional-impotado
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.orig:=0; // Origem da mercadoria
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.modBC:=2.000;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.vBC:=2.000; // Valor total
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.pICMS:=12.00; // Aliquota do ICMS
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.vICMS:=240.00; // valor do ICMS
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.modBCST:=15.0; // Margem-valor agregado
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.CSOSN:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.pMVAST:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.pRedBCST:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.vBCST:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.pICMSST:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.vICMSST:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.pRedBC:=0;
end;
if DmNFe.CdsPedidoItensTIPOPROD.AsInteger = 3 then // 3 - Sub. Tributaria
begin
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.CST:=0; //CST:= cst60;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.orig:=0; //ICMS.orig:= oeNacional;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.modBC:=2.000; //ICMS.modBC:= dbiValorOperacao;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.vBC:=2.000; //DmNFe.CdsPedidoItensVALOR_TOTAL.AsFloat;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.pICMS:=0 //ICMS.pICMS := 0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.vICMS:=0; //ICMS.vICMS := 0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.modBCST:=15.0; //ICMS.modBCST := dbisMargemValorAgregado;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.pMVAST:=0; //ICMS.pMVAST := 0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.pRedBCST:=0; //ICMS.pRedBCST := 0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.vBCST:=0; //ICMS.vBCST := 0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.pICMSST:=0;//ICMS.pICMSST := DmNFe.CdsProdutosALIQUOTA_ICMS.AsFloat;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.vICMSST:=0 //ICMS.vICMSST := (DmNFe.CdsPedidoItensVALOR_TOTAL.AsFloat * DmNFe.CdsProdutosALIQUOTA_ICMS.AsFloat) / 100;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.pRedBC:=0; //ICMS.pRedBC := 0;
end;
end;
if (DmNFe.CdsPedidoItensTIPOPROD.AsInteger = 1) or // 1 - Isento
(DmNFe.CdsPedidoItensTIPOPROD.AsInteger = 2) then // 2 - Não tributado
begin
with II do
begin
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ICMS.vBC:=0;//vBc:= 0
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.II.vDespAdu:=0//vDespAdu := 0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.II.vII:=2.000 // vII:= DmNFe.CdsPedidoItensVALOR_TOTAL.AsFloat;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.II.vIOF:=0; //vIOF := 0;
end;
end;
if DmNFe.CdsPedidoItensTIPOPROD.AsInteger = 4 then // 4 - Serviço
begin
with ISSQN do
begin
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ISSQN.vBC:=0; //vBC:= DmNFe.CdsPedidoItensVALOR_TOTAL.AsFloat;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ISSQN.vAliq:=0; //vAliq := DmNFe.CdsProdutosALIQUOTA_ICMS.AsFloat;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ISSQN.vISSQN:=0; //vISSQN := (DmNFe.CdsPedidoItensVALOR_TOTAL.AsFloat * DmNFe.CdsProdutosALIQUOTA_ICMS.AsFloat) / 100;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ISSQN.cMunFG:=0; //cMunFG := 0;
ACBrNFe1.NotasFiscais.Add.NFe.Det.Items.Imposto.ISSQN.cListServ:=0; //cListServ := 0;
end;
end;
end;
end;
DmNFe.CdsPedidoItens.Next;

end;

// informações finais da NFe
// DmNFe.Dados_Tributos(CdsNFeID.AsInteger);
ACBrNFe1.NotasFiscais.Add.NFe.Total.ICMSTot.vBC:=0;//DmNFe.CdsTributoVALOR.AsFloat;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ICMSTot.vICMS:=0;// DmNFe.CdsTributoVAL_ICMS.AsFloat;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ICMSTot.vBCST:=0;// DmNFe.CdsTributoBASE_ST.AsFloat;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ICMSTot.vST:=0;//(DmNFe.CdsTributoBASE_ST.AsFloat * DmNFe.CdsTributoALIQUOTA_ICMS.AsFloat) /100;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ICMSTot.vProd:=0;//CdsNFeVALOR.AsFloat;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ICMSTot.vFrete:=0;// Valor do frete
ACBrNFe1.NotasFiscais.Add.NFe.Total.ICMSTot.vSeg:=0;// valor do seguro;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ICMSTot.vDesc:=0; // CdsNFeDESCONTO.AsFloat;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ICMSTot.vII:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ICMSTot.vIPI:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ICMSTot.vPIS:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ICMSTot.vCOFINS:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ICMSTot.vOutro:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ICMSTot.vNF:=0;// CdsNFeVALOR_TOTAL.AsFloat;
//
ACBrNFe1.NotasFiscais.Add.NFe.Total.ISSQNtot.vServ:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ISSQNtot.vBC:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ISSQNtot.vISS:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ISSQNtot.vPIS:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Total.ISSQNtot.vCOFINS:=0;
//
ACBrNFe1.NotasFiscais.Add.NFe.Total.retTrib.vRetPIS:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Total.retTrib.vRetCOFINS:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Total.retTrib.vRetCSLL:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Total.retTrib.vBCIRRF:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Total.retTrib.vIRRF:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Total.retTrib.vRetPrev:=0;
// transportara
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Transporta.CNPJCPF:='';
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Transporta.xNome:='';
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Transporta.IE:='';
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Transporta.xEnder:='';
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Transporta.xMun:='';
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Transporta.UF:='';
With Transp.Reboque.Add do
begin
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Reboque.Add.placa:='';
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Reboque.Add.UF:='';
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Reboque.Add.RNTC:='';
end;
with Transp.Vol.Add do
begin
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Vol.Add.qVol:=1;
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Vol.Add.esp:='';
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Vol.Add.marca:='';
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Vol.Add.nVol:='';
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Vol.Add.pesoL:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Transp.Vol.Add.pesoB:=0;
end;
// Cobranca
ACBrNFe1.NotasFiscais.Add.NFe.Cobr.Fat.nFat:=0;//CdsNFePEDIDO_NUM.AsString;
ACBrNFe1.NotasFiscais.Add.NFe.Cobr.Fat.vOrig:=0;// CdsNFeVALOR_TOTAL.AsFloat;
ACBrNFe1.NotasFiscais.Add.NFe.Cobr.Fat.vDesc:=0;
ACBrNFe1.NotasFiscais.Add.NFe.Cobr.Fat.vLiq:=0;// CdsNFeVALOR_TOTAL.AsFloat;
with Cobr.Dup.Add do
begin
ACBrNFe1.NotasFiscais.Add.NFe.Cobr.Dup.Add.nDup:=0;// CdsNFePEDIDO_NUM.AsString
ACBrNFe1.NotasFiscais.Add.NFe.Cobr.Dup.Add.dVenc:=Date;//CdsNFeDATA_PEDIDO.AsDateTime + 30;
ACBrNFe1.NotasFiscais.Add.NFe.Cobr.Dup.Add.vDup:=0;//CdsNFeVALOR_TOTAL.AsFloat;
end;
//
with InfAdic.obsCont.Add do
begin
ACBrNFe1.NotasFiscais.Add.NFe.InfAdic.obsCont.Add.xCampo:='';
ACBrNFe1.NotasFiscais.Add.NFe.InfAdic.obsCont.Add.xTexto:='';
end;
with InfAdic.obsFisco.Add do
begin
ACBrNFe1.NotasFiscais.Add.NFe.InfAdic.obsFisco.Add.xCampo:='';
ACBrNFe1.NotasFiscais.Add.NFe.InfAdic.obsFisco.Add.xTexto:='';
end;

end;
// comandos para gerar arquivo XML
ACBrNFe1.NotasFiscais.Assinar;
ACBrNFe1.NotasFiscais.Items[0].SaveToFile;
ShowMessage('Arquivo gerado em: '+ACBrNFe1.NotasFiscais.Items[0].NomeArq);

[carbox]

Bom dia!

Tive umas dúvidas um tempo atraz e ainda tenho quanto ao uso do Acbrnfe. Atualmente exporto a NFe em TXT, layout 2.0. Anda não tive tempo de modificar e implementar a exportação por XML, mas agora me vejo forçado a realizar o procedimento.

A dúvida é o seguinte... Seu código abaixo contempla a nova versão do NF-e? a 3.10???

[usr2]

Tambem tive a mesma duvida e o que me informaram é que quando vc faz atualização do ACBR e compila os pacotes ja assume a nova verssão.

[carbox]

Entendi...

Esse exemplo que você postou foi para criar o XML. E para Validar, assinar, transmitir e imprimir?

Como você está processando o retorno?

[joemil]

o exemplo do ACBr faz tudo. eu so copiei e colei os comandos do buttons e alterei com os dados do meu sistema
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[usr2]

Validar, assinar, transmitir e imprimir aninda não o fiz quando fizer posto aqui..!