Daniel Paixão-Cascavel

Vendo código fonte de framework de persistência feito em Delphi para qualquer banco de dados. Funcionando 100% em sistema comercial já. Interessados entrar em contato em [email protected].

Me mande um email com um escopo do que você quer.

Eu fiz um replicador próprio com serialização de objetos Delphi em XML porém, para fazer uma replicação você precisa saber bem o que voce quer e ter regras bem definidas. Vai por mim, não é tão simples, ainda mais quando depende de uma quantidade significativa de tabelas/colunas. Se quiser trocar uma idéia: [email protected].

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.

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.

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.

www.controleautomacao.com.br

[Resolvido] Obrigado xará! Apenas alterei o parâmetros LinhasEntreCupons e todos os meus problemas se resolveram.

Certo, mas eu não vi nada lá que seja identificado como pulo de papel no fim do cupom. Seria algum desses: [impressora] Colunas=50 Comando_Abrir_Gaveta=#27,m Comando_Incializacao=#27,#64 ;;Comando_Ativar_Condensado=#15 Comando_Expandido_uma_Linha=#14 Comando_Fim_Expandido= ???

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.

Contrato trabalho de programador Free Lance que manje muito de Envio/Recebimento de arquivo via Socket (Server e Client). Interessados, mande email para [email protected].

Certo, mas por exemplo, os dados que eu informar no ACBrAAC, eu tenho que re-informar no ACBrPAF? Ou ele ja pega automaticamente?

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

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.

Manda um arquivo de produtos em branco.

Hehehe, eu fiz um configurável, o cara coloca a imagem de fundo que quiser e os campos que quiser, onde quiser, no tamanho que quiser e, na cor que quiser. Logico que eu coloco um padrão pro cara usar.

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.

Não precisa por que, o lixo fica na paginação do banco e não no Metadata.

Hehehe, eu não sofri tanto assim, apenas extrai o metadata e depois os dados do firebird 2.0 e simplesmente recriei o banco no 2.5. Além de ter mais segurança no procedimento, o banco de dados novo ficou livre de lixo e de limbo. É mais trabalhoso e mais demorado na verdade mas, compensa.

Aquele que baixa com certificado digital?? Ou existe outra maneira?

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

Veja isso: viewtopic.php?f=6&t=7558

Orra, complicou pra caramba ein!!! No dia da homologação, apenas vão fazer igual te falei da primeira vez mas... beleza, cada um sofre do jeito que quer. Boa sorte.

Geralmente eu corto um pedaço da bobina e deixo ela enrolada no rolinho, daí, quando ela terminar, vai dar falta de papel.

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;