Jump to content

botao.pngbotao.png

botao.pngbotao.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

Marcelo Bill

Membros
  • Content Count

    411
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by Marcelo Bill

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

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

     

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

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

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


     

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

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

    • Like 1
  8. 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

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

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

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

    • Like 2
  12. 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

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

×
×
  • Create New...