FABRICIO CERAVOLO PENA

Obrigado ... Resolvido...

if SQLAUX.FieldByName('CST').AsString = '000' then Produto.Imposto.ICMS.CST := cst00; if SQLAUX.FieldByName('CST').AsString = '010' then Produto.Imposto.ICMS.CST := cst10; if SQLAUX.FieldByName('CST').AsString = '020' then Produto.Imposto.ICMS.CST := cst20; ... Quando escolho cst20 o xml na parte de ICMS fica <imposto> <ICMS> <ICMS20> CERTO AQUI <orig>0</orig> <CST>00</CST> <modBC>3</modBC> <vBC>0.97</vBC> <pICMS>3.0000</pICMS> <vICMS>0.12</vICMS> </ICMS00> </ICMS> AÍ CONTINUANDO SE FOR 101 if SQLAUX.FieldByName('CST').AsString = '101' then Produto.Imposto.ICMS.CSOSN := (csosn101); A TAG DE ICMS QUE DEVERIA SER <ICMS> <ICMS101> CONTINUA <ICMS00> Alguém sabe porque ? Me disseram na empresa que deveria ficar <ICMS101>. Obrigado

Falha ao carregar biblioteca de Criptografia do XMLSec [openssl] Alguem sabe dizer como resolver isso ? Acontece quando tento enviar a nota fisal.

ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe; ACBrNFe1.Configuracoes.Geral.VersaoDF := TpcnVersaoDF(cbVersaoDF.ItemIndex); GerarNFe(cds.Fields[0].AsString+'001'); ACBrNFe1.NotasFiscais.GerarNFe; ACBrNFe1.Enviar(1,True); Acontece aqui *** MemoResp.Lines.Text := ACBrNFe1.WebServices.Retorno.RetWS; memoRespWS.Lines.Text := ACBrNFe1.WebServices.Retorno.RetornoWS; LoadXML(ACBrNFe1.WebServices.Retorno.RetornoWS, WBResposta); pgRespostas.ActivePageIndex := 1; 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);

O componente diz recebendo dados ao se gerar e enviar. Erro Interno: 10054 Erro HTTP: 0 raised exception class EACBrDFeException with message 'Erro Interno: 10060 Erro HTTP: 0'. Alguem pode ajudar ?

--------------------------- Debugger Exception Notification --------------------------- Project ProjectVendas2.exe raised exception class EACBrDFeException with message 'Erro Interno: 10091 Erro HTTP: 500'. --------------------------- Break Continue Help --------------------------- Ajudem por favor

Após realizar o procedimento acima sugerido pelo André, segue este erro. Ambiente do XML (tpAmb) é diferente do configurado no Componente (Configuracoes.WebServices.Ambiente) Eu troquei os arquivos conforme mencionado. Dá erro no procedimento ACBrNFe1.Enviar(1,True); Help

Falha na validação dos dados da nota: 28001 1824 - Element '{http://www.portalfiscal.inf.br/nfe}uTrib': 'UN' is not a valid value of the local atomic type. Alguém pode ajudar neste erro? No site da SEFAZ RS consigo validar o XML e no componente ACBr não valida. 52170303153841000127550010000280011000280016-nfe.xml

Minha NFe não é validada com sucesso. <?xml version="1.0" encoding="UTF-8" ?> - <NFe xmlns="http://www.portalfiscal.inf.br/nfe"> - <infNFe versao="3.10" Id="NFe52170303153841000127550010000260011000260016"> - <ide> (GERADO PELO ACBR) <?xml version="1.0" encoding="UTF-8"?> -<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10"> -<NFe xmlns="http://www.portalfiscal.inf.br/nfe"> -<infNFe versao="3.10" Id="NFe52170311576937000126550010000005491000005494"> -<ide> OU SEJA: está faltando a tag -<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10"> Quero saber se esta TAG que esta faltando pode interferir no envio do XML. Desde já agradeço.

element is not expected. Falha na validação dos dados da nota: 17001 1871 - Element '{http://www.portalfiscal.inf.br/nfe}vFCPUFDest': This element is not expected. Expected is ( {http://www.portalfiscal.inf.br/nfe}vBCST ). alguém pode dar uma luz ? 52170303153841000127550010000170011000170018-nfe.xml

Delphi XE2. Ainda não ouvi falar de revert no Delphi. Seria instalar tudo de novo ?

Ao tentar abrir o exemplo da NFe do ACBr ocorre este problema. Já usei o instalador do fortesreport-ce. O que mais preciso instalar ? Como faço para ver se o fortesreport-ce ficou instalado com sucesso ? Ao entrar no delphi ele lança esta mensagem:

Muito obrigado pela ajuda. [DCC Error] Unit1.pas(424): E2003 Undeclared identifier: 'TpcnTipoEmissao' edtPathLogs.Text := Ini.ReadString( 'Geral','PathSalvar' ,PathWithDelim(ExtractFilePath(Application.ExeName))+'Logs') ; edtPathSchemas.Text := Ini.ReadString( 'Geral','PathSchemas' ,PathWithDelim(ExtractFilePath(Application.ExeName))+'Schemas\'+GetEnumName(TypeInfo(TpcnVersaoDF), integer(cbVersaoDF.ItemIndex) )) ; PathWithDelim aparece sublinhado no Delphi não identificado logo após a instalação. Alguem já passou por este problema que impede compilar o projeto NFe?

Após reinstalar , na pasta do ACBr não existe mais a pasta exemplos - ACBRNFe2 , onde possuia exemplo de utilização. Onde posso encontrar um exemplo de uso da NFe e NFCe ? Alguém ajuda ? Obrigado.

Embarcadero Delphi for Win32 compiler version 23.0 Copyright (c) 1983,2011 Embarcadero Technologies, Inc. C:\ACBr\Fontes\ACBrDFe\ACBrMDFe\DAMDFE\Fast\ACBrMDFeDAMDFEFRDM.pas(549) Error: E2003 Undeclared identifier: 'Quality' ACBr_MDFeDamdfeFR.dpk(54) Fatal: F2063 Could not compile used unit 'ACBrMDFeDAMDFEFRDM.pas' Compilation failure SOMENTE ESSE ERRO OCORREU log_Delphi_XE2.txt

Qual url do repositório devo utilizar ? Fiz e continuou a mesma versao no delphi

Poderia por favor dizer como faço a desinstalação corretamente do componente Ricardo? Temo não fazer direito e atrapalhar futuras re-instalações. Pergunta: é necessário ter instalado o componente Fortesreport para ficar correta a instalação?

Ainda não consegui passar deste problema alguém mais pode dar uma luz?

Quando você pergunta se o componente está mesmo vendo a pasta dos schemas , tem como eu verificar se o componente (enxerga) ela ? As pastas estão de acordo com a criação da pasta exemplos da NFe. O script te parece certo Ricardo ? Obrigado por responder.

Basicamente, explicando melhor, eu preciso que em apenas um botao se crie o xml da nota e transmita para os servidores. Estou tentando assim: procedure TForm1.Button2Click(Sender: TObject); begin If MessageDlg('Tem certeza que quer enviar esta NFe?',mtConfirmation,[mbyes,mbno],0)=mryes then begin GerarNFe(cds.Fields[0].AsString+'001'); end; end; daí conforme o exemplo do ACBrNFE2 segue: ACBrNFe1.NotasFiscais.Clear; with ACBrNFe1.NotasFiscais.Add.NFe do begin Ide.cNF := StrToInt(NumNFe); //Caso não seja preenchido será gerado um número aleatório pelo componente Ide.natOp := 'VENDA PRODUCAO DO ESTAB.'; Ide.indPag := ipVista; Ide.modelo := 55; Ide.serie := 1; Ide.nNF := StrToInt(NumNFe); Ide.dEmi := Date; Ide.dSaiEnt := Date; Ide.hSaiEnt := Now; Ide.tpNF := tnSaida; Ide.tpEmis := TpcnTipoEmissao(cbFormaEmissao.ItemIndex); Ide.tpAmb := taHomologacao; //Lembre-se de trocar esta variável quando for para ambiente de produção Ide.verProc := '1.0.0.0'; //Versão do seu sistema Ide.cUF := NotaUtil.UFtoCUF(edtEmitUF.Text); Ide.cMunFG := strtoint(trim(edtEmitCodCidade.Text)); Ide.finNFe := fnNormal; . Form1.SQLAUX.Close; //minha query buscando os dados do cliente Form1.SQLAUX.SQL.Text := 'select * from cliente where ...' Form1.SQLAUX.Open; Dest.CNPJCPF := Form1.SQLAUX.FieldByName('CGC').AsString; Dest.IE := Form1.SQLAUX.FieldByName('IE').AsString; Dest.ISUF := ''; Dest.xNome := Form1.SQLAUX.FieldByName('NOME').AsString; Dest.EnderDest.Fone := Form1.SQLAUX.FieldByName('FONE').AsString; //'1532599600'; azmask if Form1.SQLAUX.FieldByName('CEP').asstring <> '' then Dest.EnderDest.CEP := Form1.SQLAUX.FieldByName('CEP').AsInteger else Dest.EnderDest.CEP := 0; Dest.EnderDest.xLgr := Form1.SQLAUX.FieldByName('ENDERE').AsString; Dest.EnderDest.nro := Form1.SQLAUX.FieldByName('COMPLE').AsString; Dest.EnderDest.xCpl := ''; . i := 0; Form1.cds2.First; while not cds2.Eof do begin inc(i); with Det.Add do begin Prod.nItem := i; // Número sequencial, para cada item deve ser incrementado Prod.cProd := cds2.FieldByName('CODIGO').AsString; Prod.cEAN := cds2.FieldByName('REFERENCIA').AsString; Prod.xProd := cds2.FieldByName('DESCRICAO').AsString; Form1.SQLAUX.Close; Form1.SQLAUX.SQL.Text := 'select * from estoque where CODIGO = ' + QuotedStr(Prod.cProd); Form1.SQLAUX.Open; Prod.NCM := Form1.SQLAUX.FieldByName('CF').AsString; // Tabela NCM disponível em http://www.receita.fazenda.gov.br/Aliquotas/DownloadArqTIPI.htm Prod.EXTIPI := ''; Prod.CFOP := Form1.SQLAUX.FieldByName('CFOP').AsString; Prod.uCom := Form1.SQLAUX.FieldByName('MEDIDA').AsString; Prod.qCom := Form1.SQLQuery2.FieldByName('QUANTIDADE').AsFloat; Prod.vUnCom := Form1.SQLQuery2.FieldByName('UNITARIO').AsFloat; . Transp.veicTransp.placa := ''; Transp.veicTransp.UF := ''; Transp.veicTransp.RNTC := ''; end; //fim tenta enviar . ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe; ACBrNFe1.Configuracoes.Geral.VersaoDF := TpcnVersaoDF(ve310); ACBrNFe1.NotasFiscais.Valida; ACBrNFe1.Enviar(NumNFe,True); MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS); LoadXML(MemoResp, WBResposta); --------------------------- Project --------------------------- nfe_v3.10.xsd#/schema/element[1][@name = 'NFe'] Tipo XSD não declarado: '{http://www.portalfiscal.inf.br/nfe}TNFe' --------------------------- OK --------------------------- o erro acontece quando o ponteiro está no Valida... existe o arquivo nfe_v3.10.xsd na pasta corretamente copiada... Alguém já passou por isso?

--------------------------- Projectvendas --------------------------- nfe_v3.10.xsd#/schema/element[1][@name = 'NFe'] Tipo XSD não declarado: '{http://www.portalfiscal.inf.br/nfe}TNFe' --------------------------- OK --------------------------- Ao tentar usar a função VALIDA ocorre este erro acima descrito. Alguém pode ajudar ? Usei primeiramente a função GerarNFe(cds.Fields[0].AsString+'001'); e gostaria que esta mesma função depois de construir o objeto ACBrNFe1.NotasFiscais.Add.NFe já transmitisse a nota fiscal construída.