pasim

Não entendi direito, já não está fazendo isso? pode me explicar melhor? Estou enviando pra com1, e pra impressora ALLEGRO 2 e não modem. Editado por - pasim on 31/03/2005 10:22:10

Estou abrindo a porta de comunicação via programa como abaixo: serial = '1' nComm := OpenComm("COM"+serial, 1024, 128) if BuildCommDcb("COM"+serial+":9600,n,8,1", @cDcb ) if !SetCommState(cDcb) msginfo('Erro ao abrir porta serial '+serial,'Atenção') CloseComm(nComm) return .t. endif if(nBytes := WriteComm(nComm,Chr(13))) < 0 msginfo('Erro ao gravar comando 13 na serial '+serial,'Atenção') CloseComm(nComm) return .t. endif if(nBytes := WriteComm(nComm,Chr(29))) < 0 msginfo('Erro ao gravar comando 29 na serial '+serial,'Atenção') CloseComm(nComm) return .t. endif if(nBytes := WriteComm(nComm,Chr(5))) < 0 msginfo('Erro ao gravar comando 5 na serial '+serial,'Atenção') CloseComm(nComm) return .t. endif if FlushComm(nComm,0 ) != 0 msginfo('Erro ao fixar gravação na serial '+serial,'Atenção') CloseComm(nComm) return .t. endif msginfo('Porta serial '+serial+' conectada com sucesso','Atenção') else msginfo('Porta serial não conectada','Atenção') CloseComm(nComm) return .t. endif endif E para mandar pra impressora faço isso: do while quant > 0 if FlushComm(nComm,0 ) != 0 msginfo('Erro ao fixar gravação de dados na serial '+serial,'Atenção') exit endif ini = chr(2)+'L'+chr(13) if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(1) na serial '+serial,'Atenção') exit endif ini = 'H07'+chr(13) if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(2) na serial '+serial,'Atenção') exit endif ini = 'D11'+chr(13) if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(3) na serial '+serial,'Atenção') exit endif ini = '131100002500015 BRASIL TECIDOS'+chr(13) if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(4) na serial '+serial,'Atenção') exit endif ini = '131100002500215 BRASIL TECIDOS'+chr(13) if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(5) na serial '+serial,'Atenção') exit endif ini = '131100002300015 Sempre Novidades'+chr(13) if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(6) na serial '+serial,'Atenção') exit endif ini = '131100002050015'+me01+chr(13) if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(7) na serial '+serial,'Atenção') exit endif ini = '121100001850015'+me02+chr(13) if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(8) na serial '+serial,'Atenção') exit endif ini = '121100001700015'+me03+chr(13) if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(9) na serial '+serial,'Atenção') exit endif ini = '1D9304001100030'+codp+chr(13) if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(10) na serial '+serial,'Atenção') exit endif ini = '131100000900015'+me04+chr(13) if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(11) na serial '+serial,'Atenção') exit endif ini = '131100000700015'+me01+chr(13) if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(12) na serial '+serial,'Atenção') exit endif ini = '1D9304000150030'+codp+chr(13) if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(13) na serial '+serial,'Atenção') exit endif ini = '131100000000015'+me04+chr(13) if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(14) na serial '+serial,'Atenção') exit endif ini = 'E' if (nBytes := WriteComm(nComm,ini)) < 0 msginfo('Erro ao gravar dados(15) na serial '+serial,'Atenção') exit endif if FlushComm(nComm,0) != 0 msginfo('Erro ao fixar gravação de dados na serial '+serial,'Atenção') exit endif quant = quant - 2 enddo CloseComm(nComm) endif Só que não está funcionando. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Qual o comando corresponde ao Com_Send() no FW? Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Amigos no clipper eu conseguia abrir a porta serial assim: nport = 0 serial = '2' if nport = 0 if com_open(val(serial), 4000) com_init(val(serial), 9600, "n", 8 , 1) com_rts(val(serial), .t.) com_dtr(val(serial), .t.) com_send (val(serial),13) com_send (val(serial),29) com_send (val(serial),5) com_flush(val(serial)) millisec(100) ncaract = com_count(val(serial)) if nCaract > 1 rec_char = com_read (val(serial), 1) if (rec_char = chr(13)) nPort = val(serial) veloc = '9.600' else com_close (val(serial)) endif else com_close (val(serial)) endif endif endif if nport = 0 mens('Porta serial nao inicializada','t') com_close (val(serial)) return endif Alguém poderia me dizer como isso ficaria em FW. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Amigo Kapiaba, fiz como vc falou e não consegui mais compilar meus fontes (CAN'T CREAT INTERMEDIATE FILE). Daí voltei ao que era, como estou apertado acho que vou deixar pra vê isso depois... Valeu pela força... Ainda não desisti... estou fazendo uma retirada estratégica pra resolver outro problema. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 23/03/2005 16:23:05

Abrir a Porta = Com_Open() Iniciar a Porta = Com_Init() Enviar para porta = Com_Send() Fechar a porta = Com_Close() Essas funções funcionam com o FW24 ? Senão, quais as correspondentes. Se alguem puder postar como fazer para: Abrir a Porta, Iniciar a Porta, Enviar para porta, Fechar a porta com FW ficarei muito grato. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Bom dia aspq21, como estás compilando pois nem isso estou conseguindo. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Se vc quer o programa iniciantes é só colocar em busca página principal a palavra "iniciante" que aparece todos os tópicos relacionados. http://www.fivewin.com.br/exibedicas.asp?id=154 Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 23/03/2005 09:14:26

"O brasileiro não desiste nunca." Kapiaba meu amigo, ví que vc usa o FW2.3C, e acho que tens a windows.prg para 16 bits e como tenho exemplos seus (isso se as desconfianças de que vc é o JOAO SANTOS estiverem certas) que mudam as cores e formatos do tooltip, eu não sei pq não tenho esta pasta que dizes. olhe o meu diretorio. Se tiver alguma pasta faltando diga que mato meu parceiro por ter me passado o FW imcompleto, senão, por favor me arrume essa window.prg para que eu possa compilá-la com o clipper Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Quem postou o erro fui eu. citação:Amigo Kapiaba, obrigado pelo toque mas......tentei compilar desta forma mais aconteceu a mesma coisa, será que não é a window.prg que está com problema, alguém pode me enviar uma que não dê estes erros de compilação id=quote>id=quote>Uso clipper 5.3b para compilar,FW24 16 bits e blinker. Foi por isso que perguntei se funciona para todas as versões. Quanto a window.prg não encontrei no fw24 que tenho e por isso a pedi. A que tenho foi um amigo que me passou que usa FWH talvez seja esse o motivo do erro. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

citação:clipper window.prg /M /NBad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE id=quote>id=quote>Amigo Kapiaba, obrigado pelo toque mas... ...tentei compilar desta forma mais aconteceu a mesma coisa, será que não é a window.prg que está com problema, alguém pode me enviar uma que não dê estes erros de compilação Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Yrece, isso funciona para qualquer versão do FW? Estou compilando a window.prg e está dando estes erros: C:\Linear\scv>clipper window.prg /n -m CA-Clipper ® 5.3b (Rev. 338) Copyright © 1985-1996, Computer Associates International, Inc. Microsoft C Floating Point Support Routines Copyright © Microsoft Corp 1984-1993. All Rights Reserved. 298K available Compiling WINDOW.PRG WINDOW.PRG(1384) Error C2001 Syntax error: 'OTARGET' WINDOW.PRG(1385) Error C2002 Incomplete statement or unbalanced delimiters WINDOW.PRG(1392) Error C2002 Incomplete statement or unbalanced delimiters WINDOW.PRG(1393) Error C2002 Incomplete statement or unbalanced delimiters WINDOW.PRG(1944) Error C2001 Syntax error: 'STATIC' WINDOW.PRG(2244) Error C2001 Syntax error: 'OPRN' WINDOW.PRG(2246) Error C2001 Syntax error: 'OPRN' WINDOW.PRG(2249) Error C2002 Incomplete statement or unbalanced delimiters WINDOW.PRG(2253) Error C2002 Incomplete statement or unbalanced delimiters WINDOW.PRG(2254) Error C2002 Incomplete statement or unbalanced delimiters 10 errors Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

E aí Marllon, conseguiu... ...ainda tô aguardando... Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Valeu Marllon, tô no aguardo. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Alguém pode postar aqui como configurar Xmate... Pois tentei, tentei, inclusive com ajuda do meu amigo Jef, mas nem cheguei na praia... preciso de uma balsa... Help-me. Peguei o manual em dicas mas ele está para FWH. Uso clipper5.3b,Blinker,fw2.4 Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Obrigado Kapiaba, quanto ao e-mail me desculpe. Foi uma tentativa, não sabia que não era chegado ao MSN, mas de qualquer forma, agora, acho até que não era necessário pois tens sempre atendido as nossa dúvidas e de forma bem rápida. Valew mais uma vez! Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 15/03/2005 18:03:06

Amigos, estive "fuçando" o WS e descobrir que os borland checkbox e radiobox é que fazem isto, os Button style não... Acho que é isso, se eu estiver enganado por favor mestres do Workshop digam. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Alguém sabe me dizer porque o box das letras das Dialogs no Windows 2000 ficam com cores e como resolver isso? Agradeço antecipadamente se alguém puder me ajudar. Ps: Não são todos os textos, mas todos os checkbox e radiobox sim. Editado por - pasim on 15/03/2005 17:26:25

Onde pego a VMsgBar? Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

tppa = 0 pas = ' ' lin = 60 pag = 0 aretimp:={"",.t.,if(impvid==2,.t.,.f.)} set print on sele funci set filter to nomve # ' ' go top trg := reccount() vbar01 := 0 define dialog odlg resource "m_index" of ownd title 'Progresso do relatório' redefine meter obar01 var vbar01 total trg id -1 of odlg prompt 'Aguarde.. Imprimindo relatório' activate dialog odlg nowait obar01:set(vbar01+1) do while .not. eof() if lin > 55 titulos() lin = 5 @ lin,01 say 'Codigo Vendedor' lin = lin + 1 @ lin,01 say replicate('=',79) lin = lin + 2 sele funci pas = 't' endif @ lin,01 say codve @ lin,08 say nomve skip obar01:set(vbar01+1) lin = lin + 1 if eof() exit endif enddo if pas = 't' @ lin,01 say replicate('-',79) eject endif vbar01:=trg obar01:set(vbar01) odlg:end() sele funci set filter to set print off return .t. É assim que faço, veja se ajuda. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Tenho relatórios que faço isso, quando dou set filter é complicado pois tenho que improvisar e as vezes se o arquivo for muito grande demora um pouco, quando não, funciona rápido e blz. Poste seu código para tentarmos uma solução Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Justamente Kleyton, essa é a questão, vai sempre para a impressora padrão, mas pelo preview há alguma classe que possa se escolher a impressora? Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 08/03/2005 18:45:18

Justamente Kleyton, essa é a questão, vai sempre para a impressora padrão, mas pelo preview há alguma classe que faça esta proeza? Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Desculpe, vou pegar o embalo do tópico para fazer uma perguntinha. citação: OlaPrinterSet() ou PrinterSetup() id=quote>id=quote>Yrece, Como fazer para que quando escolher a impressora pelo PrinterSetup() os relatórios irem para ela até que eu mude novamente? Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Concordo Kleyton... Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com