Painel de líderes

Valeu Daniel, eu testei aqui com os fontes sincronizados e o envio foi realizado corretamente. Att

Com a ajuda do @EliasCesar, efetuamos um refactoring nos fontes do componente ACBrBlocoX, removendo propriedades desnecessárias, e separando as classes em Units corretas O suporte nativo a compactação com FileZIP, está presente, porém só compatível com Lazarus ou Delphi XE2 ou superior... Para Delphis inferiores ao XE2, cabe ao programador, efetuar o Zip e encode 64 do XML, e informá-lo na propriedade "XMLZipado"

Bom dia, versao=0.06 --> 0.06 [obsFiscoDet001] --> [obsFiscoDet001001] Sds, Ricardo.

Seguem algumas correções para evitar erros e ficar de acordo com o restante do projeto sped ACBrLFDBloco_A_Class.pas ACBrLFDBloco_B.pas ACBrLFDBloco_B_Class.pas ACBrLFDBloco_A.pas

Sei que o post é antigo, só vou deixar aqui a solução porque eu demorei para achar, pois estava com mesmo problema, assim quem acessar esse post vera a resposta: Quando foi usar o jna para manipular a impressora sete o encode do JNA para: ISO-8859-1 System.setProperty("jna.encoding", "ISO-8859-1"); Aqui funcionou.

Boa tarde, reforçando o que o RicardoVoigt disse no item 1, segue imagem. Sds, Ricardo.

Boa tarde @João Paulo F. Bellucci, A alteração já está disponível no SVN. Att.

Alguma chance de o TStringList não estar inicializado? Parece um erro com ele mesmo, tente debuggar a rotina e verificar quais os valores da variável, aMensagem e do AltBody, provavelmente algum deles não está sendo inicializado corretamente.

Boa tarde, [Produto001] [Produto001]: 001001 001002 [Produto002]: 002001 002002 Mas geralmente usa-se somente uma observação para o fisco, hoje seria o Código ANP ou o CEST, na versão 0.08 do SAT o CEST vai ter campo próprio igual a NFe. Sds, Ricardo.

Olá Ricardo! o "AcbrNF1.NotasFiscas.Clear" está sendo executado. O que não estava sendo executado era o "AcbrNF1.NFe.WebServices.Retorno.Clear". Acreditamos que seja este o problema. Fizemos esta alteração e atualizamos e um cliente e até agora não deu nenhum problema. Obrigado, Rafael

Show de bola Juliomar, problema resolvido. Coloquei a pasta no c: (c:\ACBr) e compilou com sucesso! Obrigadão pela força.

Bom dia Todos os clientes que apresentaram o problema, após a atualização da DLL da Elgin resolveu, estão em produção com a nova versão a mais de um mês sem falhas de timeout.

Bom dia, tente informar indIEDest = 9 (Não contribuinte), porém devido a essa rejeição "Operação com não contribuinte deve indicar operação com consumidor final" então também deverá informar indFinal = 1 (Consumidor Final). Att Ricardo

Boa tarde Ítalo, Com certeza a Equipe do ACBR esta na ponta, utilizo o ACBR para CTe, NFe e DAMFe. Acho até que ano que vem deveriam dar uma reajustada nesta colaboração, isto vale ouro, kkkk. As vezes faço perguntas fora de semântica, é que fui coboleiro durante uns 20 anos, depois que migrei para o Delphi a 15 anos atrás parei com programação, meus programadores que cuidavam disto. Faz 8 meses que voltei a programar e tive que aprender Delphi, se você conhece linguagem de 3 geração, Cobol, Dataflex... sabe como é difícil adaptação, principalmente para quem passou do 50. Mas com relação a esta minha consulta, é sim baixar o XML, meu pessoal me disseram que não tinha como, pois existem NFe que irão gerar um Cte que pode ser de estado diferente, então precisa ler da base nacional. Outro caso é você precisar ler um Cte de um estado para fazer um redespacho em outro estado. Com a DLL que adquiri você informa a chave e ele busca no portal nacional. Mas com o DistribuicaoDFe pesquisando na base Nacional o problema será solucionado. Grato pela atenção.

Boa tarde Daniel, Os fontes a seguir foram implementados no Delphi XE6, não sei se vai funcionar em versões anteriores. Precisa declarar a unit System.Zip Segue: interface /// <summary>Comprimir um arquivo em Zip</summary> /// <param name="pFileToZip">Caminho do arquivo que será comprimido</param> /// <returns>Retorna o caminho do arquivo Zip</returns> /// <remarks>O arquivo Zip ficará na mesma pasta do arquivo de origem</remarks> class function ZipFile(pFileToZip: String): String; implementation uses System.Zip class function TFuncao.ZipFile(pFileToZip: String): String; var vZip: TZipFile; begin vZip := TZipFile.Create; try // Definir o nome do arquivo Zip Result := ChangeFileExt(pFileToZip, '.zip'); // Preparar para geração do arquivo vZip.Open(Result, zmWrite); // Incluir arquivo que será comprimido vZip.Add(pFileToZip); // Comprimir o arquivo vZip.Close; finally vZip.Free; end; end; Utilização do método acima // Obter o nome do arquivo XML vNomeArqXML := 'C:\teste.xml'; // Salvar o arquivo XML ACBrBlocoX.ReducoesZ.SaveToFile(vNomeArqXML); // Comprimir o arquivo XML em ZIP vNomeArqZIP := TFuncao.ZipFile(vNomeArqXML); try vStream := TMemoryStream.Create; try // Carregar o stream do arquivo Zip vStream.LoadFromFile(vNomeArqZIP); // Codificar o stream para Base64 WebServices.EnviarReducaoZ.XML := EncodeBase64(vStream.Memory, vStream.Size); finally vStream.Free; end; finally DeleteFile(PChar(vNomeArqZIP)); end; Att

Adicionei o suporte a compactação nativa, dentro do ACBr...

Caros companheiros de fórum : Hoje tomei conhecimento da Nota Técnica 2016.002 Alteração Leiaute da NF-e , baixei e dei uma rápida analise. Muitas dúvidas e é claro que será necessário muito esforço do grupo do ACBr para atender. Pretendo na próxima reunião da empresa que trabalho propor a eles retornar o pagamento do SAC como forma de ajuda e de reconhecimento ao esforço do team ACBr. Gostaria de fazer um apelo a todos os demais que ajudássemos também desta forma, pois vai tomar tempo fazer muitas dessas mudanças. Abraço a todos.