FUNÇÃO iMPRIMIR

[jaspionjones]

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

[jaspionjones]

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

[kapiaba]

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

[jaspionjones]

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

[kapiaba]

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

[rochinha]

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

[jaspionjones]

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

[sistem]

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)