Gean Tonet

Achei o problema. Resolvido.

Bom dia; Estou com esse problema ao enviar o XML para o provedor da Publica. Tentei até com as funções da flexdocs mas ocorre o mesmo erro. O arquivo valida 100% no validador que a publica me passou. Fonte: ACBrNFSe.Configuracoes.Geral.Emitente.CNPJ := '03710901000165'; ACBrNFSe.Configuracoes.Geral.Emitente.InscMun := '770'; ACBrNFSe.Configuracoes.Geral.Emitente.RazSocial := 'PRESTADOR TESTE'; ACBrNFSe.Configuracoes.Geral.PathIniCidades := 'C:\casa\NFe\Serviço\'; ACBrNFSe.Configuracoes.Geral.PathIniProvedor := 'C:\casa\NFe\Serviço\'; ACBrNFSe.Configuracoes.Geral.CodigoMunicipio := StrToIntDef('4200309', 0); ACBrNFSe.Configuracoes.Geral.SSLLib := libCapicom; ACBrNFSe.NotasFiscais.Add; ACBrNFSe.NotasFiscais.LoadFromFile(vPastaNFSe+'\NFSe_'+FrmFuncoes.PADL(vNotaServico,9,'0')+'.xml',False); ACBrNFSe.Enviar(vLoteRPS,False); Arquivo em anexo. NFSe_000001569.xml

Obrigado BigWings. Mas descobri o problema. Na verdade eu esqueci de passar o valor para "ACBrNFSe.Configuracoes.Geral.CodigoMunicipio"; Problema Resolvido.

Boa tarde, Tenho todo o XML montado e assinado e preciso fazer apenas o envio do XML para o provedor da empresa Publica. Porem acaba ocorrendo o erro "URL não definida Para: TNFseEnviarLoteRps". Para informar o provedor estou usando o Arquivo .INI. O arquivo é para o município de agronômica, sendo assim tive que ajustar o arquivo Cidades.ini e Publica.ini. Fonte: ACBrNFSe.Configuracoes.Geral.Emitente.CNPJ := '03710901000165'; ACBrNFSe.Configuracoes.Geral.Emitente.InscMun := '770'; ACBrNFSe.Configuracoes.Geral.Emitente.RazSocial := 'PRESTADOR TESTE'; ACBrNFSe.Configuracoes.Geral.PathIniCidades := 'C:\casa\NFe\Serviço\'; ACBrNFSe.Configuracoes.Geral.PathIniProvedor := 'C:\casa\NFe\Serviço\'; ACBrNFSe.NotasFiscais.Add; ACBrNFSe.NotasFiscais.LoadFromFile(vPastaNFSe+'\NFSe_'+FrmFuncoes.PADL(vNotaServico,9,'0')+'.xml',False); ACBrNFSe.Enviar(vLoteRPS,False); O erro ocorre na hora de executar ACBrNFSe.Enviar. Segue em anexo os arquivos .ini. Componentes atualizados. Cidades.ini Publica.ini

Boa tarde, Quando vou transmitir o arquivo do bloco x recebo o retorno de "Aguardando". Mas quando vou consultar pelo numero do recibo retorna como "Não encontrado". Alguém com esse problema?

Achei essas informações no link http://legislacao.sef.sc.gov.br/html/atos_diat/2017/atodiat_17_017.htm: I – ALTERADO – Ato Diat 025/17, art. 1º – Efeitos a partir de 18.09.17: I – a partir de 8 de janeiro de 2018, os estabelecimentos enquadrados nos Códigos da Classificação Nacional de Atividades Econômicas (CNAE) 4731800 - Comércio varejista de combustíveis para veículos automotores; I – Redação original – vigente até 17.09.17: I – a partir de 1º de outubro de 2017, os estabelecimentos enquadrados nos códigos da Classificação Nacional de Atividades Econômicas (CNAE) 4731800 - Comércio varejista de combustíveis para veículos automotores; II – a partir de 1º de março de 2018, os estabelecimentos enquadrados nos códigos da Classificação Nacional de Atividades Econômicas (CNAE) 4713001 – Lojas de Departamentos ou Magazines; III – a partir de 1º de junho de 2018, os estabelecimentos enquadrados nos seguintes códigos da Classificação Nacional de Atividades Econômicas (CNAE): Isso é valido?

Então só sera obrigatório em janeiro o envio do bloco X?

Bom dia, acredito que o erro que passei acima seja por isso: De forma resumida: Até 16/09/2017 – Possibilidade enviar Redução Z ou Estoque ao ambiente de produção, na forma de teste 17/09/2017 a 30/09/2017 – Não enviem informação ao web service de produção 01/10/2017 – Início da obrigatoriedade. Qualquer informação recebida será considerada verídica para fins de auditoria e cruzamento de dados. http://bell.unochapeco.edu.br/lts/?p=3129 Obrigado.

Sim. Ai estou testando de outra forma, mas na hora de enviar retorna o erro: Erro Interno : 0 Erro HTTP: 500. Obs: Mesmo erro ocorre no ACBrBlocoXSign.

Bom dia, Descomentei a linha abaixo no arquivo ACBr.inc: // Descomente essa linha, para usar ZLibExGZ de \ACBr\Fontes\Terceiros\ZLibExGZ // ZLib de D7 contém bugs e está incompleta. Caso contrário usará compactação nativa, unit "ZLib" {.$DEFINE USE_ZLibExGZ} de {.$DEFINE USE_ZLibExGZ} para {$DEFINE USE_ZLibExGZ} O erro que apresenta agora é "O seu compilador não tem suporte nativo a ZipFile." Faltou eu fazer alguma coisa? Obs: Atualizei os fontes hoje.

Olhei o arquivo mas não achei. ACBr.inc

Desculpa, comentei aqui primeiro e por falta de atenção acabei comentando no outro tópico. Estou usando o componente ACBrBlocoX e até então estava tudo perfeito. Instalei ele essa semana. O único problema é que uso o delphi 7 e não tem suporte para zipfile. E infelizmente não estou conseguindo utilizar o zipmaster ou o TAbZipper para fazer o papel do zipfile.

Mudei para zipmaster e estou usando uma função que achei em outro tópico. Porem o problema continua. Segue fonte. function ZipFile(const DadosXML: AnsiString; const NomeArquivo: String): AnsiString; var Z : TZipMaster; SSIn : TStringList; sFile : string; ssOut : TFileStream; function EncodeBase64(Arquivo: TFileStream): String; Var Encoder64 : TIDEncoderMime; lstFile: TStringList; Begin try try Encoder64 := TIDEncoderMime.Create (Nil); lstFile := TStringList.Create; lstFile.LoadFromStream(Arquivo); Result := Encoder64.Encode(lstFile.Text); finally Encoder64.Free; lstFile.Free; end; except on E: Exception do //Nada end; end; begin try Z := TZipMaster.Create(nil); SSIn := TStringList.Create; sFile := ApplicationPath + NomeArquivo; SSIn.Text := DadosXML; SSIn.SaveToFile(sFile); //Ver se Precisa Z.ZipFileName := Copy(sFile,1,Pos('.',sFile)-1) + '.zip'; Z.FSpecArgs.Clear; Z.FSpecArgs.Add(sFile); Z.Add; ssOut := TFileStream.Create(Copy(sFile,1,Pos('.',sFile)-1) + '.zip',fmOpenRead); Result := EncodeBase64(ssOut); finally Z.Free; SSIn.Free; end; end; Onde é usado: function TEnviarBlocoX.GetXMLZipado: AnsiString; var AZip: AnsiString; begin if FXMLZipado = '' then begin if FXML <> '' then begin AZip := ZipFile(FXML, FPBodyElement+'.xml'); if AZip = '' then raise Exception.Create('O seu compilador não tem suporte nativo a ZipFile.'+sLineBreak+ 'Informe o XML já Zipado + Base64 em "XMLZipado"'); FXMLZipado := AZip;// EncodeBase64(AZip); end; end; Result := FXMLZipado; end; Fico no aguardo de uma luz.

Boa tarde, Estou com o mesmo problema, inclusive utilizando a função adaptada para o zipmaster do André. Alguma solução?

Entendi, achei que eu deveria passar o caminho do arquivo Zip para essa variável.

Bom dia, Estou usando o TAbZipper no Delphi 7 e estou com o mesmo erro. Eu zipo o arquivo e depois passo o caminho para a variável AZip. Segue fonte para melhor entendimento. Obs: Sou novo no uso dos componentes. Desculpa qualquer erro besta. function TEnviarBlocoX.GetXMLZipado: AnsiString; var AZip: AnsiString; begin if FXMLZipado = '' then begin if FXML <> '' then begin AZip := 'C:\EnviarEstoque.zip'; if AZip = '' then raise Exception.Create('O seu compilador não tem suporte nativo a ZipFile.'+sLineBreak+ 'Informe o XML já Zipado + Base64 em "XMLZipado"'); FXMLZipado := EncodeBase64(AZip); end; end; Result := FXMLZipado; end;