Ir para conteúdo
  • Cadastre-se

Embrati

Membros Pro
  • Total de ítens

    59
  • Registro em

  • Última visita

Posts postados por Embrati

  1. Abri o exemplo em outro computador com XE10.

    Fiz o seguinte ajuste na configuração da impressão:

        ACBrSATExtratoFortes1.LarguraBobina    := seLargura.Value;
        ACBrSATExtratoFortes1.Margens.Topo     := seMargemTopo.Value ;
        ACBrSATExtratoFortes1.Margens.Fundo    := seMargemFundo.Value ;
        ACBrSATExtratoFortes1.Margens.Esquerda := seMargemEsquerda.Value ;
        ACBrSATExtratoFortes1.Margens.Direita  := seMargemDireita.Value ;
        ACBrSATExtratoFortes1.MostrarPreview   := cbPreview.Checked;
        ACBrSATExtratoFortes1.ImprimeQRCode    := true;
        ACBrSATExtratoFortes1.MsgAppQRCode     := 'Consulte o QR Code pelo aplicativo  "De olho na nota" disponível na AppStore (Apple) e PlayStore (Android)';
        ACBrSATExtratoFortes1.Site             := 'www.teste.com.br';
        ACBrSATExtratoFortes1.SoftwareHouse    := 'Sistema emissor CFe-SAT desenvolvido por EmpresaNome Fone EmpresaFone';

    Todas as minhas dúvidas persitem:

    - Impressão da mensagem do QRCode não sai completa, como configuro ? veja pela imagem que ela esta sendo impressa no campo de retorno da SEFAZ e a mensagem esta cortada;
    - Impressão da mensagem no Simples Nacional não sai completa, como configuro ? A mensagem do simples esta aparecendo tb como retorno da sefaz e cortando;
    - Informação da lei da transparencia não sai no extrato, coloco em dados adicionais ? essa agora esta saindo eu não estava colocando o percentual;
    - lei da transparencia precisa ser impressa item a item ou ela é calculada item a item e impressa somente o total no final ? agora que informei o percentual, o mesmo esta sendo impresso item a item;
    - lei da transparencia precisa ser detalhada municipal, estadual e federal igual se faz na NFe ?
    - o componente possui o campo SoftwareHouse e Site mas ele não imprime nada, como configuro ?
    - Quando enviamos e-mail para o cliente, no mesmo não esta anexando o PDF do cupom, tem como adicionar ? meu cliente gostaria dessa facilidade pois os clientes dele nem sempre esperam a digitação da venda e depois ele tem o trabalho de mandar entregar, se o sistema enviar por e-mail junto com o XML fica tudo resolvido.
     

     

    SAT.jpg

    SAT.png

  2. Oi Daniel, obrigado pelo contato.

    Estou usando o FortesReport e não consigo usar o SAT teste porque da uma mensagem de erro ao abrir o projeto no delphi 7 "Error creating form: Identifier expected on line 7."

    - Impressão da mensagem do QRCode não sai completa, como configuro ? veja pela imagem que ela esta sendo impressa no campo de retorno da SEFAZ e a mensagem esta cortada;
    - Impressão da mensagem no Simples Nacional não sai completa, como configuro ? A mensagem do simples esta aparecendo tb como retorno da sefaz e cortando;
    - Informação da lei da transparencia não sai no extrato, coloco em dados adicionais ? essa agora esta saindo eu não estava colocando o percentual;
    - lei da transparencia precisa ser impressa item a item ou ela é calculada item a item e impressa somente o total no final ? agora que informei o percentual, o mesmo esta sendo impresso item a item;
    - lei da transparencia precisa ser detalhada municipal, estadual e federal igual se faz na NFe ?

    - o componente possui o campo SoftwareHouse e Site mas ele não imprime nada, como configuro ?

    - Quando enviamos e-mail para o cliente, no mesmo não esta anexando o PDF do cupom, tem como adicionar ? meu cliente gostaria dessa facilidade pois os clientes dele nem sempre esperam a digitação da venda e depois ele tem o trabalho de mandar entregar, se o sistema enviar por e-mail junto com o XML fica tudo resolvido.

    A configuração da impressão que estou fazendo esta assim:

    Procedure AcbrSat_Imprimir(AcbrSat : tAcbrSat; CaminhoNomeArquivo, TipoVouC, FormularioVouI : string);
    var
      ACBrSatExtrato : TACBrSATExtratoFortes;
      aDevice : array[0..255] of char;
      aDriver : array[0..255] of char;
      aPort   : array[0..255] of char;
      ahDMode : THandle;
    begin
      ACBrSatExtrato  := TACBrSATExtratoFortes.Create(Application);
      AcbrSat.Extrato := ACBrSatExtrato;

      try
        if trim(SatImpressoraNome)<>''
          then ACBrSATExtrato.PrinterName := SatImpressoraNome
          else begin
            Printer.GetPrinter(aDevice, aDriver, aPort, ahDMode);
            ACBrSatExtrato.PrinterName := aDevice;
          end;
      except
      end;

      ACBrSatExtrato.ImprimeQRCode    := true;
      ACBrSatExtrato.LarguraBobina    := 302;
      ACBrSatExtrato.Margens.Topo     := 5;
      ACBrSatExtrato.Margens.Fundo    := 5;
      ACBrSatExtrato.Margens.Esquerda := 5;
      ACBrSatExtrato.Margens.Direita  := 5;
      ACBrSatExtrato.MostrarPreview   := (FormularioVouI='V') or (SistemaRodandoComBaseDeTestes);
      ACBrSatExtrato.MostrarSetup     := (FormularioVouI='V') or (trim(SatImpressoraNome)='');
      ACBrSatExtrato.MsgAppQRCode     := 'Consulte o QR Code pelo aplicativo  "De olho na nota" disponível na AppStore (Apple) e PlayStore (Android)';
      ACBrSatExtrato.Site             := EmpresaSite;
      ACBrSatExtrato.SoftwareHouse    := 'Sistema emissor CFe-SAT desenvolvido por '+ EmpresaNome + ' Fone ' + EmpresaFone;

      if (Emit_Loja > 0) and (FileExists(ExePath+'LogoLoja_'+StrZero(Emit_Loja,3)+'.jpg'))
        then ACBrSatExtrato.PictureLogo.LoadFromFile(ExePath+'LogoLoja_'+StrZero(Emit_Loja,3)+'.jpg');

      if TipoVouC = 'V'
        then begin
          if trim(CaminhoNomeArquivo)<>''
            then ACBrSAT.CFe.LoadFromFile(CaminhoNomeArquivo);
          ACBrSAT.ImprimirExtrato;
        end
        else begin
          if trim(CaminhoNomeArquivo)<>''
            then ACBrSAT.CFeCanc.LoadFromFile(CaminhoNomeArquivo);
          ACBrSAT.ImprimirExtratoCancelamento;
        end;

      ACBrSatExtrato.Filtro           := fiPDF;
      ACBrSatExtrato.NomeArquivo      := 'Sat.PDF';
      AcbrSat_EnviarEmail(ACBrSAT, TipoVouC);

      ACBrSatExtrato.Destroy;
    end;

  3. Olá pessoal, Passei a manhã inteira pesquisando no forum, mas não consegui chegar a nenhuma conclusão. Poderiam me ajudar por favor com as seguintes dúvidas:

    - Impressão da mensagem do QRCode não sai completa, como configuro ?
    - Impressão da mensagem no Simples Nacional não sai completa, como configuro ?
    - Informação da lei da transparencia não sai no extrato, coloco em dados adicionais ?
    - lei da transparencia precisa ser impressa item a item ou ela é calculada item a item e impressa somente o total no final ?
    - lei da transparencia precisa ser detalhada municipal, estadual e federal igual se faz na NFe ?

    - o componente possui o campo SoftwareHouse e Site mas ele não imprime nada, como configuro ?

    SAT.jpg

  4. Bom dia Pessoal, estou retomando o assunto pois a mensagem do QRCode e do simples Nacional não estão sendo impressas corretamente. Alguém sabe se é questão de configuração ?

    Os campos SoftwareHouse e Site tb não estão sendo impressos.

    Segue imagem que demonstra problema.

    SAT.jpg

  5. Bom dia galera.

    Encontrei esse blog, através de pesquisas aqui mesmo no ACBR, e nele o proprietário disponibiliza o código fonte de um projeto para acesso remoto, segue link.

    http://softwaresesources.blogspot.com.br/2015/10/acesso-remoto-em-delphi-allakore-remote.html#comment-form

    gostaria de saber se alguém já teve ou soube de alguém que teve alguma má experiencia com esse software, tipo invasão indevida, roubo de dados e etc.

    agradeço pela atenção.

  6. Olá Pessoal,

    Estou com dificuldade em configurar o componente da NFe. Estou conseguindo emitir e gerar cópias, porém as demais pastas ainda não estão 100% pois não consigo entender algumas opções.

     

    Seguem minhas configurações comentadas com as informações que consegui reunir até agora e logo na sequencia a minha dúvida.

     

      // seta caminho do repositório de arquivos fiscais

      NFe2.Configuracoes.Arquivos.PathSalvar := QryConfig.fieldbyname('CaminhoRepositorio').AsString; // arquivos de troca com o webservice

      NFe2.Configuracoes.Arquivos.PathNFe    := QryConfig.fieldbyname('CaminhoRepositorio').AsString; // xml´s das NFe´s

      NFe2.Configuracoes.Arquivos.PathEvento := QryConfig.fieldbyname('CaminhoRepositorio').AsString; // Canc, CCe e etc

      NFe2.Configuracoes.Arquivos.PathInu    := QryConfig.fieldbyname('CaminhoRepositorio').AsString; // Inutilização

     

      // salva arquivos Enviados / recebidos Webservice

      NFe2.Configuracoes.WebServices.Salvar     := true;

     

      //Se True cria uma estrutura de pastas para separar os XML por CNPJ do Emitente.

      NFe2.Configuracoes.Arquivos.SepararPorCNPJ := true;

     

      // Se True cria uma estrutura de pastas para separar os XML por Modelo (55 e 65).

      NFe2.Configuracoes.Arquivos.SepararPorModelo := true;

      // Se True adiciona sub-pastas dentro da pasta Evento

      NFe2.Configuracoes.Arquivos.AdicionarLiteral := true;

     

      // Se True se baseia pela data de Emissão.

      NFe2.Configuracoes.Arquivos.EmissaoPathNFe := true;

      //Se True cria uma estrutura de pastas AnoMes ao Path

      NFe2.Configuracoes.Arquivos.SepararPorMes := true;

      //EMBRATI => Qual a diferença entre EmissaoPathNFe e SepararPorMes ??

     

      //

      NFe2.Configuracoes.Geral.Salvar := true;

      //Se True salva os arquivos XML referente aos diversos documentos (nfe, cce, cte, etc)

      NFe2.Configuracoes.Arquivos.Salvar := true;

      //EMBRATI => salvar o que especificamente? qual a diferença entre Geral.Salvar e Arquivos.Salvar ?

     

      // configura se componente criara pastas separadas para cada evento

      NFe2.Configuracoes.Arquivos.SalvarEvento := true;

     

      //Se True salva as NF-e processadas, ou seja com protocolo de Autorização ou Denegação.

      NFe2.Configuracoes.Arquivos.SalvarApenasNFeProcessadas := true;

      //EMBRATI => quando abro a pasta o xml esta la, mesmo que a NFe seja rejeitada.

     

      NFe2.Configuracoes.Geral.AtualizarXmlCancelado := true;

      //EMBRATI => o xml da emissão, que teoricamente não pode ser alterado, é atualizado com o cancelamento da nfe?

     

      // configura caminhos dos xml's de emissao e cancelamento para consulta

      CaminhoArquivoEmissao      := QryConfig.fieldbyname('CaminhoRepositorio').AsString+ QryConfig.fieldbyname('EmitCNPJ').AsString+ '\NFe\'+ OrganizaAnoMes(QryConfig.fieldbyname('NFDataEmissao').AsDatetime) +'\NFe';

      CaminhoArquivoCancelamento := QryConfig.fieldbyname('CaminhoRepositorio').AsString+ QryConfig.fieldbyname('EmitCNPJ').AsString +'\NFe\' +OrganizaAnoMes(QryConfig.fieldbyname('NFDataEmissao').AsDateTime);

      //EMBRATI => quais opções de getpath existem para eu recuperar os arquivos ?

     

      // nome dos arquivos para carregamento do XML

      NomeArquivoEmissao      := QryConfig.fieldbyname('NFNomeArquivoNFe').AsString;

      NomeArquivoCancelamento := QryConfig.fieldbyname('NFNomeArquivoNFeCancelada').AsString;

  7. Em 15/04/2014 at 08:07, EmersonPlt disse:

    Ola Pessoal, alguem poderia esclarecer algumas dúvidas sobre as configurações Salvar do ACBRNFe?

     

    Quais arquivos na verdade salvam :

     

    1. ACBRNfe.Configuracoes.Arquivos.Salvar = True ?

    2. ACBRNfe.Configuracoes.Geral.Salvar      = True ?

     

    E o que seria a propriedade: ACBRNfe.Configuracoes.Arquivos.AdicionarLiteral = True ?

     

    É que estou tentando organizar as pastas para salvar corretamente, mas estou confuso com estas configurações.

    bom dia, estou com essas mesmas dúvidas, onde vc encontrou as respostas ?

  8. Boa tarde pessoal...

    Desculpem a ignorância, mas realmente não consegui entender como alterar o nome e o endereço do emitente...

    abaixo seguem únicas informações que achei, quais são os demais campos ?

            // emitente
            Config.emit_CNPJ      := SatHomologacaoEmitenteCnpj;
            Config.emit_IE        := SatHomologacaoEmitenteIE;
            if trim(SatHomologacaoEmitenteIM)<>''
              then Config.emit_IM := SatHomologacaoEmitenteIM;

  9. Em 31/03/2016 at 07:27, Sérgio Assunção disse:

    O ACBrSAT já foi testado com praticamente todos os aparelhos existentes no mercado.

    Aqui temos nosso PDV em produção com aparelhos da Elgin, Tanca, Gertec, Dimep e Bematech.

    O que muda entre os modelos é exatamente a dll usada por cada aparelho (fornecida pelos fabricantes).

    No demo do ACBrSAT você vai deparar com o path da dll, e entender que no SAT as funções foram padronizadas.

    Sobre a consultoria, você pode abrir um novo tópico na área dos classificados.

    Sérgio, muito obrigado pelo retorno.

    Vou passar essa informação ao cliente, mas me diz uma coisa, você tem preferencia por alguma das marcas ?! Seja por preço, facilidade de compra e de suporte, garantia, etc.

  10. Prezados, bom dia.

    Gostaria de saber quais equipamentos SAT são compatíveis com o componente ACBR-SAT e qual o mais indicado por vocês, com relação a custo beneficio.

    Estou precisando desenvolver a integração no meu sistema, gostaria de saber também se alguém pode me dar uma consultoria sobre o assunto. 

     

    Att. Fábio Salviano

  11. Boa noite.

    Obrigada pela contribuição, porém como pode ser visto no tópico abaixo a lista de geradores de relatórios suportados pelo ACBr foi reduzida a fim de facilitar a manutenção dos mesmos.

    http://www.projetoacbr.com.br/forum/announcement/8-fortes-report-community-edition/

    Att.

    Por gentileza, reconsidere...

    Esse layout pode ser muito utili para toda a comunidade que utiliza o QuickReport e posso ficar responsável por qualquer manutenção necessária nesse código.

    Trata-se de um layout simples, confira no anexo, que já atende ao padrão dos bancos e esta dentro de uma UNIT que já trabalha com o QuickReport.

    As Units AcbrBoletoFCQuickFR contam agora com o Filtro de PDF para salvar na visualização.

    Posso também arcar com o custo de adiciona-lo, pois me pouparia o retrabalho de adequar o fonte do ACBR toda vez que eu baixar a atualização.

    ACBrBoletoFCQuickFr.dfm

    ACBrBoletoFCQuickFr.pas

    ACBrBoleto.pas

    boleto.PDF

  12. Bom dia...

     

    Estou precisando de um layout que possibilite um longo texto de detalhamento da cobrança, onde teríamos o recibo do sacado mais resumido na parte superior, depois um longo espaço para texto e por ultimo o boleto propriamente dito.

    Seria essa minha descrição o lFatura que vocês falam ?

    Vou desenvolve-lo usando esse parametro, vcs veem algum problema ?

    Passo os fontes assim que estiver pronto.

  13. Bom dia...

     

    Acredito que tenha a ver com o campo Titulo.Carteira, onde você deve informar o código da carteira contratada no banco.

    Essa carteira é o que determina se será com registro ou sem, se será com protesto ou sem.

    Veja qual valor você esta colocando no campo e qual valor o banco determina que seja colocado para a forma como você deseja trabalhar.

  14. Tive o mesmo problema aqui e consegui resolver instalando o certificado digital com um setup que eu baixei do site da Valid.

     

    Faça o download do arquivo no link a seguir: http://www.validcertificadora.com.br/upload/downloads/validcertificadora.exe

     

    Clique na opção instalar e selecione o tipo de certificado A1, irá abrir um instalado, basta informar o tipo do cerificado, o local e senha do certificado que a instalação irá ser concluída. Após terminar tente enviar que deve funcionar.

     

    O instalar .exe que é baixado no site da Valid não funcionou, diz que instalou o certificado mas não instala.

    Aqui funcionou, espero que ajude vocês também. 

    Segui esses passos e deu tudo certo, MUITO OBRIGADO !!!

  15. Por favor,

    não faça posts duplicados.

    Temos regras conforme pode ver neste  Em especial a "3.1 - Não faça flooding".

    Crie um tópico novo para uma dúvida nova conforme as regras, em especial a "2.2 - Permaneça no assunto". 

    Desculpe, trata-se de desespero...

    Prazo vencido e código aparentemente ok, mas não da o resultado esperado...

    Vontade de jogar impressora pela janela... kkkkk

    Pode me ajudar ?

  16. Olá,

     

    Estou tentando criar um modelo de impressão de etiquetas para óticas onde utilizo uma etiquetas que tem uma parte que passa pela haste, volta e é colada entre duas partes dobráveis da etiqueta.

    No desenho abaixo, a linha vertical no centro mostra onde ela é dobrada e a linha horizontal a esquerda mostra a parte que envolve a haste do óculos, volta e depois é colada entre as duas partes dobradas. A etiqueta é autoadesiva.

                                       -----------------------------

                                       |                |                   |

     ---------------------------|                |                   |

                                       |                |                   |

                                       -----------------------------

     

    Outro detalhe é que essa parte da etiqueta que envolve a haste passa pelo sensor de GAP, então não posso usa-lo pois não representa inicio e fim da etiqueta.

     

    Abaixo segue código que adicionei a um botão no exemplo do componente ACBrEtq:

     

      AtivarACBrETQ;
     
      with ACBrETQ do begin
        ImprimirTexto(orNormal, 1, 1, 1,  0, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1,  7, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 14, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 21, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 28, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 35, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
     
        ImprimirTexto(orNormal, 1, 1, 1,  0, 257, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1,  7, 257, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 14, 257, 'XXXXXXXXXXXXXXXXXXXXXXX');
     
        ImprimirBarras(orNormal, '2', '5', '2', 21, 257, '0123456789', 15, becNAO);
     
        Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text));
     
        Desativar;
      end;  
     
    Temos uma Argox OS-214 Plus novinha, já a reiniciei diversas vezes, uso padrao PPLB e o problema é que nenhum valor que eu coloque em Avanço da certo. O avança é sempre de 7mm.
     
    Alguém pode me ajudar POR FAVOR ???
×
×
  • 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.