Funcoes não encontradas na migração

[Fernando queiroz]

-oSGC
-compr=yes
-hbct.hbc

SGC.PRG
SGCARQ.PRG
SGCFU1.PRG
SGCFU2.PRG
CURSOR.PRG
BEEP.PRG
SGCSOS.PRG
FIN_FUNC.PRG
SGCLOG.PRG
CONFIG.PRG
VALEDIT.PRG
SGC1100.PRG
SGC1100A.PRG
SGC1200.PRG
SGC1400.PRG
SGC1500.PRG
SGC1630.PRG
SGC1640.PRG
SGC1650.PRG
SGC2100.PRG
SGC2400.PRG
SGC2500.PRG
SGC2600.PRG
SGC3100.PRG
SGC3200.PRG
SGC3300.PRG
SGC3400.PRG
SGC3700.PRG
SGC3800.PRG
SGC3810.PRG
SGC3820.PRG
SGC3830.PRG
SGC3900.PRG
SGC4100.PRG
SGC4200.PRG
SGC4230.PRG
SGC4300.PRG
SGC4400.PRG
SGC4500.PRG
SGC4700.PRG
SGC5100.PRG
SGC5200.PRG
SGC5300.PRG
SGC5400.PRG

[Fernando queiroz]

UFAAAAAA

RODOUUUUUU

Obrigado ao amigos que ajudaram

[JoséQuintas]

Duas coisas:

hbct.hbc
-compr

Mas confirme se está usando alguma coisa da hbct, senão nem precisa do primeiro.

[Fernando queiroz]

sim ele usa , pois tirei tudo e ele solicitou a inclusão desta lib.

agora tenho de resolver o problema da impressão pois usava um metodo criado para o clipper que era:

minha errorsys foi modificada , e quando dava erro por falta da impressora na LPT1 eu direcionava para um arquivo e ao final
testava se existia o arquivo e imprimia pelo notepad na impressora default.

acho que o harbour usa sua propria errorsys, pois ficou dando erro na LPT1 e nao direcionou para o arquivo

mas tenho de aprender como imprimir via windows, alguma dica

[Jairo Maia]

Olá Fernando,

Tranquilo. Nesse quesito acho que todos já passamos pela fase que você está passando agora em termos de impressão... e Ufa...

Mas eu sugiro que você poste essa função. Creio que fica mais fácil os participantes do fórum dar alguma sugestão.

[Fernando queiroz]

bom jairo a ideia é a seguinte ja uso a opcao de imprimir em arquivo e depois uso o notepad para imprimir, mas estive olhando no forum e vi muitos comentarios sobre a WIN_PRN , ate usei conforme a baixo

oPrinter:=Win_prn():New(cPrinter) //tem que colocar porque senão não cria o método, pode usar assim ou
//oPrinter:=Win_prn() //cria o método
//oPrinter:=New(cPrinter) //pega a escolhida

If oPrinter:create()
oPrinter:Landscape:=If(aPo=="H",.T.,.F.) //VERTICAL=.F. // HORIZONTAL=.T.
oPrinter:FormType :=1
oPrinter:Copies :=1
oPrinter:CharSet(255)
oPrinter:SetPrintQuality(1)

oPrinter:StartDoc()
oPrinter:SetFont("LUCIDA CONSOLE",12,{aIA,aIL},700,.F.,.F.)
.
.
.
mas deu erro no final da compilacao que estava faltando a HB_FUN_WIN_PRN
o que tenho de fazer para colocar essa classe , estou meio perdido

[JoséQuintas]

Imprimir.....

Código: Selecionar todos

SetPrc( 0, 0 )
SET DEVICE TO PRINT
@ 1, 0 SAY "HDHDFD"
SET DEVICE TO SCREEN
EJECT
SET PRINTER TO

[Fernando queiroz]

Quintas ja estou imprimindo mas o metodo nao me agrada muito
uso o notepad para tal finalidade, mas queria algo que pudesse imprimir diretamente do APP para uma impressora escolhida , e em alguns casos a impressao seria para a impressora padrao.

gostaria de ajuda para tirar o notepad , vi muitas informacoes sobre a win_prn()
para usa-lo:
tenho de incluir no meu .PRG quais arquivos,
no .HBP o que tenho de incluir

[Jairo Maia]

Olá Fernando,

no .HBP o que tenho de incluir

A Classe Win_Prn() é da lib hbwin. Inclua essa lib em .Hbp.