FlávioDelesposte

Vou aguardar e tentar novamente. Obrigado, Italo.

Boa tarde, amigos. Estou tendo problema com a consulta cadastro. Alguém pode ajudar? Os detalhes seguem abaixo. Utilizo Delphi 2007, ACBr e Schemas atualizados dia 10/08/2015. Obrigado. Erro: Could not find a part of the path '\\s3a699\S3A71018P0_DotNet\dotnet\Internet\ConsultaCadastroService\App_Data\consCad_v2.00.xsd'. Retorno do WebService: - <retConsCad versao="2.00" xmlns="http://www.portalfiscal.inf.br/nfe"> - <infCons> <cStat>99</cStat> <xMotivo>Could not find a part of the path '\\s3a699\S3A71018P0_DotNet\dotnet\Internet\ConsultaCadastroService\App_Data\consCad_v2.00.xsd'.</xMotivo> </infCons> </retConsCad>

Obrigado!

Estou tentando realizar o download de uma NF-e da Sefaz, tudo funciona perfeitamente até executar a função ACBrUtil.ParseText, mais precisamente na chamada a função Utf8Decode que retorna vazio. A função Utf8Decode faz chamada a função Utf8ToUnicode que devolve -1. Ou seja, ocorreu algum erro na conversão. Debugando... consegui encontrar que o problema ocorre quando a função Utf8ToUnicode passa pelo caractere BELL. Já tentei criar uma outra função para remover o BELL antes de chamar a função Utf8Decode, mas não deu certo. Como “alternativa” fui na função ACBrUtil.ParseText e realizei algumas mudanças conforme abaixo, está resolvendo por enquanto, mas creio que não é uma boa opção, rs. Segue em anexo o XML da NF-e que consegui após realizar a modificação na função ACBrUtil.ParseText. Estou usando Delphi 2007. Agradeço a quem puder ajudar. function ParseText( Texto : AnsiString; Decode : Boolean = True; IsUTF8: Boolean = True ) : AnsiString; var {Adicionado para resolver o problema de conversão} TextoTemp: AnsiString; begin if Decode then begin Texto := AnsiString(StringReplace(String(Texto), '&amp;', '&', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&lt;', '<', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&gt;', '>', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&quot;', '"', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&#39;', #39, [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&aacute;', 'á', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&Aacute;', 'Á', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&acirc;' , 'â', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&Acirc;' , 'Â', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&atilde;', 'ã', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&Atilde;', 'Ã', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&agrave;', 'à', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&Agrave;', 'À', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&eacute;', 'é', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&Eacute;', 'É', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&ecirc;' , 'ê', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&Ecirc;' , 'Ê', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&iacute;', 'í', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&Iacute;', 'Í', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&oacute;', 'ó', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&Oacute;', 'Ó', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&otilde;', 'õ', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&Otilde;', 'Õ', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&ocirc;' , 'ô', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&Ocirc;' , 'Ô', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&uacute;', 'ú', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&Uacute;', 'Ú', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&uuml;' , 'ü', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&Uuml;' , 'Ü', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&ccedil;', 'ç', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&Ccedil;', 'Ç', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '&apos;', '''', [rfReplaceAll])); {Adicionado para resolver o problema de conversão} TextoTemp := Texto; if IsUTF8 then begin {$IFDEF DELPHI12_UP} // delphi 2009 em diante Texto := AnsiString(UTF8ToString(Texto)); {$ELSE} Texto := Utf8ToAnsi(Texto); {$ENDIF} end; end else begin Texto := AnsiString(StringReplace(String(Texto), '&', '&amp;', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '<', '&lt;', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '>', '&gt;', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), '"', '&quot;', [rfReplaceAll])); Texto := AnsiString(StringReplace(String(Texto), #39, '&#39;', [rfReplaceAll])); if IsUTF8 then begin {$IFDEF DELPHI12_UP} // delphi 2009 em diante Texto := AnsiString(UTF8ToString(Texto)); {$ELSE} Texto := AnsiString(UTF8Decode(Texto)); {$ENDIF} end ; end; {Adicionado para resolver o problema de conversão} if Texto = '' then begin Result := TextoTemp; end else begin Result := Texto; end; end; 32150627124023000164550000000151741000043990-nfe.xml

Tive o mesmo problema: Pacote "synapse.dpk" não Encontrado Resolvi removendo a contra-barra conforme abaixo. Errado - D:\Projetos\Componentes\ACBr\ Correto - D:\Projetos\Componentes\ACBr

Somando com o que o Valério Bezerra disse, o número de Drawback pode ter validade de até 03 anos (conforme prorrogação) e a função válida com apenas 01. Lembrando que o número não muda quando prorrogado. Links utilizados para consulta: http://www.mdic.gov.br/arquivos/dwnl_1311196743.pdf http://www.desenvolvimento.gov.br/arquivos/dwnl_1404478752.pdf