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.

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.

Italo e demais Peço mais vez ajuda pra tentar implantar a minha NFSe Já configurei tudo que podia e que não podia, já tentei seguir o que voce me disse anteriormente mas continuo tendo o problema com esse erro URL não definida para :TNFSeGerarNFSe Meu provedor é SIAPNet, voce até já adicionou ele no Cidades.INI e tudo mais. Infelizmente estou patinando no gelo. Essas são as configurações do DataModule +--------------------------------------------------------------- With acbrNFSe.Configuracoes.Certificados do begin NumeroSerie :=dm.EmpresaCERTIFICADO.AsString; End; Path_NFSe :=LerIni('NFSE','PATHNFSe'); Path_RPS :=LerIni('NFSE','PATHRps'); Path_Ger :=LerIni('NFSE','PATHGer'); Path_SchemaS :=LerIni('NFSE','PATHSchemas'); With acbrNFSe.Configuracoes.Arquivos do begin AdicionarLiteral :=True; EmissaoPathNFSe :=True; SepararPorMes :=True; SepararPorCNPJ :=True; PathGer :=Path_Ger; PathSchemas :=Path_SchemaS; NomeLongoNFSe :=True; PathMensal :=GetPathGer(0); PathCan :=PathMensal; PathSalvar :=PathMensal; Salvar :=True; End; With acbrNFSe.Configuracoes.Geral do begin Salvar :=True; PathIniCidades :=Path_Local; PathIniProvedor :=Path_Local; CodigoMunicipio :=StrToInt(FormatFloat('00',dm.Empresa.FieldByName('CodUF').AsInteger)+FormatFloat('00000',dm.Empresa.FieldByName('CodMun').AsInteger)); UserWeb :=dm.Empresa.FieldByName('UsuarioWeb').AsString; SenhaWeb :=dm.Empresa.FieldByName('SenhaWeb').AsString; with Emitente do begin CNPJ :=dm.Empresa.FieldByName('cnpj').AsString; InscMun :=dm.Empresa.FieldByName('Municipal').AsString; RazSocial :=dm.Empresa.FieldByName('Razao').AsString; WebUser :=dm.Empresa.FieldByName('UsuarioWeb').AsString; WebSenha :=dm.Empresa.FieldByName('SenhaWeb').AsString; WebFraseSecr :=''; end; End; With acbrNFSe.Configuracoes.WebServices do begin Salvar :=True; Ambiente :=iif(dm.EmpresaAMBIENTE.AsInteger=0,taHomologacao,taProducao); Visualizar :=False; UF :=dm.Empresa.FieldByName('Estado').AsString; TimeOut :=5000; End; With acbrNFSe.Configuracoes.Geral do begin SSLLib :=libWinCrypt; SetConfigMunicipio; End; with acbrNFSe do begin if DANFSE <> nil then begin DANFSE.Logo := LerIni('NFSE','LOGOPREF'); DANFSE.PrestLogo := LerIni('NFSE','LOGO'); DANFSE.Prefeitura := dm.EmpresaPREFEITURA.AsString; DanfSE.PathPDF := Path_Local; DanfSE.TipoDANFSE :=tpPadrao; end; end; +------------------------------------------------------------------------ Aqui segue a forma que estou gerando e enviando {aqui eu preencho os dados da XML} MyLote :=dm04.NotaComRps.FieldByName('RPS').AsInteger; MyRps :=dm04.NotaComRps.FieldByName('RPS').AsInteger; dm00.acbrNFSe.Gerar(MyRps,MyLote); dm00.acbrNFSe.GerarLote(MyLote); //dm00.acbrNFSe.NotasFiscais.ValidarLote(MyLote,); dm00.acbrNFSe.EnviarSincrono(MyLote); //dm00.acbrNFSe.ConsultarLoteRps(MyLote); with dm00.acbrNFSe do begin rCodigo :=WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ 0 ].Codigo; rMsg :=WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ 0 ].Mensagem; rCorrecao :=WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ 0 ].Correcao; end; showmessage(rCodigo+' - '+rmsg+' - '+rCorrecao); o erro ocorre ao Gerar ou ao GerarLote, tanto com uma opção quanto a outra o erro ocorre. incrível, faz 3 anos que tento implantar essa nota, até então foi dificil descobrir que a Prefeitura de Pinda não tinha WS, agora que encontrei alguem na prefeitura que me respondeu a altura, não consigo avançar no caso. agradeço muito uma ajuda.

Daniel Eu de vorta ACBrETQPPLa.pas (Perfeito) não precisa mexer em nada, está funcionando corretamente no caso do Milimetro. agora eu determino 5,5 por exemplo e está sendo impresso à 5mm da esquerda e a 5mm do topo, perfeito. A única mudança mesmo é na ZPLII conforme post anterior. Espero que isso não se altere mais, já estou corrigindo meus modelos de etiqueta conforme essas configurações. Agora chega neh. das 8:00 as 1:08 da madrugada só vendo etiqueta, aja.. abraço a todos

Daniel Ebaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa Alterei a ComandoUnidade da ACBrETQZPLII.pas function TACBrETQZplII.ComandoUnidade: AnsiString; var a: Char; begin case Unidade of etqDots : a := 'd'; etqPolegadas : a := 'i'; else a := 'm'; end; // Result := '^MU'+a; //Result := ''; // Todos os comandos são convertidos para etqDots; end; e Removi todas as ConverterUnidade existente. (Bingo) problema resolvido na ZPLII Basta utilizar as medidas como antigamente era naquelas folhas quadriculadas onde a gente desenhava o relatório e depois escrevia o programa com base na linha e coluna onde continha o texto na mão. Agora, vou testar pra ver como ficou na Argox PPLa Daqui a pouco eu vorto

Daniel Mais um detalhe, voltei no tempo ACBr/AC (antes de Cristo) Eu usava dessa forma. zmemo.Lines.Add('^XA'); zmemo.Lines.Add('^MUm'); zmemo.Lines.Add('^LH1,1'); zmemo.Lines.Add('^FT3,3^A0N,3,3^FD'+LeftStr(dm.EmpresaFANTASIA.AsString,10)+'^FS'); zmemo.Lines.Add('^FT3,3^A0N,3,3^FD'+vCodigo+'^FS'); zmemo.Lines.Add('^FT1,4^AON5,5^FD'+vDescricao1+'^FS'); zmemo.Lines.Add('^FT1,6^AON1,5^FD'+vDescricao2+'^FS'); zmemo.Lines.Add('^FT1,8^AON1,5^FD'+vDescricao3+'^FS'); zmemo.Lines.Add('^FT1,10^AON1,5^FD'+'Original :'+vOriginal+'^FS'); zmemo.Lines.Add('^FT1,12^AON1,5^FD'+'Conversao:'+vConversao+'^FS'); zmemo.Lines.Add('^FT1,19,^BE,7,N,N,N^FD'+vBarra+'^FS'); zmemo.Lines.Add('^XZ'); Apenas adicionei o ^MUm conforme acima. Cara funciona direitinho, estou conseguindo fazer funcionar tudo em milimetros no caso ZPLII essa opção funciona sim, não sei nas demais. vou acionar novamente a opção no componente e desligar todas ConverterUnidades pra ver a m. que dá. se der certo, vou testar na Argox que tenho tambem daqui a pouco eu vorto

Daniel Me desculpa por não ser um gênio e não ter capacidade corrigir o problema no componente. A única coisa que posso dizer pra ajudar é que aparentemente o problema está ACBrETQClass.ConverterUnidade (entre calculos) que reflete diretamente em ACBrETQZPLII.ComandoCoordenadas assim como existe a diferença quando determino 3mm da esquerda e ela imprime a 10mm, existe também a definição da largura da etiqueta, pq se voce perceber na figura2, a segunda etiqueta lateral sai totalmente em branco, quando deveria ser preenchida conforme minha impressão. Sendo assim, em todas as functions que contenha aHorizontal e ou aVertical deve passar por essa conversão acredito eu. ImprimirTexto, ImprimirBarra, LinhaCaixa, ImrimirImagem, etc..

desculpa disse 60,60 quando deveria dizer 3,3 pelo que entendi voce determinou que seria 3mm da esquerda e 3mm do topo no caso do Biscoito, o que mesmo assim da essa diferença grande

Daniel Veja se entende o que estou fazendo Figura1: Largura de cada Etiqueta 50mm 2 Colunas Largura entre as etiquetas 3mm Codigo=Config do Campo Codigo que convertendo seria ImprimirTexto(ONormal, Fonte, FonteH, FonteV, LinhaV(mm), ColunaH(mm), CODIGO, 0); Figura2: Assim vou mostrar que mesmo colocando na Linha(1), Coluna(2), ele dá uma diferença de 7mm Figura3: Com aquelas conversões eu consigo fazer isso, mas não etá seguro, varia muito se eu mexer em tamanho, espaços etc. Figura4: Usando o Demo, voce mandou na Linha(60), Coluna(60), o que na realidade ficou com 10(mm) da esquerda e 8mm do topo da etiqueta. Config no Demo EtqMilimetro

Daniel Perai. depois que atualizei o componente todo, agora, o Demo está dando sinal de vida. Tá meio grandão as fontes mas vou verificar agora tudo denovo. De volta a novos testes. Assim que terminar eu grito abraço

Guenta ai Atualizei o componente e da dando um erro Fortes D:\CD\ACBr\trunk2\Fontes\ACBrDFe\ACBrNFe\DANFE\NFCe\Fortes\ACBrDANFCeFortesFr.pas(1371) Error: Undeclared identifier: 'UnlimitedHeight' vou tentar descobrir. Reinstalar o componente e testar o Demo novamente

Bom dia aTodos Daniel Me perdoe na demora da resposta. Estive meio acamado. hoje estou testando aquela ACBrSerial.zip que voce postou aqui e disse inclusive que o demo também estava corrigido de acordo com o teste online da ZPLII. Putz, agora ferrou de vez. não testei ainda a PPLA. Com relação a impressora Zebra S4M, digo que ela realmente não é compativel com EPL2 em nenhuma das resoluções. Fiz o teste com o proprio Demo. ZPLII pra conseguir imprimir alguma coisa, tive que criar variaveis de fator de multiplicação pra chegar no milimetro desejado. Exemplo: aConversaoW :=0.3500; (50mm * 0.3500) corresponde a largura da etiqueta aConversaoH :=0.3450; (3mm * 0.3450) corresponde 3mm da esquerda da etiqueta aConversaoV :=0.3900; (3mm * 0.3900) corresponde 3mm do topo da etiqueta aConversaoB :=0.4270; (7mm * 0.4270) corresponde 7mm da Altura da barra Mas eu fiz isso só pra tentar ajudar a encontrar o problema, por favor, NÃO siga essas medidas pra fazer quisquer conversões, pois mesmo com essas funcionando, caso eu mude um linha ou outra, dê um espaço maior ou menor entre uma linha e outra, as conversões já não seguem da mesma forma. Na ZPLII também testei com o demo e deu o mesmo problema. Só lembrando, ainda estou com a S4M e tenho uma Argox OS214-Plus, ainda estou à sua disposição se quisermos resolver isso de vez. De outra forma, vou manter a Unit como estava antes dessas Units que voce postou aqui. Ou quem sabe, desistir do milimetro e mudar toda minha aplicação para Polegada. O problema é que vou ter que praticamente criar a etiqueta pra cada usuário, coisa que eu desejei evitar quando desenvolvi esse Construtor de etiquetas. Tenho dois sistemas, em cada sistema tenho aprox 22 modelos de etiqueta diferente, por isso desenvolvi esse Construtor para que esses modelos sejam tratados como registros no banco de dados e cada usuário pode se adequar àquele que melhor lhe convir ou criar seu proprio modelo. abraço

Ok Daniel Obrigado por responder, vou testar suas alterações

Boa noite Daniel Só lembrando, eu estou com uma S4M da zebra aqui comigo, ganhei mais uma semana pra ficar com ela. Se te interessar, posso ir até Tatui e levar a impressora pra voce testar o que precisar... O que voce acha ? O único problema é que não posso deixar a impressora com voce, no máximo, posso levar, deixar ai com voce durante o dia todo, dormirei em Tatui e no dia seguinte talvez o dia todo também. Digo isso porque estou no Vale do Paraíba a 300km. Estou a sua disposição. Se concordar com isso, na terça-feira dia 30 estarei ai. abraço