jaspionjones Posted December 20, 2012 Report Share Posted December 20, 2012 OLA A TODOS OS PROGRAMADORES PODERIAM ME AJUDAR COM UMA FUNÇÃO DE IMPRIMIR, EM QUE SEJA PEGO OS VALORES DE UM BROWSER. DESSA FORMA APENAS MUDARIAS OS VALORES. DESDE JA FWH.11.12 + xHarbour12.1 + Pelles C IDE Quote Link to comment Share on other sites More sharing options...
jaspionjones Posted December 20, 2012 Author Report Share Posted December 20, 2012 OLA A TODOS OS PROGRAMADORES PODERIAM ME AJUDAR COM UMA FUNÇÃO DE IMPRIMIR, EM QUE SEJA PEGO OS VALORES DE UM BROWSER. DESSA FORMA APENAS MUDARIAS OS VALORES. DESDE JA FWH.11.12 + xHarbour12.1 + Pelles C IDE Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 20, 2012 Report Share Posted December 20, 2012 PEDIDO INDEFERIDO. EXPLIQUE MELHOR. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
jaspionjones Posted December 20, 2012 Author Report Share Posted December 20, 2012 João uma função para impresao ex: func_imp so que desejo que la na visualização estejam os campos de meu ARQUIVO.dbf desculpe se nao me expresso corretamente. rs PEDIDO INDEFERIDO. EXPLIQUE MELHOR. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe FWH.11.12 + xHarbour12.1 + Pelles C IDE Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 20, 2012 Report Share Posted December 20, 2012 Tipo: USE CLIENTES INDEX CLIENTES ALIAS CLIENTES GO TOP BROWSE() ??? João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
rochinha Posted December 20, 2012 Report Share Posted December 20, 2012 Amiguinhos, Vou tentar adivinhar qual solução se aplica ao seu caso já que não encontrei informações mais claras sobre o que deseja como, um trecho de código ou nome de uma classe que esta usando. Suponde que voce esteja usando a classe tBrowse() padrão do Fivewin voce apenas deverá incluir uma opção de menu ou botão na sua barra de botões, chamando as funções logo abaixo. Supondo que o nome da variável de suporte de seu browse seja, oLbx123, voce deverá passá-la à função. ... MENUITEM ... ACTION Reportar( oLbx123 ) id=code>id=code>Acrescente estas funções ao seu codigo fonte: function Reportar( oLbx ) local oRpt local n local cAlias := If( oLbx != nil, oLbx:cAlias, Alias() ) Select( Alias() ) REPORT oRpt TITLE "Report: " + cAlias ; HEADER "Date: " + DToC( Date() ) + ", Time: " + Time() ; FOOTER "Page: " + Str( oRpt:nPage, 3 ) ; PREVIEW if Empty( oRpt ) .or. oRpt:oDevice:hDC == 0 return nil endif for n = 1 to FCount() oRpt:AddColumn( TrColumn():New( { FInfo1( cAlias, n ) },,; { FInfo2( cAlias, n ) },,,,,,,,,, oRpt ) ) next ENDREPORT ACTIVATE REPORT oRpt GO TOP return nil static function FInfo1( cAlias, n ) return { || ( cAlias )->( FieldName( n ) ) } static function FInfo2( cAlias, n ) return { || ( cAlias )->( FieldGet( n ) ) } id=code>id=code>Editado por - rochinha on 20/12/2012 17:49:03 Quote Link to comment Share on other sites More sharing options...
jaspionjones Posted December 20, 2012 Author Report Share Posted December 20, 2012 obrigado man ajudou, usei de outra forma. A ajuda foi aplicavel. abraços FELIZ FIM DO MUNDO (RS) FWH.11.12 + xHarbour12.1 + Pelles C IDE Quote Link to comment Share on other sites More sharing options...
sistem Posted December 21, 2012 Report Share Posted December 21, 2012 citação:Amiguinhos, Vou tentar adivinhar qual solução se aplica ao seu caso já que não encontrei informações mais claras sobre o que deseja como, um trecho de código ou nome de uma classe que esta usando. Suponde que voce esteja usando a classe tBrowse() padrão do Fivewin voce apenas deverá incluir uma opção de menu ou botão na sua barra de botões, chamando as funções logo abaixo. Supondo que o nome da variável de suporte de seu browse seja, oLbx123, voce deverá passá-la à função. ... MENUITEM ... ACTION Reportar( oLbx123 ) id=code>id=code>Acrescente estas funções ao seu codigo fonte: function Reportar( oLbx ) local oRpt local n local cAlias := If( oLbx != nil, oLbx:cAlias, Alias() ) Select( Alias() ) REPORT oRpt TITLE "Report: " + cAlias ; HEADER "Date: " + DToC( Date() ) + ", Time: " + Time() ; FOOTER "Page: " + Str( oRpt:nPage, 3 ) ; PREVIEW if Empty( oRpt ) .or. oRpt:oDevice:hDC == 0 return nil endif for n = 1 to FCount() oRpt:AddColumn( TrColumn():New( { FInfo1( cAlias, n ) },,; { FInfo2( cAlias, n ) },,,,,,,,,, oRpt ) ) next ENDREPORT ACTIVATE REPORT oRpt GO TOP return nil static function FInfo1( cAlias, n ) return { || ( cAlias )->( FieldName( n ) ) } static function FInfo2( cAlias, n ) return { || ( cAlias )->( FieldGet( n ) ) } id=code>id=code>Editado por - rochinha on 20/12/2012 17:49:03 id=quote>id=quote>completanto o que o Rochinha disse se usar o xBrowse ... action .... oLbx:report() (nativo) 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.