geanjesus

esse WPP4Delphi funciona em delphi 7?..nao vi nada sobre isso...

Alias, eu posso estar dizendo besteira, mas essa do spooler de impressao, prender a porta da impressora, sem ter nada mandado para ela, acho isso um erro de projeto do windows...pois na minha concepção, so deveria usar a porta quando realmente fosse mandado alguma coisa para ela...no spool de impressao, mas como o Ruindows, se comunica tudo atraves de mensagens, acho que ele prende a porta por ser muito custoso, ter que avisar toda a galera que esta envolvida nisso la no sistema, atraves do broadcast..bla..bla..bla....será que é porisso?

Daniel, Nao seria mais facil, o componente da USB, ter uma propriedade usarvirtualcom ou nao, ja que é ele, que decide usar a serial virtual se encontrar ? dai poderiamos setar essa propriedade para true ou false, para usar ou nao a serial emulada...sei lá....alguma coisa assim....

algumas impresoras , senao a maioria , ja cria uma com emulada automatico, ex :bematech, pelo menos... nessas impressoras , tem como impedir de criar essa com emulada?... como ja disse em outro post, sobre lerstatusimpressora, para saber se gaveta esta aberta ou nao, com a com emulada funciona, mas as vezes perde a com emulada ,quando por algum motivo troca a porta usb...dai bagunça tudo... porisso eu quero usar somente a usb nativa , ou serial fisica, porem com serial fisica nao consigo trabalhar com spooler e serial fisica na mesma impressora... preciso checar status da gaveta , para nao deixar usuario abrir cupom com a gaveta aberta, imprimir sat e imprimir relatorio de caixa pelo soopler ...na mesma impressora... e nao travar a impressora, ao perder a com emulada...porisso desisti de com emulada.... com impressora tm-t20x usb/serial com cabo serial, nao consegui ainda... vou tentar com a usb nativa...com cabo usb e mais spooler......

Olá, se usar a porta USB nativa , o componente ao encontrar uma porta serial emulada, vai usar essa serial, mas e se for mudado o cabo usb para outra porta, as vezes perde a com emulada entao como , fazer para que o componente nao use essa com emulada...

Olá Bigwings esse modo USB eu ainda nao entendi, e nao testei, mas poderia resolver, mas sem serial emulada....pois como ja disse usei com serial emulada e funcionou ....mas deu problemas por perder a porta vou tentar com o modo USB...mas posso usar o spooler de impressao?..se sim entao resolve....

Olá BigWinds, acho que vc tambem nao entendeu o que preciso... se eu colocar a impressora como usb...como vou saber se a gaveta esta aberta ou nao... segundo o ´Daniel só da para saber , se a impressora, for usb com a porta com emulada, serial porta com fisica, ou ehthernet porta tcp com a impressora na usb e porta com emulada funcionou , mas de vez em quando perde a funcionalidade ,pois perde a porta emulada... entao pedi para o cliente comprar uma impressora serial...tm-t20x usb/serial... mas agora como serial ela funciona tudo no sat ,inclusive com o status da gaveta, porem sem spooler... se eu coloco no spooler e coloco com2... o acbr nao acessa a com2 fisica , pois o spooler prende a porta com2...entendeu? entao como ter status de gaveta e ao mesmo tempo ter o spool de impressao no windows..com a impressora serial..? essa é a questão... algumas alternativas que pensei... ja pensei em portar todos os relatorios de caixa para imprimir direto pelo escposprinter...isso é uma alternativa... mudar a porta do spool de impressao, ex; de Com2 para FILE, antes de checar o status da gaveta pelo escposprinter e depois retornar para com2 ...isso é outra alternativa...não sei a que custo, mas achei uma funcao que faz isso. usando winspool.....dai libera a Com2... na verdade eu preciso usar a serial para o sat e checar status da impressora e usar o spool de impressao para imprimir os relatorios do caixa na mesma impressora... porisso que eu disse que só o Daniel poderia dar uma luz..sobre como conseguir isso... mudar a porta de \\localhost\tm-t20x para com2 no escposprinter.device.porta nao adianta se a porta estiver presa no spool ...teria primeiro que liberar a porta do spool pois usando \\localhost\tm-t20x na impressora compartilhada na porta com2...funciona tudo menos o status da impressora...de stgavetaberta ah, com duas impressora funciona perfeito, uma usb e outra serial , na serial sat e status da gaveta e na usb relatorios do caixa mas eu preciso na mesma impressora....

Pelo jeito ninguem entendeu o que preciso....vou explicar de outra maneira e por favor me digam se é possível o que eu quero... problema1: se eu compartilho a impressora epson que esta instalada fisicamente na com2 e no spooler .. e passo o compartilhamento no meu sistema...para o componente posprinter ex porta := \\localhost\edpsontm-t20x tudo imprime normalmente...o cupom sat usa a com2 comprtilhada e os relatorios de caixa usa a mesma impressora atraves do spooler porem nao reconhece se a gaveta esta aberta ou fechada, atraves da funcao acima problema2: se eu deixo sem spooler , pois a impressora esta direto na serial e coloco no meu sistema no componente posprinter porta := com2 o sat funciona e imprime normalmente e reconhece se a gaveta esta aberta ou fechada, atraves da funcao acima porem os relatorios de caixa do meu sistema nao imprimem, pois precisam do spooler do windows O que eu preciso é: a impressora tem que estar na com2 fisica , para reconhecer se a gaveta esta aberta ou fechada isso segundo o daniel precisa ser porta com emulada, com fisica ou ethernet , para reconhecer se a gaveta esta aberta ou fechada porem preciso ter o spooler para os relatorios na com emulada ..eu ja testei e funcionou, mas de vez em quando perde a porta e nao funciona, entao descartei isso...porisso coloquei uma impressora com porta serial fisica e o acbr tem que reconhecer a gaveta se esta aberta ou fechada... talvez o Daniel possa dar uma Luz para esse problema...ja que ele é o pai da criança...chamada acbrposprinter..... acho que tem jeito, só nao descobri ainda...como... talvez a solucao seja alternar entre porta com fisica no sat e porta compartilhada no spooler para o relatorio mas ainda nao sei como faria isso, pois se uso porta com2 fisica para o sat, nao posso deixar porta com2 no spooler do windows, pois isso vai gerar conflito e segurar a porta entao como resolver isso, se alguem souber , eu agradeço...

Ola Srs do ACBR, essa rotina funciona somente com a impressora emulada na serial ou na serial Direta se eu coloco o compartilhamento da impressora que é serial ,,,,e está no spooler , dai nao funciona, o que estou fazendo de errado...alguem poderia me esclarecer por favor, ou tem outra forma de pegar esse resultado obs. a impressora é uma epson tm-t20x usb/serial..instalada na com2 fisica.... nao quero usar serial emulada pois da pau...de vez em quando perde a porta... function checar_gaveta_fechada: boolean; var tpStatus : TACBrPosTipoStatus; tpppstatus : TACBrPosPrinterStatus; AStr: String; begin if not ACBrPosPrinter1.ativo then ACBrPosPrinter1.ativar; sleep(200); tpppStatus := ACBrPosPrinter1.LerStatusImpressora; AStr := ''; For tpStatus := Low(TACBrPosTipoStatus) to High(TACBrPosTipoStatus) do begin if tpStatus in tpppstatus then AStr := AStr + GetEnumName(TypeInfo(TACBrPosTipoStatus), integer(tpStatus) )+ ', '; end; ACBrPosPrinter1.Desativar; sleep(300); if astr = '' then begin result := true; end else if not (pos('stGavetaAberta',astr) > 0) then begin //showmessage('gaveta Fechada'); Result := True; end else begin //showmessage('gaveta Aberta'); Result := False; end; end; preciso que ela funcione com driver de spooler do windows instalada...para outros relatorios de caixa..

muito obrigado BigWings, deu certo...eu ja tinha feito um teste copiando e colando no word ...na mao....e deu certo, dai eu tive a ideia de usar o objeto word adicionar no word e depois salvar de volta como rtf...e carregar no ritchedit...pois eu nao sabia ainda que o ritchedit tinha essas funcoes de copiar para o clipboard e colar a partir dele... pois com as outras formas , eu nao vi uma solucao, ja que nao tem um appendfromfile no ritchedit.... o loadfromfile copia os dados formatados . mas mata o que estiver no arquivo original e eu queria acrescentar os dados de um arquivo ao outro... muito obrigado...

Olá Srs do ACBR alguem sabe como.... adicionar ......um texto do componente trichedit para outro trichedit, mantendo as formataçoes.. ja pesquisei muito e nao consegui ... veja bem...nao é copiar de um para outro, e sim adicionar , mantendo as formataçoes, sem as formatacoes eu consegui...segue.... basta var RE11 : trichedit; RE22: TrichEdit; begin RE22.lines.savetofile('arq2.rtf'); //salva arquivo formatado RE22.lines.LoadFromfile('arq2.rtf'); //carrega arquivo formatado, mantém formatacao RE11.lines.append(RE22.text); //perde formatacao ou RE11.Lines.AddStrings(RE22.Lines); //perde formatacao ou RE11.Lines.Add(RE22.text); //perde formatacao ou LerRE2emRE1(var RE1: TRichEdit); //perde a formatacao e bagunça os dados end; procedure LerRE2emRE1(var RE1: TRichEdit); //perde a formatacao e bagunça os dados var RE2 : TRichEdit; i : smallint; Arquivo: string; begin RE2 := TRichEdit.Create(self); RE2.Parent := FrmRE2emRE1; try try Arquivo:= 'Arq2.rtf' if FileExists(Arquivo) then begin RE2.Lines.LoadFromFile(Arquivo); end; if (RE2.Lines.Count > 0) then begin for i:= 1 to 5 do RE1.Lines.Add(''); for i:= 0 to (RE2.Lines.Count - 1) do begin RE1.WordWrap := false; RE1.Lines.Add(RE2.Lines[i]); end; end except end; finally FreeAndNil(RE2); end; end;

Ola, um cliente comprou uma tm-t20x usb/serial, e está la as portas usb e serial, pela usb nao se discute, ja funciona e só vem o cabo usb... o problema está no funcionamento da serial, primeiro o acbrprintesteste, na leitura de status, diz que nao houve nenhum erro, mas qdo tento imprimir da erro de comunicacao ja tentei todas portas com1,com2,com3 com velocidades de 2400 ate 115200 e nada nao quero usb, e nao quero com emulada.... quero serial direta... seria o cabo?..esse é uma cabo no padrao pedido, ou será que o cabo está com problemas? estou meio decepcionado com essa tm-t20x, pois qualquer balança de 5a ou impressora serial antiga, que coloco pra funcionar ja reconhece a serial e tudo, e essa impressora que deveria ser a top das top, nao consigo nem imprimir um teste pela serial... eu já acho um absurdo, uma empresa do tamanho da epson, nao mandar um cabo serial junto com o produto... mas enfim.... o cliente comprou essa serial, pois ele quer que nao deixe abrir cupom com a gaveta aberta, dai eu programei com a com emulada...para ler o status da gaveta.... funcionou por uns tempos mas, de tempos em tempos, perdia a porta...emulada...dai eu disse pra ele que 100% mesmo só com porta serial, ou ethernet, pois o windows interfere nas portas com emulada, nunca mais usei isso... entao ele comprou essa epson tm-t20x e ate agora nada... se alguem puder me ajudar eu agradeço...

Ola ...Finalmente alguem descobriu o mistério.... entao é problema mesmo no sat da elgin e da bematech... pelo menos , descobri que nao estou loko....porque parecia que só acontecia comigo...isso acho que é porque utilizo 2 programas separados.... sei lá...

acho que precisaria, uma solucao generica para isso entao...no acbr, pois eu simplesmente desisti de checar quando da o erro .... no sat da tanca... por exemplo...nao da o erro... dai no meu sistema eu tenho um parametro que ativa ou desativa a consulta... mas com isso o cliente do sat fica sem saber de inicio, a data de validade do certificado do sat e sem saber por quantos dias o sat ja nao comunica com a sefaz...a nao ser que eu coloque isso tudo no segundo programa somente...ainda vou testar...

Ola Daniel, talvez esse seja o misterio que nunca resolvi no meu sistema tambem , pois acontece com sat da bematech e elgin mesmo... lembra?, quando sao esses sat e do primeiro programa eu chamo o sat para ler as cnfiguracoes da data do certificado ou do ultimo cupom emitido... dai quando o outro programa vai emitir o cupom , nao consegue .porque parece que a porta ficou presa antes... eu reportei isso em um post a algum tempo....com titulo,,,nunca consegui descobrir por que o sat me da um retorno 9999

Se eu nao fizer essa primeira comunicacao pelo programa principal, entao funciona e sempre funcionou, normal com todos os sat...

Ola Daniel, tem algum comando no acbr , para liberar O SAT depois de utilizar... sem ser o if acbr1.inicializado then acbr1.inicializado := not acbr1.inicializado; Ola Daniel, se é schema , porque entao que no sat da tanca nao da nenhum problema...

Ola Daniel, mas com sat tanca funciona perfeito, somente com sat elgin,bematech..etc..que da esse erro, é como se o componente segurasse a porta de comunicacao , quando o primeiro programa do pdv usa o componente, e quando o segundo programa vai comunicar, nao consegue mais ler a porta de comunicacao com o sat... e se eu sair do programa do pdv e transmitir, então vai numa boa... mas se após chamar pelo pdv e com o pdv aberto, mesmo indo pelo programa que transmite, entao nao vai mesmo, porisso acho que o pdv quando carrega e comunica com o sat , ele fica segurando a porta do sat...sei lá porque... e quando eu saio do pdv e carrego o programa de transmissao , transmite normal... misterios....

corrigindo onde esta consultasistemaoperacional = consultastatusoperacional

Olá Srs do ACBR desde os primeiros dias do desenvolvimento do sistema do sat nunca consegui descobrir por que o sat me da um retorno 9999 após eu dar um consultasistemaoperacional , para pegar algumas informacoes e depois tentar emitir o cupom somente o SAT da tanca funciona... Cenario: tenho o PDV em um diretorio e quando inicio o PDV , faço comunicacao com o sat para ler informacoes da data do certificado (para ver validade do certificado) e data de emissao do ultimo cupom..(para ver quantos dias sem comunicacao com a sefaz) e reportar ao usuario.. isso só funciona no sat da TANCA... OBs1: o programa de transmissao do cupom para a sefaz fica em outro diretorio, o qual é enviado atraves de arquivo txt gerado pelo PDV. Por algum motivo que eu não sei, ao fazer esta consulta, a nao ser o sat da tanca, eles perdem a comunicacao com o sat..(o sat fica sem comunicacao na hora de transmitir e o cupom nao sai..é claro)... Obs2: Antes de realmente transmitir o cupom para a Sefaz, eu salvo as informacoes , no banco de dados.. entao , se eu sair do pdv, e ir pelo programa de transmissao e enviar por lá, transmite numa boa... isso significa QUE NAO HÁ ERROS, no cupom... Entao até hoje eu só faço esta checagem se for sat da tanca, nos demais deixo pra lá... ja chequei de tudo, conflito de dll, dlls nos diretorios, dlls no diretorio do windows,..e como da tanca funciona? pelo acbr, ja chequei a inicializacao e desinicializacao do sat...e nada... Alguem teria alguma luz sobre isso...seria algum conflito de dll...?, mas como ja disse na sat da tanca isso nao acontece... misterios.....

muito obrigado ai , Marcelo pela força... vou dar uma boa estudada nos documento do link que vc me passou...

voce disse consumidor final, mas se eu coloco cpf em vez de cnpj no destinatario , ele rejeita, da até erro de schema(pois ele espera 14 digitos|), que é o cnpj, e cpf sao 11 digitos...entao nao aceita cpf... alias eu peguei aqui um exemplo real de um cliente que gerou uma gnre pelo site para esse cliente que é pelo cpf...e nao cnpj, e como ele consegue gerar pelo site por cpf e aqui nao gera.... nao entendi tambem...

Afinal essa GNRE quem emite é o VENDEDOR e a UF do DESTINATARIO que é o COMPRADOR ...que é a FAVORECIDA?..Nao entendi? o vendedor deve entao recolher essa diferença de imposto, para aquela uf de destino é isso? ainda estou tentando entender isso...

dai coloquei uf_favorecida RS que é o destinatario <?xml version="1.0" encoding="UTF-8" ?> - <ns1:TResultLote_GNRE xmlns="http://www.gnre.pe.gov.br" xmlns:ns1="http://www.gnre.pe.gov.br"> <ns1:ambiente>2</ns1:ambiente> <ns1:numeroRecibo>2100240142</ns1:numeroRecibo> - <ns1:situacaoProcess> <ns1:codigo>403</ns1:codigo> <ns1:descricao>Lote Processado com pendencias</ns1:descricao> </ns1:situacaoProcess> <ns1:resultado>0221002401429 100011RS10009930000009023725557XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX, 000 SP054350001111111111130000000123456789CAXIAS DO SUL 00000000000077777716461313 03042021000000001042019001000000000012050000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000003000000000000000000000000010 20001c39_camposExtras/campoExtra 238O Campo Extra 'Chave de Acesso da NFe ou do CTe/CTe-OS' (Codigo: '91') deve ser informado! 9210024014200012772f6977fc04926c21ee7bbeea06287c95246406d4aebf4b64799e8674afb20</ns1:resultado> </ns1:TResultLote_GNRE> DAI DEU ESTE RETORNO.... SEI LÁ ....ACHO QUE ESTOU MEIO PERDIDO NISSO...

dai mudei para versao 1.0 de deu este retorno... <?xml version="1.0" encoding="UTF-8" ?> - <ns1:TResultLote_GNRE xmlns="http://www.gnre.pe.gov.br" xmlns:ns1="http://www.gnre.pe.gov.br"> <ns1:ambiente>2</ns1:ambiente> <ns1:numeroRecibo>2100240141</ns1:numeroRecibo> - <ns1:situacaoProcess> <ns1:codigo>403</ns1:codigo> <ns1:descricao>Lote Processado com pendencias</ns1:descricao> </ns1:situacaoProcess> <ns1:resultado>0221002401419 100011SP10009930000009023725557xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx, 000 SP000000001111111111130000000123456789 00000000000077777716461313 03042021000000001042019001000000000012050000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000003000000000000000000000000010 20001c01_UfFavorecida 201Esta UF nao gera GNRE online. 9210024014100019caa457a582953dfd2359501cffb73def8517c75f49e2d6d822f6df3a37aeb24</ns1:resultado> </ns1:TResultLote_GNRE> entao SP nao emite GNRE é isso?... entao essa Gnre nao serve para SP, certo? como todos meus clientes sao de sao paulo, entao nem devo perder tempo com isso certo? ou eu nao entendi....