Marcelo Bill

Daniel, como vai tudo bem? andei varrendo a net em busca de um compactador para lazarus e encontrei o TZipper (super fantastico) ------------------- Exemplo: procedure TForm1.Button1Click(Sender : TObject); // COMPACTA Var FZipper : TZipper; SL : TStringList; begin FZipper := TZipper.Create ; SL := TStringList.Create; try SL.Add('ARQUIVO1.BIG'); SL.Add('ARQUIVO2.BIG'); SL.Add('ARQUIVO3.BIG'); FZipper.ZipFiles(Edit1.Text, SL); finally FZipper.free ; SL.Free; end; end; ------------------- De fato é muiiiiiiito simples usar, e o pior de tudo é que funciona direitinho. Só tem um problema que não estou conseguindo resolver. veja como eu estou fazendo Procedure Compactar; Var aZip:TZipper;SL:TStringList; Begin aZip:=TZipper.Create; SL:=TStringList.Create; With aZip do begin SL.Add('d:\Projeto\Teste\programa66.EXE'); SL.Add('d:\Projeto\Outros\Outro.EXE'); SaveToFile('d:\Resultado\Marcelo.rar'); End; End; Está funcionando direitinho, o único problema é que o Marcelo.rar leva junto a path dos arquivos, sendo assim quando eu abro o Marcelo.rar com o Winrar, a primeira coisa que vejo é d: (duplo ckick aqui) .Projeto (duplo click aqui) .Teste (duplo click aqui) programa66.exe eu preciso fazer dessa forma, porém que fique como no seu exemplo. Ou seja, mesmo eu apontando o caminho do arquivo, que ele tenha a opção de não armazenar as paths Será que voce já passou por isso, tem alguma idéia de como resolver isso? Sem mais, obrigado

Daniel, como vai tudo bem? andei varrendo a net em busca de um compactador para lazarus e encontrei o TZipper (super fantastico) ------------------- Exemplo: procedure TForm1.Button1Click(Sender : TObject); // COMPACTA Var FZipper : TZipper; SL : TStringList; begin FZipper := TZipper.Create ; SL := TStringList.Create; try SL.Add('ARQUIVO1.BIG'); SL.Add('ARQUIVO2.BIG'); SL.Add('ARQUIVO3.BIG'); FZipper.ZipFiles(Edit1.Text, SL); finally FZipper.free ; SL.Free; end; end; ------------------- De fato é muiiiiiiito simples usar, e o pior de tudo é que funciona direitinho. Só tem um problema que não estou conseguindo resolver. veja como eu estou fazendo Procedure ...

Bom dia Daniel Vejo que o Post é bem antigo, porém estou com o mesmo problema acima referido em ZT230, lento pra caraca. já ajustei a velocidade para 2 a 12 conforme a unit do ZPLII independente disso, fui na config do driver e mudei para 7, 10, 12, 15 e não faz diferença continua lento vejo também que aparentemente o ACBrETQ foi alterado a ultima vez em 12/01/2019, no entanto, já fiz atualizações recentemente e o problema não ocorreu. Informo que no caso desse cliente, o problema passou a ocorrer depois que a maquina foi formatada e a impressora foi re-instalado como sempre foi e depois disso passou a dar essa lentidão braba mesmo segundo o cliente, disse que fez o Reset, mas..., não estive lá pra ver, estou em Pindamonhangaba, Cliente em São Paulo. está em torno de 2 a 3 segundos para imprimir um carreira. Se souber de algo que possa acrescentar, agradecemos

BigWings Obrigado por informar onde encontrar a informação valeu mesmo abraço caso resolvido

Amarildo, obrigado por responder. Não tenho o conhecimento amplo sobre as regras do ACBrNFe, mas pelo que entendi, o Regime SNExcesso é de fato tratado como RPA, sendo assim, eu estava obrigando a XML ser criada como CSOSN eu queria de fato que se fosse possível voces me mostrarem onde estão essas condições dentro do componente, mais para saber e ampliar o conhecimento sobre esse regime. atualmente tem uma banda de empresas estourando o Limite do SN. Digo isso porque desse mesmo cliente, no ano passado aconteceu a mesma coisa com uma outra empresa do mesmo Grupo desse cliente. Se quiser simular, fica fácil, basta tentar criar um XML com CRT=2 e usar o CSOSN, vai perceber que ele não vai criar a tag, mas vai criar o CST00 abraço

Boa tarde pessoal Estou com um pepino e preciso da ajuda de vocês. Tenho um cliente que é Industria e excedeu o limite do simples nacional e com isso ele foi indicado a usar a opção do CRT como crtSimplesExcessoReceita(2) até ai tudo bem a questão é que estou criando uma NF-e de Sp para SP que contém MVA=50%, no meu sistema ele calcula tudo certinho. Codigo = xxx CFOP=5401 CST=0201 (com crédito) MVA=50 BaseST=Valor correto ValorST=ValorCorreto BaseIcms=0 ValorIcms=0 No entanto, quando gera o XML ele reage como se fosse RegimeNormal e coloca o CST como (cst00) e assim não armazena no XML os valores da ST. Alguem pode me dar uma esperança ? Muito Obrigado

Compreendido amigão abraço do Bill

Hum Juliomar, obrigado por responder. ao fazer update ja percebi que sofreu essa alteração Acabei de instalar com Sucesso. muito obrigado Era de fato um pequeno erro no instalador do componente. abraço Assunto encerrado

Pessoal boa tarde Acabei de baixar o ACBr estou tentando instalar e está dando o seguinte erro ACBr_PCNComum.dpk(47) Fatal: File not found: 'pcnConsReciDFe.dcu' segue abaixo o LOG da instalação Caminho: D:\CD\ACBr\trunk2\ Versão do delphi: Delphi 7 (0) Plataforma: Win32(0) ================================================================================ Removendo arquivos antigos do disco... Criando diretórios de bibliotecas... Removendo diretorios e pacotes antigos instalados... Adicionando library paths... COMPILANDO OS PACOTES... Compiling package D:\CD\ACBr\trunk2\Pacotes\Delphi\synapse\ACBr_synapse.dpk "C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "D:\CD\ACBr\trunk2\Pacotes\Delphi\synapse\ACBr_synapse.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation 37134 lines, 1.02 seconds, 269944 bytes code, 29297 bytes data. Compilation success Pacote "ACBr_synapse.dpk" compilado com sucesso. Compiling package D:\CD\ACBr\trunk2\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk "C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "D:\CD\ACBr\trunk2\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation Warning: Unit 'ACBrZLibExGZ' implicitly imported into package 'ACBr_Comum' Warning: Unit 'ACBrZLibEx' implicitly imported into package 'ACBr_Comum' Warning: Unit 'ACBrZLibExApi' implicitly imported into package 'ACBr_Comum' 29538 lines, 0.66 seconds, 118948 bytes code, 14861 bytes data. Compilation success Pacote "ACBr_Comum.dpk" compilado com sucesso. Compiling package D:\CD\ACBr\trunk2\Pacotes\Delphi\ACBrOpenSSL\ACBr_OpenSSL.dpk "C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "D:\CD\ACBr\trunk2\Pacotes\Delphi\ACBrOpenSSL\ACBr_OpenSSL.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation 21748 lines, 0.34 seconds, 66440 bytes code, 1781 bytes data. Compilation success Pacote "ACBr_OpenSSL.dpk" compilado com sucesso. Compiling package D:\CD\ACBr\trunk2\Pacotes\Delphi\ACBrDiversos\ACBr_Diversos.dpk "C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "D:\CD\ACBr\trunk2\Pacotes\Delphi\ACBrDiversos\ACBr_Diversos.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation 51731 lines, 0.64 seconds, 177600 bytes code, 9237 bytes data. Compilation success Pacote "ACBr_Diversos.dpk" compilado com sucesso. Compiling package D:\CD\ACBr\trunk2\Pacotes\Delphi\PCNComum\ACBr_PCNComum.dpk "C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "D:\CD\ACBr\trunk2\Pacotes\Delphi\PCNComum\ACBr_PCNComum.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation ACBr_PCNComum.dpk(47) Fatal: File not found: 'pcnConsReciDFe.dcu' Compilation failure Erro ao compilar o pacote "ACBr_PCNComum.dpk". Abortando... Ocorreram erros na compilação dos pacotes.

? Assunto Encerrado

Isso foi a primeira coisa que fiz, visto que o enumerador se encontra dentro do acbrMail e o no Uses na minha Unit tem o ACBRMail, no entanto quando compila ele ocorre erro uauuuuuuuuuuuuuuuuuuuuuuuuuuuuu Daniel, agora deu certo, no uses o ACBRmail estava depois de algumas units de Indy pois existem outras operações que uso a indy. foi só eu colocar o acbrMail antes dessas units e a coisa funcionou conforme voce descreveu acima, ou seja, sem a necessidade de definir variável muito obrigado, funcionou agora. abraço a voce e a todaequipe

Muito estranho, no D7 esse tipo de enumerado não funciona Tipo assim Var attach:TMailAttachmentDisposition; begin attach:=TMailAttachmentDisposition.adAttachment; (ocorre erro de compilação)

Oxi agora foi certo ? Simmmm

também não entendi porque o adattachment não reconhece sendo que o enumerado está dentro da unit acbrmail, tive que declarar a variavel para usar não reconhece

Daniel, o lance acho que está no Tipo adAttachment e adInline. No Delphi 2010 funcionou assim conforme a imagem já no Delphi 7 ele não reconhece o codigo Enviado para [email protected]