Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Marcelo Bill

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    411

  • Registro em

  • Última visita

  • Days Won

    1

 Tipo de Conteúdo 

Posts postados por Marcelo Bill

    TZipper no Lazarus

    em Object Pascal - Delphi & Lazarus

    Postado

    13 minutos atrás, Marcelo Bill disse:

    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 ...

     

    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

    TZipper no Lazarus

    em Object Pascal - Delphi & Lazarus

    Postado

    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 ...

     

    Impressão Etiqueta Zebra Lenta Com Acbretq

    em Dúvidas Gerais sobre o ACBr

    Postado

    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

    NFe-XML-Simples Nacional Excesso

    em ACBrNFe

    Postado

    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

    NFe-XML-Simples Nacional Excesso

    em ACBrNFe

    Postado

    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


     

    Erro ao instalar o ACBR

    em Dúvidas Gerais sobre o ACBr

    Postado

    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.
     

    ACBrMail erro no corpo com anexo

    em Dúvidas gerais

    Postado

    1 minuto atrás, Daniel Simoes disse:

     

    Acho que você não precisa fazer isso... use o tipo enumerado, diretamente no comando

          ACBrMail1.AddAttachment(aFileName, aDescription, adAttachment);

    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

     

    image.thumb.png.e74f3456a23ba3fdd45dbaaa24357b0b.png

    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

    • Curtir 2

    ACBrMail erro no corpo com anexo

    em Dúvidas gerais

    Postado

    1 minuto atrás, Daniel Simoes disse:

    Sim... sem dúvida isso afeta a maneira que será exibido... Porque não usar diretamente o enumerado: "adAttachment" ?

    não vejo motivos para o código não ser compatível com D7

    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

    ACBrMail erro no corpo com anexo

    em Dúvidas gerais

    Postado

    1 minuto atrás, Daniel Simoes disse:

    Por favor Experimente mudar o seguinte:
      

    
ACBrMail.Body.Text := Mensagem.Text;
ACBrMail.IsHTML := True

     

    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

    ACBrMail erro no corpo com anexo

    em Dúvidas gerais

    Postado

    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 ?

    35 minutos atrás, Daniel Simoes disse:

    Não consegui compreender o que você descreveu no Primeiro Post...

    Pode por favor postar alguma imagem, que nos ajude a compreender melhor o problema ?

    Qual é o código que você usa para anexar e enviar o e-mail ?

    posso sim so um momento

     

    image.thumb.png.9d496fdb88ee06ebb991bc725d43398f.png

    ACBrMail erro no corpo com anexo

    em Dúvidas gerais

    Postado

    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

    nItemPed e xPed

    em ACBrNFe

    Postado

    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

    • Curtir 2

    nItemPed e xPed

    em ACBrNFe

    Postado

    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

    URL não definida para :TNFSeGerarNFSe

    em ACBrNFSe

    Postado

    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.

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...