Ir para conteúdo
  • Cadastre-se

Daniel Paixão-Cascavel

Membros
  • Total de ítens

    447
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por Daniel Paixão-Cascavel

  1. Galera, tenho um problema que acho que quase todo mundo já passou porém, não sei como resolvê-lo.

    Eu tenho duas etiquetas de balança:

    1º: Preço do KG do produto: 12,39  Peso: 0,188 Total da etiqueta: 2,33 Código de Barras: 2014600002331

    2º: Preço do KG do produto: 18,99  Peso: 0,120 Total da etiqueta: 2,28 Código de Barras: 2190800002286

     

    Eu to usando o ACBrInStore pra decodificar.

    Eu pego o Total do ACBrInStore e divido pelo preco de venda e trunco o total conforme regras da ABNT. Faço a quantidade ficar igualzinha. Mando pra impressora a quantidade 0,188 e Valor Unitario de 12,39 só que, ao invés de, na impressora dar 2,33, dá 2,32. Isso por que a impressora me trunca o valor.

     

    Pergunta: Alguém já encontrou uma solução definitiva pra isto??

     

    Abraço a todos.

  2. Galera, estou com um pequeno problema/dúvida:

    Um cliente meu pediu para que, quando a venda for em cheque, saia, após a forma de pagamento cheque, na observação, os cheques e seus respectivos venctos. Eu fiz a alteração e vi um problema, preciso que cada cheque saia em uma linha e, para isso, supus que pudesse separar por pipe ou quebra de linha porém, ao analisar o codigo do ACBrECF, eu notei que ao efetuar uma forma de pagamento, ele tira os pipes e quebras de linha da observação. Pergunta: Não existe a possibilidade de quebrar linhas na obs da forma de pagamento?

     

    Tks.

  3. Boa noite.

    Gostaria de sugerir a criação de dois eventos no componente ACBrECF:

    TOnNumeroSerieNaoEncontrado = procedure(const NumeroSerie:String) of object;

    TOnValorGTInvalido = procedure(const ValorGT:Double) of object;

     

    Esses dois eventos seriam muito úteis para tratar no sistema caso acontecesse um desses casos.

     

    Obrigado.

  4. Olá galera! Um cliente meu está enchendo o saco por que no final do cupom, o sistema pula mais ou menos uns 3 cm de papel antes do corte. Quando tem o cupom do cliente assinar então, sai 3cm do cupom e mais 3cm do cupom pra assinar. Já verifiquei e vi que não é o meu sistema que faz isso, mas sim, o ACBrECF. Gostaria de saber com os senhores se tem como diminuir esse saldo no final do cupom. A impressora é Bematech MP2100-TH Não fiscal.

     

    Abraço.

  5. Você chegou a conferir na pasta Exemplos/ACBrPAF, Exemplos/ACBrEAD e Exemplos/ACBrAAC

    no caso os exemplos são bem esclarecedores de como funciona e como utilizar os componentes

    Juliomar, obrigado pela resposta e sim, eu olhei os exemplo porém, o meu maior problema é a junção desses três componentes.

  6. Galera, eu já li alguns tópicos aqui no forum do ACBrPAF sobre a maneira de assinar digitalmente os arquivos e gerar a lista de arquivos autenticados porém, um fala uma coisa, outro fala outra e acaba que as informações ficam desencontradas. Gostaria que alguém com gabarito descrevesse aqui a maneira correta de se utilizar o ACBrPAF, ACBrAAC e ACBrEAD para gerar os arquivos de identificação do PAF. Se possível, postar um exemplo de como fazê-lo pois, acho que essa dúvida ainda será levantada por muitos.

    Obrigado.

  7. Eu tenho a mesma impressora aqui e comigo isso não acontece não. Provavelmente você tem algum problema no código. Quanto ao cara dar 3 "enter's" para passar 3 quantidades, por que você não liberar para o usuario digitar a quantidade? Outra coisa, se você travar pra esperar a resposta da impressora e só depois passar o próximo item, você vai ter sérios problemas. Já imaginou um dia de comercio cheio? Aquela filona no caixa? PDV com ECF tem que ser o mais rápido possível. #ficaadica.

  8. Olá adms do site.

    Estou usando os fontes do RecuperaXML pra baixar NF's do site da receita e dar entrada.

    Pra mim ta funcionando 100% mas, para isso tive que fazer algumas pequenas modificações na unit ACBrHTMLToXML.

    Estou enviando, se os senhores acharem por bem atualizar no repositório, fico agradecido.

    Abraço.

    ACBrHTMLtoXML.pas

  9. Boa tarde a todos, gostaria de agradecer as dicas que venho recebendo esta sendo de grande ajuda! Porém ainda me restam algumas dúvidas =P...

    Estou usando o seguinte código para imprimir o DANFE:

      ACBrNFe.NotasFiscais.Clear;
    
      ACBrNFe.Configuracoes.Certificados.NumeroSerie := nfe_versao.FieldByName('nfe_CertificadoNumeroSerie').AsString;
    
      ACBrNFe.NotasFiscais.LoadFromFile( ExtractFilePath( Application.ExeName ) +'/NFe/'+ nfe.FieldByName('nfe_Chave').AsString +'-NFe.xml' );
    
    
      ACBrNFe.WebServices.ConsultaDPEC.NFeChave := ACBrNFe.NotasFiscais.Items[0].NFe.infNFe.ID;
    
      ACBrNFe.WebServices.ConsultaDPEC.Executar;
    
    
      ACBrNFe.DANFE.ProtocoloNFe := ACBrNFe.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(ACBrNFe.WebServices.ConsultaDPEC.dhRegDPEC);
    
    
      ACBrNFe.NotasFiscais.Imprimir;

    A mensagem de erro é: QRNFE.Page.Continuous: Property Continuous does not exist.

    O que estou fazendo de errado?

    Veja isso:

    viewtopic.php?f=6&t=7558

  10. Crie sua classe assim:

    unit Unit2;
    
    
    interface
    
    
    type
    
      TItem = class
    
        private
    
          FNome : string;
    
        public
    
          property Nome : string read FNome write FNome;
    
      end;
    
    
    type
    
      TPedido = class
    
        private
    
          FItem : TItem;
    
          function GetItem:TItem;
    
        public
    
          property Item : TItem read GetItem write FItem;
    
    
          destructor Destroy;override;
    
      end;
    
    
    implementation
    
    
    function TPedido.GetItem:TItem;
    
    begin
    
       if (Not Assigned(FItem)) then
    
          FItem := TItem.Create;
    
    end;
    
    
    destructor Destroy;
    
    begin
    
       if (Assigned(FItem)) then
    
          FreeAndNil(FItem);
    
    end;
    
    
    end.
    Depois use assim:
    
    procedure teste;
    
      var
    
        Pedido : TPedido;
    
    begin
    
      Pedido                                        :=  TPedido.Create;
    
    
      {FAZENDO ISSO RETORNA ERRO}
    
      Pedido.Item.Nome                              :=  'ABC';
    
    end;

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