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]

ACBrMail.Body.Text := Mensagem.Text; ACBrMail.IsHTML := True sem sucesso!!! faz exatamente igual ao problema mencionado

vou experimentar, não sei se voce percebeu que o arquivo XML que deveria ir para o anexo, está entrando no final do corpo da mensagem

Juliana, não entendi muito bem como o sujeito resolveu a questão, mas com algumas tentativas aqui eu consegui fazer funcionar usando o Delphi 2010. mas quando uso da mesma maneira no Delphi 7 ele não consegue compilar com o tipo TMailAttachmentDisposition existe alguma dificuldade com o D7 ? posso sim so um momento

Testando agora com o Demo Sinceramente, olhando para o demo, ficou muito confuso. Eu preciso apenas mandar um email Assunto corpo texto anexo(arquivoXML) anexo(arquivoPDF) tem alguma configuração simples pra isso ?

Boa tarde pessoal Meu acbr foi atualizado a uns dias e depois disso, quando eu envio email com dois anexos: XML e PDF ocorre o seguinte no destinatário chega: o Corpo da mensagem e quando finaliza a mensagem ele continua com o arquivo XML em forma de texto já o PDF fica como anexo de forma correta. alguem poderia de dizer o que fazer para corrigir isso obrigado

dercide alvarez Bom dia Ontem mesmo, depois de ter postado, me toquei de conferir o XSD do leiaute 4.0 e percebi que somente inteiro. Não, o cliente não se confundiu, ele pediu isso mesmo, vou ser obrigado a informar que "NÃO É POSSIVEL". Muito obrigado pela rápida resposta

Boa noite pessoal Um cliente me encaminhou um email do cliente dele o qual solicita que na Tag nItemPed tenha condição de ser alfaNumérico, pois o item do pedido do cliente como exemplo do e-mail é m15p. Um valor de item sem pé nem cabeça mas é isso. gostaria de saber se existe alguma restrição neste aspecto ou se vou retornar ao cliente que isso não será possível; sem mais agradeço

Ebaaaaa

Italo obrigado por responder, mas infelizmente o erro é o mesmo. a impressão que dá é que ta faltando alguma informação na XML, mas eu sinceramente não consigo encontrar onde essa URL está vazia. o componente tem muitas opções talvez isso não esteja encontrando ou deixando de preencher alguma tag. Quando tento enviar, como EnviarSincrono precisa de certa forma criar o XML, ai creio que ele bate na propriedade GERAR onde dá o mesmo erro.