gibaf Posted February 21, 2006 Report Share Posted February 21, 2006 ola a todos (q possam ajudar) !! Estou usando a classe DOSPRN para gerar em disco e a classe PRINTER para impresssora; fiz os seguintes xcommand, para uso do DOSPRN e PRINTER, sucessivamente: #xcommand @ , PSAY [PICTURE ] => oPrin:Say( ,,,[] ) #xcommand @ , PSAY [PICTURE ] => oPrin:CharSay( ,,,[] ) e, o problema eh o seguinte: preciso mudar o #xcommand em tempo de execucao da app. O que percebi eh que mantem no momento da compilacao... Se alguem poderia ajudar, ficom muito agradecido !!! Gilberto Frohlich giba_f@hotmail.com giba_f@yahoo.com.br xHarbour Comercial xBuild 0.99.51+Fivewin 2.6+PellesC+(Postgres+DB2) Toledo/PR Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 21, 2006 Author Report Share Posted February 21, 2006 ola a todos (q possam ajudar) !! Estou usando a classe DOSPRN para gerar em disco e a classe PRINTER para impresssora; fiz os seguintes xcommand, para uso do DOSPRN e PRINTER, sucessivamente: #xcommand @ , PSAY [PICTURE ] => oPrin:Say( ,,,[] ) #xcommand @ , PSAY [PICTURE ] => oPrin:CharSay( ,,,[] ) e, o problema eh o seguinte: preciso mudar o #xcommand em tempo de execucao da app. O que percebi eh que mantem no momento da compilacao... Se alguem poderia ajudar, ficom muito agradecido !!! Gilberto Frohlich giba_f@hotmail.com giba_f@yahoo.com.br xHarbour Comercial xBuild 0.99.51+Fivewin 2.6+PellesC+(Postgres+DB2) Toledo/PR Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 21, 2006 Author Report Share Posted February 21, 2006 ola a todos (q possam ajudar) !! Estou usando a classe DOSPRN para gerar em disco e a classe PRINTER para impresssora; fiz os seguintes xcommand, para uso do DOSPRN e PRINTER, sucessivamente: #xcommand @ , PSAY [PICTURE ] => oPrin:Say( ,,,[] ) #xcommand @ , PSAY [PICTURE ] => oPrin:CharSay( ,,,[] ) e, o problema eh o seguinte: preciso mudar o #xcommand em tempo de execucao da app. O que percebi eh que mantem no momento da compilacao... Se alguem poderia ajudar, ficom muito agradecido !!! Gilberto Frohlich giba_f@hotmail.com giba_f@yahoo.com.br xHarbour Comercial xBuild 0.99.51+Fivewin 2.6+PellesC+(Postgres+DB2) Toledo/PR Quote Link to comment Share on other sites More sharing options...
AloizioLima Posted February 21, 2006 Report Share Posted February 21, 2006 Não sei se é exatamente isso que você quer mas eu faço assim pra usar tanto o TDosprn e Tprinter na mudando apenas um parâmetro. ***** CONFIRMA A IMPRESSAO ***** function confirmaimpressao parameters wTitulo, wauximp public oPrn, cFile, cTitulo, lModal, lSpool lSpoll:= .t. && Se usa o spool do windows wvideo :=' ' video() && Apenas pra abrir um dialog com opções VÃdeo ou Impressora && Aqui visualiza na tela e imprime em modo gráfico if wvideo='S' .or. xgrafico='S' if xgrafico='S' .and. wvideo='N' print oPrn if pcount()=2 if wauximp=80 && colunas DEFINE FONT oFont NAME wnomefonte SIZE 0,-12 OF oPrn && CPI10 endif if wauximp=96 && colunas DEFINE FONT oFont NAME wnomefonte SIZE 0,-10 OF oPrn endif if wauximp=106 && colunas DEFINE FONT oFont NAME wnomefonte SIZE 0,-9 OF oPrn endif if wauximp=120 && colunas DEFINE FONT oFont NAME wnomefonte SIZE 0,-8 OF oPrn endif if wauximp=137 && colunas DEFINE FONT oFont NAME wnomefonte SIZE 0,-7 OF oPrn endif if wauximp=160 && colunas DEFINE FONT oFont NAME wnomefonte SIZE 0,-6 OF oPrn endif else DEFINE FONT oFont NAME wnomefonte SIZE 0,-6 OF oPrn && CPI20 endif wvideo:=' ' oPrn:SetFont(oFont) else print oPrn Name 'Visualização de Relatório' Preview DEFINE FONT oFont NAME wnomefonte SIZE 0,-9 OF oPrn oPrn:SetFont(oFont) endif else && Aqui manda pro arquivo texto wconfarquivo:=iif(xarqimp='S',msgyesno('Imprimir o relatório para Arquivo','Atenção'),.f.) if wconfarquivo warqimp:='C:\ARQUIVO.TXT' arqimp() if .not. wopcaoimp msginfo('Impressão cancelada','Atenção') print oPrn Name 'Visualização de Relatório' Preview DEFINE FONT oFont NAME wnomefonte SIZE 0,-9 OF oPrn oPrn:SetFont(oFont) else cFile:=warqimp oPrn := TDosPrn():New( cFile ) endif && Aqui manda direto pra impressora else oPrn := TDosPrn():New(xporta) endif endif return wvideo ***** ***** PEGA O NOME DO ARQUIVO PARA IMPRESSÃO ***** function arqimp DEFINE DIALOG oDlg RESOURCE "ARQIMP" redefine get oarqimp var warqimp picture '@!' ID 101 of oDlg redefine button ID 501 of odlg action (wopcaoimp:=.t.,oarqimp:refresh(),odlg:end()) redefine button ID 502 of odlg action (wopcaoimp:=.f.,odlg:end()) ACTIVATE DIALOG oDlg CENTERED resallfree() return .t. ***** ***** FINALIZA A IMPRESSAO ***** function fimimpressao parameters wend public oPrn if wvideo='S' .or. xgrafico='S' EndPrint else if pcount()=0 oPrn:End() else oPrn:End(.f.) && Não salta página automaticamente endif endif return .t. ***** ***** PAGE OU STARTPAGE ***** function ipage public oPrn if wvideo='S' .or. xgrafico='S' Page else oPrn:StartPage() endif return .t. ***** ***** ENDPAGE OU ENDPAGE ***** function fpage public oPrn if wvideo='S' .or. xgrafico='S' EndPage else if pcount()=0 oPrn:EndPage() else && Não irá saltar página automaticamente oPrn:EndPage(.f.) endif endif return .t. ***** ***** IMPRIME MODO GRÃFICO (TELA) OU MODO TEXTO (IMPRESSORA) ***** function ilinha parameters wlinha, wcoluna, wtexto public oPrn if wvideo='S' .or. xgrafico='S' oPrn:CharSay(wlinha,wcoluna,wtexto) else oPrn:Say(wlinha,wcoluna,wtexto) endif return .t. ***** Aloizio Lima suporteas@hotmail.com BH - MG Fwh 2.5, harbour 43.0 (flex), borland c++ 5.5, WS 4.5 Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 21, 2006 Author Report Share Posted February 21, 2006 Primeiramente agradecer muito sua ajuda ! e eh mais ou menos isso q estou precisando ! no seu exemplo vc tem assim: ***** IMPRIME MODO GRÃFICO (TELA) OU MODO TEXTO (IMPRESSORA) ***** function ilinha parameters wlinha, wcoluna, wtexto public oPrn if wvideo='S' .or. xgrafico='S' oPrn:CharSay(wlinha,wcoluna,wtexto) else oPrn:Say(wlinha,wcoluna,wtexto) endif return .t. mas no meu caso, assim: ***** IMPRIME MODO GRÃFICO (TELA) OU MODO TEXTO (IMPRESSORA) ***** function ilinha parameters wlinha, wcoluna, wtexto public oPrn @ wlinha,wcoluna PSay wtexto return .t. e gostaria de executar o xcommand em tempo da execucao da app, para: IF VIDEO #xcommand @ , PSAY [PICTURE ] => oPrin:Say( ,,,[,] ) ELSEIF IMPRESSORA #xcommand @ , PSAY [PICTURE ] => oPrin:CharSay( ,,,[] ) ENDIF MAS NAO ESTOU CONSEGUINDO fazer isso durante a execucao do programa, somente no momento da compilacao... tedeu ? Gilberto Frohlich giba_f@hotmail.com giba_f@yahoo.com.br xHarbour Comercial xBuild 0.99.51+Fivewin 2.6+PellesC+(Postgres+DB2) Toledo/PR Quote Link to comment Share on other sites More sharing options...
aferra Posted February 21, 2006 Report Share Posted February 21, 2006 ao inves de #xcommand, tente o #command ou #translate, existe um pequena diferença entre eles, quem sabe resolve Um Grande Abraço Alessandro F. Silva aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say @Get MSN: ferracini_silva@hotmail.com Ribeirão Preto/SP Quote Link to comment Share on other sites More sharing options...
siscat Posted February 21, 2006 Report Share Posted February 21, 2006 nenhum comando # pode ser utilizado em tempo de execução, pois são instruções de uso do compilador para tradução de comandos... estas instruções fazem parte da estrutura léxica (sintática) da linguagem, que é utilizado pelo compilador para traduzir as linhas de comando do programa em instruções/funções reconhecidas pelo compilador e que estejam declaradas nas LIBs lincadas na app.. Marllon Figueiredo Analista de Sistemas ERP/CRM Porto Alegre - RS siscatsoftware@hotmail.com FWH for (x)Harbour, xMate, Clipper, MsSQL, Oracle, Postgres, MySQL, TopConnect, ADS Versões: FWH 2.6 e 2.7 - xHarbour 0.99.4 - 0.99.60 Editado por - siscat on 21/02/2006 13:31:19 Quote Link to comment Share on other sites More sharing options...
vagner Posted February 21, 2006 Report Share Posted February 21, 2006 Olá, O comando #xcommand, #translate #..., transforma na hora da compilação, a melhor coisa para vc nesse caso, seria criar uma função para isso +- assim : Func Impr(oPrin,nRow,nCol,cText,cPict,lVideo) If lVideo oPrin:Say( nRow,nCol,cText,cPict ) Else oPrin:CharSay( nRow,nCol,cText,cPict ) Endif Retu("") Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 21, 2006 Author Report Share Posted February 21, 2006 Muito boa a sugestao de todos.... Vou aplicar na minha app... Obrigado a todos ! Gilberto Frohlich giba_f@hotmail.com giba_f@yahoo.com.br xHarbour Comercial xBuild 0.99.51+Fivewin 2.6+PellesC+(Postgres+DB2) Toledo/PR Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 21, 2006 Report Share Posted February 21, 2006 lé.xi.co [l'éksiku] sm léxico, vocabulário. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.60 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: Quote Link to comment Share on other sites More sharing options...
siscat Posted February 21, 2006 Report Share Posted February 21, 2006 citação:lé.xi.co [l'éksiku] sm léxico, vocabulário. João Santos - São Paulo. id=quote>id=quote>amigo João... vocabulário não se aplica em programação!!! quando voce faz referencia ao código de um programa voce diz... "o vocabulário do Fivewin" ou voce diz "a sintaxe do fivewin" ?? hehehe Marllon Figueiredo Analista de Sistemas ERP/CRM Porto Alegre - RS siscatsoftware@hotmail.com FWH for (x)Harbour, xMate, Clipper, MsSQL, Oracle, Postgres, MySQL, TopConnect, ADS Versões: FWH 2.6 e 2.7 - xHarbour 0.99.4 - 0.99.60 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 21, 2006 Report Share Posted February 21, 2006 vo.ca.bu.lá.rio [vokabul'arju] sm vocabulario, glosario, léxico. vo.ca.bu.lá.rio s. m. 1. Relação dos vocábulos de uma lÃngua, dispostos por ordem alfabética; dicionário sucinto. 2. O conjunto de termos pertencentes a uma arte ou ciência. 3. O conjunto de termos empregados por um escritor. 4. Num livro de leitura, lista de termos que apresentam determinadas peculiaridades. vo.cá.bu.lo s. f. Palavra que faz parte de uma lÃngua. sin.ta.xe (ss), s. f. Gram. 1. Parte da gramática que ensina a dispor as palavras para formar as orações, as orações para formar os perÃodos e parágrafos, e estes para formar o discurso. sin.tá.ti.co adj. Relativo à sintaxe; sintáxico. pa.rá.gra.fo s. m. 1. Pequena parte ou seção de discurso, capÃtulo etc., que forma senti-do completo. 2. AlÃnea. 3. Sinal de pontuação (£) que separa seções distintas de leis, artigos etc. 4. A entrada com que se iniciam os perÃodos na escrita ou composição tipográfica. TE METE COM QUEM Tà KIETO. Fui e sempre serei, ALUNO NOTA 10.000000000000->hehehehehehehehe João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.60 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.