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

comigo esta dando o mesmo problema , ja fiz varios testes com CDECL e stdcall (na verdade o stdcall não funciona no delphi7 para mim ) tem o trecho do log ele nao chega nem enviar para o emulador para cancelar ACBrSAT.log

bom fiz do jeito que o Italo , estou fazendo testes já na pratica , mas na teoria é isto mesmo , agredito que este tipo de modificação não seja necessaria se é so para inclui ele como primeiro da lista mesmo

foi dado commit na trunk2 pois baixei hj e nao vi essas alterações tentei por as alteracoes neste por e esta dando erro deve ser por causa das versões da rev

então estou migrando do delphi 7 pro XE7 algumas funções

bom em alguns forums inclusive aqui que a variavel do tipo String tinha problemas , não se se realmente e no XE7 , mas era na plataforma raid

olá amigos !!! estou vendo muita gente raclamando para trocar de IDE , por causa de ter que fazer muitas modificações para se adequar em uma nova IDE no meu caso estou iniciando o SAT (Meio atrasado eu sei p-p ) , só que vi que a compatibilidade com a IDE do Raid Studio está melhor e como vou desenvolver um modulo a parte adquiri o EX7. olhei pelos forums da vida e vi que a variavel tipo "String" causa uma certa lentidão , ate ai acho que não tem problema posso substituir tudo para "AnsiString". mas e as variaveis tipo "TStringList" , "AsString" tem algum problema com elas ? bom não sei se está situação do campo String é verdade pois estou ja trocando automatico pra evitar problemas futuros , existe algo mais que pode dar algum tipo de instabilidade nas converções ou e so do tipo "String" Grato

quem estiver com problemas com as variaveis (tnSaida,tnEntrada,..) inclua a unit pcnConversaoNFe em uses

eu até tentei utilizar ele mas obtive exito , vou continuar os testes e retorno quando conseguir

o brigado deu certinho , quando for utilizar a plataforma que não seja windows altero lá

olá amigos , não sei se aqui é o lugar certo para esta pergunta mas.... recentemente adiquiri o delphi Xe7 aqui a empresa , e to com muita dificuldade de me adaptar a esse formulário colado pois utilizo 2 monitores um para codificação e outro para o layout visual dos formulários , mas não consegui achar onde decolar este formulário para deixar ele flutuante , alguem saberia me dizer onde posso fazer isto ? e também como posso deixar a aparencia dele deste tipo obrigado !!!