Theotokos

Se você for trabalhar pelo Delphi no scrip do FR (O que pode ser bem viável), use assim:
 
 page1.visible:=false;
 
Procure no google como estabelecer condições e use sua condição.

com o bloco de notas

//--Testando Pesquisa Dinamina--// Arthur Silvestre cCampo:="Codigo" If Select("cAlias")=0 use 'SuaTabela' shared new alia cAlias if neterr() mendisp() close data retu .f. endif set index to cIndex endif select cAlias set filter to * oBrwMerca:= TxBrowse():New( oDlgIncOrc ) oBrwMerca:CreateFromResource( 361 ) oBrwMerca:cAlias := 'cAlias' oBrwMerca:bGoTop() * oBrwMerca:lHeader := .F. oBrwMerca:lHScroll := .F. oBrwMerca:lVScroll := .F. oBrwMerca:nMarqueeStyle := 5 oBrwMerca:lAdjusted := .T. oBrwMerca:lRecordSelector := .F. oBrwMerca:lUpdate := .T. * nvalor=0 ADD COLUMN oCol TO XBROWSE oBrwMerca DATA cAlias->nomepro TITLE "Nome" SIZE 328.3 REDEFINE GET oNomepro var vnomepro Pict "@!" ID 4020 OF oDlgIncOrc; ON CHANGE (BcDdProduto(oNomepro,cCampo,oBrwMerca), oDlgIncOrc:Refresh() ) valid ValidDoGet(nvalor) oNomepro:bKeyChar := {|nKey| (nvalor:=0,IIF ( nKey == VK_RETURN .or. nKey == VK_TAB , nvalor:=1 , )) } oBrwMerca:bKeyChar := {|nKey| IIF( nKey == VK_RETURN, {vnomepro:=pro->nomepro,onomepro:Refresh(),vcodipro:=pro->codipro,ocodipro:Refresh(),oBrwMerca:Hide(),oBrwMerca:Refresh(),xsetfocus(oquantid)},)} //----------------------------------------------------------------------------// Function BcDdProduto(cP,cC,oB) Local cPro := cP:cText() if empty(cPro) oBrwMerca:Hide() ; oBrwMerca:Refresh() else oBrwMerca:Show() ; oBrwMerca:Refresh() endif set order to 2 dbSetOrder( INDEXORD() ) // define a ordem de filtro ordScope( 0, RTrim(cPRO) ) // TOP (De...) ordScope( 1, RTRim(cPro) ) // BOTTOM (..Até) * dbGoTop() oB:Refresh() Return(.T.) //----------------------------------------------------------------------------// Function ValidDoGet(nvalor) if nvalor=1 oBrwMerca:Hide() oBrwMerca:Refresh() sysrefresh() select cAlias if !eof() vnomepro:=cAlias->nomepro; onomepro:refresh() vcodipro:=cAlias->codipro; ocodipro:Refresh() endif xsetfocus(oquantid) oDlgIncOrc:Refresh() else oDlgIncOrc:Refresh() oBrwMerca:Setfocus() sysrefresh() endif Return .t.  
Bom pessoal, como prometido está ai o código final. Uma boa adaptada do seu Rone mas funcional 100%, espero que compreendão e que sirva pra quem tiver uma duvida semelhante a minha.
 
Abs
 
 
 
OBS: no Resource eu coloca uma ''imagem'', como se fosse adicionar uma foto a tela, mas dai eu redefino na imagem um browser ao em vez de um bmp. (Justificativa: Fica mais bonito rsrsrsrsrsrsrs)

Desculpe chegar atrasado pra responder, mas isto vc resolveria tranquilamente, ele deu erro na String com o nome
 
'" + Alltrim(dnome) + "' sempre se declara assim .

A forma que deu certo foi criar o arquivo DBF temporario e gravar o array no arquivo e então utilizar no formulario...
 
Vlw! ArturSilvestre, as dicas foram 10!!!

Poxa cara.. eu tinha esquecido do FileFind... Coisas da idade! hehehe
Veio sem o NLIB100.RTL, ai numa procura num HD velho achei a NLIB200.RTL e junto o FileFind.
Deu certinho.. coisas de alguns segundos pra alterar mais de 350 PRG´s
 
Ariston, a função só não deixa o cara alterar a data com o software em execução..
Na realidade atribuo a data na entrada do sistema a depois a uma variável, sempre que tiver que pegar a data atual eu pego esta variável..
O que acontece é que tenho um "cliente" que fica alterando a data do micro para que a senha não expire, ai entra no software e com ele aberto, acerta a data do micro! É duro de acreditar que um comerciante faça isso!!!
 
Obrigado pela força.

Não precisa de uma lib especifica para o FastReport, apenas dos seguintes arquivos:
 
FastReph.CH 
FastRepH.PRG
e o seu arquivo fr3

....
aHrDt := HrDtInternet()
 
If aHrDt[1] <> Date()
  MsgInfo("Data do Computador Diferente")
EndIf
 
If aHrDt[2] <> Transform(Time,"99:99")
  MsgInfo("Hora do Computador Diferente")
EndIf

PERFEITO CARISSIMO, Very thanks!!
 


   // VERIFICA A DATA E HORA DE BRASILIA E CHECA SE ESTA IGUAL AO DO COMPUTADOR
   // CONTRIBUICAO: FORUM FIVEWIN - SHOW() - Theotokos.
 
   aHrDt := HrDtInternet()
 
   // aHrDt[1]  // A data de Brasilia
   IF CTOD( aHrDt[1])  <> Date()
 
      MsgInfo( OemToAnsi( "ATENۂO USUµRIO:                        " ) +CRLF+;
               OemToAnsi( "A DATA DO SEU MICRO ESTµ DIFERENTE DA DATA DE " + ;
                          "BRASILIA." )                                +CRLF+;
               OemToAnsi( "A DATA DO SEU MICRO : " + DTOC( Date() ) ) +CRLF+;
               OemToAnsi( "A DATA DE BRASILIA  : " + aHrDt[1]       ) +CRLF+;
               OemToAnsi( "SINCRONIZE O RELàGIO DO WINDOWS..."       ) +CRLF+;
               OemToAnsi( "PARA FICAR COM DATA E HORA DE BRASILIA. " ) +CRLF+;
               OemToAnsi( "TECLE <ENTER> PARA CONTINUAR...         " ) ,     ;
               OemToAnsi( "SINCRONIZE O RELàGIO DO WINDOWS...      " ) )
 
   ENDIF
 
   // aHrDt[2]  // A hora de Brasilia
   IF aHrDt[2] <> Transform(Time(),"99:99")
 
      MsgInfo( OemToAnsi( "ATENۂO USUµRIO:                        " )+CRLF+;
               OemToAnsi( "A HORA DO SEU MICRO ESTµ DIFERENTE DA HORA DE " + ;
                          "BRASILIA." )                                +CRLF+;
               OemToAnsi( "A HORA DO SEU MICRO : " + TIME()         ) +CRLF+;
               OemToAnsi( "A HORA DE BRASLIA   : " + aHrDt[2]       ) +CRLF+;
               OemToAnsi( "SINCRONIZE O RELàGIO DO WINDOWS..."       ) +CRLF+;
               OemToAnsi( "PARA FICAR COM HORA E DATA DE BRASILIA. " ) +CRLF+;
               OemToAnsi( "TECLE <ENTER> PARA CONTINUAR...         " ) ,     ;
               OemToAnsi( "SINCRONIZE O RELàGIO DO WINDOWS...      " ) )
 
   ENDIF

LOCAL cFontBC:="3OF9_NEW.TTF" AddFontResource(cFontBC) DEFINE FONT oFontBC NAME "3 of 9 Barcode" SIZE -54,-68 OF oPrinter oPrinter:CmSay(nLin,nCol,"*"+STRZERO(nLoteInterno,10)+"*",oFontBC,NIL,CLR_BLACK,NIL,NIL) vc precisa de uma fonte para código de barras, no exemplo acima estou usando a "3 de 9" ...  na internet há vários repositórios, de vários tipos, para todas as necessidades
 
o AddFontResource adiciona a fonte no Windows
 
DEFINE FONT para criar o objeto TFont associado ao objeto TPrinter
 
para imprimir na coordenada desejada utilize a fonte como parâmetro para o CmSay do TPrinter
 
observação:  no caso desta fonte do exemplo acima Ã© necessário iniciar e finalizar os caracteres do código de barras com astericos ( * ) ;  outra coisa q vc deve observar é que determinados tipos de fontes para códigos de barras somente aceitam números, outros aceitam quaisquer caracteres, alguns deles tem uma quantidade de caracteres determinada,  ou seja, vai variar de fonte para fonte
 
abraço

Experimentou redefinir as fontes do I.E ? Deixe no mesmo padrão do seu.
 
Para gerar em PDF, basta instalar uma impressora VIRTUAL tipo: PDFCREATOR e direcionar a impressão para ele, ou usar algum código que gera automático no PDFCREATOR ou outro gerador de PDF.
 
Nas últimas versões do FIVE, a TPRINTER já está preparada para gerar .PDF. veja isto também.
 
abs,

Olá,
 
Apesar de ser também um projeto que parou, adote a xDev. Completa e muito boa.

Acredito que é nesta parte que está seu problema: oBrw:aCols[1]:AddBmpFile( "BMP\Cheio.Bmp" )
 
Fazendo assim voce depende da pasta corrente, se bobear quando vc está na frente do cliente acessa o sistema de uma maneira e o cliente quando está sozinho acessa por outro icone em que a pasta DEFAULT pode estar setada como outra.
 
 
 
Procure passar o caminho completo para evitar problema, exemplo:
 
 
cPathDef := "c:\sistema\bitmaps"
oBrw:aCols[1]:AddBmpFile( cPath+"\Cheio.Bmp" )
 
 
 

Para atualizar o Browse, você pode dar um oBrw:Refresh(), que vai atualizar só ele, e não a dialog toda com oDlgCrediario:Update() .

Theotokos, boa tarde.
 
Segue um exemplo abaixo:
 
   oFile := TTxtFile():New(cFileCMD)  // Arquivo TXT a ler
   
   Define Dialog oDlgWait RESOURCE "AGUARDA" of oWndExcel Title "Gerando Arquivo MS-Excel"

   nPercent := 0
   nLinhas  := oFile:LastRec()  // Pega a quantidade de linhas no arquivo TXT

   Redefine Progress oPercent ID 101 OF oDlgWait

   Activate Dialog oDlgWait Centered NoWait

   oPercent:SetRange( 1, nLinhas )

   oPercent:SetStep(1)

   oExcel:= TExcelScript():New()
   oExcel:Visible := .F.
   oExcel:Open( cDestino ) // abre o documento vazio que utilizo como modelo(template)

   Do While ! oFile:lEof()
       oPercent:SetPos( oFile:nRecno() )

       cLinhaTXT := Alltrim(oFile:cLine)  // Le a linha do arquivo TXT

      If ! Empty(cLinhaTXT)
         oExcel:Eval( cLinhaTXT )
      EndIf

      oFile:Skip( 1 )  // Salta uma linha no arquivo TXT(vai para a próxima linha)
   ENDDO

   oExcel:Save()
   oExcel:End(.T.)
   oFile:End()
 
É como trabalhar com arquivo DBF.
 
Abraços,
Léo.

Bom Dia,
Tenho um campo RichEdit que gravo em um arquivo DBF no campo MEMO, esta tudo certo até ai, só que agora preciso imprimir este
campo com a formatação do RichEdit em um tPrinter (oPrn:Say), ou uma outra maneira que seja possível imprimir outros campos do DBF e o campo MEMO (RichEdit) juntos.
Exemplo do que estou fazendo:
Glicose: 110 mg/dl                                                                           Vr.Ref.: f1s231 fs2d1 f32s1d f3232 f3s
                                                                                                                                                          Sd12FSD12F 12sdf 12SD2f2f f21
Observação: dsdasd 1as21d2as Das d1as das
                        f2sd31f 321sd32f 1sd321 f3s2dsd
N.T.: Os Campos Vr.Ref. e observação são o campo RichEdit
 

LOCAL cAlias
cAlias:=Alias()
oLbx:nClrPane := { || if( (oLbx:cAlias)->(OrdKeyNo())%2=0, RGB( 176,234,255 ), RGB( 224,248,255) ) }
O link para download do projeto xDev é este:
http://www.sqllib.com.br/xDev.zip
http://www.sqlmanager.net/en/products/mysql/manager/download
João Santos - São Paulo.
kmt_karinha@pop.com.br
FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe

id=quote>id=quote>Rapaz, o III ENCONTRO ocorreu dia 19/11 e foi amplamente divulgado aqui no Fórum. Foi um SHOW()
Agora, para você, só o IV ENCONTRO. Fica ligado, OK???
Um abraço
Paulo Araújo
Clipper53b/FW26/Blinker70
Ajudar é um prazer, agradecer é uma obrigação

Caro marcelo,
Interessante a dica da courier new.
Algumas dúvidas:
Qual o tamanho da fonte pra ficar tipo DOS?
No caso de comprimir negritar e expandir? funciona também ?
E comandos de controle da impressora tipo tamanho da página
CHR(27)+"C"+CHR(66)?
Se tudo isso funcionar também deixarei de usar TDOSPRN.
Shark - FWH 2.5 / xharbour 0.99.3 / xMate 1.9 / Resource WorkShop
Editado por - shark on 04/12/2005 14:37:48

USE A INTERROGACAO, OU O MSGINFO, PARA PARAR O CODIGO, ALEM DISSO, ELE GERA UM ERROR.LOG, QUE TE SERVEM PARA DEPURAR OO ERROS.
O link para download do projeto xDev é este:
http://www.sqllib.com.br/xDev.zip
http://www.sqlmanager.net/en/products/mysql/manager/download
João Santos - São Paulo.
kmt_karinha@pop.com.br
FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe