Alain da Silva

tudo bem Alessandro.. Mesmo usando oTextReport:Print() seria este comando que você esta passando. A porta de impressão é usb. Se eu coloco antes o comando printersetup() ele me aparece a configuração da impressora, mudo para modo paisagem e ai funciona. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Pessoal, estou imprimindo um arquivo texto usando: static function PrintDlg(oTextReport) ************************************** //-- Imprime o arquivo de texto para //-- a impressora padrao oTextReport:Print() prnResult := .t. return NIL id=code>id=code>Teria como eu mudar antes o estado da impressora para modo paisagem? Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Pessoal, estou imprimindo um arquivo texto usando: static function PrintDlg(oTextReport) ************************************** //-- Imprime o arquivo de texto para //-- a impressora padrao oTextReport:Print() prnResult := .t. return NIL id=code>id=code>Teria como eu mudar antes o estado da impressora para modo paisagem? Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

OK, vou sair agora,tentarei amanhã, obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Vagner, tentei dessa forma e não funcionou. Realmente depois que você falou e vi a função. function MostraTxt(TextFile) **************************** local oPrn, cPorta, cTitulo **function SetMTxtPreview( lOnOff, nMaxWnd, nNewZFactor, lMenu, lSpool ) SetMTxtPreview( .t., 5, 1, .f.,.t.) cTitulo:= "**** Visualização de relatório ****" cPorta := "USB001\LPT1" cFile:=TEXTFILE **function TxtPreview( cFileTxt, cTitle, lPrvModal, lSpool, cPort, oPrn ) TxtPreview( cFile, cTitulo,.T.,.F.,cPort, oPrn ) return nil id=code>id=code>Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Estou conseguindo visualizar o relatório no vídeo mas não imprime na hp saída(usb) só na epson(lpt1). Quando clico na impressora aparece: Nome: hp psc 1200 séries Tipo: winspool Local: USB001 IF NVALUE==2 MOSTRATXT("RELAFAT.TXT") ENDIF RETURN NIL **************************** function MostraTxt(TextFile) **************************** local oPrn, cPorta, cTitulo SetMTxtPreview( .t., 5, 2, .f., .t. ) cTitulo:= "**** Visualização de relatorio ****" cPorta := "USB001" cFile:=TEXTFILE TxtPreview( cFile, cTitulo, .T.,,, oPrn ) return nil //---------------------------------------------- id=code>id=code>Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Ola, eu falei obrigado a todos porque o Vagner e o Luiz me responderam mas ambos estavam falando sobre oprn:say(l,c) e não sobre o exemplo que eu passei e que foi resolvido pelo Kapiaba. //Ola, em dicas mais dicas, tem a TDOSPRN.PRG que eu uso, a mesma de onde //voce pegou este MEU EXEMPLO. VOCE PODE USAR SAY SIM. //->QUANDO VOCE MANDA COMPILAR COM A OPCAO /P, O COMPILADOR TRANSFORMA PARA SAY id=code>id=code>Agora sobre o TEXTPREVIEW após o arquivo criado estou colocando o comando ele só aparece o visualizador vazio. IF NVALUE==2 TxtPreview( "RELFAT.TXT" ,CTITULO,,,, oPrn ) ENDIF id=code>id=code>Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Obrigado a todos pela ajuda. Esta funcionando a impressão na epson e a criação do arquivo texto. Agora para visualizar no vídeo e para impressão na hp saída na usb, qual seria o procedimento. Aguardo orientação. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Como vai Vagner, na verdade em matéria de relatório estou vendido, eu ainda não fiz nenhum. Peguei este exemplo que o Kapiaba me passou a algum tempo para criar um arquivo texto. // ---------------------------------------------------------------------------- //----- Definicao de comando SAY para TdosPrn --------------------------------- // #xcommand @ , SAY ; OF ; => ; :Say(, , ) //-------------------------------------------------------------------------// // Imprime os Clientes. //-------------------------------------------------------------------------// STATIC FUNCTION Imprimir( lAppend, oDbf, oDbf2 ) FIELD RAZ_MATRIC, DEST_NOME, END, BAI, CID, CEP, TEL, TEL2, TEL3, CGC FIELD VENDEDOR, CLI_DESDE, IE, CONTATO, DTNASC, NOME_ARTIS FIELD RG, IDADE, CIC_CPF, INDICACAO, MESSAGE LOCAL LINHA, PAG, oPrn LINHA := 0 PAG := 1 EXTERNAL ISPRINTER IF .NOT. ISPRINTER() SndPlaySound(".\Erro.wav" ) Checa_Imp() // Checar Se a Impressora Est Ativa.. Return Nil ENDIF SndPlaySound(".\Lembrete.wav" ) IF MsgYesNo( "Atenção Por Favor:" + CRLF + ; "Posso Imprimir?" + CRLF + ; "Impressora Já Está Ligada?", ; "Por Favor, Confirme!!!" ) = .F. RETURN NIL ENDIF // Para Rede de Computadores // oPrn:New("\\seuterminal\suaimpressora\LPT1") oPrn:= TDosPrn():New( "RELAT.TXT" ) // para ir para um arquivo .txt (teste) // Este Comando, Liga a Impressora. NÆo Tirar Nunca oPrn:StartPage() // da Start(inicializa) na p gina. SELECT (oDbf2:cAlias) // CABCLALF.DBF WHILE !EOF() SysRefresh() IF EOF() EXIT ENDIF IF !EOF() IF BOF() @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(14) + ; MESSAGE OF oPrn LINHA:=LINHA+1 ELSE @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; MESSAGE OF oPrn LINHA:=LINHA+1 ENDIF ENDIF DBSKIP() ENDDO SELECT ( oDbf:cAlias ) SET ORDER TO 2 DBGOTOP() WHILE !EOF() SysRefresh() IF EOF() EXIT ENDIF //AQUI PULO DE PAGINA SE MAIOR QUE 60 IF LINHA >= 60 LINHA := 0 PAG := PAG + 1 SELECT (oDbf2:cAlias) DBGOTOP() DBSKIP(-1) WHILE !EOF() SysRefresh() IF EOF() EXIT ENDIF IF !EOF() IF BOF() @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(14) + ; MESSAGE OF oPrn LINHA:=LINHA+1 ELSE @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; MESSAGE OF oPrn LINHA:=LINHA+1 ENDIF ENDIF DBSKIP() ENDDO SELECT ( oDbf:cAlias ) ENDIF IF !EOF() @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(15) + ; "MATRICULA:" + " - " + STR(Raz_Matric) + " - " + ; Dest_Nome + " - " + ; "DATA: " + " - " + ; Dtoc(Cli_Desde) OF OPRN // Para Pegar 30 Caracteres a Esquerda // Left( Dest_Nome, 30 ) // Para Pegar 20 Caracteres a Direita // Right( Dest_Nome, 20 ) // Thanks Ednaldo Rolim // So Para Completar se quizer no Meio // Result = Substr( campo, posicao, qtd ) // qtd = quantidade de caracteres // campo = dado para se extrair a string // posicao = posicao na string que deseja comercar a ler LINHA:=LINHA+1 @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(15) + ; "ENDEREC ,O: " + " - " + End + " - " + ; "BAIRRO: " + " - " + Bai + " - " + ; "CIDADE: " + " - " + Cid OF OPRN LINHA:=LINHA+1 @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(15) + ; "C.E.P: " + " - " + Cep + " - " + ; "FONE1: " + " - " + Tel + " - " + ; "FONE2: " + " - " + Tel2 + " - " + ; "FONE3: " + " - " + Tel3 OF OPRN LINHA:=LINHA+1 @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(15) + ; "C.G.C: " + " - " + Cgc + " - " + ; "INSC. EST.: " + " - " + Ie + " - " + ; "CONTATO: " + " - " + Contato OF OPRN LINHA:=LINHA+1 @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(15) + ; "VENDEDOR: " + " - " + VENDEDOR + " - " + ; "NASC.: " + " - " + dtnasc + " - " + ; "IDADE: " + " - " + Idade + " - " + ; "CPF: " + " - " + Cic_Cpf OF OPRN LINHA:=LINHA+1 @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(15) + ; "RG: " + " - " + Rg + " - " + ; "INDIC: " + " - " + Indicacao + " - " + ; "NOME ART: " + " - " + Nome_Artis OF OPRN LINHA:=LINHA+1 @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; REPLICATE("-",76) OF OPRN //-> Ultimo Incremento -> Tira o 'Esquisito' do Final da Pagina-CARRIAGE RETURN. LINHA:=LINHA+1 DBSKIP() ENDIF ENDDO DBGOTOP() //-> Reconfigura a Epson - LX-300 //OPRN:Say(LINHA, 00, CHR(18)+CHR(27)+"2"+CHR(27)+"H" ) // Clipper Puro @ LINHA,00 SAY CHR(18)+CHR(27)+"2"+CHR(27)+"H" OF OPRN oPrn:EndPage() oPrn:End() //--- imprime no spool do windows, liberando o micro para trabalhar. ImpSpool( "RELAT.TXT",, .T. ) //--- opcionamente pode-se apagar o arquivo passando .t. no 3o. parametro. RETURN NIL id=code>id=code>Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Bom dia pessoal, estou testando um relatório e esta dando o seguinte erro: not found TDOSPRN:NCLRTEXT STATIC FUNCTION IMPRIME(NVALUE,XDT,XDT2) LOCAL LINHA, PAG, oPrn LINHA := 0 PAG := 1 EXTERNAL ISPRINTER * IF .NOT. ISPRINTER() * Return Nil * ENDIF * IF MsgYesNo( "Atenção Por Favor:" + CRLF + ; * "Posso Imprimir?" + CRLF + ; * "Impressora Já Está Ligada?", ; * "Por Favor, Confirme!!!" ) = .F. * RETURN NIL * ENDIF IF (NVALUE==1) oPrn:= TDosPrn():New( "LPT1" ) ELSEIF (NVALUE==2) oPrn:= TDosPrn():New( "RELAFAT.TXT" ) ELSEIF (NVALUE==3) oPrn:= TDosPrn():New( "RELAFAT.TXT" ) ELSEIF (NVALUE==4) MSGINFO("Atenção, opção ainda não desenvolvida, obrigado") RETURN NIL ENDIF // Este Comando, Liga a Impressora. NÆo Tirar Nunca oPrn:StartPage() // da Start(inicializa) na p gina. SELE 17 SET SOFTSEEK ON DBSETORDER(7) DBSEEK(DTOS(XDT)) SET SOFTSEEK OFF WHILE !EOF().AND.DATFAT<=XDT2 SYSREFRESH() **///// AQUI ACONTECE O ERRO*************** @LINHA,1 SAY STRZERO(NOTA,6) OF OPRN LINHA=LINHA+1 DBSKIP() UNLOCK ENDDO IF NVALUE==1 //-> Reconfigura a Epson - LX-300 //OPRN:Say(LINHA, 00, CHR(18)+CHR(27)+"2"+CHR(27)+"H" ) // Clipper Puro @ LINHA,00 SAY CHR(18)+CHR(27)+"2"+CHR(27)+"H" OF OPRN oPrn:EndPage() oPrn:End() //--- imprime no spool do windows, liberando o micro para trabalhar. * ImpSpool( "RELFAT.TXT",, .T. ) //--- opcionamente pode-se apagar o arquivo passando .t. no 3o. parametro. ENDIF RETURN NIL id=code>id=code>Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Bom dia pessoal, estou testando um relatório e esta dando o seguinte erro: not found TDOSPRN:NCLRTEXT STATIC FUNCTION IMPRIME(NVALUE,XDT,XDT2) LOCAL LINHA, PAG, oPrn LINHA := 0 PAG := 1 EXTERNAL ISPRINTER * IF .NOT. ISPRINTER() * Return Nil * ENDIF * IF MsgYesNo( "Atenção Por Favor:" + CRLF + ; * "Posso Imprimir?" + CRLF + ; * "Impressora Já Está Ligada?", ; * "Por Favor, Confirme!!!" ) = .F. * RETURN NIL * ENDIF IF (NVALUE==1) oPrn:= TDosPrn():New( "LPT1" ) ELSEIF (NVALUE==2) oPrn:= TDosPrn():New( "RELAFAT.TXT" ) ELSEIF (NVALUE==3) oPrn:= TDosPrn():New( "RELAFAT.TXT" ) ELSEIF (NVALUE==4) MSGINFO("Atenção, opção ainda não desenvolvida, obrigado") RETURN NIL ENDIF // Este Comando, Liga a Impressora. NÆo Tirar Nunca oPrn:StartPage() // da Start(inicializa) na p gina. SELE 17 SET SOFTSEEK ON DBSETORDER(7) DBSEEK(DTOS(XDT)) SET SOFTSEEK OFF WHILE !EOF().AND.DATFAT<=XDT2 SYSREFRESH() **///// AQUI ACONTECE O ERRO*************** @LINHA,1 SAY STRZERO(NOTA,6) OF OPRN LINHA=LINHA+1 DBSKIP() UNLOCK ENDDO IF NVALUE==1 //-> Reconfigura a Epson - LX-300 //OPRN:Say(LINHA, 00, CHR(18)+CHR(27)+"2"+CHR(27)+"H" ) // Clipper Puro @ LINHA,00 SAY CHR(18)+CHR(27)+"2"+CHR(27)+"H" OF OPRN oPrn:EndPage() oPrn:End() //--- imprime no spool do windows, liberando o micro para trabalhar. * ImpSpool( "RELFAT.TXT",, .T. ) //--- opcionamente pode-se apagar o arquivo passando .t. no 3o. parametro. ENDIF RETURN NIL id=code>id=code>Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Obrigado Paulo, era esse mesmo o problema. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Pessoal, estou fazendo uma rotina de importação de lançamentos através de um arquivo texto. só que no final quero apagar o arquivo e não estou conseguindo. ARQ = FOPEN(".\REMESSA\GERAFAT.TXT") IF FERROR() <> 0 MSGALERT("Arquivo Não Existe ou Está Danificado","",TLCAR:END()) ENDIF TAMANHO1 := FSEEK(ARQ,0,2) && vai ao final do arquivo TAMANHO2 := FSEEK(ARQ,0,0) && volta ao inicio DO WHILE .T. LINHA = FREADSTR(ARQ,365) && tamanho da linha + 2 GRAVANF() CONTADOR=CONTADOR+365 FINAL=FINAL+1 IF CONTADOR=TAMANHO1 EXIT ENDIF ENDDO ** no final da rotina ferase(".\REMESSA\GERAFAT.TXT") id=code>id=code>Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Pessoal, estou fazendo uma rotina de importação de lançamentos através de um arquivo texto. só que no final quero apagar o arquivo e não estou conseguindo. ARQ = FOPEN(".\REMESSA\GERAFAT.TXT") IF FERROR() <> 0 MSGALERT("Arquivo Não Existe ou Está Danificado","",TLCAR:END()) ENDIF TAMANHO1 := FSEEK(ARQ,0,2) && vai ao final do arquivo TAMANHO2 := FSEEK(ARQ,0,0) && volta ao inicio DO WHILE .T. LINHA = FREADSTR(ARQ,365) && tamanho da linha + 2 GRAVANF() CONTADOR=CONTADOR+365 FINAL=FINAL+1 IF CONTADOR=TAMANHO1 EXIT ENDIF ENDDO ** no final da rotina ferase(".\REMESSA\GERAFAT.TXT") id=code>id=code>Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Experimente colocar mensagens para testar se o problema esta no f4 ou na função. Se funcionar poste a função. SetKey( VK_F2, { || MSGINFO("FUNCIONOU") } ) SetKey( VK_F3, { || MSGINFO("FUNCIONOU") } ) SetKey( VK_F4, { || MSGINFO("FUNCIONOU") } ) id=code>id=code>Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

OLBX:bBkColor := {|nRow,nCol,nStyle| IF( nStyle == 0, IF( nCol == 1,nRGB( 47,104,192), ), ) } id=code>id=code>Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Luiz, usando o código abaixo muda cor da letra e a cor do botão. COLORS { |oB| IF( oB:lMouseOver,BRANCO, PRETO )},; { |oB| IF( oB:lMouseOver, {BRANCO,XPAZUL},; {XPAZULC,BRANCO} ) }; id=code>id=code>Teria como fazer esse mesmo efeito sem o mouse, quando o botão receber pela ordem o foco ? Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Obrigado Paulo, era isso mesmo. oGNC:bPostKey :={|| Pesqui(oGNC,BEBIDA->(INDEXORD()))} Function Pesqui( obj, meuindice ) LOCAL cTEXTO:=obj:oGET:buffer LOCAL cPESQU:="" IF cTEXTO#NIL cPESQU=ALLTRIM(obj:oGET:buffer) ELSE cPESQU=ALLTRIM(obj:oGET:varGet()) ENDIF SELE 3 If (meuindice == 1) DBSEEK(str(val(cPesqu),13)) ElseIf (meuindice == 2) DBSEEK(cPesqu) ElseIf (meuindice == 3) DBSEEK(STR(val(cPesqu),7,2)) ElseIf (meuindice == 4) DBSEEK(STR(val(cPesqu),7,2)) ElseIf (meuindice == 5) DBSEEK(STR(val(cPesqu),3)) ENDIF OBRW:REFRESH() RETURN id=code>id=code>Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Bom dia gente, eu já vi nesse fórum mas não consegui localizar. Como faço para saber qual índice esta ativo no momento? Estou trabalhando em um browse aonde mudo o índice na coluna e preciso saber qual índice esta para fazer a busca. Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Bom dia gente, eu já vi nesse fórum mas não consegui localizar. Como faço para saber qual índice esta ativo no momento? Estou trabalhando em um browse aonde mudo o índice na coluna e preciso saber qual índice esta para fazer a busca. Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

@145,160 SBUTTON oBtn[1] ; SIZE 60, 20 PIXELS ; RESOURCE "incluir" OF TLCAR ; PROMPT "&Novo" ; ACTION IIF(FOLCAR:NOPTION=1,MSGINFO("AA"),IIF(FOLCAR:NOPTION=2,MANUTIB("I"),.F.)); TOOLTIP "Cadastrar Bebidas" ; COLOR CLR_BLACK,{|oB| IF(oB:lMouseOver,{BRANCO,XPAZUL},{XPAZUL,BRANCO })}; TEXT POSITION ON_BOTTOM NOBORDER id=code>id=code>Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Luiz, recebeu os arquivos que te enviei? funcionou? Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Luiz eu peguei seu exemplo só mudei as cores. veja se é esse efeito. @145,160 SBUTTON oBtn[1] ; SIZE 40, 20 PIXELS ; RESOURCE "incluir" OF TLCAR ; PROMPT "&Novo" ; ACTION IIF(FOLCAR:NOPTION=1,MSGINFO("AA"),IIF(FOLCAR:NOPTION=2,MANUTIB("I"),.F.)); TOOLTIP "Cadastrar Bebidas" ; COLOR CLR_BLACK,{|oB| IF(oB:lMouseOver,{BRANCO,XPAZUL},{XPAZUL,BRANCO })}; TEXT POSITION ON_RIGHT NOBORDER id=code>id=code> colocando o mouse no botão. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Ola, eu uso assim e funciona. @145,160 SBUTTON oBtn[1] FONT OFONT ; SIZE 40, 20 PIXELS ; RESOURCE "incluir" OF TLCAR ; PROMPT "&Novo" ; ACTION IIF(FOLCAR:NOPTION=1,MSGINFO("AA"),IIF(FOLCAR:NOPTION=2,MANUTIB("I"),.F.)); TOOLTIP "Cadastrar Bebidas" ; MESSAGE "Cadastrar Bebidas" ; COLORS { |oBtn| If( oBtn:lMouseOver, CLR_WHITE, CLR_BLACK ) }, ; CLR_HGRAY ; TEXT POSITION ON_RIGHT NOBORDER id=code>id=code>Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Quanto a isso ta tranquilo até porque tenho uma irmã que mora aí em SP. O problema maior é em casa... convencer a patroa (que dureza...) além de dois filhos sendo que um nascido a poucos meses. Mas enfim eu disse difícil mas não impossível. Valeu Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5