rodnei

Obrigado

olá amigos , não achei tópico relacionado a isso , então estou postando aqui. um dos meus clientes está querendo usar vendas cartão de credito online par aposentar as maquininhas (ele utiliza 6 maquinas diferentes) gostaria de saber se alguem poder me dar os links para verificar valores e planos para ser repassado para ele , para verificar a viabilidade grato !!!

vo olhar aqui que deve ser os produtos fracionados que veio da balança , obrigado ?

este erro de apuração , pode causar este erro desconhecido ?

olá pessoal , sempre procura encontrar esses erros desconhecido , utilizando o emulador ele mostra quis erros ocorre , mas este aqui esta complicado no emulador ele envia e no sat não . vou posta o log do bemasat que tem todo o status , se algum poder me ajudar ficaria grato bemaSATlog_16-02-2017.xml AD20170216151445-293600-env.xml

olá pessoal to um uma duvida que n estou conseguindo resolver nem por decreto estou fazendo cálculos em horas e tenho que somar total de horas e dividir pelo total valor ex: 230:27 / 2516,20 mas para funcionar perteitamente tenho que converter essas 203:27 pra tipo float no excel so uso (230:27)*24 vai dar 320,45 mas no delphi n estou conseguindo pois essa hora n é uma hora valida para ele, alguem tem alguma sujestao ??? grato

na teoria deve funcionar também, mas só testando para ver se vai

bom os resultados foi exelente , imprimiu perfeito vo posta a unit que fiz para testes para analizarem e tb para possivel implementação no componente Unit UPrinterFunc; Interface Uses Messages, SysUtils, Variants, types, Classes, Printers, WinSpool, Dialogs, Controls; Const BufSize = 16384; Procedure ImprimeTextFile(Filename: String; DocName: String = 'Imprimindo ..'); Implementation //------------------------------------------------------------------------------ Procedure ImprimeTextFile(Filename: String; DocName: String = 'Imprimindo ..'); Var Handle: THandle; Documento: TDocInfo1; NamePrinter: String; Arquivo: File; Buffer: Pointer; Count, BytesWritten: Cardinal; Begin If (Printer.PrinterIndex > 0) Then NamePrinter := Printer.Printers[Printer.PrinterIndex] Else NamePrinter := 'Erro Nenhuma impressora Padrão foi detectada'; If Not WinSpool.OpenPrinter(Pchar(NamePrinter), Handle, Nil) Then Begin ShowMessage('Impressora não encontrada'); Exit; End; Documento.pDocName := PChar(DocName); Documento.pOutputFile := Nil; Documento.pDataType := 'RAW'; StartDocPrinter(Handle, 1, @Documento); StartPagePrinter(Handle); If Not fileexists(Filename) Then Raise Exception.CreateFmt('Arquivo não encontrado %s ', [Filename]); AssignFile(Arquivo, Filename); reset(Arquivo, 1); GetMem(Buffer, BufSize); While Not eof(Arquivo) Do Begin Blockread(Arquivo, Buffer^, BufSize, Count); If Count > 0 Then If Not WritePrinter(Handle, Buffer, Count, BytesWritten) Then Begin EndPagePrinter(Handle); EndDocPrinter(Handle); FreeMem(Buffer, BufSize); WinSpool.ClosePrinter(Handle); CloseFile(Arquivo); exit; End; End; EndPagePrinter(Handle); EndDocPrinter(Handle); FreeMem(Buffer, BufSize); WinSpool.ClosePrinter(Handle); CloseFile(Arquivo); End; End.

sim era só um exemplo da classe tprinter da borland , na verdade tem como manda em raw mod Printer.GetPrinter(aDevice, aDriver, aPort, aMode); OpenPrinter(aDevice, HPrinter, nil); Doc.pDocName := 'Teste'; Doc.pOutputFile := ''; Doc.pDatatype := 'RAW'; StartDocPrinter(HPrinter, 1, @Doc); s := String('teste') + #10; iSize := Strlen(PChar(s)); WritePrinter(HPrinter, @s[1], iSize , iRet); EndDocPrinter(HPrinter); ClosePrinter(HPrinter);

gozado , aki esta normal , foi so passar pro win7 q começo esses erros , tenho q seixar a pasta winspool leitura e gravaçao pra todos os usuarios/convidados ? estava pensando já q no windows funciona grava ele em arquivos e depois abrir em um TstringList e mandar direto pra impressora padrao Printer.BeginDoc; Printer.Canvas.TextOut(0, 0,StringList[f]); Printer.EndDoc; será que ele vai mandar os comando ESC junto ?

olá amigos , estou criando a parte de impressão de recibos em uns do meus sistemas e resolvo utilizar o ACBRPOSPrinter que é um exelente componente , em impressão local funciona 100% mas como meu cliente tem alguns terminais para impressão de recibos tenho que utilizar a MP4200TH na rede só que no windows na paxina de teste ele imprime perfeito só no sistema não estou conseguindo imprimir , ja testei varios metodos das portas mas nada , antigamente utilizava \\micro01\mp como porta de impressão , mas neste tipo de componente ja vi que ele nao esta aceitando ou pode ser do windows 7 tb , algum saberia me explicar como imprimir via rede com este componente grato

só retornando , o problema era esse mesmo , a data/hora do pc foi só alterar lá e foi 100% , obrigado a todos caso o moderador quiser por resolvido e fechar o tópico fique a vontade

vou testar aqui amanha e posto se é isto mesmo !!!

olá amigos , um dos meus clientes foi emitir uma nota hj na BA e o sefaz de la rejeitou mas nao disse o erro só diz nota não confirmada alguém já teve esse problema ? 29160210801166000160550010000002361000002369-nfe.xml

bom so pra contar ele só esse erro no emulador , testei aki no sat da bemathech funcionou 100% , e axo mesmo improvável mexer neste emulador para essa finalidade